Visual Basic Lekcje 20-30 jest, się, nie, jak, jeszcze, ale, teraz, program, jeśli, zwraca, , to, =, , w, do, i, na, z, jest, się, nie, co, 1, jak, jeszcze, ale, teraz, x, no, po, program, as, ma, jeśli, zwraca, a, +, plik, że, więc, vb, pliku, amp, quot, liczba, menu, for, od, tak, przycisk, np, funkcja, liczby, o, musimy, tam, expx, 2, chcemy, 0, go, pliki, tu, te, będzie, funkcji, ona, tym, funkcje, 100, będziemy, input, string, ndash, są, wyglądać, nam, coś, quotcmoje, start, mamy, dobra, klikamy, czyli, katalogoacutew, formie, my, narzędzi, aby, wpisujemy, tego, msgbox, może, raz, plikoacutew, wybieramy, tylko, bo, jakiś, nasz, wszystkie, katalogu, sam, ile, kod, sobie, za, niego, błąd, sqrx, n, zrobić, np x, pod, koniec, quotstonoga, lekcja, chyba, czas, już, funkcją, komunikat, nas, działa, otworzyć, ją, wynik, hyperbolic, ilość, gdy, znoacutew, liczbę, inne, nazwę, sprawa, okienko, lekcji, 4, argument, rozwijalne, datę, ci, caption, tutaj, liście, dodaj, dla, programy, znajduje, dziś, wam, nazwa, tekstowe, razie, ikonki, by, atnx, czy, noacutegquot y, pole, tej, jakąś, trochę, powinien, takiego, kliknij, timer, zastosować, visual, przycisku, miejsce, razem, paska, możemy, okno, prosta, kod dim, true, pasek, quotcdziecitxtquot, wyskoczy, ok, nbsp, katalog, windows, lista, dziecitxt, wyniku, nich, skoro, właśnie, 6, przed, thedate, dyskoacutew, przez, kolejne, katalogi, wszystko, mode, zajmiemy, linijkę, obok, kolejno, prawej, rnd, 3, także, insert, logx, kwadratu, ułoacuteż, usunie, listę, układamy, ktoacutere, basic, zmienna, powinno, odczytać, musisz, chodzi, informacji, być, quotnbspnbspnbspnbspnbspnbsp, będą, ze, formacie, vbnbspnbspnbspnbspnbsp, dane, 125, uruchom, dodać, chcieli, konwertuje, takie, można, wartość, je, 10, powiedziała, było, sek, opcji, programu, użyć, tą, funkcję, otwierać, odpowiedzi, wyświetli, umiemy, albo, jedynie, write, prawie, trzy, początku, quotcinfotxtquot, poacutełnocy, next, dokumentyindexdatquot, 1 open, eksplorator, podmenu, zmiennej, dopiero, zaś, dni, pierwszą, open, jednostek, zostać, rysunek, chcesz, shell, załadować, ten, napiszmy, grafikę, nasze, wiesz, picture, bardzo, goacutery, imiona, drugą, dziecko2, naszym, m, output, pamiętasz, potem, najpierw, pewnie, bzdety, dwoma, zaraz, pierwszy, zobacz, ściągawka, ich, widzisz, kliknięciu, zapamiętaj, secant, atn1 inverse, standardowo, dalej, częścią, chr, prawo, lewej, poszła, lekcje, testujące, kliknąć, myślę, tak dim, podaje, stronie, strzałka, expx hyperbolic, taki, sekcji, dlaczego, poziomu, przoacuted, lub, znaku, int6, mają, cosecant, 1 inverse, cosine, tak x, dodajemy, wpiszemy, dodajmy, stringu, cotangent, properties, mu, stosuje, goacuterę, e, sine, samej, kilka, 20-30, otwieramy, prostu, trudniejsze, quotbłądquot end, czegoś, zamknąć, close, pasku, rozwija, x close, zapisywać, użyjemy, uruchamiamy, dzieci, tworzymy, msgboxtxtliczba, pewne, imagelist, naszego, klawiszem, wszystkich, x dim, 1 no, tak zapamiętuj, jakieś, 2 odp, valtxtliczba, isempty, wolne, wpisz, więcej, myszy, powroacutet, etykietę, ekspolator, styl, zaznaczysz, dostępu, tzn, takiego dim, ścieżkę, trzeba, cudzysłowach, dzieckox, wiemy, ktoacuterą, jednej, button, potrzebny, następnej, działać, zostałby, przypisanie, zmienną, tablicy open, zapisu, 1 for, zapisany, inaczej, oto, date dim, losowa, wyglądało, 1 odp, następujący, wskaże, myślenia, wewnętrznym, też, sama, użyliśmy, dodawać, należy, x x, inputboxquotpodaj, logarytmu, potrafi, quotjednostkaquot, pozycje, helpa, dopoacuteki, licząc, x inverse, dopisać, 3 jeśli, oznacza, pyta, taka, pierwsze, itd, pobieramy, nad, sgnx, gdyż, ułoacuteżmy, datęquot odp, okienku, ktoacutery, 12, potrzebne, kod x, prawidłowej, dokładnie, linijce, czaspo, czasroznica, czasu, razy, pierwsza, until, dość, tangent, miesiace, mały, mi, wpisaną, wiadomo, zaokrągla, ucase, worda, spowoduje, x da, znakoacutew, widok, kota, ja, musieli, eof, kodu, nauczyć, chcę, imege, łańcucha, dwukrotnie, małe, wcześniej, u, right, lcase, taką, zmienia, przyciskami, bzdety kill, byśmy, dole, is, chr34, pewno, poradzisz, odczytu, jestem, przypadku, rozdzielczości, pierwszym, quotto, roacutewne, trim, ta, stringi, miejscu, łańcuchowe, usuwa, trzecią, edycja, was, zmienić, napisać, przydałoby, loadpicture, helpie, konwersji, jedna, pola, uwaga, samo, quotnbsp zwroacuteci, dziecko2 input, danych, ułamkową, domyślnie, informacji , robimy, ważna, tworzeniem, dwoacutech, porządkowym, kiedyś, całkowitej, daje, samym, numerem, listy, normalne, ustawić, ikonka, gdzieś, , stworzyliśmy, nim, dysk, zostaje, bez, imagea, posłużyć, wybierzemy, nic, oraz, używamy, usuwać, zamiast, tuquot, widzieć, ostatnich, tworzyć, tworzenia, mid, bzdura, dziecko3, open, bardziej, znaki, quotjestem, służy, tył, 127, int, numer, rysunku, obcina, np cint, numeryczny, wchodzimy, jako, fix, niż, zwykli, zobaczcie 1, komunikat i, polski, przepraszam, przetłumaczona, wyświetlił, poradzą, zakupiłeś, dalej psi, pirackiego, umieściłem, spytacie, tymi, większość, matematykoacutew, oni, założę, expx inverse, 7 7, hcotanx, stosować, y, secx, secant, lrtrim, quotprzerabiająquot, programik uruchom, argumentowi, żywcem, wyciągnąłem, logn bardzo, odpowiadający, ascii, numerycznemu, znak, lognx, chmm, skomplikowane, poradzić, harccotanx, harccosx, quot trochę, txtnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbspnbsp 2, być cała, musi, pogubił, chce, ojej, wyświetlić, l, dalejquot, base, 2 logarithm, wyskoczył, harcsinx, tablica, posiadasznbsp nbsp dziś, banał, napiszę, użyją, płytkę, sami, nigdy, nami, wyglądał, quoti, przychodzi, log1, harctanx, pomocą, logsqrx, 2 inverse, harcsecx, użytkownicynbsp, cosecx, stonoga, 2nbsp hyperbolic, hsinx, ma 4, począwszy, cotanx, argumentu, łańcuch, hcosx, 2 hyperbolic, noacutegquot 2, stringa, left, atn1 hyperbolic, htanx, hcosecx, hsecx, sinx cotangent, 96 zwroacutecinbsp, radianach, nm, zroacuteci, wyrażoną, plikiem, input , licząca, zadaniem ale, arcsinx, noacuteg 5, tanx inverse, nr, i, będączy, 7 zwroacutecinbsp, arcsecx, arccosx, 10 zwroacuteci, arccosecx, kroacutetka, lenstring, długość, r, znakascii, odwrotność, vbquotnbsp 8, asc, np x=, 6, quotstonogaquot y, lenx w, spacje, 9, znakiem, cosx cosecant, zarazem, losował, głowie, litera, quotnbsp zwroacutecinbsp, quot x, noacuteg zauważ, noacutegquot 3left, pierwszych, arccotanx, duże, randomize, x randomize x, vbquotnbsp x, każdym, robi, rtrim, ltrim, cotangensa, msgboxx a, wiodące, oktalny teraz, losowenbsp teraz, textboxa, błędoacutew, wyłącz, nazwijmy, nadaj, zroacuteb, txtliczba, obsługi, tłumaczył, ciąg, dalszy, tych, 65 funkcji, pomącił, będę, zaczynamy, bym, dwie, włącz, dodatniej, przypadek, odpowiedzią w, single, double, wynik oto, inne cint, otrzymujemy, to obliczenie, potęgi, zademonstruję, działanie, poprzednio, programie, druga, pewną, podnosił, pierwszych po, testują, stopnia, if po, liczby 10, vbcritical, przetłumaczeniu, polu, tekstowym, ntego, całkowita, proste, zasada, inna, odczyt, pojawi, msgboxie, dim, naciśnięciu, x jeśli, msgboxquotbłądquot, powtoacuterzyły, sprawdzał, quotpodnieś, kolejności, moacutewi, nadają, doskonale, jakbyś, kwadratuquot, isnumerictxtliczba, tangens, 1n 9tanliczba, x else odp, rozpoznać, wzoacuter x, then x, x if, dokładniejszy, tryb, niestety, 0 7sinliczba, np sqr9, pirata, napisz, nbsp a, 1 sng0, mnie, nigdzie, pierwiastki, przypadku błąd ok, najważniejsze, isnumeric, przeciwnym, dane 1, data 2, isdate, podeślę, sinus, cudzysłowie, przecinka, np y, drugim, logsgnx, vbikonka, jakaś, vbprzycisk, ascquotaquot zwroacuteci, funkcjach, kwadratowy, pierwiastek, liczby 8sqrliczba, podstawienia, zmienną no, testujących, tyle, liczba 3, then msgbox, część, naturalnego, liczby 6sngliczba, atn1, variant fix, powiesz, np 4, ułamkową hexliczba, cdbl, 17nbsp, było x, 17nbspnbsp, ujemnej, 1 sng29, np sng23, 0142857142857143 vb, 01428571 x, heksadecymalny oct, stringa cvar, istnieje mały, przykładik, malutki, wyliczać, isempty dim, if w, ponieważ, zmienna if, przykładzik, doacuteł, podstawa, liczby 4expliczba, pi 3cos, naturalnego 5log, cosinus, 12 cstr, 13 intx, harccosecx, string czasprzed, inbspnbsp, 12nbspnbspnbsp, same, masz, 12 połowicznie, mniejsze, 4 abs4, int125, przecież fix, arcuscotangens, przecinku int, 12nbspnbsp, dodatnia, większe, 4 abs0, rację, wtedy, 13nbspnbsp, shellquotcprogram, przykładzie uruchom, painta, 13 oczywiście, najważniejsze jeśli, np abs4, napisanego, msgboxquotzajęło, sekundquot przy, bezwzględną, uruchomić, abs, wciśnij, filesaccessoriesmspaintexe1 uruchom, pokażę, paint, ukazuje, dzieła 1, oczom, 0 2atn, zobacz fix, shellŚcieżka, shell x, poleceniu, okna Ścieżka, poznaliśmy, okno , wyświetlał, czasowe, oto, składnia, 1 , ukryte, uruchamianego, sensu , pytanie, sprawdź nbsp ostatnio, okna, wartości, tabelce, zmaksymalizowane , 2 , zminimalizowane , 4 , 6 , matematyczne, jedynka, niezaznaczone , 3 , zminimalizowane, pętle, 5nbsp nbsp co, to, okazji, przypomniałeś, zaznaczone , otwoacuter, 1201012000, prawda, windows po, czasprzed x, testu czasroznica, drzewo, końca, połączone, 72 czaspo, valodp, wyżej, właściwie, chciałem, oferuje, doskonalsze, zobrazować, iloczyn, wygląda jak, quot loop, wynosi, odp, quotile, inputbox, cdrom, wyświetlone, testu do odp, dzieje, tejże, płyty, dochodzi, timernbsp, zawartenbsp, pojawić, podnosi, bierzmy, drivelistbox, roboty uruchamiamy, single dimnbsp, list, czasprzed, szary, formularzu, zegarka, prostokącik, następne, drugiego, kreską, kropką, zrozumiesz na, żoacutełty, wybierać, 12010, katalogu oki, zmiany, sobą, lepiej, pociąga, elementu, zwraca, napędoacutew, wpisane, c, dysku, kod dir1, umieść, drive1 a, poacutelnocy, wyglądają, katalogi file1, 12000, dir1 uruchom, sekundzie, label, dopisz, nazwij, lblwynik teraz, oblicza, 0 , wybranego, dopisz lblwynik, zaczęliśmy, wyciągnąć, autoexecbat, ingerowały, quotżyciequot, ścieżka, ścieżki, dir1path spowoduje, żadnego, spędziliśmy, otrzymamy, quotquot, dir1path, wyświetlanie, aktualnej, pisaliśmy, innych, odejmiemy, dzieła dzisiaj, zapytania, wami, używana, tłumaczę, wszystko dimynbsp, zamyka, cautoexecbat nbsp zobaczymy, zostało, zadanie, zapisywaniem, była, wyjątkiem, dotąd, 5, najważniejsza, wybierając, rozwiązywaniu, uruchomiliśmy, quotckatalogplikrozquot, nbsp załoacuteżmy, output , dopisywanie, upłynęły, sekund, często, wskazuje, jakiegokolwiek, number co, najbezpieczniejsza, myśleliśmy, sekundy, edycją, poznać, rozwiązujemy, 1 coś, niemożliwe, otwartego, 126, porządkowa, zaczynamy pierwszą, oki, file1filename teraz, zadania no, wszystko jeśli, podaniu, append , możliwe, to open, 2 teraz, czyli open, napiszemy, nadpisywanie, number, now wyświetli, fora, południu zwroacuteci, aktualne, close jeśli, możliwa, close czy, 122354 9, instrukcja, skorzystać, 163517 10, piszemy close, zamykać, znowu, zwalnia, reprezentacja, godziny, sytuacja, 1 close, dzieci6nbspnbspnbsp, timeserial, zapisujący, napiszemy, zapisuje, pewnych, 35, podamy, file1, dir1 lblwynik, 17 , informacje, quotpiotruśquotnbspnbsp, dzieci1, tablice, quotmichałquot dzieci3, quotkasiaquot dzieci2, timeserial16, godzinę mytime, 1 tak, 43517, troje, 000615, 1nbspnbsp, 3nbsp, pliku for, michał tak, data 6now, funkcjami, imion open, aktualny, czas x, aktualną, drugi, tablica następnie, dziecix next, 111234 7time, dzieci write, zapisz, 2 for, kwartałoacutewquot x, 3 zapisz, liczbą, patrz, datepartquotqquot, zamykamy, wykorzystywać, msgboxtime zwroacuteci, porządkową, odp składnia datepart, naciśnij, i zamknij, piotrusia, powstało, 1 chmmm, kasia next, minęło, zepsujemy , czymś, data1, druga, nią, data2 5datepart, potrzebna, pisać, poważniejsze, będziecie, myślałem, dni składnia, gotowcanbsp poacuteki, datediff, usuwaj, podaję, ilości, stale, zmieniała, znamy, stringquot, 123456789876, musiałem, procedurę, powroacutet jeśli, rekordy, gotowej, tak czy, to odczytaj, zasadzie, koniec składnia, tablica100 open, eof eofnumer, pliku widać, datami dim, pętlę, doloop, 1 do, eof1, pusty, otwoacuterz, vartype, wiedzieć, jednym, znasz, zwroacuteci, zapisu oki, zapomniałem, literki, programiku, zapisanie, możesz, zapisać, np write, jakasliczba, jakasdata spowoduje, takich, informacji quot, single dim, problem, roki, powinieneś, odpnbsp thedate, popatrzmy, zobaczyć, klikając, zapisał, quotod, fajnie a, roku, stało, gdybyśmy, zapomnieli, plik, np dim, utworzony, byłby, przetłumaczyć, true input, składnię, wytłumaczyć, przyszłościową, identyczną, zauważyłeś, quotbędzie, tnie, przeanalizuj, inputboxquotpodzaj, wroacuteć, jednak, dajesz, dziecka, logicznego, rady, poprzedniej, zrozumieniem, leniwy, string open, krzyżyki, pomysł, nienbsp dobra, strzałki, niekiedy, zajebisty, wstawiam, itp, common, controls, one, dostępne, inputboxquotile, elementami, element, 60, microsoft, kolejnego, informacje nbsp postaramy, tablicę, pliku odczytuj, zapisuj, program zapisz, zachowa, false, między, elementową otwoacuterz, zauważ, sekundy , plik oki, miesiące 4datediff, tablicax loop close zobaczmy, tablicy kontynuuj zamknij, literału, s , przykładzie, odp uruchom, przetłumaczony dobra, dniquot x, uruchommy, dzieci10 open, odp zauważ, 121199 dobra, datediffquotdquot, jakoś, now, wyświetlenie, msgboxa, dziecix odp, msgboxdziecix next, msg thedate, 3 input, x close spowoduje, imieniem, trzykrotne, kiedy, if, ramce, itp zaczynamy, usuwania, tygodnie , słoneczkiem, końcu, ww , goacuterami, pliku dzisiaj, obraz, image, 1 input, picturebox, minuty , 1dziecko3 close działa, obiektem, dziecko2dziecko3 otwoacuterz, h , uzupełnienie, poziomie, kursie, data , q , zaawansowanym oki, kwartał , jednego, wyjaśnił, opiszę, name aby, edytować, lecjinbsp umiemy, miesięcy, nauczymy, czytać, etykiety, obrazeczek, goacuterze, zapisz, quotcdziecitxtquotnbspnbsp, graficzne, jednostka, dokumenty, rmdir, puste rmdir, roacuteżnicą, a dobra, palecie, sposoacuteb kill, umieszcza, weekendy , temu kill, stworzony, funkcji dateadd, dostajemy, odpowiedź składnia, quotcbzdetyquotnbsp, usunięcie, godziny , kill, quotcbzdetynbsp, n , danych zapisz, 1 i, drugą no, kaktusem, quotcbzdetyanbsp, dni , zaczynające, literę, d , quotcbzdetytxtquotnbspnbsp, w , tekstu, jej, zabrać, grupie, podkatalogi, razu, katalogu file, podfoldery, przenieść, żadnych, quotcpierdołyquot aby, quotcbzdetyquot, pozbycie, mamydocquot, mamydocquot aby, trudne, zmieniając, uniedogodnienia, wiedziałem, miesiąc , dokumentywysłany, danych dopoacuteki, number, tablica100 , zapisy, quotcplikrozquot, number for, 100000nbsp, większą, rozmiaru, tablicy wynik, vartypetablicax if, then, tablicax next, exit, for write, 1 jak, przerwie, pętla, d, quotcbzdetyquotnbsp niestety, usunąć, uwierzysz, metody, dyskunbsp nie, brakuje, dokumentach oki, dokumentypierdołyquotnbsp, mkdir, np mkdir, yyyy , zmieniania, dyskusyjnej, poznałem, pliku file, openclose, rok , nazw, przenoszenia, utworzenie, moich, zastosujmy, połączenie, komend kill, plikoacutew a, obsługuje, plikami, dokumentybachorytxtquot nbsp nbsppodobne, roku , quotcbzdetyquot rmdir, jego, dokumentydo, m , pierdoły, y , obu, poznanych, nazwę file, pomyśleć, mogłem, odp typdopisu, stretch, quotmquot datapoczatek, powyżej, popatrz, programach, rozmiar, dowolnie, uzyskamy, poprzez, większy, data, dateaddtypdopisu, graficzny, załadujemy, zmienienie, 800x200, yymmddquot miesiace, połowę, powstanie, mnuplikstart, ostatniej, poniżej, nadajemy, wolnym, mnuplik, mydate zwraca, 12 x, edytora, dateserial1969, zmieniamy, chwytamy, graficznych, krawędź, używasz, mydate mydate, przeglądarki, prostokąt, przerywanych, typdopisu, shellquotstart, start x, dokumentylistdocquot1 oki będziemy, cmoje, dokument, execoacutew, nadzwyczaj, pewnym, string dim, myślisz, zwykłe, on, pewnie, dokumentykotjpgquot , dopisujemy, pamiętasz, nauczysz, uruchamialiśmy, zdjęcie, misięcy, ułożyliśmy, 400x200, stworzyć, linii, quotnowa, graficznego, dodaćquot odp, zostanie, odpalanie, shellquotcmoje, napisałbyś, dokumentylistdocquot1 takiej, jaki, obcięty, ustalić, nazywamy, name, okienko nbsp chmmm, przytrzymując, control, rzeczą, podanej, dostaniemy, miesiące, daty, literkę, rozwijane, declare, variables dim, spoacutejrz, nazywać, datapoczatek, takiego nbsp menu, date, szybko, kontrolką, przedziału, stanie, całkiem, puki, pieprzynbsp można, x uruchamiamy, porządku, cały, słowo, otwarty, narzędzia, posłużymy, żadną, interesuje, edytor, datapoczatek x, tools, samą, ekranu, cyfry], mnuplikkoniec, tak ja, opcjami, kolejnymi, 2dateserial, dzień, wyskakuje, zrobiłem, miesiąc, 690212 3dateadd, interesować, rzeczy, mnucaption, mnuedycja, przecież, np dim, strzałeczkami, gdzie, kursu, zagadnienia, internet, stworzymy, grafikę oki, zobaczmy, rozwinąć, wstawię, explorer, nowy, 2x, nexta, ręcznie, nadal, strzałkę, duga, rzecz, podajemy, załadowany a, projektować, pokazuje, oglądasz, zagadnienie, me musisz, poćwiczyć, odpowiedni, unload, stronę, pory, prosto, wyłączył, rozwijana, najtrudniejszym, narzędzi nbsp dziś, zagadnieniem, dzisiejszą, lekcję, skomplikowana, index, operować, przedtem, sumie, godzinach 1, key, quotzszarzałequot, wyciąganie, wystarczyło, zwykłymi, studio, filesmicrosoft, troszeczkę, tak dobra, wystartowaniu, wykorzystać, osiągnąć, startem, przesuwamy, programik, wyskoczyło, stwoacuterzmy, kwadraciki, ściągawce, powstałego, klepsydrą, wygląda, basiciem, cprogram, obrazki, msgboxdate uruchamiamy, 17, images, zakładkę, wstawiać, poacuteźniej, prawtm, takim, strzałkami, głoacutewne, yymmddnbsp rok, pozycję, kolejną, mnuplikstartprzod, nazwie, edytorze, tak nbsp dobra, tak dobra, pokaże, przeglądarce, internetowej, klikniemy, tera, ukazało, przoacutedkoniec, keycdrom, wykonać, widzimy i, oczywiście, zakładki, buttons, mianowicie, prawym, toolbarze, pozycja, przechodzimy, wybrać, wyświetliło, mnoacutestwo, ikonek, ułoży, formy, imagelist1, rysunki, zostawmy, ojej, integer dim, tak image1picture, obrazka, polecenia, np image1picture, kodem, uruchomieniu, obiektowi, załadowania, dokumentykotjpgquot coŚ, zainteresuje, trzecia, nas, [dwie, ostatnie, niepoprawne, do, computer, dziedzinę, quotkeydyskietkaquot , itd end, select , integer select, msg, toolbarem, boacutej, dopisanie, cdromquot case, quotnacisnąłeś, dobrze, inną, czynność, czynienia, quotkeycdromquotnbsp msg, case, buttonkey case, jakiego, przycisku do, tak teraz, bierzemy, toolbar, cdrom01ico, dodajm, zainstalowane, commongraphicsicons, wybierzmy, starczy, mouse01ico, podświetlą, rozroacuteżniał, nazwach dim, dacie, keybrd02ico, pojawiła, disk04ico, msgboxx wystartuj,

Piątek 04 Kwiecień 2025r. Godz 00:00:00
Postów: 251

Visual Basic Lekcje 20-30

Visual Basic potrafi dobrze operować na godzinach:

1. Wyciąganie informacji o dacie - Stwórzmy mały programik, ułóżmy przycisk i dodajmy do niego kod:

x = MsgBox(Date)

Uruchamiamy. Program w okienku pokazuje dzisiejszą datę w formacie yy-mm-dd
(rok [dwie ostatnie cyfry]- miesiąc, dzień )

2.DateSerial zwraca w wewnętrznym formacie datę wpisaną przez nas ręcznie np.

Dim MyDate
MyDate = DateSerial(1969, 2, 12)
x = MsgBox (MyDate)

Zwraca to 69-02-12

3.DateAdd - potrafi dodawać do podanej daty miesiące dni itd: Zobaczmy jak to działa. Do przycisku dodajmy kod:

Dim DataPoczatek As Date ' Declare variables.
Dim TypDopisu As String
Dim Miesiace As Integer
Dim Odp
TypDopisu = "m"
DataPoczatek = InputBox("Podaj jakąś datę w formacie yy-mm-dd")
Miesiace = InputBox("Ile misięcy chcesz dodać")
Odp = "Nowa data: " & DateAdd(TypDopisu, Miesiace, DataPoczatek)
x = MsgBox (Odp)

Uruchom go. Program najpierw pyta nas o datę, potem ile miesięcy chcemy dodać, i w końcu dostajemy odpowiedź.
Składnia tej funkcji:

DateAdd (Jednostka, Ilość jednostek, Data)

Yyyy

Rok

Q

Kwartał

M

Miesiąc

Y

Dni w roku

D

Dni

W

Weekendy

Ww

Tygodnie

H

Godziny

N

Minuty

S

Sekundy

Zauważ, że w naszym przykładzie użyliśmy literału m - czyli miesiące

4.DateDiff - zwraca ilość jednostek czasu między dwoma datami

Dim TheDate As Date
Dim Msg
TheDate = InputBox("Podzaj jakąś przyszłościową datę")
Odp = "Będzie to za: " & DateDiff("d", Now, TheDate) & " dni."
x = MsgBox (Odp)

Zauważ w tym programiku w linijce 4, że użyliśmy literki d co oznacza ilość dni.

Składnia :
DateDiff ("jednostka", data1, data2)

5.DatePart - zwraca ilość jednostek licząc od początku roku. np.

Dim TheDate As Date
Dim Odp
TheDate = InputBox("Podaj datę:")
Odp = "Od początku roki minęło: " & DatePart("q", TheDate) & " kwartałów"
x = MsgBox (Odp)

Składnia:
DatePart ("jednostka", data)

6.Now - zwraca aktualną datę i czas

x = MsgBox (Now)

wyświetli to np. 00-06-15 11:12:34

7.Time - zwraca aktualny czas np.

x = msgBox(Time)

zwróci to np. 12:23:54

9. TimeSerial - zwraca w wewnętrznym formacie godzinę

MyTime = TimeSerial(16, 35, 17)
' Reprezentacja godziny 4:35:17 po południu.

Zwróci to 16:35:17

10. Timer - tą funkcją zajmiemy się trochę dokładnie, gdyż jest ona używana dość często. Zwraca ona ilość sekund które upłynęły od północy. No, ale po ci mi to ma być potrzebne ?

Napiszemy program który pyta się nas ile to jest 12*6. Po podaniu prawidłowej odpowiedzi program wyświetli komunikat ile myśleliśmy nad tym zadaniem...
Ale po co tu funkcja licząca sekundy od północy ?
Załóżmy, że uruchomiliśmy program dokładnie o północy - funkcja timer wskazuje 0. Rozwiązujemy zadanie 10 sek, funkcja timer wskaże 10 sek. Jeśli teraz odejmiemy czas odpowiedzi od czasu zapytania otrzymamy czas ile spędziliśmy na rozwiązywaniu zadania.
No dobra - inaczej. Zaczęliśmy w 12000 sekundzie od pólnocy, po 10 sek timer wskaże 12010 czyli 12010-12000 = 10 sek (myślenia). Napiszmy program - może lepiej to zrozumiesz:

Na formularzu umieść przycisk i dodaj do niego kod:

Dim CzasPrzed, CzasPo, CzasRoznica as Single
Dim Odp as string
CzasPrzed = Timer ' Pobieramy czas początku testu
Do
Odp = InputBox ("Ile wynosi iloczyn 12 i 6 ?")
Loop Until Val(Odp) = 72
CzasPo = Timer '' Pobieramy czas końca testu
CzasRoznica = CzasPo - CzasPrzed
x = MsgBox("Zajęło ci to: " & CzasRoznica & " sekund")

Przy okazji przypomniałeś sobie pętle. Program będzie wyświetlał pytanie dopóki nie podamy prawidłowej odpowiedzi. Potem oblicza czas i podaje wynik. Uruchom program i sam sprawdź...

Ostatnio poznaliśmy funkcje czasowe - dziś czas na funkcje matematyczne. Do dzieła

1. Abs (liczba) - zwraca wartość bezwzględną z liczby np:

Abs(4) = 4
Abs(-4) = 4
Abs(0) = 0

2.Atn (liczba) - zwraca wartość arcusCotangens liczby wyrażoną w radianach np.

4 * Atn(1) = pi

3.Cos (liczba) - zwraca cosinus z liczby

4.Exp(liczba) - e ^ liczba ; e - podstawa logarytmu naturalnego

5.Log (liczba) - zwraca wartość logarytmu naturalnego z liczby

6.Sng(liczba) - Dla liczby dodatniej zwraca 1, dla ujemnej -1, a dla 0 - 0 np.

Sng(23) = 1
Sng(-29) = -1
Sng(0) = 0

7.Sin(liczba) - zwraca sinus z liczby

8.Sqr(liczba) - zwraca pierwiastek kwadratowy z liczby np.

Sqr(9) = 3

Jeśli chcesz wyliczać pierwiastki n-tego stopnia z liczby x to musisz zastosować wzór:
x ^ (1/n)

9.Tan(liczba) - zwraca tangens liczby

10. INT((6 * RND) + 1) - całkowita liczba losowa z przedziału od 1 do 6. No może nie całkiem losowa - sam zobacz. Uruchom VB, na formie ułóż przycisk i dodaj do niego następujący kod:

Dim x
x = INT((6 * RND) + 1)
odp = MsgBox(x)

Wystartuj program. Po naciśnięciu przycisku pojawi się pierwsza liczba - zapamiętaj ją. Teraz OK i jeszcze raz kliknij na przycisk - tym razem inna (chyba) liczba, także ją zapamiętaj. Zrób tak jeszcze kilka razy (zapamiętaj tylko te dwie pierwsze). No i co ? Są liczby losowe.
Teraz wyłącz program i włącz go jeszcze raz. Kliknij na przycisk - pierwsza liczba jest taka sama jak poprzednio. Druga też... Jakbyś sprawdzał dalej to wszystkie by się powtórzyły w tej samej kolejności. Nie będę tłumaczył dlaczego bo tylko bym Wam pomącił w głowie. Aby VB za każdym razem losował inne liczby należy przed funkcją RND dopisać Randomize, będzie to wyglądało tak:

Dim x
Randomize
x = INT((6 * RND) + 1)
odp = MsgBox(x)

A jak np. zrobić Cotangensa z liczby ? Oto krótka ściągawka :

Secant Sec(X) = 1 / Cos(X)
Cosecant Cosec(X) = 1 / Sin(X)
Cotangent Cotan(X) = 1 / Tan(X)
Inverse Sine Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) – 1) * (2 * Atn(1))
Inverse Cosecant Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) – 1) * (2 * Atn(1))
Inverse Cotangent Arccotan(X) = Atn(X) + 2 * Atn(1)
Hyperbolic Sine HSin(X) = (Exp(X) – Exp(-X)) / 2
Hyperbolic Cosine HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent HTan(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant HCosec(X) = 2 / (Exp(X) – Exp(-X))
Hyperbolic Cotangent HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X))
Inverse Hyperbolic Sine HArcsin(X) = Log(X + Sqr(X * X + 1))
Inverse Hyperbolic Cosine HArccos(X) = Log(X + Sqr(X * X – 1))
Inverse Hyperbolic Tangent HArctan(X) = Log((1 + X) / (1 – X)) / 2
Inverse Hyperbolic Secant HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
Inverse Hyperbolic Cotangent HArccotan(X) = Log((X + 1) / (X – 1)) / 2
Logarithm to base N LogN(X) = Log(X) / Log(N)

Bardzo przepraszam, że ściągawka jest nie przetłumaczona na polski. Wyciągnąłem ją żywcem z Helpa. Myślę, że zwykli użytkownicy nigdy ich nie użyją - jest to dla matematyków (oni już sobie poradzą z tymi funkcjami). Pewnie spytacie po co to tu umieściłem. Skoro jest w helpie... Założę się, że większość z Was ma pirackiego VB. Jeśli zakupiłeś 1 płytkę VB 6 to na pewno Helpa nie posiadasz.

Dziś przed nami funkcje łańcuchowe. Co to są funkcje łańcuchowe? Są to funkcje które "przerabiają" stringi. Sami zobaczcie:

1. Chr (liczba) - zwraca znak ASCII odpowiadający numerycznemu argumentowi. O co tu chodzi i po co to stosować. Napiszmy mały programik:

Uruchom VB - na formie ułóż przycisk. Teraz musimy dodać taki kod, aby wyświetlił się komunikat:
I powiedziała "Jestem tu" i poszła dalej

Psi. Banał - napiszę tak:

x = msgbox (" I powiedziała "Jestem tu" i poszła dalej" )

Ojej ! Wyskoczył jakiś błąd - co jest. VB się pogubił! Dlaczego. VB chce wyświetlić komunikat :
I powiedziała , ale po drugim cudzysłowie nie ma przecinka i zamiast vbPrzycisk czy vbikonka jest jakaś bzdura ! Chmm co by na to poradzić ? Tutaj z pomocą przychodzi nam funkcja Chr - nasz program będzie wyglądał tak:

x = msgbox ( "I powiedziała " & chr(34) & " Jestem tu " & chr(34) & " i poszła dalej ")

Trochę bardziej skomplikowane - ale tak musi być

Cała tablica w pliku txt

2. LCase (string) - zmienia wszystkie znaki w stringu na małe np:

x = "Stonoga Ma 100 nóg"
y = LCase (x)

Da w wyniku "stonoga ma 100 nóg"

2. UCase - zmienia wszystkie znaki w stringu na duże np.

x = "Stonoga Ma 100 nóg"
y = UCase (x)

Da w wyniku "STONOGA MA 100 NÓG"

3.Left (string, n) - zwraca n pierwszych znaków łańcucha (stringa) np.

x = "Stonoga Ma 100 nóg"
y = Left (x, 10)

Zwróci to - Stonoga Ma

4. Right (string, n) - zwraca n ostatnich znaków łańcucha np.

x = "Stonoga Ma 100 nóg"
y = Right (x, 7)

Zwróci - 100 nóg

5. Mid (string, n,m) - zróci będączy częścią argumentu łańcuch począwszy od znaku numer n do znaku nr. m (licząc od n !) np.

x = "Stonoga Ma 100 nóg"
y = Mid (x, 9,6)

Zwróci - 100 nóg

Zauważ, że litera M jest zarazem znakiem 9 jak i pierwszym !!!

6. Len(string) - zwraca długość stringu np.

x= "Stonoga"
y = Len(x)

W tym przypadku y = 7

7. (L),(R)Trim - usuwa spacje wiodące - L z lewej, R z prawej, samo Trim i z lewej i z prawej np

x = Ltrim (" to jest lekcja VB ")
zwróci "to jest lekcja VB "

x = Rtrim (" to jest lekcja VB ")
zwróci " to jest lekcja VB"

x = trim (" to jest lekcja VB ")
zwróci "to jest lekcja VB"

8. ASC (znakASCII) - odwrotność funkcji Chr - czyli ze znaku robi liczbę np

y = Asc("A")
zwróci liczbę 65

Funkcji ciąg dalszy. Dziś funkcje testujące dane i funkcje konwersji danych. Zaczynamy od tych pierwszych.
Po co się je stosuje ? Jak sama nazwa mówi coś testują, ale co ? Nadają się doskonale do obsługi błędów w naszym programie. Zademonstruję działanie jednej z nich. Napiszmy program który będzie podnosił do potęgi pewną liczbę którą wpiszemy w okienko tekstowe. Tak więc uruchamiamy VB - dodajemy textbox-a nazwijmy go txtLiczba. Teraz jeszcze przycisk - jako etykietę nadaj mu "Podnieś do kwadratu". OK. Zasada jest prosta - po kliknięciu na przycisk podnosi do kwadratu liczbę wpisaną w okienko, a wynik podaje w MsgBox-ie. Proste nie ?

Dim x
x = Val(txtLiczba) ^ 2
odp = MsgBox(txtliczba & " do kwadratu to " & x)

Uruchamiamy program - w okienko tekstowe wpisujemy jakąś liczbę i działa. No dobra, ale co się stanie gdy w okienko tekstowe wpiszemy jakieś słowo np. Visual Basic. Wyskoczy nam komunikat, że Visual Basic do kwadratu to 0. Co za bzdura !!!. Puki wpisujemy liczby to wszystko jest w porządku, a gdy jakiś string to cały program się pieprzy.
Można by zastosować coś takiego, że gdy w pole tekstowe wpiszemy jakiś string to program wyświetli komunikat, że błąd. No ale jak VB ma rozpoznać czy to string czy liczba ? Po to właśnie są funkcje testujące dane. Nasz program teraz powinien wyglądać tak:

Dim x
If IsNumeric(txtliczba) Then
x = Val(txtliczba) ^ 2
odp = MsgBox(txtliczba & " do kwadratu to " & x)
Else
odp = MsgBox("Błąd", vbCritical, "Błąd")
End If

Po przetłumaczeniu będzie to wyglądało tak:

Zapamiętuj x
Jeśli to co w polu tekstowym to liczba to...
Obliczenie + Komunikat z odpowiedzią
W przeciwnym przypadku
Błąd

OK. Oto najważniejsze funkcje testujące dane:

1. IsDate (string) - zwraca true jeśli data
2. IsNumeric (string) - zwraca true jeśli liczba
3. IsEmpty (zmienna) - zwraca True jeśli zmienna nie istnieje

Mały przykładik do IsEmpty

Dim zmienna
If IsEmpty (zmienna) Then
MsgBox ("Błąd")
End If

W tym przypadku wyskoczy komunikat Błąd ponieważ nigdzie nie mamy podstawienia czegoś pod zmienną.

No dobra - to tyle o funkcjach testujących dane - więcej w helpie (ci co mają pirata to niestety, ale jeśli Ci te funkcje będą potrzebne to napisz do mnie, a ci je podeślę ...)

A te po co się stosuje ? Znów malutki przykładzik: (chyba to już kiedyś było...)

x = 1/7 'daje to w wyniku 0,1428571
x = CDbl (1/7) 'daje w wyniku 0,142857142857143

VB domyślnie stosuje tryb Single - pierwszy przypadek. Po konwersji na Double otrzymujemy dokładniejszy wynik...

Oto inne:

Cint (x) - Zaokrągla w górę argument z częścią ułamkową do liczby całkowitej np.
Cint (12,7) = 13

Int(x) - Zaokrągla w dół argument z częścią ułamkową do liczby całkowitej np.
Cint (12,7) = 12

CStr (x) - Konwertuje argument na stringa

CVar (x) - Konwertuje argument na Variant

Fix (liczba) - Obcina część ułamkową

Hex(liczba) - Konwertuje numeryczny argument na heksadecymalny

Oct (liczba) - Konwertuje numeryczny argument na oktalny

Teraz pewnie powiesz, że Fix i Int to te same funkcje. Bo przecież:
Fix (12,5) = 12 i Int(12,5) = 12
Połowicznie masz rację. Fix = Int tylko wtedy gdy liczba jest dodatnia lub 0. Ale zobacz:

Fix (- 12,5) = -12 ' Bo obcina to co jest po przecinku
Int (-12,5) = -13 'Bo -12 było by większe niż -12,5, a ma być mniejsze - więc -13

Oczywiście funkcji jest więcej, ale te są najważniejsze...

Jeśli chcemy np. uruchomić Painta z poziomu programu napisanego przez nas musimy użyć funkcji shell. Pokażę to na przykładzie.
Uruchom VB, ułóż przycisk i dodaj do niego kod:

x = shell("C:Program FilesAccessoriesMspaint.exe,1)

Uruchom program i wciśnij przycisk - naszym oczom ukazuje się paint. No dobra, ale co oznacza ta jedynka w poleceniu ?
Oto składnia funkcji Shell:

x = Shell(Ścieżka dostępu, styl okna)

Ścieżka dostępu to wiadomo co , a styl okna ?

0

Okno uruchamianego programu zostaje ukryte (trochę bez sensu)

1

Normalne okno

2

Okno zminimalizowane

3

Okno zmaksymalizowane

4

Normalne okno niezaznaczone

6

Zminimalizowane okno nie zaznaczone

To nie błąd - w tabelce nie ma wartości 5.

Co to są te listy ? Otwór eksplorator windows - Start - Programy - Eksplorator Windows
Po lewej stronie widzisz drzewo katalogów - właśnie to jest lista katalogów, Lista plików jest po prawej stronie, a lista dysków wyżej. Właściwie to co oferuje Eksplorator jest trochę doskonalsze od list w VB - ale chciałem wam tylko zobrazować jak to wygląda.

Jak to ma działać ? Po pierwsze mamy listę dysków i katalogów. Ma to zostać tak połączone, że gdy w liście dysków wybierzemy dysk np CD-ROM to w liście katalogów mają zostać wyświetlone katalogi z tejże płyty. Jeszcze do tego dochodzi lista plików. Jeśli wybierzemy jakiś katalog - mają się pojawić pliki w nim zawarte. Bierzmy się do roboty:

Uruchamiamy VB i kolejno na formie układamy - Listę dysków (DriveListBox - ikonka znajduje się obok ikonki zegarka - To ten szary prostokącik z kreską i kropką. Następne listę katalogów, (ikonka - żółty katalog), oraz listę plików, to zaraz obok ikonki katalogu.
OKi. Mamy wszystko - uruchamiamy program, no ale to jeszcze nie działa. Co prawda możemy sobie coś tam wybierać, ale nie pociąga to za sobą zmiany drugiego elementu. Musimy dodać kod. W liście napędów (domyślnie wpisane jest tam C oraz nazwa dysku) dodaj kod:

Dir1 = Drive1

A w liście katalogów (chyba wiesz jak wyglądają katalogi):

File1 = Dir1

Uruchom program. Teraz powinno wszystko działać. No dobra, ale co to zwraca ?
Zwraca to ścieżkę do pliku. Jak ? Ułóż na formie jeszcze Etykietę (Label) i nazwij ją lblWynik.
Teraz do listy katalogów dopisz jeszcze (pod File1 = Dir1):

lblWynik = Dir1.Path

Spowoduje to wyświetlanie się aktualnej ścieżki do pliku. Ale można jeszcze wyciągnąć nazwę wybranego pliku. W liście plików dopisz:

lblWynik = Dir1.Path & "" & File1.FileName

Teraz wszystko działa jak trzeba - no może nie wszystko...

Jeśli zaznaczysz dysk nie wybierając żadnego katalogu i zaznaczysz jakiś plik np. Autoexec.bat to wyświetli się ścieżka :

c:autoexec.bat

Zobaczymy - jeszcze zostało 5 lekcji - a więc do dzieła:

Dzisiaj przed Wami bardzo ważna (jak nie najważniejsza) lekcja. Jak dotąd pisaliśmy programy, które nie ingerowały w "życie" innych. No może funkcja Shell była wyjątkiem. Dziś zajmiemy się tworzeniem plików i zapisywaniem do nich informacji. OKi. Zaczynamy...

Pierwszą funkcją którą musisz poznać jest Open. Przed edycją jakiegokolwiek pliku musimy go najpierw otworzyć. Jak ?

Open "C:katalogplik.roz" for Mode as # number

Co to jest ten Mode ? W mode wpisujemy to co będziemy chcieli zrobić z plikiem :

Input

Jedynie odczyt danych (najbezpieczniejsza funkcja bo nic nie zepsujemy)

Output

Dopisywanie do pliku informacji

Append

Nadpisywanie informacji

Number to zaś liczba porządkowa otwartego pliku. Nie możemy otworzyć dwóch plików z tym samym numerem porządkowym !!! Czyli:

Open "C:moje dokumentyindex.dat" for input as #1
Open "C:info.txt" for input as #1

Coś takiego jest niemożliwe ! Możliwe jest za to:

Open "C:moje dokumentyindex.dat" for input as #1
Open "C:info.txt" for input as #2

Teraz funkcja Close. Ona zamyka pliki. Czyli jeśli użyjemy funkcji Open to także musimy użyć funkcji close.
Jeśli chcemy zamknąć plik z numerem porządkowym 3 to piszemy:

Close 3

Jeśli chcemy zaś zamknąć wszystkie aktualne pliki to po prostu wpisujemy close.
Czy więc teraz jest możliwa taka sytuacja ?

Open "C:moje dokumentyindex.dat" for input as #1
Close 1
Open "C:info.txt" for input as #1

TAK ! Otwieramy plik z #1 - zamykamy go (teraz #1 się zwalnia), no i znowu możemy otworzyć plik z #1

No dobra, ale po co tak otwierać i zamykać pliki ? Po to aby można było z nich skorzystać !!!

Instrukcja ta zapisuje do pliku pewne informacje. Jak ? Napiszemy teraz program zapisujący do pliku imiona pewnych dzieci. Otwieramy więc VB - tworzymy przycisk i dodajemy kod:

Dim x
Dim dzieci(6)    'Pamiętasz tablice ?
dzieci(1) = "Kasia"
dzieci(2) = "Michał"
dzieci(3) = "Piotruś"   'Nie musimy wykorzystywać wszystkich 6 imion
Open "C:dzieci.txt" for Output as #1   'Output bo będziemy zapisywać do pliku
For x = 1 to 3 'Bo mamy troje dzieci
Write #1, dzieci(x)
Next x
Close 1

No, no, no. Co to jest ! Tłumaczę wszystko:

Dim-y - to chyba wiadomo, pierwszy (x) to zmienna dla For-a, a drugi to tablica
Następnie przypisanie dzieci do tablicy
Open - tutaj zostaje otwarty plik do zapisu z liczbą porządkową #1
For - Od x = 1 do 3
Zapisz do #1 zmienną dziecko(x); teraz x = 1 (patrz FOR) a więc Kasia
Next - powrót do for ale x = 2
For ...
Zapisz do #2 zmienną dziecko(x); teraz x = 2 a więc Michał...
Tak jeszcze przez Piotrusia i
Zamknij plik #1

Chmmm. I co to z tego powstało ? Uruchom program i naciśnij przycisk. Nic się nie dzieje... No tak, ale to ma stworzyć tylko plik... Popatrzmy. Uruchom Ekspolator Windows. Start - Programy - Ekspolator Windows. Po prawej stronie powinieneś zobaczyć plik dzieci.txt. Otwórz go klikając na niego. Jest !!! Zapisał tam 3 imiona - ale dlaczego w cudzysłowach ? Jak może pamiętasz w VB stringi podaje się w cudzysłowach, liczby bez. No fajnie.
A co by się stało gdybyśmy zapomnieli użyć funkcji Close ?
Plik nie zostałby zapisany - a więc zostałby utworzony (funkcja Open as Output), ale nie zapisany - byłby więc pusty... NIE USUWAJ GO NA RAZIE !!! - plik będzie nam potrzebny w następnej lekcji !!!

Druga sprawa - będzie wam potrzebna jak będziecie pisać poważniejsze programy. Sam nad nią myślałem kilka dni - Wam podaję gotowca.
Póki wiemy ile jest informacji do zapisu sprawa jest prosta (For x = 1 to ilość). A jeśli ilości nie znamy ? Albo będzie się ona stale zmieniała ? Tu jest problem ! Musimy zastosować coś takiego:

Dim x, wynik as single
Dim tablica(100)
... - tutaj np. zapisy do tablicy
Open "C:plik.roz" for Mode as # number
For x = 1 to 100000 'wpisujemy jakąś liczbę większą od rozmiaru tablicy
wynik = VarType(tablica(x))
If wynik = 0 then Exit For
Write # number, tablica(x)
Next x
Close 1

Jak to działa. Pętla For - Next przerwie się jeśli wynik = 0 (IF wynik = 0 ...). A kiedy będzie 0 ? Nie znasz jeszcze funkcji VarType. Musisz wiedzieć jedynie, że zwraca ona pewne liczby. Jeśli zwróci 0 to błąd. Czyli - jeśli błąd do koniec zapisu...

OKi. Zapomniałem napisać o jeszcze jednym. Funkcją write możesz zapisać kilka informacji w jednej linijce np.

Write #1, string, jakasliczba, jakasdata

Spowoduje to np. zapisanie do pliku takich informacji:

" To jest jakiś string", 123456789876, #12-11-99#

Dobra, skoro umiemy już zapisywać to przydałoby się odczytać jakoś te informacje.

Postaramy się odczytać trzy imiona z pliku dzieci.txt. Jak ? Uruchommy VB i na formie ułóżmy przycisk - dodajmy do niego kod:

Dim x
Dim dzieci(10)
Open "C:dzieci.txt" for input as #1
For x = 1 to 3
Input #1, dzieci(x)
odp = MsgBox(dzieci(x))
Next x
Close

Spowoduje to trzykrotne wyświetlenie się MsgBox-a z imieniem kolejnego dziecka. Jak może zauważyłeś funkcja Input ma identyczną składnię jak Write. Sam przeanalizuj kod. To tnie o to chodzi, że jestem leniwy i nie chcę Wam wytłumaczyć. Ja chcę Was nauczyć logicznego myślenia. Jeśli jednak nie dajesz sobie rady ze zrozumieniem kodu to wróć do poprzedniej lekcji. Tam znajduje się prawie taki sam i przetłumaczony.

Dobra - ale jeśli chcemy odczytać wszystkie rekordy z pliku, ale nie wiemy ile ich jest? Tym razem jest trochę inaczej niż z funkcją Write . Tam musiałem napisać procedurę - tutaj użyjemy gotowej funkcji EOF. Działa ona na zasadzie (tak też ją można przetłumaczyć) - czy jest jeszcze coś w pliku ? Czyli nasz program ma wyglądać tak:

Czy jest jeszcze coś w pliku ? Jeśli tak to...
Odczytaj i powrót
Jeśli nie to koniec

Składnia funkcji EOF
EOF(numer pliku)

Widać, że będziemy tu musieli zastosować pętlę DO-LOOP. Kod ma wyglądać tak:

Dim tablica(100)
Open "c:dzieci.txt" for input as #1
Do Until EOF(1) = True
Input #1, tablica(x)
Loop
Close

Zobaczmy jak zachowa się nasz program.

Zapisz tablicę 100 - elementową
Otwórz plik dzieci.txt do odczytu danych
Dopóki EOF nie równe True czyli równe False !!! (czyli dopóki nie koniec pliku)
Odczytuj i zapisuj do tablicy
Kontynuuj
Zamknij plik

OKi. Myślę, że sobie poradzisz. Jeszcze jedna ważna sprawa. Co zrobić gdy chcesz odczytać jedynie drugą i trzecią linijkę pliku dzieci.txt ? Musisz zastosować coś takiego:

Dim dziecko2, dziecko3 as string
Open "c:dzieci.txt" for input as #1
Input #1, dziecko2
Input #1, dziecko2
Input #1,dziecko3
Close

Działa to tak:
Zapamiętuj dziecko2,dziecko3
Otwórz plik do odczytu danych
Zapisz do zmiennej dziecko2 pierwszą linijkę pliku #1. Nam chodzi o drugą.
No to jeszcze raz zapisz do zmiennej dziecko2 drugą linijkę pliku #1
I do zmiennej dziecko3 trzecią linijkę pliku.

Dzisiaj jeszcze uzupełnienie do ostatnich dwóch lecji.
Umiemy już otwierać pliki, edytować je, czytać z nich dane. Dziś nauczymy się usuwać pliki, katalogi itp.

Zaczynamy od usuwania plików. Służy do tego funkcja kill. Używamy jej w następujący sposób:

Kill "C:dzieci.txt" ' Usunie ona plik stworzony 2 lekcje temu
Kill "C:Bzdety*.* 'Usunie wszystkie pliki z katalogu Bzdety
Kill "C:bzdety*.txt" ' Usunie wszystkie dokumenty tekstowe z katalogu bzdety
Kill "C:bzdetyA*.* 'Usunie wszystkie pliki z katalogu bzdety zaczynające się na literę a

Dobra - teraz funkcja RmDir - usuwa ona katalogi (puste).

RmDir "C:bzdety" 'Spowoduje usunięcie katalogu bzdety jeśli nie ma w nim żadnych plików

A jeśli byśmy chcieli usunąć katalog z plikami ? Zastosujmy połączenie obu wcześniej poznanych komend:

Kill "C:bzdety*.*"
RmDir "C:bzdety"

Niestety, jeśli w katalogu bzdety będą jakieś podkatalogi (podfoldery), to wyskoczy błąd. Pozbycie się tego uniedogodnienia jest bardzo trudne. Sam nie wiedziałem jak się za taką funkcję zabrać. Dopiero na grupie dyskusyjnej poznałem takiego jednego co mi to wyjaśnił. Funkcję opiszę dopiero w kursie na poziomie zaawansowanym.

OKi. Skoro umiemy usuwać pliki i katalogi, umiemy tworzyć pliki (Funkcją Open-Close) to przydałoby się nauczyć tworzenia katalogów. Służy do tego funkcja MkDir np:

MkDir "C:Moje dokumentypierdoły" 'Spowoduje utworzenie katalogu pierdoły w Moich dokumentach

OKi. Czegoś jeszcze brakuje? Tak zmieniania nazw plików, katalogów i przenoszenia ich w inne miejsce na dysku.
Nie uwierzysz, ale te trzy metody obsługuje jedna funkcja - Name.

Aby zmienić nazwę pliku:
File "C:Moje dokumentyDo mamy.doc" as "C:Moje dokumentyWysłany do mamy.doc"

Aby zmienić nazwę katalogu:
File "C:Bzdety" as "C:Pierdoły"

Aby przenieść plik w inne miejsce (od razu zmieniając jego nazwę)
File "C:dzieci.txt" as "C:Moje dokumentybachory.txt"

Podobne jest do Etykiety, z taką różnicą, że zamiast tekstu umieszcza się tam grafikę. Takie pole graficzne znajduje się na palecie narzędzi prawie na samym dole. To taki obrazeczek z górami i słoneczkiem w ramce. U samej góry znajduje się jakiś obraz z kaktusem. Ale nie o to nam chodzi. To co jest na górze to PictureBox - my zajmiemy się obiektem Image (ten na dole). Wybieramy go więc i układamy gdzieś na formie. Co to ? Jakiś prostokąt z przerywanych linii. To jest właśnie to ! Teraz w to pole możemy załadować grafikę ! Teraz uwaga. Jeśli załadujemy plik graficzny większy od pola graficznego to rysunek zostanie obcięty. Czyli np. na formie ułożyliśmy Image-a o rozdzielczości 400x200. My zaś chcemy załadować zdjęcie kota o rozdzielczości 800x200. I co nam z tego powstanie ? Będziemy widzieć albo pierwszą połowę kota, albo drugą. My chcemy zrobić coś takiego jak w programach graficznych. Chwytamy za krawędź i zmieniamy rozmiar dowolnie. W VB uzyskamy to poprzez zmienienie opcji Image-a - Stretch na True. Popatrz powyżej tej opcji. Mamy tam funkcję Picture. Tu możemy ustalić jaki rysunek ma zostać załadowany.

A co jeśli chcemy załadować rysunek kodem. Np. po uruchomieniu programu podajemy mu ścieżkę do pliku a on to ma otworzyć ?
Pewnie myślisz, że jest to zwykłe przypisanie opcji obiektowi jak np.
Image1.picture = "C:Moje dokumentykot.jpg"

COŚ TAKIEGO JEST NIEPOPRAWNE !!!

Do załadowania obrazka musimy użyć polecenia LoadPicture. Nasz kod więc powinien wyglądać tak:

Image1.picture = LoadPicture "C:Moje dokumentykot.jpg"

-------------------------------------- SHELL jeszcze raz --------------------------------------

Pamiętasz jeszcze jak uruchamialiśmy programy z poziomu VB ? No dobra, dziś jeszcze nauczysz się otwierać inne pliki. Np. chcemy otworzyć dokument Worda z poziomu VB. Pewnie napisałbyś tak:

x = Shell("C:Moje dokumentylist.doc",1)

Takiej funkcji używamy tylko do odpalanie Exe-ców. My musimy otworzyć Worda. Sprawa jest nadzwyczaj prosta, w pewnym miejscu dopisujemy tylko start:

x = Shell("Start C:Moje dokumentylist.doc",1)

OKi.

Będziemy tworzyć menu. Jeśli używasz teraz przeglądarki to spójrz prawie na samą górę ekranu - widzisz tam Plik, Edycja, Widok itd. Kliknij np. na Plik - rozwija się kolejne menu - będziemy to już nazywać podmenu. Ale to podmenu można jeszcze bardziej rozwinąć. Tak np. jest W Internet Explorer pod Plik - Nowy. Rozwija się kolejne. Te zagadnienia są trochę trudniejsze więc po raz pierwszy do kursu wstawię grafikę!!!

OKi. Na razie stworzymy coś takiego:

Menu jak na razie nie będą rozwijane. Nie posłużymy się tu żadną kontrolką z menu narzędzia. To co nas interesuje znajduje się pod menu Tools- Menu Edytor. Lub szybko dostaniemy się do tego przytrzymując przycisk Control a potem literkę E. Wyskoczy nam takie okienko:

Chmmm. Co my tu mamy. Pierwszą rzeczą jest Caption. Chyba wiesz co to jest ... To jest to co będziemy widzieć na pasku - wpisz więc Plik. Duga rzecz to name - tutaj nazywamy to mnuPlik. Inne rzeczy nas na razie nie będą interesować. Klikamy Next. Teraz znów w Caption wpisujemy Edycja i nazwa mnuEdycja. Next. Caption Widok, nazwa mnuCaption. Teraz nasz program powinien wyglądać tak ja na pierwszym rysunku. No dobra, ale my chcemy aby to menu było rozwijalne. No więc jeszcze raz wchodzimy do menu edytora. Są tam nasze trzy pozycje. Klikamy poniżej ostatniej na wolnym miejscu. W pole Caption wpisujemy Start, a jako nazwę nadajemy mu mnuPlikStart. No dobra, jak na razie stworzyliśmy 4 menu rozwijalne. Ale my przecież chcemy aby to było podmenu. Aby ustawić to tam gdzie trzeba będziemy musieli się posłużyć strzałeczkami - te zaraz obok Next-a. Skoro Start ma być pod Plik, to musimy 2x kliknąć strzałkę w górę. No ale nadal mamy 4 menu rozwijalne. No to jeszcze strzałka w prawo i wyglądać to powinno tak:

Ja jeszcze zrobiłem koniec. Myślę, że sobie z tym już poradzisz. Jeszcze raz na wolne miejsce Caption na Koniec, nazwa mnuPlikKoniec. I jeszcze ustawić tak jak na rysunku. A jeśli teraz byśmy chcieli z Plik - Start zrobić kolejne menu rozwijalne ? Tzn. Klikamy Plik - Start i wyskakuje kolejne menu z kolejnymi dwoma opcjami - Przód i tył ? Znów klikamy na wolne miejsce w Menu Edytorze. Tworzymy kolejną pozycję - Przód o nazwie mnuPlikStartPrzod. Ma ona być rozwijana Startem, a więc przesuwamy ją strzałkami do góry pod Start. No ale teraz znów mamy 4 główne menu rozwijalne. No to strzałka w prawo. No, ale tera jak klikniemy na menu plik to pokaże 3 pozycje - Start, Przód,Koniec. My chcemy, aby Przód ukazało się dopiero po kliknięciu na Start. No to jeszcze raz strzałka w prawo. To samo robimy z Tył. Powinno to teraz wyglądać tak:

Dobra. Teraz klikamy OK - nasz program powinien wyglądać tak:

Dobra. A teraz jak zrobić, aby po kliknięciu na Koniec program się wyłączył ? Bardzo prosto ! Po prostu kliknij na Koniec i dodaj odpowiedni kod tzn. Unload Me

Musisz sobie jeszcze poćwiczyć tą lekcję, gdyż jest ona troszeczkę skomplikowana, a na następnej lekcji jeszcze trudniejsze zagadnienie - będziemy projektować pasek narzędzi

Dziś zajmiemy się chyba najtrudniejszym zagadnieniem jak do tej pory - tworzeniem paska narzędzi. Jeśli oglądasz tą stronę w przeglądarce internetowej to na pewno widzisz takie pasek zaraz pod (niekiedy obok) menu. Tak to te strzałki, krzyżyki itp. To jest właśnie pasek narzędzi. W tej lekcji także wstawiam grafikę ;) (Mogłem o tym wcześniej pomyśleć - zajebisty pomysł nie...)

Dobra - aby zrobić pasek narzędzi musimy posłużyć się dwoma elementami z paska narzędzi. Uwaga standardowo są one nie dostępne - musimy (jak kiedyś) dodać element Microsoft Windows Common Controls 6.0. Pamiętasz jak - jeśli nie to powrót do lekcji 17 !. Najpierw potrzebny nam będzie ImageList. Jak wygląda to zobacz na ściągawce z paska. Układamy go na formie - tak to takie 3 kwadraciki z jakąś klepsydrą czy czymś takim. Klikamy na niego prawtm klawiszem myszy i z powstałego menu wybieramy Properties. Wyskoczyło nam okienko Opcji. Wybieramy teraz zakładkę Images i wybieramy kolejno ikonki (lub inne małe obrazki) które będziemy później chcieli wstawiać do naszego paska narzędzi. A więc klikamy Insert Picture i wybieramy katalog z Visual Basiciem. Standardowo jest to C:Program FilesMicrosoft Visual Studio. My będziemy dodawać ikonki standardowo zainstalowane przez VB. A więc wchodzimy kolejno w CommonGraphicsIcons. Teraz wybierzmy dziedzinę Computer. Wyświetliło się mnóstwo ikonek - dodajm ze 4 - może kolejno - CDROM01.ico. Pojawiła się ona w okienku. Teraz znów Insert Picture i dodajemy dalej - DISK04.ico, KEYBRD02.ico, Mouse01.ico - no może starczy. Nasze okienko Properties powinno wyglądać tak:

Teraz klikamy OK. No i bierzemy się do tworzenia paska narzędzi. Wybieramy więc ToolBar - także zobacz ściągawka. Układamy go gdzieś na formie. Sam ułoży się u samej góry formy - zostawmy go więc tam. Teraz klikamy prawym klawiszem myszy na ToolBar-ze i wybieramy Properties. Ojej - ile tu tego jest !

Nas zainteresuje trzecia pozycja - mianowicie ImageList. Musimy wybrać ImageList1 - bo tam są nasze rysunki... Teraz przechodzimy do zakładki Buttons i widzimy:

I chyba już wiesz co kliknąć ! Oczywiście insert Button. Teraz podświetlą nam się "zszarzałe" pola. W sekcji Imege wybieramy numer ikonki (teraz z 0 robimy 1). W sekcji Key wpisz nazwę przycisku - KeyCDROM. Teraz znów Insert Button - tym razem w sekcji Imege wpisujemy 2 i wpisujemy inną nazwę przycisku. Czynność należy wykonać jeszcze 2 razy - w sumie pole index ma osiągnąć wartość 4. No i na koniec OK. Po wystartowaniu nasz program powinien wyglądać tak:

Dobra - stworzyliśmy pasek narzędzi ale jak to wykorzystać. Sprawa nie jest tak prosta jak ze zwykłymi przyciskami. Przedtem wystarczyło kliknąć dwukrotnie na przycisku i dopisać kod, a tu nie mamy do czynienia z przyciskami tylko ToolBarem. Nie bój się. Tym razem sprawa jest dość prosta. Kliknij dwukrotnie na pasku narzędzi naszego programu. Wyskoczy miejsce na dopisanie kodu. Ale do jakiego przycisku?
Do wszystkich ! Program je będzie rozróżniał po nazwach.

Dim Msg as Integer
Select Case Button.Key
Case is = "KeyCDROM":
Msg = MsgBox ("Nacisnąłeś CD-ROM")
Case is = "KeyDyskietka":
.... itd
End Select

Administracja

Strony WWW • Pozycjonowanie Stron SEO

Yyyy	Rok
Q	Kwartał
M	Miesiąc
Y	Dni w roku
D	Dni
W	Weekendy
Ww	Tygodnie
H	Godziny
N	Minuty
S	Sekundy

0	Okno uruchamianego programu zostaje ukryte (trochę bez sensu)
1	Normalne okno
2	Okno zminimalizowane
3	Okno zmaksymalizowane
4	Normalne okno niezaznaczone
6	Zminimalizowane okno nie zaznaczone

Input	Jedynie odczyt danych (najbezpieczniejsza funkcja bo nic nie zepsujemy)
Output	Dopisywanie do pliku informacji
Append	Nadpisywanie informacji