Jump to content
Forumu Destekleyenlere Katılın ×
Paticik Forumları
2000 lerden beri faal olan, çok şukela bir paylaşım platformuyuz. Hoşgeldiniz.

V.Basic 2.derece denklem incelemeleri(a.k.a yardııım)


metboy

Öne çıkan mesajlar

ben v.basic e yeni başladım sayılırım 2. derece denklem, eşitsizlik vs. işaretleri incelemesi yazmaya çalıştım ama diskriminantı yapamadım bi türlü en son aklıma şu geldi:

ax^2+bx+c şeklinde bir denklem de a için x^' için + için b için vsvs. tek tek test box yaptım ondan sora diskriminant için bi command yaptım onun içine

Diskriminant1 = x - 4 * y * z
Diskriminant2 = m - 4 * n * p
Diskriminant3 = r - 4 * t * s

Dim x, y, z, m, n, p, r, t, s
x = Val(Text4.Text) ^ 2
m = Val(Text11.Text) ^ 2
r = Val(Text18.Text) ^ 2
y = Val(Text1.Text)
n = Val(Text8.Text)
t = Val(Text15.Text)
z = Val(Text7.Text)
p = Val(Text14.Text)
s = Val(Text21.Text)

If Diskriminant1 < 0 Then
Label2.Caption = "-"
ElseIf Diskriminant1 = 0 And Val(Text7.Text) / Val(Text1.Text) > 0 And Val(Text4.Text) * -1 / Val(Text1.Text) > 0 Then
Label2.Caption = "+"
ElseIf Diskriminant1 = 0 And Val(Text7.Text) / Val(Text1.Text) > 0 And Val(Text4.Text) * -1 / Val(Text1.Text) < 0 Then
Label2.Caption = "-"
ElseIf Diskriminant1 = 0 And Val(Text7.Text) / Val(Text1.Text) = 0 Then
Label2.Caption = "0"
ElseIf Diskriminant1 > 0 And Val(Text7.Text) / Val(Text1.Text) < 0 And Val(Text4.Text) * -1 / Val(Text1.Text) > 0 Then
Label2.Caption = "x1=+,x2=-"
ElseIf Diskriminant1 > 0 And Val(Text7.Text) / Val(Text1.Text) < 0 And Val(Text4.Text) * -1 / Val(Text1.Text) < 0 Then
Label2.Caption = "x1=-,x2=+"
ElseIf Diskriminant1 > 0 And Val(Text7.Text) / Val(Text1.Text) > 0 And Val(Text4.Text) * -1 / Val(Text1.Text) > 0 Then
Label2.Caption = "x1,x2=-"
ElseIf Diskriminant1 > 0 And Val(Text7.Text) / Val(Text1.Text) > 0 And Val(Text4.Text) * -1 / Val(Text1.Text) < 0 Then
Label2.Caption = "x1,x2=+"
ElseIf Diskriminant1 > 0 And Val(Text7.Text) / Val(Text1.Text) = 0 And Val(Text4.Text) * -1 / Val(Text1.Text) > 0 Then
Label2.Caption = "x1=0,x2=+"
ElseIf Diskriminant1 > 0 And Val(Text7.Text) / Val(Text1.Text) = 0 And Val(Text4.Text) * -1 / Val(Text1.Text) < 0 Then
Label2.Caption = "x1=0,x2=-"
End If

If Diskriminant2 < 0 Then
Label3.Caption = "-"
ElseIf Diskriminant2 = 0 And Val(Text14.Text) / Val(Text8.Text) > 0 And Val(Text11.Text) * -1 / Val(Text8.Text) > 0 Then
Label3.Caption = "+"
ElseIf Diskriminant2 = 0 And Val(Text14.Text) / Val(Text8.Text) > 0 And Val(Text11.Text) * -1 / Val(Text8.Text) < 0 Then
Label3.Caption = "-"
ElseIf Diskriminant2 = 0 And Val(Text14.Text) / Val(Text8.Text) = 0 Then
Label3.Caption = "0"
ElseIf Diskriminant2 > 0 And Val(Text14.Text) / Val(Text8.Text) < 0 And Val(Text11.Text) * -1 / Val(Text8.Text) > 0 Then
Label3.Caption = "x1=+,x2=-"
ElseIf Diskriminant2 > 0 And Val(Text14.Text) / Val(Text8.Text) < 0 And Val(Text11.Text) * -1 / Val(Text8.Text) < 0 Then
Label3.Caption = "x1=-,x2=+"
ElseIf Diskriminant2 > 0 And Val(Text14.Text) / Val(Text8.Text) > 0 And Val(Text11.Text) * -1 / Val(Text8.Text) > 0 Then
Label3.Caption = "x1,x2=-"
ElseIf Diskriminant2 > 0 And Val(Text14.Text) / Val(Text8.Text) > 0 And Val(Text11.Text) * -1 / Val(Text8.Text) < 0 Then
Label3.Caption = "x1,x2=+"
ElseIf Diskriminant2 > 0 And Val(Text14.Text) / Val(Text8.Text) = 0 And Val(Text11.Text) * -1 / Val(Text8.Text) > 0 Then
Label3.Caption = "x1=0,x2=+"
ElseIf Diskriminant2 > 0 And Val(Text14.Text) / Val(Text8.Text) = 0 And Val(Text11.Text) * -1 / Val(Text8.Text) < 0 Then
Label3.Caption = "x1=0,x2=-"
End If

If Diskriminant3 < 0 Then
Label3.Caption = "-"
ElseIf Diskriminant3 = 0 And Val(Text21.Text) / Val(Text15.Text) > 0 And Val(Text18.Text) * -1 / Val(Text15.Text) > 0 Then
Label3.Caption = "+"
ElseIf Diskriminant3 = 0 And Val(Text21.Text) / Val(Text15.Text) > 0 And Val(Text18.Text) * -1 / Val(Text15.Text) < 0 Then
Label3.Caption = "-"
ElseIf Diskriminant3 = 0 And Val(Text21.Text) / Val(Text15.Text) = 0 Then
Label3.Caption = "0"
ElseIf Diskriminant3 > 0 And Val(Text21.Text) / Val(Text15.Text) < 0 And Val(Text18.Text) * -1 / Val(Text15.Text) > 0 Then
Label3.Caption = "x1=+,x2=-"
ElseIf Diskriminant3 > 0 And Val(Text21.Text) / Val(Text15.Text) < 0 And Val(Text18.Text) * -1 / Val(Text15.Text) < 0 Then
Label3.Caption = "x1=-,x2=+"
ElseIf Diskriminant3 > 0 And Val(Text21.Text) / Val(Text15.Text) > 0 And Val(Text18.Text) * -1 / Val(Text15.Text) > 0 Then
Label3.Caption = "x1,x2=-"
ElseIf Diskriminant3 > 0 And Val(Text21.Text) / Val(Text15.Text) > 0 And Val(Text18.Text) * -1 / Val(Text15.Text) < 0 Then
Label3.Caption = "x1,x2=+"
ElseIf Diskriminant3 > 0 And Val(Text21.Text) / Val(Text15.Text) = 0 And Val(Text18.Text) * -1 / Val(Text15.Text) > 0 Then
Label3.Caption = "x1=0,x2=+"
ElseIf Diskriminant3 > 0 And Val(Text21.Text) / Val(Text15.Text) = 0 And Val(Text18.Text) * -1 / Val(Text15.Text) < 0 Then
Label3.Caption = "x1=0,x2=-"
End If

koydum ama olmadı bi türkü ne yapayım sizce[hline]It doesn't
Link to comment
Sosyal ağlarda paylaş

ya yokmu bilen bu sefer declarations bölümüne

Public Function Diskriminant1() As Long
Diskriminant1=x + (-4) * y * z
End Function

koydum ama diskriminantı yapamıo nedense ya function ı iyi yapamadım :([hline]It doesn't make any sense This tragic ending
In spite of the evidence There's something still missing

Link to comment
Sosyal ağlarda paylaş

if lerdeki and lerin yanında parantezler koy yapmaya çalıştığım matematik işlemlerinide parantezle öncelik sırasına göre ayır. bir de matematik işlemini bilmediğimden olmuş mu olmamış mı neden yapmıyor gibi bişi diyemem kusura bakma.[hline]What if the prophecy is true
What if tomorrow the war could be over?
Isn't that worth fighting for?
Isn't that worth dying for?
Link to comment
Sosyal ağlarda paylaş

edit işime gelmedi

Diskriminant1 = x - 4 * y * z
Diskriminant2 = m - 4 * n * p
Diskriminant3 = r - 4 * t * s

Dim x, y, z, m, n, p, r, t, s
x = Val(Text4.Text) ^ 2
m = Val(Text11.Text) ^ 2
r = Val(Text18.Text) ^ 2
y = Val(Text1.Text)
n = Val(Text8.Text)
t = Val(Text15.Text)
z = Val(Text7.Text)
p = Val(Text14.Text)
s = Val(Text21.Text)


burda diskriminant dediğin şeylerde işleme soktuğun değişkenleri sonradan tanımlamışsın o 3 adet diskriminant işlemini değişkenleri değerleri atadıkdan sonra yaptır.[hline]What if the prophecy is true
What if tomorrow the war could be over?
Isn't that worth fighting for?
Isn't that worth dying for?
Link to comment
Sosyal ağlarda paylaş

said:
Catscratch, 16 June 2003 17:22 tarihinde demiş ki:
and ler çok deil normal. başka birşey yüzünden overflow veriodur.

Bir işlemin sonucu çok uçuk çıkıo olabilir.

if satırlarını şu tipte yaptınmı ?
if (a < b) and (b < c) and (c < d) ?[hline]This Cat Scratches Free.

doğru onu unutmuşum galiba bi de öle deneyim :)[hline]It doesn't make any sense This tragic ending
In spite of the evidence There's something still missing

Link to comment
Sosyal ağlarda paylaş

olmadı ya

Diskriminant1
Diskriminant2
Diskriminant3

If (Diskriminant1 < 0) Then
Label17.Caption = "-"
End If
If (Diskriminant1 = 0) And (Val(z) / Val(y) > 0) And (Val(x) * Val(-1) / Val(y) > 0) Then
Label17.Caption = "+"
End If
If (Diskriminant1 = 0) And (Val(z) / Val(y) > 0) And (Val(x) * Val(-1) / Val(y) < 0) Then
Label17.Caption = "-"
End If
If (Diskriminant1 = 0) And (Val(z) / Val(y) = 0) Then
Label17.Caption = "0"
End If
If (Diskriminant1 > 0) And (Val(z) / Val(y) < 0) And (Val(x) * Val(-1) / Val(y) > 0) Then
Label17.Caption = "x1=+,x2=-"
End If
If (Diskriminant1 > 0) And (Val(z) / Val(y) < 0) And (Val(x) * Val(-1) / Val(y) < 0) Then
Label17.Caption = "x1=-,x2=+"
End If
If (Diskriminant1 > 0) And (Val(z) / Val(y) > 0) And (Val(z) * Val(-1) / Val(y) > 0) Then
Label17.Caption = "x1,x2=-"
End If
If (Diskriminant1 > 0) And (Val(z) / Val(y) > 0) And (Val(x) * Val(-1) / Val(y) < 0) Then
Label17.Caption = "x1,x2=+"
End If
If (Diskriminant1 > 0) And (Val(z) / Val(y) = 0) And (Val(x) * Val(-1) / Val(y) > 0) Then
Label17.Caption = "x1=0,x2=+"
End If
If (Diskriminant1 > 0) And (Val(z) / Val(y) = 0) And (Val(x) * Val(-1) / Val(y) < 0) Then
Label17.Caption = "x1=0,x2=-"
End If

If (Diskriminant2 < 0) Then
Label18.Caption = "-"
End If
If (Diskriminant2 = 0) And (Val(p) / Val(n) > 0) And (Val(m) * Val(-1) / Val(n) > 0) Then
Label18.Caption = "+"
End If
If (Diskriminant2 = 0) And (Val(p) / Val(n) > 0) And (Val(m) * Val(-1) / Val(n) < 0) Then
Label18.Caption = "-"
End If
If (Diskriminant2 = 0) And (Val(p) / Val(n) = 0) Then
Label18.Caption = "0"
End If
If (Diskriminant2 > 0) And (Val(p) / Val(n) < 0) And (Val(m) * Val(-1) / Val(r) > 0) Then
Label18.Caption = "x1=+,x2=-"
End If
If (Diskriminant2 > 0) And (Val(p) / Val(n) < 0) And (Val(m) * Val(-1) / Val(n) < 0) Then
Label18.Caption = "x1=-,x2=+"
End If
If (Diskriminant2 > 0) And (Val(p) / Val(n) > 0) And (Val(m) * Val(-1) / Val(n) > 0) Then
Label18.Caption = "x1,x2=-"
End If
If (Diskriminant2 > 0) And (Val(p) / Val(n) > 0) And (Val(m) * Val(-1) / Val(n) < 0) Then
Label18.Caption = "x1,x2=+"
End If
If (Diskriminant2 > 0) And (Val(p) / Val(n) = 0) And (Val(m) * Val(-1) / Val(n) > 0) Then
Label18.Caption = "x1=0,x2=+"
End If
If (Diskriminant2 > 0) And (Val(p) / Val(n) = 0) And (Val(m) * Val(-1) / Val(n) < 0) Then
Label18.Caption = "x1=0,x2=-"
End If

If (Diskriminant3 < 0) Then
Label19.Caption = "-"
End If
If (Diskriminant3 = 0) And (Val(s) / Val(t) > 0) And (Val(r) * Val(-1) / Val(t) > 0) Then
Label19.Caption = "+"
End If
If (Diskriminant3 = 0) And (Val(s) / Val(t) > 0) And (Val(r) * Val(-1) / Val(t) < 0) Then
Label19.Caption = "-"
End If
If (Diskriminant3 = 0) And (Val(s) / Val(t) = 0) Then
Label19.Caption = "0"
End If
If (Diskriminant3 > 0) And (Val(s) / Val(t) < 0) And (Val(r) * Val(-1) / Val(t) > 0) Then
Label19.Caption = "x1=+,x2=-"
End If
If (Diskriminant3 > 0) And (Val(s) / Val(t) < 0) And (Val(r) * Val(-1) / Val(t) < 0) Then
Label19.Caption = "x1=-,x2=+"
End If
If (Diskriminant3 > 0) And (Val(s) / Val(t) > 0) And (Val(r) * Val(-1) / Val(t) > 0) Then
Label19.Caption = "x1,x2=-"
End If
If (Diskriminant3 > 0) And (Val(s) / Val(t) > 0) And (Val(r) * Val(-1) / Val(t) < 0) Then
Label19.Caption = "x1,x2=+"
End If
If (Diskriminant3 > 0) And (Val(s) / Val(t) = 0) And (Val(s) * Val(-1) / Val(t) > 0) Then
Label19.Caption = "x1=0,x2=+"
End If
If (Diskriminant3 > 0) And (Val(s) / Val(t) = 0) And (Val(s) * Val(-1) / Val(t) < 0) Then
Label19.Caption = "x1=0,x2=-"
End If


şekline getirdim yine overflow dio :)[hline]It doesn't make any sense This tragic ending
In spite of the evidence There's something still missing

Link to comment
Sosyal ağlarda paylaş

diskriminantları dim bloğunda tanımladın mı? birde dskriminant işlemine giren değişkenleri de işlemi yapmadan önce tanımlayıp değerlerini aktarman lazım. birde şöyle dene 0 lı sayılarda işe yaramaz ama
diskrinant1= int(işlem)
yaparsan overflow u belki geçirirsin.[hline]*!Anladım işi, sanat ALLAH'ı aramakmış / Marifet bu gerisi yalnız çelik çomakmış"
Necip Fazıl KISAKÜREK*
Link to comment
Sosyal ağlarda paylaş

×
  • Yeni Oluştur...