Teraz przejdziemy do praktyki. Ponieważ dzięki
praktyce osiągniemy płynność programowania i posiądziemy zdolność
analizowania kodu. A więc w tej części wykorzystamy i udoskonalimy (w miarę
dalszych części kursu) nasze zdolności.
Aby zacząć pisać programy w VB musisz
przeanalizować dokładnie poprzednie części tego kursu, a potem przystąpić
do analizy tej części.
W poprzednich częściach poznaliśmy podstawowe właściwości
kontrolek i ich zdarzenia, a także podstawowe kontrolki występujące w VB.
Ponieważ kontrolki każdy może tworzyć i to takie, jakie chce! Poznaliśmy też
instrukcje warunkowe i pętle.
Myślę, że te wiadomości wystarczą do rozpoczęcia
praktycznej części kursu, w której w praktyce poznamy nowe wiadomości i
udoskonalimy stare. A więc do dzieła!
Dodam jeszcze, że do końca tego kursu będziemy
pisać jeden program, który będzie się ciągnął, aż do końca i z poszczególnych
lekcji powstanie jeden duży (bardzo fajny) program.
W tej części napiszemy dwa programy, które potem
zmodyfikujemy i powstanie z nich jeden większy, a co to będzie? Sam zobaczysz!
I
Please
Password:
Napiszemy program, który
będzie chciał od nas hasło, a po dwóch nieudanych próbach zakończy swoje
działanie, jeśli dobrze wpiszemy hasło wyda z siebie dźwięk beep i się
zakończy.
Teraz do formy dodamy następujące kontrolki i
ustawimy je według tabelki.
Nazwa Kontrolki ->
|
Form1:
|
Text1
|
Command1
|
ControlBox:
|
False
|
|
|
Alignment:
|
|
2 Center
|
|
Caption:
|
Password:
|
|
Zaakceptuj
|
BorderStyle:
|
1 Fixed Single
|
1 Fixed Single
|
|
PasswordChar:
|
|
*
|
|
Width:
|
3780
|
3495
|
2175
|
Height:
|
1500
|
285
|
375
|
WindowState:
|
0 - Normal
|
|
|
Top:
|
|
120
|
600
|
Left:
|
|
120
|
720
|
Text:
|
|
|
|
Dzięki tej tabelce ustawisz wszystkie potrzebne właściwości
kontrolek Text1, Command1 i obiektu Form1.
Teraz po zdefiniowaniu właściwości tych kontrolek możemy przystąpić
do kodowej strony naszego programu wybieramy z menu View opcję Code i wpisujemy
poniższy kod:
Dim x As Single 'Definiowanie zmiennej pojedynczej
Private Sub Command1_Click() ' Zdarzenie kliknięcia na
przycisk
If Text1.Text = "vfghb" Then ' co jeśli hasło w
polu Text1, czyli jego wartość text wynosi vfghb
Beep ' wydobądź z siebie dźwięk beep
End ' zakończ program
Else ' co jeśli Text jest inny od vfghb
x = x + 1 ' dodaj do wartości zmiennej x jeden
If x = 2 Then ' gdy x wynosi dwa to
MsgBox ("Przykro mi nie znam cię!"), 48,
"przykro mi" ' wyświetl komunikat o tym, że tym, że nie znasz hasła
End ' i zajończ program
End If ' zakończ warunek, który zaczyna się pod else
End If ' zakończ główny warunek
End Sub 'zakończ zdarzenie
Private Sub Form_Load() ' Zdarzenie załadowania programu
x = 0 'przypisz zmiennej x wartość zero
Form1.Left = (Screen.Width - Form1.Width) / 2 'wyśrodkuj w
poziomie formę
Form1.Top = (Screen.Height -
Form1.Height) / 2 'wyśrodkuj w pionie formę
End Sub ' zakończ zdarzenie
Fajny przykład, co? Teraz napiszemy program, a raczej następną część
naszego programu, czyli jego następne okno, a będzie to tylko jak na razie
puste okno z nazwą i ze zdefiniowanymi właściwościami, a oto, co robimy.
II.
Otwieramy nasz zapisany przykład i do projektu dodajemy następne okno,
czyli:
Klikamy prawym klawiszem w managera projektu wybieramy Add,
potem Form i znów Form i klikamy na Otwórz. Zostaje utworzone nowe okno.
Ustawiamy jego właściwości, czyli Formy Form2:
Caption
|
BorderStyle
|
MinButton
|
Height
|
Width
|
WindowState
|
Organizer
|
1 Fixed Single
|
True
|
7080
|
9165
|
0 - Normal
|
Jak dla naszego drugiego okna to już wszystko, ale
pozostało nam jeszcze coś do zrobienia. Przechodzimy w managerze projektu do
Form1, klikając na Form1 w managerze dwa razy. Potem kliknijmy szybko dwa razy
na Command1 i w miejscu pod Beep usuwamy End i wpisujemy
Form2.Show Uruchamia drugie okno
Unload Me Zamyka okno
Form1
W rezultacie powinno to wyglądać tak:
Dim x As Single 'Definiowanie zmiennej pojedynczej
Private Sub Command1_Click() ' Zdarzenie kliknięcia na
przycisk
If Text1.Text = "vfghb" Then ' co jeśli hasło w
polu Text1, czyli jego wartość text wynosi vfghb
Beep ' wydobądź z siebie dźwięk beep
Form2.Show ' Uruchamia drugie okno
Unload Me ' Zamyka okno Form1
Else ' co jeśli Text jest inny od vfghb
x = x + 1 ' dodaj do wartości zmiennej x jeden
If x = 2 Then ' gdy x wynosi dwa to
MsgBox ("Przykro mi nie znam cię!"), 48,
"przykro mi" ' wyświetl komunikat o tym, że nie znasz hasła
End ' i zakończ program
End If ' zakończ warunek, który zaczyna się pod else
End If ' zakończ główny warunek
End Sub 'zakończ zdarzenie
Private Sub Form_Load() ' Zdarzenie załadowania programu
x = 0 'przypisz zmiennej x wartość zero
Form1.Left = (Screen.Width - Form1.Width) / 2 'wyśrodkuj w
poziomie formę
Form1.Top = (Screen.Height -
Form1.Height) / 2 'wyśrodkuj w pionie formę
End Sub ' zakończ zdarzenie
To już wszystko w tej części zapraszam do następnej! Oczywiście już
chyba wiesz jaki program będziemy pisali? Oczywiście! Będzie to organizer! Z
czasem jego pisania będzie przybywało funkcji i zastosowań.
Jeśli masz jakieś kłopoty, albo pytania to pisz!
Przykład
(26KB).
Zobacz VB Kurs cz.V
Autor:
Filip Cynarski filip@webhelp.pl http://vbgo.prv.pl
|