Hejsa
Sidder med et projekt hvor jeg skal have tegnet en graf i en picture box. Grafen skal bestå af en drawline som går fra en x,y værdi til en anden. Denne værdi bliver regnet ud med en indtastet funktion. Kommer x og y værdien uden for skal den stoppe med at regne. Har forsøg følgende kode;
Dim BItal As Integer
Dim BIx As Integer
Dim BIg As Graphics
Dim BIgammelX1 As Integer
Dim BigammelY1 As Integer
Dim BIFlag As Boolean
BIFlag = True
BIg = BIgraf.CreateGraphics()
BIg.DrawLine(Pens.Black, 0, 150, 350, 150)
BIg.DrawLine(Pens.Black, 175, 0, 175, 300)
For BItal = 0 To 350
BIx = Val(BItxtA.Text) * BItal ^ 3 + Val(BItxtB.Text) * BItal ^ 2 + Val(BItxtC.Text) * BItal + Val(BItxtD.Text)
If BIx > 0 And BIx < 350 And BIFlag = True Then
BIgammelX1 = BItal
BigammelY1 = BIx
ElseIf BIx > 0 And BIx < 350 And BIFlag = False Then
BIg.DrawLine(Pens.Black, BIgammelX1 + 175, 350 - BigammelY1, BItal + 175, 350 - BIx)
BIgammelX1 = BItal
BigammelY1 = BIx
ElseIf BIx < 0 And BIx > 350 Then
BIFlag = True
End If
Next BItalIdeen er at formlen skal gentages indtil man når til 350 i x, eller hvis y ryger uden for.
Indlæg senest redigeret d. 16.12.2008 18:08 af Bruger #6908