Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Program:(
skabszo




Typ: neutral
Postów: 2
Zarejestrowany: Jun 2004
Program:(

Witam ! mam problem z programem który napisałem. Ma on po wpisaniu pewnej liczby pokazywać czy jest parzysta czy też nie. Wyświetla się wtedy msgbox. Mam jednak poważny problem. Mianowicie kiedy nic nie wpiszę w polu txt ukazuje się msg ze liczba jest parzysta. Kiedy ustawiam ze gdy jest puste pole ma wyswietlać sie komunikat zeby wpisac liczbę pojawia się ten komunikat, ale pojawia się też ze liczba jest parzysta. Co zrobić?? proszę o pomoc. Oto kod:
Private Sub cmdEnd_Click()
End
End Sub

Private Sub cmdInfo_Click()
MsgBox "Autorzyaweł Skaba i Mariusz Sztangret&reg;"
End Sub

Private Sub cmdOK_Click()
Dim WpisanaLiczba As Integer
WpisanaLiczba = Val(txtWpis.Text)
If WpisanaLiczba Mod 2 = 1 Then
MsgBox "Liczba jest nieparzysta"
End If
If WpisanaLiczba < 0 Then
MsgBox "Wpisz liczbę dodatnią"
End If
If WpisanaLiczba = 0 Then
MsgBox "Zero jest nijakie"
Else
If WpisanaLiczba Mod 2 = 0 Then
MsgBox "Liczba jest parzysta"
End If
End If
txtWpis.SetFocus
End Sub

Private Sub Form_Load()
MsgBox "Jest to program dzielący liczby na parzyste i nieparzyste. Życzymy miłego użytkowania:-)"
End Sub

13-06-2004 15:19
Pokaż profil skabszo  Wyślij email do skabszo        2759048
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

do tego dodaj
If WpisanaLiczba Mod 2 = 1 Then
MsgBox "Liczba jest nieparzysta"
Exit Sub
End If

13-06-2004 22:08
Pokaż profil kicaj  Wyślij email do kicaj        3914568
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1