Rozdział 2. ¨ Podstawy programowania w VB 105
Czy zdarzyło się Wam kiedyś, że zapomnieliście nazwy lub składni jakiejś funkcji lub instrukcji? Na pewno tak! Rozdział ten jest właśnie takim „przypominaczem”, który zawiera wszystkie funkcje i instrukcje dostępne w języku Visual Basic.
Ponadto prawdziwy programista nigdy nie ogranicza się do znajomości tylko i wyłącznie jednego języka programowania — a pamięć, jak wiadomo, bywa czasami zawodna.
Wykonuje blok instrukcji tak długo, jak długo warunek pętli będzie spełniony.
Do While (Warunek)
Blok instrukcji
Loop
Blok instrukcji może nie zostać wykonany w przypadku, gdy zadany warunek nigdy nie będzie spełniony.
Do While zmienna1 > 52
Zmienna2 = 0
Wykonuje blok instrukcji, dopóki warunek pętli będzie prawdziwy.
Do
Loop While (Warunek)
Blok instrukcji musi zostać wykonany przynajmniej raz, ponieważ pętla zakłada, że w pierwszym przebiegu warunek jest spełniony.
komunikat = "Podaj liczbę od 24 do 2354"
licznik = licznik + 1
Loop While licznik = 12
Wykonuje blok instrukcji tak długo, dopóki warunek pętli nie będzie spełniony.
Do Until (Warunek)
Blok instrukcji może nie zostać wykonany w przypadku, gdy zadany warunek będzie spełniony.
Do Until liczba <= 15
komunikat = "Wprowadzona liczba jest większa niż 15"
Wykonuje blok instrukcji, dopóki warunek pętli okaże się prawdziwy.
Loop Until (Warunek)
Blok instrukcji musi zostać wykonany przynajmniej raz, ponieważ pętla zakłada, że w pierwszym przebiegu warunek nie jest spełniony.
komunikat = "Wpisz liczbę mniejszą niż 24"
Loop Until liczba = 26
Instrukcja pozwalająca na natychmiastowe przerwanie działania dowolnej pętli Do, bez względu na prawdziwość zadanego warunku.
intLiczba=InputBox("Podaj liczbę całkowitą",Wprowadź liczbę")
if (intLiczba=intStala) Then
Exit Do
End If
sngWynik=1/(intStala-intLiczba)
intWiadomosc=MsgBox(sngWynik)
Loop While (intLiczba>0)
if licznik = 13 then
End if
Pozwala na powtarzanie bloku instrukcji zadaną liczbę razy.
For Licznik = WartośćPoczątkowa To WartośćKońcowa [Step Krok]
Next [Licznik]
gdzie:
¨ Licznik — musi być zmienną, więc specjalnie dla potrzeb pętli For trzeba ją zadeklarować (najlepiej typu Integer). Jest ona wykorzystywana przez pętlę jako licznik powtórzeń,
¨ WartośćPoczątkowa — liczba całkowita, wyrażenie lub zmienna określająca początek odliczania,
¨ WartośćKońcowa — liczba całkowita, wyrażenie lub zmienna określająca koniec odliczania,
¨ Krok (opcja) — liczba całkowita, wyrażenie lub zmienna określająca wartość skokową, wykorzystywaną przez pętlę do odliczania od wartości początkowej do końcowej.
For Pomocnicza = 1 To 100 Step 5
Zmienna1 = Zmienna2 + Pomocnicza
Next Pomocnicza
Instrukcja pozwalająca na natychmiastowe przerwanie działania dowolnej pętli For, bez względu na dotychczasowy stan wykonania pętli.
If Zmienna1 >= 250 Then
Exit For
Wykonuje określony blok instrukcji w przypadku, gdy zadany warunek będzie spełniony.
If Warunek Then
If Zmienna1 > Zmiennej2 Then
Zmienna1 = Zmienna1 + 154
W przypadku spełnienia warunku określonego po słowie kluczowym If wykonany zostanie blok instrukcji po słowie Else.
Else
If Zmienna = 5 Then
komunikat = MsgBox("Wprowadzona liczba to 5!!!")
komunikat = MsgBox("Wprowadzona liczba jest różna od 5!!!")
Pozwala na sprawdzanie wielu warunków oprócz pierwszego If. W przypadku spełnienia warunku określonego po nim zostaną sprawdzone wszystkie warunki po kolejnych słowach ElseIf. Wykonany może być jednak tylko jeden blok instrukcji, występujący po odpowiadającym mu słowie If, ElseIf lub Else. Sprawdzanych warunków może być wiele.
If Warunek1 Then
ElseIf Warunek2 Then
ElseIf Warunek3 Then
ElseIf Zmienna = 10 Then
komunikat = MsgBox("Wprowadzona liczba to 10!!!")
ElseIf Zmienna = 12 Then
komunikat = MsgBox("Wprowadzona liczba to 12!!!")
komunikat = MsgBox("Wprowadzona liczba nie jest mi znana!!!")
Sprawdzenie typu podanego obiektu.
TypeOf NazwaObiektu Is TypObiektu.
If TypeOf NowaKontrolka Is CheckBox Then
Komunikat = MsgBox("Obiekt typu CheckBox!!!")
Komunikat = MsgBox("Obiekt nie jest typu CheckBox!!!")
'gdy dany obiekt będzie typu CheckBox, zostanie wyświetlony komunikat
Instrukcja sprawdza wartość podanego wyrażenia i wybiera jeden odpowiedni blok kodu do wykonania. Sprawdzanych warunków może być wiele.
Select Case Wyrażenie
Case Wartość1
Case Wartość2
Case Wartość3
Case Else
End Select
Select Case Marza
Case 11
Komunikat = MsgBox("Twój zarobek będzie słabiutki")
Case 34
Komunikat = MsgBox("Twój zarobek będzie całkiem dobry")
Case 100
Komunikat = MsgBox("Twój zarobek bardzo dobry")
Komunikat = MsgBox("Mam zbyt mało RAM-u!!!")
Instrukcja sprawdza prawdziwość różnych relacji, zachodzących pomiędzy podanym wyrażeniem a wartością, i w zależności od wyniku wybiera jeden odpowiedni blok kodu do wykonania. Sprawdzanych relacji może być wiele.
rafulus