Visual Basic Lekcje 1-10 się, nie, program, jest, tak, jak, teraz, będzie, przycisk, ale, ,
, to, w, na, i, co, się, =, nie, program, do, z, jest, o, tak, a, że, x, jak, teraz, będzie, no, przycisk, ale, jeśli, po, tu, więc, przycisku, ndash, if, ma, właśnie, tym, od, np, dim, go, tego, wiek, komunikat, czy, lub, as, lekcji, 5000, jeszcze, msgbox, instrukcji, czyli, może, tylko, chodzi, 7, aby, tej, kod, mnie, +, nasz, 6, oczywiście, dobra, pole, sub, musisz, za, lubisz, możemy, jednak, nam, dlaczego, funkcji, chyba, case, masz, label, formie, myślę, vb, vbinformation, musimy, niż, gdy, then
x, instrukcję, działa, też, funkcję, mamy, x=6, bardzo, zysk, funkcja, zrobić, coś, linijka, else, zł, będziemy, hasło, przyciski, caption, zmiennej, end, pytankoquot
end, quot, naszym, wszystko, już, liczbę, tekst, lt, tekstowe, wiedzieć, msgboxquotczy, niego, sobie, trzeba, by, x=7, ktoacutery, inputbox, liczba, quotvbquestion+vbyesnoquotmałe, razie, tutaj, ikonką, pow, przypadku, visual, drugi, wyświetlić, tytule, gratulacje, okienko, liczby, my, oznacza, zaraz, programu, przed, wynik, tekstem, użyć, kolor, ikonka, dużo, zmieńmy, pytanie, mu, nas, wygląda, druga, quotslashquot, pasku, tam, roacutewny, then, ten, przecież, 0, błąd, gdzieś, nic, nazwę, oto, przykładzie, napis, posługiwać, txtfirma1, prostu, naszego, ktoacuterym, jednej, przyniesie, uruchamiamy, są, mi, uwaga, zwraca, and, niestety, haslo, jedna, quotodpquot
case, 3, wiesz, przeciwnym, dane, formularzu, także, sam, chmmm, basic, oraz, dla, pisać, gdyż, ok, cię, imię, napisać, zawsze, pomyślmy, bardziej, zakresu, mieć, pamiętaj, msgboxquotfajnie, wartości, służy, oknie, zawartość, true, then
y, jakieś, quotvbexclamationquotmałe, widzimy, tworzymy, pierwszy, 40, następnej, to
komunikat, kolejno, przez, zamiast, określa, nim, zmienić, ile, 100, dwa, obok, zmienna, następujący, zmień, 12, polu, formularz, nazwie, wiadomo, vbcritical, samo, zastosować, bez, quotodpquot
elseif, linijki, kodu, pewne, pory, widzisz, on, funkcje, kodem, goacutery, wiadomości, or, pytankoquot
zakończenie, muszę, przyciskami, napiszmy, quotmałe, pola, sproacutebujmy, 2, instrukcja, amp, układamy, narzędzi, wtedy, fajnie, wpisane, nasze, musi, pewnie, 10, gdzie, przyciskiem, jeżeli, dwie, dowiesz, pierwsze, quotjak, znakoacutew, typu, uruchom, ||, string
x, zwykle, kod
dim, programowi, otrzymujemy, ci, używać, liczb, is, select, dzisiaj, wpisujemy, wpiszesz, drugie, 11, u, początku, miałeś, momencie, quotquot, etykietą, quotto, opcje, wam, umieszczamy, napiszemy, txtliczba1, daną, chcemy, bdquopropertiesrdquo, jego, 18, ifa, wystarczy, textbox, ustalamy, tłumaczę, danych, razu, nowe, będziesz, 110, etykiecie, trzy, lblwynik, kwadratu, potem, wyżej, opcji, zmiennych, ktoacutere, zaznacz, wpisz, licz, pamiętasz, podanie, działał, zrozumiałeś, pierwsza, dostajemy, wykonywać, odpowiedź, ja, można, cmdpytanko_click
x, nigdy, powinien, dwoma, dochody, not, poznasz, firmy, anuluj
, pytania, przynieść, cmdpytanko_click
dim, poznać, danej, wpisać, x
x, dwukrotnie, linijce, złe, naciśnięciu, elseif, pytaniem, poacuteźniej, takim, większy, jeden, vbexclamation, inputboxquotpodaj, msgboxquotjesteś, wiekquot, problemoacutew, quotpytanie, dodajemy, operator, dodać, możesz, ją, jedną, quotprzykro, quotfajniequot, niej, dopiero, znaczy, jakiś, wiekuquot, raz, txtfirma2, pojawia, msgboxquotwitam, więcej, potrzebna, stanie, lewej, tzn, takiego, nbsp, lekcje, 1-10, msgboxquotmłodzieżquot, command, button, dowolne, formę, quotcancelquot, properties, widnieje, miejsce, czego, ikonkę, dzieckoquot, command1, czas, formularza, 40quot, jaki, klikniesz, ustawimy, obydwu, pogrubiony, poniżej, wyglądać, cmdjeden, przykładu, firma2, jakąkolwiek, efekt, jakoś, click, bdquowitajrdquo, kończy, chcesz, ona, wewnątrz, naciśniesz, variant, lekcjach, x=msgbox, linii, quotquotprzywitaniequotquotmoże, y, ta, prawej, przechowywać, ktoacutera, ono, ktoś, xy, msgboxie, chwyć, tytuł, przynosić, serdecznierdquo, msgboxquotniemożliwe, firma1, krawędzi, msgboxquotpiękny, boolean, ciebie, programowania, powiększyć, msgboxquotpełnia, zobacz, quotwitaj_quot, quoti, zobaczymy, dymek, domyślnie
, operatorami, niemożliwequot, mniej, ze, zostawiamy, dało, ponoacutew, możliwości, zapis, kolumna, kliknijmy, kliknięciu, mniejszy, widoczny, dochoacuted, te, lt=, wysokości, je, 50, być, mały, samej, msgboxquotmniej, dziś, ustalić, prawdaż, 6000, rząd, prostokąt, msgboxquotgratulacjequotvbinformationquotdochoacutedquot
end, odnajdź, wybierz, wybrać, nazwa, najlepiej, bdquowitam, quotbłądquot
end, bezpośrednio, menu, gt, cmddwa, cmdtrzy, x
if, pojawił, kliknij, zastąpić, swoacutej, znajduje, mają, zapomnieć, dobrze, kiedy, akurat, msgboxquotdorosły, nauczyć, currency
wiek, myszy, naszej, witaj, prosty, true
, znak, dzisiejszej, quotaquot, msgboxem, wytłumaczyć, chodziło, działania, odejmowanie, quotco, odpowiednikiem, operatory, nadajemy, cmdlicz, textboxa, zostanie, nauczycie, prawda, e, tak
private, podajemy, powinniśmy, mianowicie, wartość, końcu, basicu, textboxem, jako, was, bdquomałe, mam, lekcja, arytmetyczne, instrukcją, quot3quot, dopisać, message, daje, da, nadajmy, cudzysłoacutew, chcę,
private, gt=, mnożenie, połączenie, textboxie1, odpowiedzią, zmienną, zapisane, quot7quot, tekstowego, txtliczba, warunkową, text, ich, stronie, edytować, zapomniałem, domyślasz, łańcuchoacutew, tekstu, zapisany, domowe
napisz, nazywamy, podaniu, kolorze, etykietę, ltgt, formy, najpierw, stosować, wcześniej, widziałeś, było, imieniem, dobre, jej, msgboxquotstrasznie, then
z, oferuje, if
if, chwilę, linijkę, zakresem, byte, polem, hasła, deklarujemy, wpisaną, sensu, kryteria, trochę, jakie, wolniej, komputer, deklaracja, single
a, sub
teraz, csng, większe, nieroacutewne, 5, wybrałeś, zapamiętać, inaczej, funkcją, programie, dzielenie, kilka, przejmuj, podać, dodamy, ostatniej, polami, mniejsze, sprawdzić, praktycznie, msgboxquotpodałeś, textowe, pytankoquot
if, miquot, przykroquotvbexclamationquotmałe, będą, pierwszej, 6
jeśli, razy, omoacutewiłem, itp, zastosowanie, jedynie, słowo, bdquoform1rdquo, składnie, poznanych, angielski, dość, używało, funkcji
nbsp
no, kartce, pisząc, znasz, form1, zmienimy, bdquomoacutej, widać, programrdquo, wyglądu, zapisywał, upiększanie, zaznaczoną, samego, czerwony, zbyt, ciekawie, prawie, wracamy, pallete
, zakładce, znajdź, bdquoskładanierdquo, podstawowych, wyświetlił, wykonać, posłużyć, robił, koniec, radzę, zabawy, abyś, myślisz, właściwości, zabieramy, roboty, brzydko, skapowałeś, pomniejszyć, pojawią, kwadraciki, tabelka, jakaś, bdquocommandbuttonrdquo, szary, goacuternej, przesunąć, upuść, zaczniemy, wykorzystamy, środku, zechcesz, chwycić, składnikoacutew, ha, zielony, umieszczanie, pokazałem, bdquobackcolorrdquo, rozwiń, zaczyna, zakładkę, bdquopaletterdquo, rozmiar, ufffff, dowolnie, zmieniać, left
, dowolny, jaskrawy, odległość, bdquocaptionrdquo, msgboxto_co_w_msgbox
uruchamiamy, vbcritical
przeanalizujmy, false
druga, znany, zależnie, wyboru, wynosić, 7
trzecia, wzięte, messagebox, powstał, moacutewiąc, słowy, quotxquot, pokazał, quot6quot, treści, pojawić, treścią, źle, zadeklarowaną, przecząco, deklarowaniu, jaśniej, twierdząco, odpowiedz, obecnej, poćwiczenia, okazję, wyświetlającym, dodajmy, 2x, piszemy
to_co_w_msgbox, jestquot
c, zmienną
napiszmy, wcisnął, cudzysłowy, c=msgboxquotto_co_w_msgboxquot, boxie, żeby, podał, ekranu
, przeroacutebek, kosmetycznych, width
, formrdquo, ułożyłeś, zobaczyś, bdquoform1, eksperymenu, dokonywać, zaznaczmy, backcolor
, top
, formie
, przemieszczać, style
, ekranu, wygodniej, wydaje, powiększ,
nbsp
większość, uruchomieniu, false, zostaw, pusty, innymi, zdarzenia
druga, wiadome, szerokość, przycisku
, identycznie, kwadracik, ciągnij, czym, wymienionych, visible
, zaznaczymy, położenie, vbcancel
, vbokonly
, używany, czerwonym,
nbsp
przyciski
, windows
, vbyesnocancel
, vbabortretryignore
, vbokcancel
, bdquopytankordquo, pytankoquot
y, naciskamy, dajemy, dzieje, odpalamy, drugiego, sub
odpalamy, odpowiadamy, boxa, zignoruj
, proacutebę, vbyesno
, bdquoirdquo
, vbsystemmodal
, nie
, vbyes
, 5
, vbignore
, 6
, brak, literka, ikonki, tytułowym, przerwij, vbinformation
, wykrzyknikiem
, informacji, Żoacutełty, troacutejkąt, komputera, quottakquot, quotczy, dokończenie, obiecane, wyświetla, quotpytankoquot, lubiszrdquo, pytankordquo
nbsp
witajcie, programu
napisaliśmy, nadzieję, uporaliście, cmdwitaj_click, sub
nbsp
x, między, private, vbexclamation
, zadaniem, domowym, ostrzegawcza, pierwszym, klikając, udało, hurra, zły, odpowiedzieć, komputerowi, quotniequot, prześledźmy, programu
pierwsza, sproacutebuj, sub
no, bdquojestem, jasno, niebieskim, spokordquo, bdquoczy, pytankordquo, informacyjną, bdquoprzywitanierdquo, 7
, vbno
, napisu
, height
, wysokość, efekty, raczej, formularzu
, index
, wygodniejsze, ustala, kolejność, przeskakiwania, focusa, index, przeskakując, bdquotabemrdquo, podświetlą, 1, puste
, rozciąganie, wszystkie, przytrzymać, lewy, ukaże, naniesiemy, aplikację, paska, otwieramy, nową, element, aplikacji, stron, przerywane, okienku, ktoacuterąś, przeciągnąć, stworzyliśmy, puszczeniu, linie, 132, wielkość, 3
, vbabort
, 2
, zakończeniem, robota, caption
, najważniejsza, pieprzenia, vbok
, vbretrycancel
,
nbsp
to, potrzebne, if
nbsp
zadanie, vbretry
, 4
,
nbsp
msgbox, zwraca
, 1
, cmdwitaj
, zmieniamy, najważniejszych, wypisane, odnoszą, nbsp
, skroacutetu, czcionkę, name
, identyfikującą, kroacutetki, opis, font
, znaleźć, wyrazy, prawda
, wcisnąć, cmd, wię, enabled
, wybieramy, wyglądało, pytankoquot
w, pamiętanie, odpowiedzialna, przykładzie
private, podam, zapisuje, x=7
uwaga, waŻna, kolejnych, funkcjinbspnbspnbsp, daniu, odpowiedzi, przykroquotnbspnbsp, głupsze, ach, każdy, zawierać, wytłumaczyłem, pewna, stoi, przetrzymuje, miała, innego, false
, currency
, byte
, całkowite, 255
, one
nbsp
, boolean
, vbyes, ty, każdym, rozstrzygnąć, zgadza, zapamiętywać, zaczynamy
jak, vbno, quotstrasznie, odpowiedzi
trzecia, jesli, ifie, troszeczkę, nie=7
jeśli, tak=6, procedury
prawda, jeśli
koniec, raz
wyświetl, poznałeś
nbsp
nbspjak, obiecałem, zadania, szczegoacutełowo, cały, zadaję, poacuteźniej
w, szczegoacutełowe, poćwicz, żadnej, dimie, poznałeś, jak
musisz, wroacutecić, poprzedniej, miquot
musimy, zobaczylibyśmy, podziękowanie
czwarta, koniec
faktycznie, czwartą, zobaczyć, wyświetlone, powyżej, rozstrzyga, logiczne
w, zdecyduje, służyć, zostać, następnych, przeczoacutewacz, przykładach, powyższych, stałych, zadeklarowane, pamiĘtaj, pamiętania, widzi, przypominania, zasygnalizuje, pamięta, brzmi, chwili, kapniesz, dochodzimy, wraca, napotyka, dochodząc, poniższego, dim
x=7
if, msgboxquotwitajquot
odpowidź, moim, tkwi, swojego, x
wiem, zależy, dopisaniu, łatwo, napisz, powinny, doświadczenia, wiedząc, przyporządkowuje, zaznazcmy, włączyć, warto, options, tools, bani, musiałem, dochodzić, przykład, nawet, single
, 3402823e+38, date
, 32767
, 32768,
funkcję, znakowe, string
, 9223376854775808, inne, przypomni, zapomnianym, dimie
no, declarationquot, dima, przechowuje, liczbowe, głowy, variant
, alfanumeryczne
, variable, 28, przecinku
, quotrequire, if
tak, cofnie, oświadczenie,
x, double
, dokładnością, decimal
, 179769313486232e+308, integer
, 31129999
, 01010100, zapisana, data, if
end, x
end, 2
co, klikamy, robić, otoacuteż, kasowałeś, przeliczeniem, lblwynikcaption, wpisanego, podnieść, tak
lblwynikcaption, najmniejszy, stosujcie, dimnbsp,
a, spełniający,
nbsp
w, quotto_co_w_msgboxquot, zakres, umieścimy, liczyć, nauczę, zapobiegać, przypadkom, kiedyś, podstawy
zadanie, jednym, matematyczne, tekstowymi, wpisał, byś, nazwe, wyczyśćmy, elegancko, postawmy, quotdo, kwadratuquotnbsp
teraz, zajmiemy, zacznie, uffff, kapujecie, zostawić, przyjdzie, objętościowo, spełniającym, zapisem
dim, zadaniu, pisaliśmy, roacutewnoznaczne, duży, wolny, małych, vbyesno
c, msgboxx, komputerach, szybkich, odczujemy, programach, pamięciożerna, variantnbsp, domyślne
od, wybierasz, wpisz
dim, stwoacuterz, msgboxquotco, boolean
x, pamiętajcie, pomylimy, zakresy, mogła, typ, bytenbspnbsp, przyjąć, najmniejszym, poprawnymi, instrukcjami, fałsz, sproacutebujmy
na, czterema, wyjdzie, czyściutkiego, wyczyść, commandbutton, przycisnę, wpiszę, następująco
dimx, typ
jak, texboxa, domyślnie, text1, lblstalytekst, label1, kropek, toquot, quottwoacutej, szukaj, wyświetlała, sproacutebujcie, sub
end, procedury, odpowiesz, dotrze, x=0, sprawa, obowiązku, sub
a, dopisujemy, zapamiętania, x
private, pytankoquot
teraz, sub
czyli, aż, zakończenia, składnię
if, wyglądał, if
przetłumaczmy, polski
jeśli, 7
w, sami, duża, dole, zmniejszamy, obejmowało, zaczynamy
odpalamy, ktoacuterej, odnaleźć, wpisywać, zwracał, roacutewnanie, nasza, pojawiłby, takiż, jakąś, twojejnbsp, blebleble, działa
pamiętaj, zwykłe, zmuszamy, quotabquot, literkami, roacuteżni, zawartości, label
co, etykieta, ustawmy, litera, szare, ustawia, podniesiona, części, wpisywania, biały, wpisanymi, służył, ktoacuterego, kursu, labelem, lekcji
ale, polecenie, dwojakie, znaczenie, taki, działać, stał, niżquot
67, zroacutebmy, quotmniej, quot+quot, funkcji
dim, cudzysłowach, 70, łańcuchy, interpretuje, konkatencja, użyciem, komfort, zwykłych, textowymi, niemożliwequot
5jeśli, wiek
4jeśli, quotpełnia, wiekquot
9, siebie, kod
lblwynik, nakazujemy, wiek
2wiek=inputbox, pamiętać, wiekuquot
10, pewnym, zero, txtliczba2, musiał, samo
8, quotpiękny, ostatnio, raz
najprościej, quotniemożliwequot
11, operujemy, gtlt=lt=gt=ltgt, ifowego, arytmetycznych, wszelkich, 4, dwukropek, litery, ciekawy,
nbsp
jestem, operacji, uproszczona, operujesz, sprytne, 46, literach, zrobi, zsumowaniu, ujrzysz, dodajesz, wpisalibyśmy, textboxoacutew, x=msgboxquotto, quotbłądquot
case, zdaniu, fałszywy, wiekquot
select, dwoacutech, wszelkie, alinanbsp, porządku, select
uruchamiamy, wyszło, quotinaquot, quotalquot, zsumuj, pojęcia, x=, stało, gdyby, chodzi
1, czytelniejszy, nieoczekiwanych, doprowadzić, 7000, wynikoacutew, wyczytałem, bo, został, kończenia, hasło
8end, basicowy, byte
wiek, gratulacje
i, quot17quot
if, byte
dim, if
uruchom, brzmiał, język
dim, latquot, zamyka
6, hasła
5, kroacutetsze, szuka, nbspnbspnbspnbspnbspnbsp,
7, podałeś, napisać
if, komunikt, poprawnie, 2000, rozszerzenie, zastępuje, lepiej, zgadzało, faktycznie, miałem, większych, wtedy
4, złym, polsku, pełni, 4000, łączy, 20, gratulacji, rozumiesz, otrzymujesz, forma, końca, odroacuteżnieniu, wiek
3w, zostaje, rezultat, txtliczba2
niby, zacząć, wchodziło, należy, textboxy, rachubę, pytający,
no, tak
jeżeli, obydwie, wiek
na, rzeczyquot, młody, quotstrszyquot
else
z, quotmłodyquot
elseif, powiedzielibyśmy, zamienić, operatorem, tak
nbspjeżeli, żadnych, dotarliśmy, gratulacje
uruchamiamy, kończymy, rozumiemy, ifelse
no, myśli, muszą, quot
uruchamiamy, pytającego, etykiecienbsp
nbsp
dzisiaj, kroacutetszy, odpowiedźquot
dobra, skupmy, pyta, przypadek
funkcję, msgboxquotto, wiadomo
forecolor, dzieła
jak, wieknbsp
uruchamiamy, sproacutebować, wiekquot
if, poznamy,
font, wgłębienia
caption, quotbłądquot
elseif, następnie, domyślna, błędy, kroacutetka, b
ta, ważna, kodzie, uporaliśmy, csngtxtliczba1
b, csngtxtliczba2
lblwynik, była, tła, fajne, pokażę, quottu, tytułnbsp
x, inputboxquotjak, etykiety
borderstyle, imięquotquot, tytułquot, odpowiemy, wbudowanym, txtliczba2nbspnbsp, kilku, single, istnieje, 37
no, zauważmy,
instrukcja, wyniku, sposoacuteb
zamiast
lblwynik, same, zostawia, dajesz, pisałem, konwersji, instrukcje
lblwynik, 3
możemy, zarzucić, quotnaprawićquot, wpisaćnbsp
lblwynik, 3+7=10, rozumuje
lblwynik, przedziały, 10
no, textboxie2, string, tekstowym, zapytać, wiecie, textbox2quot
dla, msgboxom, wykonuje, zależne, rozumieć
lblwynik, przypisać, czegoś, konwersja, przedziałem, textbox1quot, csngtxtliczba2
wyproacutebujmy, elegancki, przerobić, wszyscy, uruchomić, zrozumieli, arytmetyczne
tutaj, gotowy, dwukrotnie
aha, załączam, if
myślę, rozszerzeniem, projekt, rozpakowaniu, textboxie, odpowiednik, zakańczamy, vbp, frm, plik, powiedzieć, słowa, wystarczająca, całkowicie, rozpatrzenia, milej, szybciej, wersji, obsłużenia, podanych, rozpatrzeń, textboxach, ifnbsp
kiedy, dostać, label
uwaga, przy, dodawaniu, problemy, chociaż, posiadacze, przyporządkowujesz, dać, if
chyba, macie, conbsp
backcolor, liczbach, operujących, daty, związanych,
zadanie
na, zmienia, nimi, sposoacuteb
dim, ab, przejrzysty, zrozumieć, programoacutew, quotodpquot
else
x, najważniejsze, pobawić, zadanie, csngtxtliczba1, użyć
private, operatoroacutew, csngtxta
b, zapomnisz, liczbą, b, zbytnio, cmddodaj_click
dim, sie, txta, używał, b
end, wiek
case, csngtxtb
lblwynik, sub
przyjąłem, txtb
w, nazywa, roacutewne, quotw, takiego
private, pojawi, ustawionego, form_load
end, przypisuje, inputboxie, prośbą, vbexclamationquotprzywitaniequot
wyjaśnienie, wykorzystuje, zrobimy, ktoacuterych, świadczy, rozumiesz
po, rzeczy, wyświetlającą, sub
co, wprowadzenie, load, pokaże, braliśmy, piszemy, dalej
if, dostępuquotquothasłoquot
teraz, przywita, zapis
dim, quot
nbsp
i, zmieniło, wystartuj, quotproszę, hasła
dim, przeciwny
nbsp
teraz, inputboxa, sprawić, dopełnienie, 6
dim, end
y, string
haslo, marekquot
if, wykonany, załadowaniem, hasłoquotvbcriticalquotbłądquot
end
else
y, operatora, niestosować, staraj, czytelne, program
pojawia, then
prawda, tak
if, zapisać, gratulacje
lepiej, hasłoquotvbexclamationquotokquot
end, if
cholera, slash, zamącił, być
nie, firmy1, przetłumaczmy
jeśli, wytłumaczę, podaj, prośba, takich, wyskakuje, zamknął, pisanie, dzieje
1, znaku, zmianę, uruchomił, razem, zmiennej
2, hasła
3, box, if
jednak, not
dim, firmę, input, sposoby
1, powinna, serdeczniequotvbinformation+vbabortretryignorequotwitaj, zmieniliśmy, cholery, przeanalizujmy, cmdwitaj, zaznaczył, wyskoczyć, wyskoczyło, czeka
chmmm, zastanowić, rozroacuteżni, posłużyliśmy, wykonywania, logicznie, dzieła, początek, go
private, czymś, cmdwitaj1_click, myśląc, notatnika, sub
nbsp
co, f5, albo, runstart, wystartujmy, serdeczniequot
nbsp
teraz, wykona, wyświetlający, napisem, klawisza, brzegu, innym, z
nbsp
private, cmdwitaj_click
nbsp
end, kliknięcia, bodajże, sposoby, najprostszy, play, uruchamiamy
nbsp
wow, poszczegoacutelne, zmienić
klikamy, bdquoproject1rdquo, wystartował, wroacuteciliśmy, uruchomiony, tekstrdquoikonka, msgboxbdquojakiś, zamykamy, rzuca, oko, dziwisz, przepis
nbsp
x, dodaliśmy, zrobiłem, komunikatu, stanu, serdeczniequot, wpisz
nbsp
x, czerwone, przekreślone, składnia, odpowiedzialnej, wyświetlenie, bdquotytułrdquo
nbsp
tak, okienka, składniki
x, procedurze, dialogowego
oto, wystąpić, x
nbsp
ikonki
, koacutełeczko, vbcritical
, krytyczna, charakterystycznym, pytajnik
, dźwiękiem
, vbquestion
, momencie
po, obiektu, dodawania, sumie, 10000, skoro, firma, quotŚredni, objaśniam
123, 20000, pierwszych, trzech, właściwie, wyjaśnię, chodzi
8, następny, przypadku
9, linijek, musieli, pod, sądzę, młodyquot, drugą, jeśli
dlaczego, firmą, 9000, wyrażenie, prostej,
4, mniejsy, dodawanie, straty, stratę, gratulować, wiekquot
end, if
teraz, tłumaczyć, przypadki, wychodzi, matematycznej, przykładzie
mamy, prostym, to
7, procedurę, dowolnej, nazwijmy, cmdwynik, dostali, abyśmy, y=msgbox, ilości, programie
tłumaczę, tekstowych, znajdzie, większej, przypadkuquot, polach, zaznaczyć, dochodowa, wroacuteć, przekroczą, coquot, not
and, polskie, if
i, zaczynamy
w, następującymi, messagebox
10, zakończenie, umiesz, łatwenbsp
nbsp
dzisiaj, quotiquot, drugiej, wyskoczy, najwyżej, ktoacuterą, stosuje, przynoszą, czyścimy, to
5, pogratulować, podstawy, vbexclamationquotprzywitaniequot
uruchamiamy, łatwym,
dim, imięquot
w, bazach, api, quotwitaj, tłumaczyć
2pytanie, językiem, ciąg, dalej, proszące, najłatwiejszym, duże, czytaj, linijce
1deklaracja, wyjaśniem, moacutewić, marekquot
y, otwarciu, nawiasu, wie, x
o, zwykły, łączenia, podobnie, wpisany, quotwitajquot, powstaje, gorzka, x
3messagebox, użytkownika, choć, xem, moich, wyliczeń, wynika, twoja, warunkowa, napisali, drodze, nowej, ifa
nbsp
zastanawiałem, słyszałem, tą, wiadomo
nbsp
dziś, ififif, zaczynamy
teraz, idzie, odwrotną, jesteś, młody
6, przykład
mamy, fajny, pomysł, uruchomisz, kończyć, tych, byśmy, uruchomiło, quotthenquot, wprowadzać, zamiaru, sposobem, powtoacuterzyć, mieści, najlepszym, każdego, zakończyłem, moja, rozpoczynać, przypomnieć
co, if
otoacuteż, wprowadzaliśmy, dałem, programem, kliknięcie,
Piątek 04 Kwiecień 2025r.
Godz 00:00:00
Postów: 251
Visual Basic Lekcje 1-10
Otwieramy Visual Basic, tworzymy nową aplikację. Chmmm. Co by tu zrobić. No może na formularz naniesiemy jakiś przycisk. No dobra. Z paska narzędzi (tego po lewej) wybieramy „CommandButton” – Szary prostokąt (3 rząd, 2 kolumna). No dobra przycisk się wcisnął i co teraz. Teraz wystarczy przytrzymać lewy przycisk myszy na formularzu i przeciągnąć w którąś ze stron. Czy widzisz te przerywane linie. To właśnie tu po puszczeniu przycisku myszy ukaże się pierwszy element naszej aplikacji – Command Button. No fajnie. Stworzyliśmy przycisk o nazwie Command1. Możesz go teraz przesunąć w dowolne miejsce na formularzu lub go powiększyć. Po prostu chwyć go i upuść tam gdzie zechcesz. Jeśli chcesz go powiększyć lub pomniejszyć zaznacz go, pojawią się teraz obok przycisku kwadraciki za które możemy chwycić i dowolnie zmieniać rozmiar przycisku. Ufffff... Myślę, że skapowałeś o co chodzi. Dobra – ale ten napis jakoś brzydko wygląda. Zmieńmy go np. na „Witaj”. Ale jak to zrobić. Pewnie myślisz, że teraz zaczniemy posługiwać się kodem. Nic z tego. Wykorzystamy do tego okienko „Properties”. To po prawej w środku. Wygląda jak jakaś tabelka. To właśnie tu ustalamy właściwości przycisku. Zabieramy się do roboty. Zaznacz przycisk na formie. Teraz w okienku „Properties” widzisz pogrubiony napis Command1 – command button. Oznacza to, że wszystkie poniżej wypisane opcje odnoszą się do naszego przycisku. Oto krótki opis najważniejszych funkcji :
(name)
|
W tym polu wpisujemy nazwę identyfikującą nasz przycisk – najlepiej używać skrótu cmd – tak wię zmieniamy nazwę naszego przycisku na cmdwitaj
|
caption
|
Chyba najważniejsza – Tu ustalamy wyrazy które mają znaleźć się na naszym przycisku – wpisujemy Witaj !
|
Enabled
|
Tu ustalamy czy przycisk będzie się dało wcisnąć czy też nie – my oczywiście zostawiamy True (Prawda)
|
Font
|
W tym oknie możemy ustalić czcionkę, wielkość i efekty dla napisu
|
Height
|
Wysokość przycisku. Raczej wygodniejsze jest rozciąganie przycisku bezpośrednio na formularzu
|
Index
|
Ustala kolejność przeskakiwania focusa. Chodzi o to gdy np. na formularzu ustawimy trzy przyciski o nazwie cmdJeden, cmdDwa, cmdTrzy i kolejno ustawimy na nie index 1,3,2 to przeskakując „Tab-em” kolejno podświetlą się przycisk cmdJeden (1), cmdTrzy (2), cmdDwa (3). Na razie zostawiamy puste.
|
Left
|
Określa odległość przycisku od lewej krawędzi ekranu. Wygodniej jest przemieszczać przycisk bezpośrednio na formie.
|
Style
|
Oznacza czy w przycisku będziemy dokonywać przeróbek kosmetycznych – dla eksperymenu zaznaczmy True
|
BackColor
|
Teraz wracamy się prawie do samego początku. Możemy tu zmienić kolor przycisku. Zmieńmy go np. na kolor czerwony (znajduje się w zakładce pallete)
|
Top
|
Określa położenie przycisku od górnej krawędzi ekranu
|
Width
|
Określa szerokość przycisku
|
Visible
|
Określa czy przycisk ma być widoczny na formularzu. Jeśli zaznaczymy false, to po uruchomieniu programu zobaczymy pusty formularz. Zostaw więc true
|
Większość wyżej wymienionych opcji działa także na formularzu. No to spróbujmy. Zaznacz formularz (To na czym ułożyłeś przycisk). Teraz w oknie „Properties” zobaczyś pogrubiony napis „Form1 Form”. Oczywiście jeżeli formularz wydaje ci się za mały to go sobie powiększ. Identycznie jak przycisk. Po prostu chwyć za kwadracik i ciągnij. Chmmm. Jak na razie program nie wygląda zbyt ciekawie. Na pasku u samej góry formularza widnieje napis „Form1”. Chyba czas aby to zmienić... Masz już zaznaczoną formę ? No to teraz w oknie Properties znajdź „Caption” – o jest tu nasze Form1. Zmień to na np. „Mój pierwszy program”. Efekt widać od razu ! Może zmienimy teraz kolor naszego formularza, co? No dobra – odnajdź funkcję „BackColor”. Teraz rozwiń zawartość – wybierz zakładkę „Palette” i wybierz dowolny kolor. Dla przykładu jaskrawy zielony. Ha ! Program zaczyna fajnie wyglądać. Niestety to co pokazałem do tej pory to tylko umieszczanie składników na formie i upiększanie wyglądu. Ale my chcemy aby ten program coś robił. Np. wyświetlił komunikat „Witam cię bardzo serdecznie”. Niestety, aby to wykonać musimy posłużyć się kodem. Tak, koniec zabawy w „składanie” sobie programu. Teraz musimy się nauczyć podstawowych funkcji. Radzę abyś zapisywał sobie składnie poznanych funkcji gdzieś na kartce. Chyba, że dobrze znasz angielski... Później pisząc program możesz akurat zapomnieć sobie jak używało się danej funkcji
No dobra dość tego pieprzenia. Robota czeka.
Chmmm. Kod, kodem – ale gdzie go wpisać. Musimy zastanowić się kiedy ma wyskoczyć komunikat. Oczywiście po kliknięciu na nasz przycisk. No to kliknijmy na przycisk. I co? Zaznaczył się tylko. Chmmm. A może dwukrotnie? Jest! Wyskoczyło coś w formie notatnika z:
Private Sub cmdwitaj_Click()
End Sub
Co to do cholery jest!? Tu właśnie będziemy pisać kod. Przeanalizujmy go:
Private Sub oznacza początek wykonywania się kodu – logicznie myśląc End Sub kończy. Ale do czego jest cmdwitaj1_Click. Chmmm. Cmdwitaj to przecież nazwa naszego przycisku – to właśnie tu program rozróżni czy posłużyliśmy się naszym przyciskiem czy czymś innym. Jak pewnie wiesz Click oznacza kliknięcia – a więc kliknięcie na przycisku. Tak, tak – kod wykona się dopiero wtedy, gdy klikniesz na naszym przycisku. Zaraz, zaraz ale jaki kod? Teraz napiszmy jakiś prosty kod wyświetlający okienko z napisem „Witam cię bardzo serdecznie”. Napisz coś takiego (oczywiście między Private Sub cmdwitaj_Click() a End Sub:
x = MsgBox("Witam cię bardzo serdecznie")
Teraz wystartujmy jakoś program. Możemy to zrobić na trzy sposoby. Najprostszy to przycisk play na pasku narzędzi (tym u góry) Jest to ikonka bodajże 12 z brzegu. Możemy też użyć klawisza F5, albo z menu wybrać Run-Start. No to do dzieła. Uruchamiamy...
Wow ! Działa, działa, działa !!! Wystartował nasz program. Teraz kliknij na przycisku. I co pojawił się komunikat? Jest !!! Ale co się rzuca w oko. Na pasku stanu widzimy „Project1”. Trzeba to zmienić...
Klikamy na ok. i zamykamy uruchomiony program. No... wróciliśmy do kodu. Teraz zamiast x = MsgBox("Witam cię bardzo serdecznie") wpisz:
x = MsgBox("Witam cię bardzo serdecznie",vbInformation+vbAbortRetryIgnore,"Witaj !")
I co to zmieniło? Sam zobacz. Wystartuj program jeszcze raz. Tak zmieniliśmy tytuł, ale także dodaliśmy ikonkę obok komunikatu oraz mamy trzy przyciski. Jak ja to zrobiłem – się dziwisz. Oto przepis:
X = MsgBox(„Jakiś tam tekst”,ikonka + przyciski, „Tytuł”)
Tak wygląda składnia funkcji odpowiedzialnej za wyświetlenie okienka dialogowego.
Oto poszczególne składniki:
X – nazwa zmiennej (O tym w następnej lekcji). Na dziś musisz wiedzieć, w jednej procedurze (w naszym przypadku na kliknięciu na przycisk) może wystąpić tylko jedna zmienna o nazwie x
Ikonki
vbCritical
|
Ikonka krytyczna (przekreślone czerwone kółeczko z charakterystycznym dźwiękiem)
|
vbQuestion
|
Ikonka pytania (Dymek, a w nim pytajnik)
|
vbExclamation
|
Ikonka ostrzegawcza (Żółty trójkąt z wykrzyknikiem)
|
vbInformation
|
Ikonka informacji (Dymek a w nim literka „i”)
|
vbSystemModal
|
Brak ikonki. Za to na pasku tytułowym pojawia się ikonka windows
|
Przyciski
vbOKonly
|
Tylko OK. – nie trzeba tego pisać. On i tak jest używany domyślnie
|
vbOKCancel
|
Przycisk OK. i Anuluj
|
vbAbortRetryIgnore
|
Przyciski Przerwij, Ponów próbę i Zignoruj
|
vbYesNoCancel
|
Przyciski Tak, Nie, Anuluj
|
vbYesNo
|
Tylko przyciski Tak i Nie
|
vbRetryCancel
|
Tylko przyciski Ponów i Anuluj
|
MsgBox zwraca:
1
|
vbOK
|
2
|
vbCancel
|
3
|
vbAbort
|
4
|
vbRetry
|
5
|
vbIgnore
|
6
|
vbYes
|
7
|
vbNo
|
To będzie Ci potrzebne (chodzi mi o to co zwraca MsgBox) w następnej lekcji gdy poznasz funkcję warunkową If.
ZADANIE DOMOWE:
Napisz program z dwoma przyciskami Jeden o nazwie „Witaj” i kolorze czerwonym, a drugi „Pytanko” i kolorze jasno niebieskim. Klikając na pierwszym powinien wyświetlić się komunikat „Jestem spoko” z ikonką informacyjną i przyciskiem OK. Zmień tytuł na „Przywitanie”. A drugi z tekstem „Czy mnie lubisz” z ikonką pytania i przyciskami Tak – Nie, oraz o tytule „Małe pytanko”.
Witajcie! Oto druga lekcja programowania w Visual Basicu. Mam nadzieję, że uporaliście się z zadaniem domowym. Teraz obiecane dokończenie programu...
Napisaliśmy program w którym po naciśnięciu przycisku "Pytanko" program wyświetla komunikat "Czy mnie lubisz ?" z ikonką pytania i przyciskami Tak – Nie, oraz o tytule „Małe pytanko”. Tak więc kod wygląda tak:
Private Sub cmdPytanko_Click
x = msgbox("Czy mnie lubisz ?",vbQuestion+vbYesNo,"Małe Pytanko")
End Sub
No to odpalamy nasz program i co? Naciskamy przycisk - dostajemy pytanie, dajemy odpowiedź ale nic się nie dzieje... Chmmm. Co by tu zrobić. Może spróbujmy dopisać drugiego message Boxa z odpowiedzią .
Private Sub cmdPytanko_Click
x = msgbox("Czy mnie lubisz ?",vbQuestion+vbYesNo,"Małe Pytanko")
y = msgbox("Fajnie, że mnie lubisz ! ",vbExclamation,"Małe pytanko")
End Sub
Odpalamy nasz program. Odpowiadamy na pytanie komputera "Tak". I udało się ! Hurra ! Niestety. Nasz program jest zły. Dlaczego? Spróbuj odpowiedzieć komputerowi "Nie". I co? Ale dlaczego? Prześledźmy kod programu:
pierwsza linijka- wiadome deklaracja zdarzenia
druga linijka - program ma wyświetlić komunikat z pytaniem po odpowiedzi:
trzecia linijka - program ma wyświetlić podziękowanie.
czwarta linijka - koniec
Faktycznie bez sensu - a może by dopisać czwartą linijkę z odpowiedzią "Strasznie mi przykro". E tam to by było jeszcze głupsze. Po daniu odpowiedzi najpierw zobaczylibyśmy komunikat "Fajnie...", a za chwilę "Przykro mi".
Musimy zastosować funkcję warunkową IF. O niej będzie więcej w następnych lekcjach. Na razie musisz wiedzieć, że IF znaczy (Jeśli). Chyba już przeczówacz do czego będzie służyć. Tak, to ona zdecyduje o tym co ma zostać wyświetlone. Ale jak?
Musisz teraz wrócić do poprzedniej lekcji i zobaczyć co zwraca funkcja MsgBox. Jak to co zwraca? Ach. Nie wytłumaczyłem jeszcze tego. Przed każdym msgBox stoi pewna zmienna (np. x=msgbox(...)). Zwraca tzn. zapisuje do x. Jeśli Ty naciśniesz przycisk Tak wtedy x=6 a jeśli Nie wtedy x=7 (dlaczego - zobacz co zwraca MsgBox !). Tak nasz vbYes (= 6) to Tak a vbNo (= 7) to Nie. Czy wszystko się zgadza? Myślę, że tak ! No i teraz funkcja IF ma rozstrzygnąć co się stanie gdy x=6 i gdy x=7.
UWAGA !!! Potrzebna nam tu będzie jeszcze jedna funkcje (BARDZO WAŻNA). W kolejnych lekcjach dowiesz się więcej o tej funkcji. Praktycznie każdy program musi ją zawierać. Jest to funkcja DIM. funkcja jest odpowiedzialna za pamiętanie. O co chodzi. Zmienna x może mieć wartości 6 lub 7. I tu właśnie ma ona zapamiętać co wybrałeś - czy 6 czy 7. Podam to na przykładzie:
Private Sub cmdPytanko_Click
x = msgbox("Czy mnie lubisz ?",vbQuestion+vbYesNo,"Małe Pytanko")
'w linijce powyżej rozstrzyga się sprawa o x. Jeśli na pytanie odpowiesz tak x=6, a jeśli Nie to x=7. Niestety, gdy dotrze do tej linijki x=0 gdyż program nie ma obowiązku zapamiętania x
End Sub
A więc jak to zrobić aby było dobrze? Po prostu dopisujemy DIM x - (Pamiętaj x)
Private Sub cmdPytanko_Click
Dim x
x = msgbox("Czy mnie lubisz ?",vbQuestion+vbYesNo,"Małe Pytanko")
'teraz x=7 aż do zakończenia tej procedury (czyli do End Sub)
End Sub
Czyli nasz program wygląda tak:
Private Sub cmdPytanko_Click
Dim x
x = msgbox("Czy mnie lubisz ?",vbQuestion+vbYesNo,"Małe Pytanko")
End Sub
Teraz dodamy instrukcję IF. Ale przed tym musimy poznać jej składnię:
If x=6 then
y = msgbox("Fajnie, że mnie lubisz ! ",vbExclamation,"Małe pytanko")
End If
If x=7 then
z = msgbox("Strasznie mi przykro...",vbExclamation,"Małe pytanko")
End IF
Przetłumaczmy to na polski:
Jeśli x będzie równy 6 to
Komunikat z tekstem "Fajnie...", ikonką wiadomości i tytule "Małe pytanko"
Zakończenie instrukcji po jeśli = 6
Jeśli x będzie równy 7 to
Komunikat z tekstem "Przykro mi...", ikonką wiadomości i tytule "Małe pytanko"
Zakończenie instrukcji jeśli = 7
W takim razie nasz program będzie wyglądał tak :
Private Sub cmdPytanko_Click
Dim x
x = msgbox("Czy mnie lubisz ?",vbQuestion+vbYesNo,"Małe Pytanko")
If x=6 then
y = msgbox("Fajnie, że mnie lubisz ! ",vbExclamation,"Małe pytanko")
End If
If x=7 then
z = msgbox("Strasznie mi przykro...",vbExclamation,"Małe pytanko")
End IF
End Sub
Teraz cały program tłumaczę jeszcze raz:
Wyświetl komunikat z pytaniem (Tak=6, Nie=7)
Jeśli x będzie równy 6 to
Komunikat z tekstem "Fajnie...", ikonką wiadomości i tytule "Małe pytanko"
Zakończenie instrukcji jesli = 6
Jeśli x będzie równy 7 to
Komunikat z tekstem "Przykro mi...", ikonką wiadomości i tytule "Małe pytanko"
Zakończenie instrukcji jeśli.
Koniec procedury
Prawda, że logiczne?
W tej lekcji poznałeś dwie nowe funkcje - DIM oraz IF. O DIM-ie dowiesz się wszystko w następnej lekcji. O IF-ie troszeczkę później.
W tej lekcji nie zadaję zadania, gdyż nie omówiłem tutaj szczegółowo żadnej z funkcji. Poćwicz sobie jedynie to co poznałeś.
Jak obiecałem na tej lekcji poznasz szczegółowe zastosowanie funkcji DIM. No więc zaczynamy
Jak pamiętasz funkcja DIM ma zapamiętywać co w danej chwili znajduje się w zmiennej. Teraz pytanie. Czy do poniższego kodu muszę dodać instrukcję DIM?
x=7
if x=6 then msgbox("Witaj")
Odpowidź brzmi NIE ! Dlaczego - przecież program musi wiedzieć, że x=7. PAMIĘTAJ - DIM służy do pamiętania zmiennych a nie stałych. Przecież x zawsze będzie równy 7 ! To jest zadeklarowane w pierwszej linijce. Program dochodząc do linijki 2 napotyka instrukcję IF - czyli jeśli x=6 ... Program więc cofnie się, aby sprawdzić ile to jest x. Linijka wyżej - oświadczenie, że x=7. A poniżej trzeba zastosować instrukcję DIM ?
x = msgbox("Czy mnie lubisz ?",vbQuestion+vbYesNo,"Małe Pytanko")
If x=6 then
y = msgbox("Fajnie, że mnie lubisz ! ",vbExclamation,"Małe pytanko")
End IF
TAK! To jest nawet przykład z ostatniej lekcji. Ale myślę, że teraz kapniesz o co chodzi. Dochodzimy do linijki 2 i mamy instrukcję IF. Teraz program musi sprawdzić ile to jest x. Wraca się więc linijkę wyżej i widzi x=msgbox(...). Niestety - program w tym momencie nie pamięta czy wybrałeś Tak czy też Nie. Przecież od tego zależy wartość x. Tak więc program nie wiedząc co jest w x - przyporządkowuje mu wartość 0 i program jest do bani. Tak więc MUSISZ dodać na początku programu instrukcję DIM x.
Wiem ze swojego doświadczenia, że łatwo zapomnieć o dopisaniu tej funkcji. Później musiałem dochodzić gdzie tkwi błąd w moim programie. Jednak Visual Basic 6 (i chyba 5 też) oferuje funkcję przypominania. Tzn. jeśli nie dodamy instrukcji DIM która będzie potrzebna VB zasygnalizuje błąd. Warto ją włączyć. Wystarczy z menu wybrać Tools - Options. I teraz zaznazcmy funkcję "Require Variable Declaration". Od tej pory VB zawsze nam przypomni o zapomnianym DIM-ie.
No! Pierwsze zastosowanie DIM-a z głowy. Musisz jednak wiedzieć, że DIM może przechowywać inne dane. Do tej pory wiesz, że ta instrukcja przechowuje dane liczbowe. Tak jak w powyższych przykładach miała zapamiętać czy x=6 czy 7. Ale trzeba wiedzieć, że DIM może przechowywać dane innego typu. Oto one:
Boolean
|
Przetrzymuje True lub False
|
Byte
|
Liczby całkowite z zakresu od 0 do 255
|
Currency
|
Liczby z zakresu -922337685477,5808 do + ( -||- )
|
Date
|
Data od 01.01.0100 - 31.12.9999
|
Decimal
|
Liczba zapisana z dokładnością do 28 liczb po przecinku
|
Double
|
Liczba z zakresu -1,79769313486232E+308 do + ( -||- )
|
Integer
|
Liczba z zakresu od -32768 do 32767
|
Single
|
Liczba z zakresu -3402823E+38 do + ( -||- )
|
String
|
Dane znakowe (alfanumeryczne)
|
Variant
|
Dowolne - nie musimy tego pisać gdyż Variant jest domyślnie
|
Funkcję DIM deklarujemy następująco:
DIMx as typ
Jak widziałeś wcześniej w zadaniu pisaliśmy samo DIM x. Jest to równoznaczne z zapisem:
DIM x as Variant - gdyż variant jest domyślne.
Od tej pory będziemy stosować następujący zapis:
DIM x as Byte - dlaczego? Pomyślmy... Jakie wartości może przyjąć x ? Tylko 6 i 7. A więc Byte jest najmniejszym zakresem spełniającym nasze kryteria. A dlaczego nie zostawić po prostu DIM x ? Instrukcja DIM x jest bardziej pamięciożerna przez co program będzie działał trochę wolniej. Na szybkich komputerach i małych programach nie odczujemy tego. Jeśli jednak przyjdzie nam napisać objętościowo duży program na wolny komputer, będzie on działał trochę wolniej niż z poprawnymi instrukcjami DIM. Uffff... No myślę, że kapujecie o co chodzi. Tak więc pamiętajcie. Stosujcie najmniejszy zakres spełniający kryteria zmiennej !!!!
A co się stanie gdy pomylimy sobie zakresy? Np gdy zmienna x będzie mogła mieć wartości 6 i 7 a zakresem będzie typ (Boolean - czyli Prawda lub Fałsz) ? Spróbujmy.
Na formie stwórz przycisk. Kliknij na niego dwukrotnie i wpisz:
Dim x As Boolean
x = MsgBox("Co wybierasz ?", vbYesNo)
c = MsgBox(x, vbCritical)
Przeanalizujmy kod. Pierwsza linijka - deklarujemy zmienną dla wartości True lub False.
Druga linijka - znany nam MessageBox z pytaniem. Pamiętaj, że zależnie od naszego wyboru x powinien wynosić 6 lub 7
Trzecia linijka. Co to błąd ? x nie jest wzięte w cudzysłów ?! Nie to nie błąd. Nie chcę aby powstał komunikat o treści "x" ale żeby komunikat podał nam co jest w x. Innymi słowy mówiąc powinien pojawić się komunikat z treścią: "6" lub "7". No to uruchamiamy nasz program i co? Program zamiast 6 lub 7 pokazał jakieś True! Właśnie oznacza to że mamy źle zadeklarowaną zmienną x. Zmieńmy więc instrukcję DIM x as boolean na DIM x as byte. I co teraz? Uruchom program, odpowiedz na pytanie twierdząco. I co jest 6 ? A przecząco - jest 7! Tak wszystko działa jak trzeba. Myślę, że wiesz już coś o deklarowaniu zmiennych. Okazję do poćwiczenia będziemy mieć w następnej lekcji.
Ale przed zakończeniem obecnej lekcji muszę Wam jaśniej wytłumaczyć o co chodziło z tym MsgBox-em wyświetlającym zmienną.
Napiszmy mały program: Jak zwykle na formie przycisk. 2x na niego i piszemy:
to_co_w_msgBox = "Co jest?"
c = MsgBox(to_co_w_msgBox)
Uruchamiamy - i dostajemy komunikat "Co jest? ". A teraz w message boxie dodajmy cudzysłowy: c=MsgBox("to_co_w_msgBox"). I co teraz? Dostajemy komunikat "to_co_w_msgBox" - no myślę, że zrozumiałeś o co chodzi !
W dzisiejszej części kursu nauczycie się posługiwać TextBox-em oraz Label-em (Etykietą). Napiszemy prosty program, w którym będziemy mieć TextBox-a w którego trzeba będzie wpisać liczbę. Po naciśnięciu przycisku, liczba zostanie podniesiona do kwadratu, a wynik zobaczymy w polu Label.
Co to jest Label? Właśnie - label znaczy etykieta. Jest to pewne pole tekstowe, w którym widnieje jakiś tekst. Tym różni się od pola tekstowego, że nie możemy edytować jego zawartości. Tak więc TextBox będzie służył do wpisywania tekstu przez nas, a w label komputer zwracał nam będzie odpowiedź (Której oczywiście nie będzie się dało edytować). Tak więc zaczynamy:
Odpalamy VB. Na formie układamy (gdzieś na dole) przycisk - nadajemy mu nazwę cmdLicz, a w Caption wpisz Licz. No mamy przycisk. Tylko gdzie będziemy teraz wpisywać liczbę ? Oczywiście w pole tekstowe. Ale jak? Musimy go odnaleźć na pasku narzędzi (pamiętaj - wszystko co układamy na formie jest po lewej stronie). Jest to biały prostokąt z wpisanymi literkami "ab". Widzisz? Nie? Drugi od góry, druga kolumna. No! Teraz ustawmy go gdzieś na formie. Najlepiej u góry. Ustawia się go tak samo jak przycisk (CommandButton). O jest TextBox. Domyślnie wpisane jest tam Text1. No to musimy to zmienić. Nie szukaj Caption ! Odpowiednikiem tego jest tutaj Text. Odnajdź go w oknie properties. Teraz wyczyść pole. No mamy czyściutkiego texbox-a. Teraz zmieńmy jego nazwę np. na txtLiczba. OK. Pomyślmy teraz przez chwilę. W pole tekstowe wpiszę np. 7, przycisnę przycisk licz i co? No właśnie - i co? Możemy zastosować funkcję MsgBox, aby wyświetlała odpowiedź. E tam. Spróbujcie sami. Ja na tej lekcji od razu chcę Was nauczyć coś o funkcji Label. Tak więc na formie układamy Label. Jest on widoczny na pasku narzędzi jako duża litera "A", tak, to ta obok TextBox-a. I co - to tylko jakieś szare pole bez kropek. Widzimy w nim napis Label1 - zmieńmy to na "Twój wynik to:" oczywiście w opcji Caption. Nadajemy mu nazwę lblStalyTekst i zmniejszamy pole tak aby obejmowało jedynie tekst. Obok niego postawmy drugie pole Label, nadajmy mu nazwe lblWynik i wyczyśćmy zawartość (Caption). Aby wszystko elegancko wyglądało zmień etykietę Formy na "Do kwadratu".
Teraz zajmiemy się kodem. Program zacznie liczyć po naciśnięciu przycisku licz. Tak więc kod umieścimy wewnątrz niego. Klikamy więc dwukrotnie na przycisku i pomyślmy. Co nasz program ma robić? Ma podnieść liczbę wpisaną do pola tekstowego do kwadratu i wynik wyświetlić w polu label. Wyglądać to będzie tak:
lblWynik.Caption = txtLiczba ^ 2
Co to znaczy? Otóż przed przeliczeniem w lblwynik.Caption nie ma nic. Chyba wiesz co to jest lblWynik? Nie. To jest nasze pole Label w którym nie ma nic wpisanego. Dobra - ale co to jest w takim razie to Caption ? A pamiętasz jak kasowałeś zawartość pola Label? Właśnie w caption. Jeśli byś w caption wpisał np ble,ble,ble to na twojej etykiecie pojawiłby się takiż tekst. My teraz chcemy aby w naszej etykiecie pojawił się wynik. I właśnie do tego go teraz zmuszamy. Po prawej stronie zwykłe równanie czyli nasza liczba do kwadratu. Uruchom program - i co działa?
Pamiętaj, że w okienko textowe musisz wpisać jakąś liczbę inaczej wyjdzie błąd. Kiedyś nauczę Was jak zapobiegać takim przypadkom, na razie jednak musisz poznać podstawy.
ZADANIE DOMOWE
Napisz program z dwoma polami tekstowymi, czterema przyciskami i jednym polem label. Program ma wykonywać pewne działania matematyczne. Przyciski kolejno powinny wykonywać funkcje: dodawanie, odejmowanie, mnożenie i dzielenie liczb podanych w textbox-ach. Wynik oczywiście powinniśmy dostać w polu Label.
UWAGA !!! Przy dodawaniu będą pewne problemy. (UWAGA !!! Posiadacze wersji VB 5 muszą to zastosować do wszelkich operacji arytmetycznych – czyli także mnożenie, dzielenie, odejmowanie itp...) Mianowicie jeśli w pierwsze pole textowe wpiszesz 4 a w drugie 6, to po zsumowaniu nie ujrzysz liczby 10, a 46. Dlaczego? Visual Basic myśli, że operujesz na literach i dodajesz je. Musisz programowi powiedzieć, że to co wpiszesz w pole tekstowe jest liczbą. Służy do tego funkcja CSng. Jak ją użyć:
Private Sub cmddodaj_Click()
Dim a, b As Single
a = CSng(txta)
b = CSng(txtb)
lblwynik = a + b
End Sub
Przyjąłem, że pierwszy textbox nazywa sie txta a drugi txtb.
W tym momencie przyporządkowujesz zmiennej "a" to co jest w textbox-ie1 jako liczbę. Pamiętaj, że w Textbox-ie jest zawsze tekst (liczba w końcu to też tekst) . Musisz ten tekst dopiero przerobić na liczbę, a dopiero potem wykonywać działania arytmetyczne.
Tutaj załączam gotowy program, wystarczy, że klikniesz na ikonkę dwukrotnie.
Aha, zapomniałem napisać, jak uruchomić zapisany projekt. Po rozpakowaniu programu, uruchamiamy plik z rozszerzeniem VBP (nie frm !).
Jestem tylko ciekawy czy zrozumiałeś ostatnio funkcje CSng. Tłumaczę wszystko jeszcze raz.
Najprościej będzie to zrobić na pewnym przykładzie. Zróbmy program z dwoma polami textowymi (textBoxem), etykietą (Label) i przyciskiem. Nazywamy je kolejno txtliczba1, txtliczba2, lblwynik i cmdlicz. Program będzie musiał dodać do siebie liczby wpisane w textboxy, a rezultat wyświetlić w etykiecie. Tak więc w przycisku umieszczamy kod:
lblwynik = txtliczba1 + txtliczba2
Niby wszystko w porządku. Uruchamiamy program. I jak w zdaniu otrzymujemy fałszywy wynik. Pomyślmy. Co by się stało gdyby zamiast liczb do textbox-ów wpisalibyśmy jakieś litery ? Spróbujmy. W pierwszy np. wpisz "Al" a w drugi "ina" i zsumuj - co wyszło? Alina? Właśnie, dla VB znak "+" ma dwojakie znaczenie. W przypadku zwykłych znaków jest to konkatencja, czyli połączenie dwóch łańcuchów. Wszelkie łańcuchy znaków Visual Basic interpretuje w cudzysłowach (""), daty w ##, a liczby zostawia same. W tym przykładzie dajesz programowi instrukcje:
lblwynik = "To co wpisane w textbox1" + "To co wpisane w textbox2"
Dla przykładu jeśli w textboxie1 masz wpisaną liczbę 3 a w textboxie2 liczbę 7 to VB rozumuje:
lblwynik = "3" + "7" - a to daje 37
No więc jak zrobić aby 3+7=10 ? Właśnie tak jak tu jest zapisane - program musi rozumieć:
lblwynik = 3 + 7 - a to da w wyniku 10
No dobra, ale jak to zrobić ? Musimy wiedzieć, że istnieje coś takiego jak konwersja danych. Na początku mamy daną typu String czyli "3", a po konwersji daną typu Single czyli 3.
Możemy więc program "naprawić" w ten sposób:
Zamiast
lblwynik = txtliczba1 + txtliczba2 wpisać
lblwynik = CSng(txtliczba1) + CSng(txtliczba2)
Wypróbujmy nasz program. Działa jak trzeba ? No uporaliśmy się z tym. Jednak jest bardziej elegancki (bardziej przejrzysty) sposób:
Dim a,b as single
a = CSng(txtliczba1)
b = CSng(txtliczba2)
lblwynik = a + b
Ta lekcja była krótka, ale bardzo ważna. Musisz zrozumieć to, gdyż bez tego nie będziesz w stanie pisać programów operujących na liczbach !!!
ZADANIE
Na ostatniej lekcji nie omówiłem opcji związanych z etykietą. Na zadanie macie poznać najważniejsze opcje tzn. pobawić się nimi - fajnie co?
-BackColor - zmienia kolor tła etykiety
-BorderStyle - efekt wgłębienia
-Caption - chyba wiadomo o co chodzi ;)
-Font - chyba też wiadomo...
-ForeColor - kolor tekstu na etykiecie
Dzisiaj poznamy funkcję InputBox. Jest to komunikat, z wbudowanym polem tekstowym. Może nas np. zapytać o imię, a my mu od razu odpowiemy. Chcesz spróbować ? No to do dzieła
Jak zwykle tworzymy program z przyciskiem. Wewnątrz niego umieszczamy następujący kod:
Dim x as string
x = InputBox ("Jak masz na imię ?")
Uruchamiamy nasz program i co? Fajne okienko, ale jak zmienić tytuł?
x = InputBox("Jak masz na imię?"," Tutaj tytuł", "Tu domyślna odpowiedź")
Dobra, napiszmy program który pyta się ciebie jak masz na imię, a następnie w MsgBox-ie przywita nas "Witaj -imię-"
W przycisku umieszczamy następujący kod :
Dim x,y as string
x = InputBox ("Jak masz na imię ?","Przywitanie","Może Marek...")
y = MsgBox ("Witaj_" & x ,vbExclamation,"Przywitanie")
Uruchamiamy i co? Fajnie! Program działa. No tak, ale o co tu chodzi ? Wyjaśniem linijka po linijce:
1.Deklaracja zmiennych x i y - chyba nie muszę tłumaczyć...
2.Pytanie do użytkownika. To co wpiszesz w pole tekstowe zostanie zapisane do zmiennej x
3.MessageBox z tekstem Witaj -i tu to co w x-
O co chodzi z tym msgboxem? Po otwarciu nawiasu mamy zwykły tekst wpisany w cudzysłów. Później widzimy jakieś & x. znak & służy do łączenia łańcuchów (podobnie jak +). W tym momencie łączy on tekst "Witaj" z x-em czyli naszym imieniem. Powstaje więc jeden ciąg znaków który widzimy w msgBox-ie. Dalej już wiadomo.
Dziś nauczycie się posługiwać funkcją IF. If,if,if - czy ja tego już gdzieś nie słyszałem? Tak, właśnie tą funkcję miałeś sobie na dzisiaj przypomnieć.
Co byśmy dzisiaj napisali ? Może program, który uruchomisz tylko po podaniu hasła. Fajny pomysł. Po drodze poznasz jeszcze kilka funkcji. Tak więc zaczynamy...
Teraz pomyślmy. Kiedy i jak mamy podać hasło. Najlepszym sposobem będzie InputBox (też miałeś go na dziś powtórzyć). Czyli jak zwykle przycisk... Zaraz, zaraz. Ale my chcemy, aby okienko proszące nas o podanie hasła uruchomiło się przed programem. Jak to zrobić. Pamiętasz jak wprowadzaliśmy kod do przycisku? Tak - dwa razy click na przycisku. Musisz wiedzieć, że kod możemy wprowadzać praktycznie do każdego obiektu ustawionego na formie, a także na niej samej. I tak właśnie zrobimy w naszym przypadku. Kliknijmy dwa razy na formę. Pojawi się coś takiego:
Private Sub Form_Load()
End Sub
Co to jest? Tu właśnie jest miejsce na wprowadzenie kodu który będzie wykonany przed załadowaniem się formy (świadczy o tym słowo Load). Tak więc napiszmy funkcję wyświetlającą okienko tekstowe z prośbą o podanie hasła:
Dim haslo as string
haslo = InputBox ("Proszę podać hasło dostępu","Hasło")
Teraz gdzieś musimy ustalić jakie będzie hasło. A więc piszemy dalej:
If haslo <> "SLASH" then
x = msgbox("Podałeś złe hasło",vbcritical,"Błąd")
End
Else
y = msgbox("Podałeś dobre hasło",vbExclamation,"OK")
End IF
Cholera ! Ale ten SLASH zamącił. Co to ma być!
Nie przejmuj się ! Zaraz Ci wszystko wytłumaczę, ale najpierw uruchom program.
Pojawia się InputBox - podaj złe hasło. Wyskakuje komunikat i... program się zamknął. No dobra - uruchamiamy go jeszcze raz i tym razem podajemy dobre hasło - i co - tak program uruchomił się. Czas by Wam wytłumaczyć co się tu dzieje:
1. Dim haslo... - chyba wiesz ;). Tu oczywiście deklaracja zmiennej
2. Input Box - tu właśnie pojawia się prośba o podanie hasła
3. If haslo <> "SLASH" then - Jeżeli hasło będzie mniejsze lub większe (czyli nierówne - nie będzie się zgadzało) od "SLASH" wtedy...
4. msgbox - Komunikat o złym podaniu hasła
5. End - i tu UWAGA. Nowe polecenie - służy ono do kończenia programu - czyli jeśli złe hasło program się zamyka
6. Else - UWAGA - rozszerzenie instrukcji IF - oznacza ono "W przeciwnym przypadku" - o co tu chodzi ? Wróć do linii 3. Widzisz tam instrukcję Jeżeli hasło nierówne "SLASH" to..., a tu mamy w przeciwnym przypadku - czyli hasło równe "SLASH". Oczywiście możemy napisać
If haslo = "SLASH" then ... - ale przecież else jest dużo krótsze .
7. MsgBox - wiadomo, komunikt, że poprawnie podałeś hasło
8.End If - tu kończymy instrukcję IF/Else
No i w końcu dotarliśmy do końca, pojawia się forma !
No, myślę, że zrozumiałeś o co tu chodziło. Napiszmy jeszcze jeden program pytający się nas o wiek.
Na formie układamy przycisk. Dodajemy do niego następujący kod:
Dim wiek As Byte
Dim x, y, z As Byte
wiek = InputBox("Podaj, ile masz lat", "Pytanie o wiek", "17")
If wiek < 12 Then
x = MsgBox("Jesteś jeszcze za młody na pewne rzeczy", vbExclamation, "Młody")
ElseIf wiek >= 40 Then
y = MsgBox("Jesteś w pełni wieku", vbExclamation, "Strszy")
Else
z = MsgBox("Jesteś jeszcze młody", vbExclamation, "Średni wiek")
End If
Teraz objaśniam:
1,2,3. Pierwszych trzech linijek chyba nie muszę tłumaczyć ;)
4. If wiek < 12 then - jeśli wiek będzie mniejsy od 12 to...
5. MsgBox - Komunikat, że jesteś za młody
6. UWAGA - nowe wyrażenie ElseIF - jak się domyślasz jest to połączenie instrukcji Else (w przeciwnym przypadki) z IF (Jeśli) - i co z tego wychodzi? W przeciwnym przypadku jeśli...
Dlaczego ? Pamiętaj, że nie możemy użyć więcej niż jednej instrukcji IF pod rząd. Co najwyżej IF i Else - ale nigdy IF, IF, Else - po prostu wyskoczy błąd. Zamiast tego stosuje się instrukcję ElseIF, którą możesz użyć w dowolnej ilości w programie.
Tłumaczę - jeśli wiek będzie większy lub równy 40 to...
7. y=MSgBox... - wiadomo o co chodzi...
8. Else - w przeciwnym przypadku...
9. Następny MessageBox
10. Zakończenie instrukcji IF
I co łatwe?
Dzisiaj dowiesz się co to są operatory arytmetyczne i jak ich używać. Myślę, że umiesz już posługiwać się instrukcją IF. Będzie nam dzisiaj bardzo potrzebna. Dobra. Czy ktoś wie co to są operatory arytmetyczne? Nie? No to zaczynamy:
W Visual Basicu będziemy posługiwać się następującymi operatorami: And , Or, Not.
And to nasze polskie "i", Or to lub, a Not to nie. Ale o co tu właściwie chodzi. Wyjaśnię to na prostym przykładzie:
Mamy dwie firmy które przynoszą dochody. Tak więc uruchamiamy VB, tworzymy dwa pola tekstowe i przycisk. Pierwsze pole nazywamy txtFirma1, a drugi txtFirma2, oczywiście czyścimy ich zawartość (Text). Przycisk nazwijmy np. cmdWynik. Nadajmy mu etykietę (Caption) "I co ?". Teraz napiszemy procedurę, tak abyśmy dostali gratulacje jeśli dochody jednej i drugiej firmy przekroczą 5000 zł. No to do przycisku "I co?" dodajemy kod. No właśnie, ale jaki. Jak się pewnie domyślasz będziemy musieli użyć instrukcji IF. Czyli Jeżeli dochód pierwszej firmy będzie większy niż 5000 to komunikat... Zaraz, a co z drugą firmą? Pierwsza może przynieść zysk w wysokości 6000 zł, a druga straty w wysokości 9000 zł. I co? Program ma nam pogratulować ? Można by użyć prostej funkcji matematycznej. Mianowicie dodawania. Skoro i jedna i druga firma ma przynieść zysk pow. 5000 zł, no to w sumie mają przynieść zysk 10000 zł. No dobra. Ale jak pierwsza przyniesie zysk 20000 zł, a druga jakąkolwiek stratę to program też ma nam gratulować. Nie sądzę. My musimy zaznaczyć, że i jedna i druga ma być dochodowa i przynosić zysk pow. 5000 zł. Po polsku powiedzielibyśmy tak:
Jeżeli firma1 przyniesie zysk pow. 5000 i firma2 przyniesie zysk pow. 5000 zł to... gratulacje.
I tak właśnie będzie brzmiał Visual Basicowy język:
Dim x
IF txtfirma1 > 5000 and txtfirma2 > 5000 then
x = msgBox("Gratulacje",vbInformation,"Dochód")
End IF
Uruchom program i co? Wpisz obydwie dane pow. 5000. Otrzymujesz gratulacje. A zmień jedną z danych np. na 4000. Gratulacji już nie otrzymujemy. No więc program działa. Myślę, że już rozumiesz operator And. Jeśli tak, to nie będziesz mieć żadnych problemów z operatorem Or (lub). Spróbujmy zamienić w naszym programie and na or. Teraz rozumiemy to tak:
Jeżeli firma1 przyniesie zysk pow. 5000 lub firma2 przyniesie zysk pow. 5000 zł to... gratulacje.
Uruchamiamy program wpisujemy np. 6000 i 7000. I co? Gratulacje. Tutaj działa tak samo jak z And. No dobra. Zmieńmy jedną daną np. na 2000. I co? Także gratulacje. W tym przypadku program szuka w obydwu polach tekstowych liczby większej od 5000. Jeśli znajdzie jakąkolwiek (czyli w txtFirma1 lub txtFirma2 lub w obydwu) to otrzymujemy gratulacje. No też myślę, że nie miałeś z tym większych problemów. Został nam jeszcze operator Not. Nie powinniśmy go stosować -bo gdzieś wyczytałem, że może doprowadzić do nieoczekiwanych wyników - sam jednak nigdy z nim nie miałem problemów. Faktycznie, lepiej zastępuje się go odwrotną instrukcją do danej. Oto przykład.
Mamy jedną firmę która powinna przynosić dochody. Gratulacje możemy wyświetlić na dwa sposoby.
1. Operator NOT
Dim x
IF NOT txtFirma1 < 5000 then
x = msgBox("Gratulacje",vbInformation,"Dochód")
End IF
Jednak pisanie takich instrukcji jest bez sensu. Dlaczego ? Przetłumaczmy:
Jeśli dochód firmy1 NIE mniejszy niż 5000 to... gratulacje
Lepiej zapisać tak:
IF txtFirma1 >= 5000 then
Prawda, że bardziej czytelne. Staraj się nigdy niestosować tego operatora. Zawsze da się go zastąpić przez zmianę znaku na przeciwny.
Teraz jeszcze dopełnienie do InputBox-a. Zapomniałem Wam napisać, jak sprawić aby działał przycisk "Cancel" na InputBox-ie. Pokaże to na przykładzie z imieniem, który braliśmy na lekcji 6
Dim x,y as string
x = InputBox ("Jak masz na imię ?","Przywitanie","Może Marek...")
IF x = "" then end
y = MsgBox ("Witaj_" & x ,vbExclamation,"Przywitanie")
Wyjaśnienie do IF-a. Są tu pewnie dwie rzeczy których nie rozumiesz.
Po pierwsze. Dlaczego akurat x = "" ? Jeśli naciśniesz przycisk "Cancel" VB nie przypisuje nic do zmiennej x. Wykorzystuje to właśnie IF który kończy program w tym momencie.
Po drugie. Dlaczego po "then" nie zakończyłem linii i nie dałem instrukcji End IF.
Otóż, jeśli nie masz zamiaru użyć instrukcji Else, lub ElseIF, a twoja instrukcja warunkowa mieści się w jednej linijce. (jak np. moja - End) nie musisz rozpoczynać nowej linijki i co za tym idzie kończyć IF-a
Zastanawiałem się właśnie ile będzie tych lekcji. Z moich wyliczeń wynika, że nie mniej niż 50 !. Tak, tak ! To jest gorzka prawda. Visual Basic choć jest językiem programowania łatwym (czytaj najłatwiejszym), to jednak jego możliwości są bardzo duże. Te 50 lekcji to będą podstawy, a potem? Myślę, że potem będziemy mówić coś o bazach danych i API (o którym sam nie mam pojęcia - na razie). No dobra skupmy się jednak na dzisiejszej lekcji. Dowiesz się na niej coś o funkcji Select Case (Przypadek).
Funkcję Select Case zawsze można zastąpić funkcją IF - jednak funkcja Case ma dużo krótszy zapis. Pokażę to na przykładzie programu pytającego nas o wiek.
Uruchamiamy VB - tworzymy przycisk i dodajemy do niego kod:
Dim wiek As Currency
wiek = InputBox("Podaj swój wiek...", "Pytanie o wiek")
If wiek <= 0 Then
x = MsgBox("To jest niemożliwe", vbCritical, "Błąd")
ElseIf wiek < 11 Then
x = MsgBox("Mniej niż 11 - jeszcze dziecko", vbInformation, "Odp")
ElseIf wiek < 18 Then
x = MsgBox("Młodzież", vbInformation, "Odp")
ElseIf wiek < 40 Then
x = MsgBox("Dorosły do 40", vbInformation, "Odp")
ElseIf wiek = 100 then
x = MsgBox("Piękny wiek !!!", vbInformation, "Odp")
ElseIf wiek < 110 Then
x = MsgBox("Pełnia wieku...", vbInformation, "Odp")
Else
x = MsgBox("Niemożliwe !!!", vbCritical, "Błąd")
End If
Chyba wiecie o co tu chodzi. W tym kodzie są błędy - ktoś może mi zarzucić. Dlaczego. Kilka lekcji wcześniej pisałem, że nie można kilku MsgBoxom przypisać jednej zmiennej (tutaj x). Ale zauważmy, że program wykonuje zapis tylko raz do x. To przecież jest zależne od IF-a. Nie prawdaż ?
Instrukcja IF nie oferuje czegoś takiego jak przedziały. Tak np. nie możemy napisać instrukcji IF z przedziałem (np. od 20 do 70). Operujemy tylko operatorami (>,<,=,<=,>=,<>). Taki komfort daje nam za to funkcja Case. Teraz napiszemy ten sam program z użyciem właśnie tej funkcji:
Dim wiek As Currency
wiek = InputBox("Podaj swój wiek...", "Pytanie o wiek")
Select Case wiek
Case is < 0 : x=MsgBox("To jest niemożliwe", vbCritical, "Błąd")
Case 0 to 10: x= MsgBox("Mniej niż 11 - jeszcze dziecko", vbInformation, "Odp")
Case 10 to 18: x = MsgBox("Młodzież", vbInformation, "Odp")
Case 18 to 40: x = MsgBox("Dorosły do 40", vbInformation, "Odp")
Case 100: x = MsgBox("Piękny wiek (100) !!!", vbInformation, "Odp")
Case is <= 110: x = MsgBox("Pełnia wieku...", vbInformation, "Odp")
Case else: x = MsgBox("Niemożliwe !!!", vbCritical, "Błąd")
End Select
Uruchamiamy - i co? Działa tak samo ? No właśnie , tak ma działać. Program stał się dużo czytelniejszy, nie prawdaż ? No to teraz tłumaczę o co chodzi:
1. Dim - wiadomo, nakazujemy programowi pamiętać wiek
2.wiek=InputBox... - Pytanie o wiek, który zostaje zapisany do zmiennej wiek
3.W odróżnieniu od IF-a, Case należy zacząć - podajemy tutaj co będzie wchodziło w rachubę (w naszym przypadku wiek)
4.Jeśli mniejsze niż zero (oczywiście wiek) to MsgBox - "To jest niemożliwe..."
5.Jeśli od 0 do 10 to MsgBox - "Mniej niż..."
6,7 - tak samo
8. Jeśli 100 to MsgBox - "Piękny wiek"
9. Jeśli mniej niż 110 to MsgBox "Pełnia wieku..."
10 Case Else - Jeśli inaczej to MsgBox "Niemożliwe..."
11 End Select - Zakańczamy Case (Odpowiednik End IF)
Myślę, że wszyscy zrozumieli o co chodzi. I tutaj jedna uwaga - jeśli będziesz używał operatorów większy - mniejszy itp. to po instrukcji Case musisz dać słowo is - jednak nie przejmuj się tym zbytnio. Jeśli zapomnisz napisać tego słowa, VB zrobi to za ciebie (sprytne, nie? ;) ). Dwukropek jest odpowiednikiem If-owego Then. Tak więc instrukcja Case jest dużo bardziej uproszczona, chociaż ma większe możliwości niż IF.
Kiedy jej używać ? Wtedy gdy masz dużo rozpatrzeń do obsłużenia. Jak sam widziałeś na przykładzie - dużo szybciej i milej jest pisać program z Case. Jednak gdy masz tylko dwie opcje do rozpatrzenia to funkcja IF jest całkowicie wystarczająca...
Darmowy hosting zapewnia PRV.PL