       
Strona:
|
Kurs Visual Basica by Slash - część 5 LEKCJA 10 Już dziesiąta lekcja przed nami. Trzeba się za nią wziąć
ostro. Zaczynamy nowy dział - pętle. Jednak przed tym muszę Wam wyjaśnić
jak pisze się komentarze w VB. If x=0 then end 'Jeśli zmienna x będzie równa zero to zakończ program lub If x=0 then end Jak widzisz oba przypadki są dobra i czytelne. Dobra, to tyle wstępem - zaczynamy pętle. Pętla, jak sama nazwa mówi to kilkukrotne powtórzenie się tych samych
instrukcji kodu. Ile ich będzie, to zależy od warunku pętli. Najprościej
jest to wyjaśnić na przykładzie. Dim wiek as string Ho, ho, ho - trzy nowości w programie. No to przetłumaczenie: 1. Dim wiek - deklarujemy zmienną wiek - czyli naszą odpowiedź x = "12" w zmiennej odp znalazło by się 12. Miałeś zapamiętać, że to co jest np. w polach tekstowych nazywa się stringami. Zapisuje się je właśnie w cudzysłowach. String "12" zostaje przekonwertowany na 12 i wszystko O.K. Ale zobaczmy co się teraz stanie: x = "Tata i mama" i w tym momencie wyskoczy błąd (13). Nie można przekonwertować "Tata i mama" na liczbę 9co jest chyba logiczne). Jednak funkcja VAL to potrafi... x = "Tata i mama" teraz w zmiennej odp znajdzie się liczba 0. 6. Do while wiek <= 0 or wiek >120 then No to wracamy się, aż do linijki 6 i tu znowu rozstrzyga się czy będziemy już kończyć, czy jeszcze nie. Znów rozpatrzymy dwa przypadki: a) Znów podaliśmy zły wiek, więc program ponownie wykonuje to co jest między Do While a Loop. Gdy dojdzie do końca to znów wraca do linii 6, i po raz kolejny rozstrzyga sprawę. b) Podaliśmy dobry wiek - program więc przeskakuje przez funkcję Do While - Loop i lądujemy w linijce 12 12.MsgBox - w końcu dotarliśmy tutaj. Program daje nam odpowiedź ile
mamy lat. Ale co tam znowu jest namieszane... Może przestraszyliście się
troszkę wyrażenia "Masz " & wiek & " lat" - pamiętacie
co robił symbol & - dla tych co zapomnieli: No myślę, że wiesz o co tu chodzi...
Przepisz program który zrobiliśmy dzisiaj na lekcji. Fajnie się zaczyna,
co ? No, ale to nie jest celem zadania. Twoim celem jest zmienienie tak kodu,
aby po wpisaniu złego wieku program nie wyświetlał - Musisz podać prawidłowy
wiek, ale powiedział nam, że wiek który podaliśmy jest za mały, albo za
duży. LEKCJA 11 Czołem !!! Jak tam z zadaniem ? Uporaliście się z zadaniem, czy tylko
bezmyślnie przepisaliście wszystko z przykładu ? Jeśli SAMEMU udało ci się
to zrobić, to dobrze. Jeśli skopiowałeś, to i tak się nie przejmuj - po
prostu pewnie to było za trudne. Ale jest to oznaka, że za mało chęci wkładasz
w moje lekcje VB. Zamiast: Pamiętaj, że przeciwnością < jest >=, a <= jest >.
Przeciwnością <> jest =. Linie możemy przetłumaczyć tak: Dopóki wiek będzie nie większy niż 0 i nie mniejszy niż 120 to... Myślisz pewnie, że nigdy nie zastosujesz tej funkcji - bo i po co? Skoro można ją zamienić na bardziej zrozumiałą Do While, to po co zaprzątać sobie głowę tym. Sam przyznaję, że funkcję Do Until będziesz używał znacznie rzadziej, ale będziemy pisać takie programy, że będzie ona najwygodniejszym sposobem. I co tu więcej pisać. Praktyczne zastosowanie tej funkcji poznasz już za niedługo. Skoro mowa o pętlach to powiemy jeszcze coś o pętlach odwrotnych. Pętla: Do While... Loop Tak samo możemy postąpić z Until... Dobra, ale czym ona się różni od normalnej pętli ? Najlepiej zobrazować to na małym shemaciku... Blok instrukcji (1) W przypadku normalnej pętli program wykonuje się tak: A teraz funkcja odwrotna do poprzedniej Blok instrukcji (1) A teraz program wykonuje się tak: Generalnie różni się to tym, że w funkcji Do While - Loop, program może, ale nie musi wykonać tego co znajduje się między DO - LOOP. Zaś w funkcji odwrotnej program musi wykonać przynajmniej jeden raz instrukcję zawartą między DO - LOOP. Funkcja jest rzadko stosowana (sam nigdy jej nie używałem), zawsze ją można zastąpić zwykłym ułożeniem. Ale warto wiedzieć, że coś takiego jest . Zawsze się może zdarzyć, że akurat będzie ona lepsza.
LEKCJA 12 Dzieńdoberek !!! Jak tam samopoczucie? Dobrze? No to się cieszę ! Czym różni się ona od pętli Do While, Do Until ? Otóż, jak pamiętasz pętle Do - wykonywały się dopóki jej warunki nie zostały spełnione. Pętla for wykonuje się zaś określoną ilość razy. Tak np. Dim x,y as byte Ten program powoduje pięciokrotne wyświetlenie się MsgBox-a. Jak to działa ? 1. Dim - wiadomo co... ;) No dobra, ale jak to działa ? Przeanalizujmy... Najpierw zainicjowanie zmiennych x i y. Dalej jest instrukcja for. Decyduje
ona ile razy ma zostać wykonana pętla. W naszym przypadku jeśli x=6 to
przeskakuje za Next-a (Odpowiednik Loop-a z pętli DO-LOOP). Czyli tak -
obecnie w zmiennej x jest 1 - to jest ta pierwsza liczba w FOR. Wykonuje się
msgBox z wiadomością "To jest MessageBox nr 1". Program dochodzi
do funkcji Next x - oznacza ona - dodaj (1) i wróć . Tak więc program wraca
do For-a, tylko teraz w x jest liczba 2 - i znów MsgBox - To jest MessageBox
nr 2. I znów dodaj 1 i wróć, aż tak do 5. Ale co potem... Załóżmy, że
w x jest 5. Jesteśmy przy funkcji For - skoro do pięciu to jeszcze raz pętelka
- MessageBox i dochodzimy do Next x. Po tej operacji x = 6. Program wraca do
for-a i okazuje się, że x nie spełnia warunku pętli. Następuje przeskok
za instrukcję Next - i program w ten sposób kończy działanie. Myślę, że nie będziesz mieć z nią żadnych problemów. Ach, zapomniałem napisać o pewnym dopełnieniu funkcji FOR - jest nią Step (czyli krok). Po prostu do funkcji For dopisz jeszcze Step i pewną liczbę. Zastosujmy to do wcześniej napisanego przykładu. Będzie to wyglądać więc tak: Dim x,y as byte I co się tu dzieje... Pomyślmy. Wchodzimy w funkcję FOR, następnie zapisuje ona do zmiennej x wartość 1. Dostajemy wiadomość "To jest MessageBox nr. 1". I zatrzymujemy się na next. Pamiętasz co on oznaczał ? Tak, dodaj do x (w tamtym przypadku 1) i wróć do FOR. Teraz sytuacja się zmienia. Funkcja STEP nakazuje FOR-owi, aby teraz do x dodał 2. I co teraz. Wracamy się, i w x znajduje się liczba 3 ! A więc nie dostaniemy MessageBoxa z numerem 2 lecz 3. Znów NEXT czyli x+2 a to daje 5. Powrót, MessageBox nr 5. Znów Next, teraz x=7, powrót do FOR - ale niestety (?) For nie obejmuje już liczby 7, a więc przeskok za Next i koniec. programu... Zauważyłeś różnicę? Chyba tak. Zamiast 5 Messag-ów otrzymałeś tylko 3 ! Teraz zastosujmy funkcję for do liczenia silni danej liczby. Na formie ułóż przycisk - jako wartość "Caption" wpisz Silnia, i nazwij go cmdSilnia. No dobra, ale gdzie będziemy wpisywać liczbę... Musimy zrobić textBox-a. Wyczyść wartość Caption i nazwij go txtSilnia. Teraz dodaj do przycisku następujący kod: Dim x, odp. Czy potrafisz go przeanalizować? Przynajmniej powinieneś. Jeśli jednak nie potrafisz tego zrobić przeanalizujmy razem: 1. Dim - zainicjowanie zmiennych ZADANIE DOMOWE: Napisz program z przyciskiem i polem tekstowym. Program ma dodawać tylko
liczby parzyste zaczynając od 2, a kończąc na liczbie wpisanej w pole
textowe. No to do dzieła! Do następnego spotkania... Slash
|
