Visual Basic 6 Kurs

If (Text1.Text > 49) Then Msgbox("Młodzieńcze lata masz już za sobą")
Napisanie tego powyższymi dwoma sposobami niejest zbyt poprawne, program najpierw
sprawdzi jeden warunek i jeżeli się zgadza to wyświetli komunikat, potem drugi warunek
i trzeci. To aż 3 sprawdzenia za każdym razem. Prościej można to napisać na opisanym
trochę dalej Case lub stosując ElseIf (Inaczej Jeżeli)
If Text1.Text < 20 Then ' 1
MsgBox ("Jesteś jeszcze młody") ' 2
ElseIf Text1.Text > 19 And Text1.Text < 50 Then ' 3
MsgBox ("jesteś w średnim wieku") ' 4
Else ' 5
MsgBox ("Młodzieńcze lata masz już za sobą") ' 6
End If
1. jeżeli Text1.Text jest mniejszy od 20 to
2. wyświetl komunikat
3. inaczej jeżeli Text1.Text jest większy niż 19 i mniejszy niż 50 to
4. wyświetl komunikat
5. jeszcze w innym przypadku
6. wyświetl komunikat
ElseIf można oczywiście używać obojętną ilość razy
Teraz gdy zgodzi się jakiś z warunków program nie sprawdza już kolejnych tylko
opuszcza całe If
3. Operatory logiczne
Głównymi operatorami których się używa są:
AND - I
OR - lub
NOT - Nieprawda (zaprzeczenie)
XOR - (tylko jeden warunek ma się zgadzać)
If A = 6 AND B = 7 Then
- warunek jest spełniony jeżeli A = 6 i B = 7
If A = 6 OR B = 7 Then
- warunek jest spełniony jeżeli A = 6 lub B = 7 lub A = 6 i B = 7
If A = 6 XOR B = 7 Then
- warunek jest spełniony jeżeli A = 6 i B nie jest równe 7 lub gdy B = 7 i A nie jest równe
6
If NOT A = 6 Then
- warunek jest spełniony gdy A nie jest równe 6 (NOT dodajemy zawsze na początku
warunków)
Łącząc operatory logiczne można otrzymać ciekawe zestawienia, np:
If NOT A = 6 XOR B = 7 Then
- ten warunek jest spełniony tylko wtedy gdy A = 6 i B = 7 lub wtedy gdy A 6 i B
7, gdy jeden warunek się zgadza (albo A, albo B) to warunek nie jest spełniony.
25