---

Master - 2005-09-08, 18:32
Czy może ktoś wie jak oznacza się w języku programowania Visual Basic "nic"? Ale nie 0.

---

r00t - 2005-09-08, 18:36
Ja wiem......

vbNullString

np. Text$ = vbNullString

odpowiednik NULL z C

---

Master - 2005-09-08, 19:11
Private Sub Oblicz_Click()
Wynik_Delty.Caption = "Wynik Delty " & Str(Val(Text1) ^ 2 - 4 * Val(Text2) * Val(Text3))

Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego "

Dim sinDelta As String
sinDelta = Str(Val(Text1) ^ 2 - 4 * Val(Text2) * Val(Text3))

If sinDelta < 0 Then

Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego nie istnieje"

ElseIf sinDelta = 0 Then

Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego to " & Str(Val(-Text1) / 2 * Val(Text2))

ElseIf sinDelta > 0 Then

Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego to " & Str(Val(-Text1) - Sqr(sinDelta) / 2 * Val(Text2)) & " i " & Str(Val(-Text1) + Sqr(sinDelta) / 2 * Val(Text2))

ElseIf sinDelta > 0 Then

Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego gdy a = 0 nie istnieje "

ElseIf Text1 = vbNullString Or Text2 = vbNullString Or Text3 = vbNullString Then

MsgBox ("Wypełnij wszystkie pola poprawnie")

Else
End If
End Sub

---

r00t - 2005-09-08, 19:50
no tak na pierwszy rzut oka... ja nie jestem fachowcem... od VB ale dlaczego sprawdzanie text1 text2 i text3 jest na samym koncu? wg mnie powinno byc

pobieranie danych sprawdzanie czy wszystko zostalo podane stosowne komunikaty jeśli nie podane i powrot na początek programu jeśli dane sa to obliczenia zgodne z warunkami równania kwadratowego (delta co sie rowna) prezentacja wyniku

Ale tak jak mówiłem... nie jestem fachowcem od VB a to co napisałem to logiczy schemat blokowy programu tak jak wg mnie powinien wygladac....

---

MzK - 2005-09-08, 19:52
Sluchaj, nie programowalem w VB, ale wedlug mnie struktura kontrolna powinna wygladac np. tak:

while
Text1 = vbNullString Or Text2 = vbNullString Or Text3 = vbNullString Then
.....MsgBox ("Wypełnij wszystkie pola poprawnie")

else

.....If sinDelta < 0
.....Then
.....Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego nie istnieje"

.....ElseIf sinDelta = 0
.....Then
.....Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego to " & Str(Val(-Text1) / 2 * Val(Text2))

.....ElseIf sinDelta > 0
.....Then
.....Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego to " & Str(Val(-Text1) - Sqr(sinDelta) / 2 * Val(Text2)) & " i " & Str(Val(-Text1) + Sqr(sinDelta) / 2 * Val(Text2))

.....endif

---

Master - 2005-09-08, 21:20
Rozwiązałem problem dzięki Wam za pomoc !!!!!!!!
Moje rozwiązanie z Waszą drobną pomocą...

Private Sub Oblicz_Click()
Wynik_Delty.Caption = "Wynik Delty " & Str(Val(Text1) ^ 2 - 4 * Val(Text2) * Val(Text3))

Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego "

Dim sinDelta As String
sinDelta = Str(Val(Text1) ^ 2 - 4 * Val(Text2) * Val(Text3))

Do While Text1 = vbNullString

Text1 = "0"

Loop

Do While Text2 = vbNullString

Text2 = "0"

Loop

If sinDelta < 0 Then
Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego nie istnieje"

ElseIf sinDelta = 0 Then
Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego to " & Str(Val(-Text1) / 2 * Val(Text2))

ElseIf sinDelta > 0 Then
Rozwiązanie_równania_kwadratowego.Caption = "Rozwiązanie równania kwadratowego to " & Str(Val(-Text1) - Sqr(sinDelta) / 2 * Val(Text2)) & " i " & Str(Val(-Text1) + Sqr(sinDelta) / 2 * Val(Text2))

Else

End If

End Sub

---

chrzano - 2005-09-09, 13:13
a ja takie pytanie przy okazji tematu o VB.. istnieje taka możliwość, żeby program był od razu odpalany w full screenie ?

---

MzK - 2005-09-09, 13:57
Na pewno jest taka mozliwosc.
Poszukaj w
Planet source code
albo na
google

jest tego pod dostatkiem.

---

Master - 2005-09-09, 15:33
Acha i jeszcze jedno... jak w VB oznaczane są dane nie liczbowe tzn. litery, zn. interpunkcyjne i inne. Potrzebne jest to do tego żeby nie ustanawiać dla każdego znaku z osobna warunków.... bo toż to można warjacji dostać... Chodzi mi o coś w stylu tego jak to vbNullString odnośnie "niczego". Jak ktoś wie to niech pomoże....

---

cichy - 2005-09-09, 15:56

Acha i jeszcze jedno... jak w VB oznaczane są dane nie liczbowe tzn. litery, zn. interpunkcyjne i inne. Potrzebne jest to do tego żeby nie ustanawiać dla każdego znaku z osobna warunków.... bo toż to można warjacji dostać... Chodzi mi o coś w stylu tego jak to vbNullString odnośnie "niczego". Jak ktoś wie to niech pomoże....
sprawdz w helpie cos o ASCII lub char, to sa liczbowe wartosci dla kazdej literki, cyferki i znaczka

---

MzK - 2005-09-09, 16:03
Nie bardzo wiem o co pytasz, ale jesli o sposob okreslenia dowolneo znaku z tabeli ASCII to prosze przyklad:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13
.....Then Exit Sub