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

metboy · Haziran 14, 2003

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

metboy · Haziran 15, 2003

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

Catscratch · Haziran 15, 2003

VB'den anlarım ama senin uğraştığın konudan çakmıorum malesef.

yani diskriminant öyle deil böyle yapılır diyemem. Sadece yapı açısından bakarım.

Bu arada işlem sıralarını bilgisayara brakma, kendin paranteze al.[hline]This Cat Scratches Free.

metboy · Haziran 15, 2003

ok saol bu arada bişi sorcam function ı doğru yapmışmıyım sora da command button da direk function ın adını yazarsam yaparmı onu[hline]It doesn't make any sense This tragic ending
In spite of the evidence There's something still missing

DeMiRMaSKe · Haziran 15, 2003

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?

DeMiRMaSKe · Haziran 15, 2003

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?

metboy · Haziran 15, 2003

tamam diskriminantı yaptım da bu and ler çok oldu galiba overflow hatası verio olmazsa bir sürü form açıp tek tek aşamalandırcam[hline]It doesn't make any sense This tragic ending
In spite of the evidence There's something still missing

Catscratch · Haziran 16, 2003

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.

metboy · Haziran 16, 2003

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

metboy · Haziran 16, 2003

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

GM-Newbie · Haziran 16, 2003

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*

Giriş

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

Öne çıkan mesajlar

metboy

metboy

Catscratch

metboy

DeMiRMaSKe

DeMiRMaSKe

metboy

Catscratch

metboy

metboy

GM-Newbie