programın ara Yuzu
[IMG]http://img480.**************/img480/7266/23ed.jpg[/IMG]


aşağıdaki ozellikleri taşıyan

1. Kullanıcı Katsayılar metin kutusuna grafiği cizilecek polinomun katsayılarını x’in artan kuvvetine gore girebilecek. Orneğin, metin kutusuna girilen değer “2 -1.5 0 2” ise, grafiği cizilecek polinom:

y=2-1,5X-2x^3

2. Cizim aralığı formun sağ ust koşesinde bulunan dort metin kutusuna girilecek değerlerle belirlenecek.

3. Kullanıcı Grafiği Ciz butonuna tıkladığında, polinomun grafiği verilen aralıkta resim kutusuna cizilecek. Aynı zamanda, polinomun denklemi resim kutusunun ustunde bulunan etikete yazılacak.

4. Metin kutusuna girilen katsayıların gecerli olup olmadığı kontrol edilecek. Orneğin, metin kutusuna girilen değer “2 ab 4 x” olması durumunda kullanıcı ikaz edilecek. Aynı şekilde diğer metin kutularına girilen değerler de kontrol edilecek.






Arkadaşlar Programı yazdım ama bi yerinde hata veriyo neden acaba yardımcı olurmusunuz...

Dim abc(10), kbc(10)
Dim i, j, l, s As Integer
Dim X, Y As Single
Dim krkter(0 To 12) As String
Dim fonkdizi() As Double

Function Fonk(ByVal z As Double) As Single
Fonk = 0
For j = 0 To i
Fonk = Fonk + (z ^ j) * kbc(j)
Next
End Function
Private Sub form_load()
krkter(0) = "0"
krkter(1) = "1"
krkter(2) = "2"
krkter(3) = "3"
krkter(4) = "4"
krkter(5) = "5"
krkter(6) = "6"
krkter(7) = "7"
krkter(8) = "8"
krkter(9) = "9"
krkter(10) = ","
krkter(11) = "-"
krkter(12) = " "
End Sub
Private Sub cmd1_click()
If katsayilar.Text = "" Then katsayilar.Text = "2 -1.5 0 2"
katsayilar.Text = Trim(katsayilar.Text)
For i = 1 To Len(Minx.Text)
s = 0
For l = 0 To 12
If Mid(Minx.Text, i, 1) krkter(l) Then s = s + 1
If s > 12 Then
MsgBox "min x hatalı"
Exit Sub
End If
Next
Next
For i = 1 To Len(Miny.Text)
s = 0
For l = 0 To 12
If Mid(Miny.Text, i, 1) krkter(l) Then s = s + 1
If s > 12 Then
MsgBox "min y hatalı"
Exit Sub
End If
Next
Next
For i = 1 To Len(Maxy.Text)
s = 0
For l = 0 To 12
If Mid(Maxy.Text, i, 1) krkter(l) Then s = s + 1
If s > 12 Then
MsgBox "max y hatalı"
Exit Sub
End If
Next
Next
For i = 1 To Len(Maxx.Text)
s = 0
For l = 0 To 12
If Mid(Maxx.Text, i, 1) krkter(l) Then s = s + 1
If s > 12 Then
MsgBox "max x hatalı"
Exit Sub
End If
Next
Next

For i = 1 To Len(katsayilar.Text)
s = 0
For l = 0 To 12
If Mid(katsayilar.Text, i, 1) krkter(l) Then s = s + 1
If s > 12 Then
MsgBox "hataa"
Exit Sub
End If
Next
s = 0
Next


For i = 0 To 10
abc(i) = 0
kbc(i) = 0
Next
j = 0
i = 0
abc(0) = 1

For i = 1 To Len(katsayilar.Text)
If Mid(katsayilar.Text, i, 1) = "" Then
j = j + 1
abc(j) = i
End If
Next

abc(j + 1) = Len(katsayilar.Text) + 1

For i = 0 To j
kbc(i) = Mid(katsayilar.Text, abc(i), abc(i + 1) - abc(i))
Next
denklem.Caption = ""
Label5.Caption = "y="
For i = 0 To j
denklem.Caption = denklem.Caption + CStr(kbc(i)) + "x^" + CStr(i) + " "
Next

xmin = Val(Minx.Text)
xmax = Val(Maxx.Text)
ymin = Val(Miny.Text)
ymax = Val(Maxy.Text)
Picture1.AutoRedraw = True
Picture1.Cls
Picture1.Scale (xmin, ymax)-(xmax, ymin)
Picture1.Line (0, ymin)-(0, ymax)
Picture1.Line (xmin, 0)-(xmax, 0)
Picture1.PSet (xmin, Fonk(xmin))
For X = xmin To xmax Step 0.1
Y = Fonk(X)
Picture1.Line -(X, Y)
Next
End Sub
__________________