• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Bir polinom fonksiyonun grafiği

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ByClxon

Süper Üye
Katılım
7 Ocak 2016
Mesajlar
955
Beğeni Puanı
4
Yaş
22
[font='Titillium Web', sans-serif]'VB ile bir polinom fonksiyonun grafiği[/FONT]
[font='Titillium Web', sans-serif]'Program içIn malzeme listesi[/FONT]
[font='Titillium Web', sans-serif]'1. Bir adet form[/FONT]
[font='Titillium Web', sans-serif]'2. Bikaç label[/FONT]
[font='Titillium Web', sans-serif]'3. Iki adet textbox[/FONT]
[font='Titillium Web', sans-serif]'4. Iki adet buton[/FONT]
[font='Titillium Web', sans-serif]'5. Bir adet pictureBox[/FONT]

[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] us, islem [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Boolean[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] sira, k [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] dizi(20, 3) [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]String[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] fonk [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]String[/FONT]
[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] krk [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]String[/FONT][font='Titillium Web', sans-serif] * 1[/FONT]
[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] cmdCiz_Click()[/FONT]
[font='Titillium Web', sans-serif]Call[/FONT][font='Titillium Web', sans-serif] Coz[/FONT]

[font='Titillium Web', sans-serif]List2.Clear[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] Check1.Value = 1 [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]Picture1.[/FONT][font='Titillium Web', sans-serif]Cls[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] i = -2970 [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif] 2970[/FONT]
[font='Titillium Web', sans-serif]List2.AddItem hesapla(i) & [/FONT][font='Titillium Web', sans-serif]" "[/FONT][font='Titillium Web', sans-serif] & [/FONT][font='Titillium Web', sans-serif]CStr[/FONT][font='Titillium Web', sans-serif](i)[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] Option1(0).Value = [/FONT][font='Titillium Web', sans-serif]True[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]Picture1.[/FONT][font='Titillium Web', sans-serif]PSet[/FONT][font='Titillium Web', sans-serif] (i + 2970, 2970 - hesapla(i / 54) * 10), &H80000008[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] Option1(1).Value = [/FONT][font='Titillium Web', sans-serif]True[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]Picture1.[/FONT][font='Titillium Web', sans-serif]PSet[/FONT][font='Titillium Web', sans-serif] (i + 2970, 2970 - hesapla(i)), &H80000008[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Coz()[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] i = 1 [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif] 20[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] j = 1 [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif] 3[/FONT]
[font='Titillium Web', sans-serif]dizi(i, j) = [/FONT][font='Titillium Web', sans-serif]""[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]fonk = [/FONT][font='Titillium Web', sans-serif]Trim[/FONT][font='Titillium Web', sans-serif](txtFonk)[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](fonk, 1, 1) <> [/FONT][font='Titillium Web', sans-serif]"+"[/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](fonk, 1, 1) <> [/FONT][font='Titillium Web', sans-serif]"-"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]fonk = [/FONT][font='Titillium Web', sans-serif]"+"[/FONT][font='Titillium Web', sans-serif] & [/FONT][font='Titillium Web', sans-serif]Trim[/FONT][font='Titillium Web', sans-serif](fonk)[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]'MsgBox (Mid(fonk, 1, 1) + " " + fonk)[/FONT]
[font='Titillium Web', sans-serif]sira = 1[/FONT]
[font='Titillium Web', sans-serif]k = 0[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] sira = 1 [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif]Len[/FONT][font='Titillium Web', sans-serif](fonk)[/FONT]
[font='Titillium Web', sans-serif]krk = [/FONT][font='Titillium Web', sans-serif]Mid[/FONT][font='Titillium Web', sans-serif](fonk, sira, 1)[/FONT]
[font='Titillium Web', sans-serif]islem = [/FONT][font='Titillium Web', sans-serif]False[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] (krk = [/FONT][font='Titillium Web', sans-serif]"+"[/FONT][font='Titillium Web', sans-serif]Or[/FONT][font='Titillium Web', sans-serif] krk = [/FONT][font='Titillium Web', sans-serif]"-"[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] islem = [/FONT][font='Titillium Web', sans-serif]False[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]k = k + 1[/FONT]
[font='Titillium Web', sans-serif]dizi(k, 1) = krk[/FONT]
[font='Titillium Web', sans-serif]us = [/FONT][font='Titillium Web', sans-serif]False[/FONT]
[font='Titillium Web', sans-serif]'yyy'sira = sira + 1[/FONT]
[font='Titillium Web', sans-serif]islem = [/FONT][font='Titillium Web', sans-serif]True[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] krk = [/FONT][font='Titillium Web', sans-serif]"^"[/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] islem = [/FONT][font='Titillium Web', sans-serif]False[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]us = [/FONT][font='Titillium Web', sans-serif]True[/FONT]
[font='Titillium Web', sans-serif]'sira = sira + 1[/FONT]
[font='Titillium Web', sans-serif]islem = [/FONT][font='Titillium Web', sans-serif]True[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] (IsNumeric(krk) [/FONT][font='Titillium Web', sans-serif]Or[/FONT][font='Titillium Web', sans-serif] krk = [/FONT][font='Titillium Web', sans-serif]"."[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] us = [/FONT][font='Titillium Web', sans-serif]False[/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] islem = [/FONT][font='Titillium Web', sans-serif]False[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]dizi(k, 2) = dizi(k, 2) + krk[/FONT]
[font='Titillium Web', sans-serif]'sira = sira + 1[/FONT]
[font='Titillium Web', sans-serif]islem = [/FONT][font='Titillium Web', sans-serif]True[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] (IsNumeric(krk) [/FONT][font='Titillium Web', sans-serif]Or[/FONT][font='Titillium Web', sans-serif] krk = [/FONT][font='Titillium Web', sans-serif]"."[/FONT][font='Titillium Web', sans-serif][/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] us = [/FONT][font='Titillium Web', sans-serif]True[/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] islem = [/FONT][font='Titillium Web', sans-serif]False[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]dizi(k, 3) = dizi(k, 3) + krk[/FONT]
[font='Titillium Web', sans-serif]'sira = sira + 1[/FONT]
[font='Titillium Web', sans-serif]islem = [/FONT][font='Titillium Web', sans-serif]True[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] krk = [/FONT][font='Titillium Web', sans-serif]"x"[/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] islem = [/FONT][font='Titillium Web', sans-serif]False[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]'sira = sira + 1[/FONT]
[font='Titillium Web', sans-serif]islem = [/FONT][font='Titillium Web', sans-serif]True[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] i = 1 [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif] k[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif]Trim[/FONT][font='Titillium Web', sans-serif](dizi(i, 2)) = [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]dizi(i, 2) = 1[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif]Trim[/FONT][font='Titillium Web', sans-serif](dizi(i, 3)) = [/FONT][font='Titillium Web', sans-serif]""[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]dizi(i, 3) = 1[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]List1.AddItem dizi(i, 1) + [/FONT][font='Titillium Web', sans-serif]" "[/FONT][font='Titillium Web', sans-serif] + dizi(i, 2) + [/FONT][font='Titillium Web', sans-serif]" "[/FONT][font='Titillium Web', sans-serif] + dizi(i, 3)[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]


[font='Titillium Web', sans-serif]Function[/FONT][font='Titillium Web', sans-serif] hesapla(x) [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Double[/FONT]
[font='Titillium Web', sans-serif]For[/FONT][font='Titillium Web', sans-serif] i = 1 [/FONT][font='Titillium Web', sans-serif]To[/FONT][font='Titillium Web', sans-serif] k [/FONT][font='Titillium Web', sans-serif]'- 1[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] i <> k [/FONT][font='Titillium Web', sans-serif]Or[/FONT][font='Titillium Web', sans-serif] (k < 2) [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]son = x ^ [/FONT][font='Titillium Web', sans-serif]Val[/FONT][font='Titillium Web', sans-serif](dizi(i, 3)) * [/FONT][font='Titillium Web', sans-serif]Val[/FONT][font='Titillium Web', sans-serif](dizi(i, 2))[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] dizi(i, 1) = [/FONT][font='Titillium Web', sans-serif]"+"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]sonuc = sonuc + son[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] dizi(i, 1) = [/FONT][font='Titillium Web', sans-serif]"-"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]sonuc = sonuc - son[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] (i = k) [/FONT][font='Titillium Web', sans-serif]And[/FONT][font='Titillium Web', sans-serif] (k > 1) [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] dizi(i, 1) = [/FONT][font='Titillium Web', sans-serif]"+"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]sonuc = sonuc + dizi(i, 2)[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] dizi(i, 1) = [/FONT][font='Titillium Web', sans-serif]"-"[/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]sonuc = sonuc - dizi(i, 2)[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]

[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]hesapla = sonuc[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Function[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Command1_Click()[/FONT]
[font='Titillium Web', sans-serif]Coz[/FONT]
[font='Titillium Web', sans-serif]Label1 = hesapla([/FONT][font='Titillium Web', sans-serif]Val[/FONT][font='Titillium Web', sans-serif](Text1.[/FONT][font='Titillium Web', sans-serif]Text[/FONT][font='Titillium Web', sans-serif]))[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Command2_Click()[/FONT]
[font='Titillium Web', sans-serif]List1.Clear[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt