visual basic.pdf

(798 KB) Pobierz
Rozdział 2.
Podstawy
programowania w VB
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łącz-
nie jednego języka programowania — a pamięć, jak wiadomo, bywa czasami zawodna.
2.1. Instrukcje sterujące
2.1.1. Do
Do While
Wykonuje blok instrukcji tak długo, jak długo warunek pętli będzie spełniony.
Składnia:
Do While
(
Warunek
)
Blok instrukcji
Loop
Blok instrukcji może nie zostać wykonany w przypadku, gdy zadany warunek nigdy
nie będzie spełniony.
Przykład:
Do While
zmienna1 > 52
Zmienna2 = 0
Loop
P:\0FUN\000\ebboks\zINFOrmatyczne\visual basic.doc
47
48
Visual Basic. Leksykon
Do Loop While
Wykonuje blok instrukcji, dopóki warunek pętli będzie prawdziwy.
Składnia:
Do
Blok instrukcji
Loop While
(Warunek)
Blok instrukcji musi zostać wykonany przynajmniej raz, ponieważ pętla zakłada, że
w pierwszym przebiegu warunek jest spełniony.
Przykład:
Do
komunikat = "Podaj liczbę od 24 do 2354"
licznik = licznik + 1
Loop While
licznik = 12
Do Until
Wykonuje blok instrukcji tak długo, dopóki warunek pętli nie będzie spełniony.
Składnia:
Do Until
(Warunek)
Blok instrukcji
Loop
Blok instrukcji może nie zostać wykonany w przypadku, gdy zadany warunek będzie
spełniony.
Przykład:
Do Until
liczba <= 15
komunikat = "Wprowadzona liczba jest większa niż 15"
Loop
Do Loop Until
Wykonuje blok instrukcji, dopóki warunek pętli okaże się prawdziwy.
Składnia:
Do
Blok instrukcji
Loop Until
(Warunek)
Blok instrukcji musi zostać wykonany przynajmniej raz, ponieważ pętla zakłada, że
w pierwszym przebiegu warunek nie jest spełniony.
48
P:\0FUN\000\ebboks\zINFOrmatyczne\visual basic.doc
Rozdział 2.
Podstawy programowania w VB
49
Przykład:
Do
komunikat = "Wpisz liczbę mniejszą niż 24"
Loop Until
liczba = 26
Exit Do
Instrukcja pozwalająca na natychmiastowe przerwanie działania dowolnej pętli
Do
,
bez względu na prawdziwość zadanego warunku.
Przykład 1.:
Do
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)
Przykład 2.:
Do
komunikat = "Podaj liczbę od 24 do 2354"
licznik = licznik + 1
if
licznik = 13
then
Exit Do
End if
Loop While
licznik = 12
2.1.2. For
For
Pozwala na powtarzanie bloku instrukcji zadaną liczbę razy.
Składnia:
For
Licznik
=
WartośćPoczątkowa
To
WartośćKońcowa
[Step
Krok]
Blok instrukcji
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,
P:\0FUN\000\ebboks\zINFOrmatyczne\visual basic.doc
49
50
Visual Basic. Leksykon
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.
Przykład:
For
Pomocnicza = 1
To
100
Step
5
Zmienna1 = Zmienna2 + Pomocnicza
Next
Pomocnicza
Exit For
Instrukcja pozwalająca na natychmiastowe przerwanie działania dowolnej pętli
For
,
bez względu na dotychczasowy stan wykonania pętli.
Przykład:
For
Pomocnicza = 1
To
100
Step
5
If
Zmienna1 >= 250
Then
Exit For
End If
Zmienna1 = Zmienna2 + Pomocnicza
Next
Pomocnicza
2.1.3. If
If
Wykonuje określony blok instrukcji w przypadku, gdy zadany warunek będzie
spełniony.
Składnia:
If
Warunek
Then
Blok instrukcji
End If
Przykład:
If
Zmienna1 > Zmiennej2
Then
Zmienna1 = Zmienna1 + 154
End If
If Else
W przypadku spełnienia warunku określonego po słowie kluczowym
If
wykonany
zostanie blok instrukcji po słowie
Else
.
50
P:\0FUN\000\ebboks\zINFOrmatyczne\visual basic.doc
Rozdział 2.
Podstawy programowania w VB
51
Składnia instrukcji:
If
Warunek
Then
Blok instrukcji
Else
Blok instrukcji
End If
Przykład:
If
Zmienna = 5
Then
komunikat = MsgBox("Wprowadzona liczba to 5!!!")
Else
komunikat = MsgBox("Wprowadzona liczba jest różna od 5!!!")
End If
If ElseIf
Pozwala na sprawdzanie wielu warunków oprócz pierwszego
If
. W przypadku speł-
nienia warunku określonego po nim zostaną sprawdzone wszystkie warunki po kolej-
nych słowach
ElseIf
. Wykonany może być jednak tylko jeden blok instrukcji, wy-
stępujący po odpowiadającym mu słowie
If
,
ElseIf
lub
Else
. Sprawdzanych
warunków może być wiele.
Składnia:
If
Warunek1
Then
Blok instrukcji
ElseIf
Warunek2
Then
Blok instrukcji
ElseIf
Warunek3
Then
Blok instrukcji
Else
Blok instrukcji
End If
Przykład:
If
Zmienna = 5
komunikat =
ElseIf
Zmienna
komunikat =
ElseIf
Zmienna
komunikat =
Else
komunikat =
End If
Then
MsgBox("Wprowadzona liczba to 5!!!")
= 10
Then
MsgBox("Wprowadzona liczba to 10!!!")
= 12
Then
MsgBox("Wprowadzona liczba to 12!!!")
MsgBox("Wprowadzona liczba nie jest mi znana!!!")
TypeOf
Sprawdzenie typu podanego obiektu.
P:\0FUN\000\ebboks\zINFOrmatyczne\visual basic.doc
51

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin