Brauche Tipp in VB6

Hallo,

ich hab da folgendes Problem:

Ich hab in einer Picturebox ein Kurvendiagramm erstellt.

Es werden dort 2 verschiedenfarbige (rot und grün) Linien dargestellt, die aber nichts miteinander zu tun haben.

Ich hab das Diagramm nun so eingestellt, dass wenn ich einen Wert von 50 bis 100 für „rot“ eingebe, es richtig angegeben wird.
Das Problem ist jetzt, dass ich für „grün“ nur Werte von -5 bis 35 eingeben kann.
Da mir nichts besseres eingefallen ist, habe ich eine Mehrfach-If-Anweisung eingefügt.

Die sieht so aus:

If Temp = -5 Then
Temp = 50
ElseIf Temp = -4 Then Temp = 51.25
ElseIf Temp = -3 Then Temp = 52.5
ElseIf Temp = -2 Then Temp = 53.75
ElseIf Temp = -1 Then Temp = 55
ElseIf Temp = 0 Then Temp = 56.25
ElseIf Temp = 1 Then Temp = 57.5
ElseIf Temp = 2 Then Temp = 58.75
ElseIf Temp = 3 Then Temp = 60
ElseIf Temp = 4 Then Temp = 61.25
ElseIf Temp = 5 Then Temp = 62.5
ElseIf Temp = 6 Then Temp = 63.75
ElseIf Temp = 7 Then Temp = 65
ElseIf Temp = 8 Then Temp = 66.25
ElseIf Temp = 9 Then Temp = 67.5
ElseIf Temp = 10 Then Temp = 68.75
ElseIf Temp = 11 Then Temp = 70
ElseIf Temp = 12 Then Temp = 71.25
ElseIf Temp = 13 Then Temp = 72.5
ElseIf Temp = 14 Then Temp = 73.75
ElseIf Temp = 15 Then Temp = 75
ElseIf Temp = 16 Then Temp = 76.25
ElseIf Temp = 17 Then Temp = 77.5
ElseIf Temp = 18 Then Temp = 78.75
ElseIf Temp = 19 Then Temp = 80
ElseIf Temp = 20 Then Temp = 81.25
ElseIf Temp = 21 Then Temp = 82.5
ElseIf Temp = 22 Then Temp = 83.75
ElseIf Temp = 23 Then Temp = 85
ElseIf Temp = 24 Then Temp = 86.25
ElseIf Temp = 25 Then Temp = 87.5
ElseIf Temp = 26 Then Temp = 88.75
ElseIf Temp = 27 Then Temp = 90
ElseIf Temp = 28 Then Temp = 91.25
ElseIf Temp = 29 Then Temp = 92.5
ElseIf Temp = 30 Then Temp = 93.75
ElseIf Temp = 31 Then Temp = 95
ElseIf Temp = 32 Then Temp = 96.25
ElseIf Temp = 33 Then Temp = 97.5
ElseIf Temp = 34 Then Temp = 98.75
ElseIf Temp = 35 Then Temp = 100
End If

Da muss es doch eine bessere Lösung geben.

Wer kann mir evtl. einen Tipp geben?

Gruß
Marcel

Hallo Marcel,

Dein Problem habe ich nicht verstanden, aber Dein Code passt in eine kleine Funktion.

Option Explicit

Private Sub Command1\_Click()
 Dim i As Integer
 For i = -5 To 35
 List1.AddItem CStr(i) + " " + CStr(korr(i))
 Next
End Sub

Private Function korr(ByVal wert As Integer) As Single
 korr = 50 + ((wert + 5) \* 1.25)
End Function

Gruß Rainer