MENU

Kurs Visual Basic 6.0 cz. VI - W praktyce...

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

 

Contents copyright © 2000 - 2001, Krzysztof Dziewoński. All rights reserved.