PANEVROPSKI UNIVERZITET APEIRON FAKULTET POSLOVNE INFORMATIKE Redovne studije Smer „IT menadžment” Predmet Relacione Baze podataka
„Web Forum” (seminarski rad)
Predmetni nastavnik Prof. dr Zoran Ž. Avramović, dipl.inž.elek.
Student
Siniša Čulić, 3 godina poslovne informatike Index br. 117-06/RPI
Banja Luka, Avgust 2oo9.
Sadržaj
Sadržaj ............................................................................................................................................................. 2 1. UVOD ........................................................................................................................................................... 3 Ukratko o Visual Basic-u:............................................................................................................................. 3 1.2. Elementi Visual Basic-ovog radnog okruženja ..................................................................................... 3 Zadaci iz Visual basic 2008 .............................................................................................................................. 5 19. Zadatak Pravljenje akcionih dugmadi za otvaranje svih ostalih formi ............................................ 6 20. Zadatak pravljenje menija za glavnu formu .................................................................................... 12 1.
zadatak Unos Imena ..................................................................................................................... 14
2.
zadatak isčitavanje stringa ........................................................................................................... 15
3.
Zadatak Starost korisnika ............................................................................................................. 16
4.
Zadatak Površina kruga ................................................................................................................ 18
5.
Zadatak Muško ili žensko ............................................................................................................. 19
6.
Najmanji zajednički sadržilac ........................................................................................................ 21
7.
Zadatak Enumeracija klasa ............................................................................................................ 22
8.
Zadatak Fibonačijev niz ................................................................................................................. 23
9.
Zadatak Kontrola izgleda ............................................................................................................... 24
10.
Zadatak Multi digitron .............................................................................................................. 25
11.
Zadatak Površina zapremina kvadra ......................................................................................... 30
12.
Zadatak Obrtanje teksta............................................................................................................ 32
13.
Zadatak Aritmetička sredina .................................................................................................... 33
14.
Zadatak Igra pogađanja ............................................................................................................. 34
15.
Zadatak ...................................................................................................................................... 38
16.
Zadatak Pohranjivanje u TXT fajl ............................................................................................... 39
17.
Zadatak Učitavanje iz TTX fajla .................................................................................................. 41
18.
Zadatak Konverzija decimalni/binarni i binanrni/decdecimalni broj ........................................ 42
Literatura....................................................................................................................................................... 44
SinišaČulić@
2
1. UVOD Visual Basic je programski jezik visokog nivoa razvijen iz ranije DOS verzije Basic. Basic je skraćenica od Beginners' All purpose Symbolic Instruction Code. To je prilično jednostavan programski jezik. Najsličniji prirodni jezik Visual Basic-u je engleski jezik. Različite softverske kompanije razvile su različite verzije Basic-a, kao što su: Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA itd. Visual Basic je vizuelni i programski jezik kojim upravljaju događaji. To su glavne razlike u odnosu na stari Basic. U Basic-u, programira se u tekstualnoj operativnoj sredini i program se izvršava sekvencijalno. U Visual Basic-u, programira se u grafičkoj operativnoj sredini. Korisnici mogu da kliknu na određeni objekat, tako da svaki objekat mora da bude programiran nezavisno da bi mogao da odgovori na te akcije (događaje).. Visual Basic program je narpavljen od podprograma, svaki ima svoj programski kod, i svaki može biti izvršen nezavisno i u isto vrijeme svaki može biti povezan sa drugim.
Ukratko o Visual Basic-u: Visual Basic je programski jezik za za Microsoft Windows-e Visual Basic programi se kreiraju unutar Integrated Development Environment (IDE). IDE omogućava programeru da zgodno kreira, pokreće i čisti od grešaka Visual Basic programe Proces ubrzanog kreiranja aplikacija (programa) se naziva Rapid Application Development (RAD) Visual Basic je najrašireniji svjedski RAD jezik Visual Basic je izveden od BASIC programskog jezika Visual Basic je izrazito svestran jezik koji omogućava snažne mogućnosti kao što su grafičko okruženje, upravljanje događajima, pristup Win32 API funkcijama, objektno orjentisane osobine, upravljanje greškama, strukturirano programiranje i mnoge druge.
1.2. Elementi Visual Basic-ovog radnog okruženja Visual Basic-ovo radno okruženje je interfjes za rad sa više dokumenata (Multiple Document Interface MDI). Svaki obrazac sa kontrolama i svaki programski kod ponaosob pripadaju po jednom prozoru unutar glavnog Visual Basic prozora. Pri pokretanju novog projekta na ekranu se pojavljuju sledeće cjeline: linija menija, linije alatki, paleta alatki (kontrola), prozor Project Explorer, prozor Properties, prozor Form Layout i prozorForm Designer sa praznim obrascem. Sa Visual Basic-om možete raditi i u interfejsu za rad sa pojedinačnim dokumentima (Simple Document Interface - SDI). Izbor interfejsa ostvarujete potvrđivanjem polja SDI Development Environment na kartici Advanced okvira za dijalog Options. Linija menija (Menu Bar) Prikazuje Visual Basic komande. Kontekstni meniji (Context Menus) Sadrže najčešće korišćene komande za odgovarajući objekat. Da biste ga prikazali treba da kliknete desnim tasterom miša na željeni objekt.
SinišaČulić@
3
Linije alatki (Toolbars) Omogućavaju brzi pristup najčešće korišćenim komandama pri radu u programskom okruženju. Pri prvom pokretanju Visual Basic-a prikazana je samo linija alatki Standard. Paleta alatki (Toolbox) Prikazuje skup alatki koje koriste za vrijeme dizajniranja pri postavljanju kontrola na obrazac. Pored osnovnih kontrola koje su prikazane na paleti alatki, mogu se dodati i druge kontrole izborom iz okvira za dijalog Components. Prozor Project Explorer Prikazuje spisak obrazaca i modula u tekućem projektu. Prozor Properties Prikazuje spisak svojstava izabranog objekta i njima pridružene vrijednosti. Pregledanje objekata (Object Browser) Prikazuje dostupne objekte iz projekta, njihove metode, svojstva, događaje i konstante. Prozor Form Designer Prikazuje prozor sa obrascem na koji možete dodavati kontrole i uobličavati korisnički izgled obrasca. Svaki obrazac pripada po jednom ovakvom prozoru. Prozor Code Editor Služi kao uređivač teksta za unos programskog koda aplikacije. ProzorForm Layout Omogućava pozicioniranje obrazaca korišćenjem male grafičke prezentacije na ekranu. Prozori Immediate, Locals i Watch Ovi dodatni prozori pomažu pri uklanjanju grešaka iz aplikacije.
SinišaČulić@
4
Zadaci iz Visual basic 2008 Sami zadaci su realizovani kao jedna cijelina koja se može pokrenuti iz glavnoga menija svi zadaci su unutar zadatka organizovani u nekoliko foldera radi lakše organizacije kao što je prikazana na 1. Ilustraciji. Svaki od datih foldera sadrži određene forme koje bivaju pozivane od glavne Main.vb forme i sa time je omogućeno da se svi zadaci i sourcoudovi kao i sama riješenja mogu pokrenuti sa glavne forme. Svaka od datih grupa ima u sebi frme koje su prikazane u 2. ilustraciji
Ilustracija 2 organizacija projekta
Ilustracija 1 sadržaj grupa
SinišaČulić@
5
Sama glavna forma biće obrađena kao 19. i 20. zadatak pošto se sve ostale forme moraju napraviti prije nego što se mogu napraviti linkovi ka njima ali će se u ovome seminarskome radu obraditi Main formu kako prvu jer se ona prva poziva pri pokretanju programa data forma biće tretiran kao 19 i 20 zadatak dok će se ostale forme da prate dati redoslijed. 19. Zadatak Pravljenje akcionih dugmadi za otvaranje svih ostalih formi Sam zadatak glasi:
Sama forma je realizovana tako da u sebi sadrži 60 akcionih dugmadi od kojih je svako programirano da sa akcionim događejem „click“ biva aktivirana jedna ili više formi ili u nekim rijetkim slučajevima akcija pokrenuta koja prikazuje objekat tipa meesagebox. Sam izgled forme je prikazan na siljedećoj ilustraciji:
SinišaČulić@
6
U datoj formi imamo 3 grupe akcionih dugmadi 1. grupa dugmadi otvara sama rješenja datih zadataka i ona su numerisana od 1 do 20 u svojoj text osobini i svako od datih dugmadi ima svoje ime promenuto u btnN, gdije N predstavlja redni broj datoga dugmeta i sa time i broj forme koji će dato dugme da poziva.
Ilustracija 3 Izgled osobina 1 grupe dumadi i nijhov izgled
Drugu grupu dugmadi sačinjavaju surcecoude dugmad koja su isto odgovoarajuće preimenovana u btnscN i sa time je osgurano ne miješanje pozivanja. Sva dugmad koriste svoju „click“ akciju i pozivaju se na uskladištenu akciju formi „Imeforme.Show()“ Ja lično nerado bih da navodim cijele sourcecoudovo u ovome seminarskome radu ali vi ste to striktno naveli u zahtjevima paa ću se toga da pridržavam
Sma source coude je: Napomena : Sav kod biće smanjen na font 8. Zbog kompaktnoosti Napomena : Svi zadaci imaju d dojeljene ikone i fixirane dimenzije forme izuzec teksta zadataka i source kod formi. Public Class Main
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ’Za sada ne’u objašnjavati šta raie ove promijenjive one su dio drugoga zadatka u kojeme je neophodno definisati promjenjive koje su dostupne svim formama ImeKorisnika = " Ime za sada nije za sada" PrezimeKorisnika = " navedeno" End Sub 'Nadalje Postavljamo za svako dugme koje se nalazi u main formi da pokreće svoje odgovoarajuće zadatke Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click frm01Zadatak.Show() End Sub Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click frm02Zadatak.Show() End Sub Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click frm03Zadatak.Show() End Sub Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click frm04Zadatak.Show() End Sub
SinišaČulić@
7
Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click frm05Zadatak.Show() End Sub Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click frm06Zadatak.Show() End Sub Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click frm07Zadatak.Show() End Sub Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click frm08Zadatak.Show() End Sub Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click frm09Zadatak.Show() End Sub Private Sub btn10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn10.Click frm10Zadatak.Show() End Sub Private Sub btn11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn11.Click frm11Zadatak.Show() End Sub Private Sub btn12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn12.Click frm12Zadatak.Show() End Sub Private Sub btn13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn13.Click frm13Zadatak.Show() End Sub Private Sub btn14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn14.Click frm14zadatak.Show() End Sub Private Sub btn15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn15.Click frm15Zadatak.Show() End Sub Private Sub btn16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn16.Click frm16Zadatak.Show() End Sub Private Sub btn17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn17.Click frm17ZadatakUcitavanjeTxt.Show() End Sub Private Sub btn18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn18.Click frm18ZadatakDecUBin.Show() End Sub Private Sub btn19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn19.Click MessageBox.Show("Vi upravo gledate na dati zadatak") End Sub
SinišaČulić@
8
Private Sub btn20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn20.Click MessageBox.Show("Menu strip se nalazi u glavnom prozoru i preko jnega mo\ete svemu da pristupite") End Sub 'Nadalje se nalaye komande ya otvaranej formi sa tekstom zadatka
Private Sub btnZadatak1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak1.Click _1.Show() End Sub Private Sub btnZadatak2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak2.Click _2.Show() End Sub Private Sub btnZadatak3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak3.Click _3.Show() End Sub Private Sub btnZadatak4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak4.Click _4.Show() End Sub Private Sub btnZadatak5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak5.Click _5.Show() End Sub Private Sub btnZadatak6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak6.Click _6.Show() End Sub Private Sub btnZadatak7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak7.Click _7.Show() End Sub Private Sub btnZadatak8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak8.Click _8.Show() End Sub Private Sub btnZadatak9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak9.Click _9.Show() End Sub Private Sub btnZadatak10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak10.Click _10.Show() End Sub Private Sub btnZadatak11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak11.Click _11.Show() End Sub Private Sub btnZadatak12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak12.Click _12.Show() End Sub Private Sub btnZadatak13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak13.Click _13.Show() End Sub Private Sub btnZadatak14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak14.Click
SinišaČulić@
9
_14.Show() End Sub Private Sub btnZadatak15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak15.Click _15.Show() End Sub Private Sub btnZadatak16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak16.Click _16.Show() End Sub Private Sub btnZadatak17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak17.Click _17.Show() End Sub Private Sub btnZadatak18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak18.Click _18.Show() End Sub Private Sub btnZadatak19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak19.Click MessageBox.Show("Napraviti glavnu formu sa koje vode linkovi na sve zadatke") End Sub Private Sub btnZadatak20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak20.Click MessageBox.Show("Napraviti meni koji linkuje prema svima zadacima") End Sub Private Sub btnsc1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc1.Click s1.Show() End Sub Private Sub btnsc2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc2.Click s2.Show() End Sub Private Sub btnsc3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc3.Click s3.Show() End Sub Private Sub btnsc4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc4.Click s4.Show() End Sub Private Sub btnsc5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc5.Click s5.Show() End Sub Private Sub btnsc6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc6.Click s6.Show() End Sub Private Sub btnsc7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc7.Click s7.Show() End Sub Private Sub btnsc8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc8.Click s8.Show() End Sub Private Sub btnsc9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc9.Click s9.Show() End Sub
SinišaČulić@
10
Private Sub btnsc10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc10.Click s10.Show() End Sub Private Sub btnsc11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc11.Click s11.Show() End Sub Private Sub btnsc12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc12.Click s12.Show() End Sub Private Sub btnsc13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc13.Click s13.Show() End Sub Private Sub btnsc14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc14.Click s14.Show() End Sub Private Sub btnsc15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc15.Click s15.Show() End Sub Private Sub btnsc16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc16.Click s16.Show() End Sub Private Sub btnsc17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc17.Click s17.Show() End Sub Private Sub btnsc18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc18.Click s18.Show() End Sub Private Sub btnsc19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc19.Click s19.Show() End Sub Private Sub btnsc20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsc20.Click s20.Show() End Sub
SinišaČulić@
11
20. Zadatak pravljenje menija za glavnu formu Napraviti meni preko kojega se može pristupiti izvršnim verzijama zadataka, i date zadatke grupisati prema njihovoj nameni. Sam meni se ubacuje u formu iz toolbox menija i ubacuju se vrednosti koje su nam potrebne sam meni izgleda:
A svaka od datih grupa ima sljedeće elemente u sebi
Ove forme takođe reaguju na click akciju i u njih je ubačena ista akcija od formi koje trebaju da prikažu to jest .show() Source coude je slijedeći: Napomena: ovaj kod je nastavak od prošloga zadatka. 'Sada pravimo komande za menu strip Private Sub UčitavanjeTTXTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UčitavanjeTTXTToolStripMenuItem.Click frm17ZadatakUcitavanjeTxt.Show()'ubacujemo komandu za otvaranja datih rjejšenja zadataka End Sub Private Sub PohranjivanjeTXTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PohranjivanjeTXTToolStripMenuItem.Click frm16Zadatak.Show() End Sub Private Sub PovršinaKrugaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PovršinaKrugaToolStripMenuItem.Click frm04Zadatak.Show()
SinišaČulić@
12
End Sub Private Sub NajmanjiZajedničkiSadržilacToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NajmanjiZajedničkiSadržilacToolStripMenuItem.Click frm06Zadatak.Show() End Sub Private Sub FibonačijevNizToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FibonačijevNizToolStripMenuItem.Click frm08Zadatak.Show() End Sub Private Sub MultiDigitronToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MultiDigitronToolStripMenuItem.Click frm10Zadatak.Show() End Sub Private Sub PovršinazapreminaAkvadraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PovršinazapreminaAkvadraToolStripMenuItem.Click frm11Zadatak.Show() End Sub Private Sub AritmetičkaSredinaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AritmetičkaSredinaToolStripMenuItem.Click frm13Zadatak.Show() End Sub Private Sub KonverzijaBindecToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KonverzijaBindecToolStripMenuItem.Click frm18ZadatakDecUBin.Show() End Sub Private Sub PrestupnaGodinaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrestupnaGodinaToolStripMenuItem.Click frm15Zadatak.Show() End Sub Private Sub UnosImenaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UnosImenaToolStripMenuItem.Click frm01Zadatak.Show() End Sub Private Sub IsčitavanjeStringaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IsčitavanjeStringaToolStripMenuItem.Click frm02Zadatak.Show() End Sub Private Sub StarostKorisnikaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StarostKorisnikaToolStripMenuItem.Click frm03Zadatak.Show() End Sub Private Sub ObrtanjeStringaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObrtanjeStringaToolStripMenuItem.Click frm12Zadatak.Show() End Sub Private Sub MučkoIiliŽenskoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MučkoIiliŽenskoToolStripMenuItem.Click frm05Zadatak.Show() End Sub Private Sub EnumeracijaKlasaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnumeracijaKlasaToolStripMenuItem.Click frm07Zadatak.Show() End Sub Private Sub KontrolaIzgledaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KontrolaIzgledaToolStripMenuItem.Click frm09Zadatak.Show() End Sub Private Sub IgraPogađanjaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IgraPogađanjaToolStripMenuItem.Click frm14zadatak.Show End Sub
SinišaČulić@
13
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Hvala_na_paznji.Show() End Sub
Private Sub Main_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing Hvala_na_paznji.Show() End Sub End Class
1. zadatak Unos Imena Sam zadat je realizovan tako da se prvo ubacuje u sam projekat objekat koji u sebi može da sadrži promjenljive koje su dostupne svim forama, taj dati objekat se zove modul i njemu mogu pristupiti sve forme koje se nalaze niže ili u istome stablu u kojem se nalazi dati modul. Dati modul u sebi sadrži l 2 varijable Module Javne_varijable Public ImeKorisnika As String Public PrezimeKorisnika As String End Module
I njima mogu da pristupe sve forme i da ih mjenjaju iz datoga razloga Main forma ima u sebi deklaraciju ImeKorisnika = " Ime za sada nije za sada" PrezimeKorisnika = " navedeno"
Pri njenom učitavanju na akciju onload se date varijabile postavljaju da ne bi bile prazne, što bi prouzrokovalo pad neko formi. Sama forma ima izgled kao na datoj ilustraciji. Sam zadatak ne raspolaže sa nikakvim sopstvenim varijablama ali mijenaj javne varijable ImeKorisnika i PrezimeKorisnika
Ilustracija 4 Izgled 1 zadatka
SinišaČulić@
14
Sam source kod je : Public Class frm01Zadatak
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Uzimamo vrijednosti iz tekst boxova i dojeljujemo ih jjavnim varikablama koje se 'nalaze u modulu "Javne Varijable" ImeKorisnika = txtIme.Text PrezimeKorisnika = txtPrezime.Text 'Sada ispisujemo date javne varijable u koje samo unijeli ranije vrijednosti MessageBox.Show("Dobar dan" & ImeKorisnika.ToString & " " _ & PrezimeKorisnika.ToString, "Hvala na unošenju.") Me.Close() End Sub
End Class
2. zadatak isčitavanje stringa Ovo je veoma jednostavan zadatak u kojeme imamo txtbox iz koje učitavamo uneseni tekst i isčivtavamo ga od one vrednosti koju smo unijeli u maskirni txtbox. Source kod je: Public Class frm02Zadatak Private Sub pctrGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pctrGo.Click 'Prvo deklarisemo promijenjive sa kojima cemo raditi Dim TekstUnosa As String Dim Lokacija As Integer 'uzimanje sadzaja iz tekstboxa TekstUnosa = txtUnos.Text Lokacija = mtxtUnos.Text
'provera dali je unesena vrijednost u lokaciji stringa veca od samoga unesenoga striinga If Lokacija > TekstUnosa.Length Then MessageBox.Show("Uneli ste preveliku lokaciju, string koji sjte uneli nije toliko dug ", "Greska") 'Provera dali je yaboravljen unos stringa ElseIf TekstUnosa.Length = 0 Then MessageBox.Show("Niste uneli nikakv string!!!! ", "Greska")
'Izrada zadatka Else MessageBox.Show("Vi ste unjeli string: " & TekstUnosa & ", a trazili ste:" & _ TekstUnosa.Substring(Lokacija), "Razultat") End If
End Sub
Private Sub btnSourceCoude_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub
SinišaČulić@
15
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub End Class
Korište ne su slijdeće promijenjive u zadaku: Dim TekstUnosa As String Dim Lokacija As Integer
I njima su dodjeljene vrednosti iz slijedeća 2 txt boxa TekstUnosa = txtUnos.Text Lokacija = mtxtUnos.Text
Sama forma je prikazana na sljedećoj ilustraciji broj 5.
Ilustracija 5 izgled forme 2. zadatka
Vrijedno u ovome zadatku za napomenuti je da nije korišteno standardno dugme za pokretanje procesa isčiavanje već click akcija na picture box u koju je ubačena slika dugmeta koje sam prethodno izradio u Photoshopu. Takođe radi estetskih razloga dodat a je slika sam imenom i prezimenom stvaraoca programa. Kada se izvrši click akcija na pctrGo onda se pokređe proces učitavanja, provere ispravnosti dužine i potom se ispisuje vrednost. Na primjer ako mo unijeli texst Sinisa i broj 2 biće ipisano
3. Zadatak Starost korisnika Ovaj zadatak je realizovan iz pomoć maskiranog txt boxa koji je ograničen na 2 cifre po unosu nekoga broja uzima se trenutna godina iz sistema operativnoga i oduzimaju se godine od date cifre data cifra biva ispisana u meesageboxu. Izgled forme je: Napomena: postoji mogućnost nekompatibilnosti sa drugim operativnim sistemima jer su korišteni specijalni fontovi, a stvaraoc još ne posijeduje znanje neophodno za instalaciju pri pokertanju forme.
SinišaČulić@
16
Sam source kod je: Public Class frm03Zadatak
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click 'Uzimamo trenutno vrjeme Dim TrenutnaGodina As Date TrenutnaGodina = Now 'Dodjeljlujemo "ImaGodina vrednost iz maskiranog tekst boxa Dim ImaGodina As Integer ImaGodina = mtxtGodina.Text 'ispisujemo u kojoj godini je rođen korisnik MessageBox.Show(ImeKorisnika.ToString & " " & PrezimeKorisnika.ToString & " vi ste rođeni:" & _ (TrenutnaGodina.Year - ImaGodina).ToString, "Godia rođenja :") End Sub 'Ako nije ranije navedeno ime i prezime korisnika obezbijeđuje se integritet zadatka pri učitavanju forme. Private Sub _3_Zadatak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If ImeKorisnika.Length = 0 & PrezimeKorisnika.Length = 0 Then ImeKorisnika = "ime nije " PrezimeKorisnika = "navedeno." End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub End Class
SinišaČulić@
17
4. Zadatak Površina kruga Program je izrađen sa tako da uzima od korisnika unesenu vrednos i proverava dali je to broj, ako je broj vrši se izračunavanje a ako ne ispisuje se poruka o grešci. Source kod: Public Class frm04Zadatak 'Izračunavanje površine iz poluprečnika Private Function IzracunavanjePovrsineIzPoluprecnika(ByVal poluprecnik As Double) As Double 'deklarišemo varijable Dim KvadratiranaPovrsina As Double Dim Rezultat As Double 'Square the poluprecnik KvadratiranaPovrsina = poluprecnik * poluprecnik 'Multiply it by pi Rezultat = KvadratiranaPovrsina * Math.PI 'Return the result Return Rezultat End Function
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click Dim poluprecnik As Long 'unosimo unesenu vrednost u promjenjivu Try poluprecnik = CType(txtVrednost.Text, Integer) MessageBox.Show("Povrsina kruga je: " & IzracunavanjePovrsineIzPoluprecnika(poluprecnik), _ "Površina kruga") Finally MessageBox.Show("niste uneli broj", "Greška!!!!!!") End Try End Sub
Private Sub btnZadatak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak.Click Me.Close() End Sub End Class
Sam dizajn forme je prikazan na slijedećoj ilustraciji Korištene promijenjive su: Dim KvadratiranaPovrsina As Double Dim Rezultat As Double
I funkcija Function IzracunavanjePovrsineIzPoluprecnika
SinišaČulić@
18
5.
Zadatak Muško ili žensko
U ovome zadatku je ilustrovana upotreba ilste i stringa radi pohranjivanja vrednosti koje su numerisane. U listbox se pohranjuju imena osoba a u string njihov pol pri učitavanju forme se zadaju neka demonstraciona imena i popunjava string sa vrednostima koje odgovaraju polu datih osoba. Sama forma ima slijdeći izgled:
Source coude je: Public Class frm05Zadatak 'deklarišemo varijable koje moraju biti dostupne uvjek Dim StaJe(120) As String Dim Dokle As Integer
'pri unosu popunjavamo StaJe sa vrijednostima radi demonstracije Private Sub _5_Zadatak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load StaJe(0) = "Muško" StaJe(1) = "Muško" StaJe(2) = "Muško" StaJe(3) = "Nisam Siguran XD" StaJe(4) = "Muško" StaJe(5) = "Žensko" End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles lstLista.SelectedIndexChanged Dim BrojStringa As Integer 'dodjeljujemo BrojStringa vrijednost trenutno selektovanog objekta u list boxu BrojStringa = lstLista.SelectedIndex 'Ispisujemo ime osobe i kojeg je ona pola lblIpsisa.Text = lstLista.Items(BrojStringa).ToString & " je " & StaJe(BrojStringa) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Dodjeljujemo Dokle integeru vrijednost u kojoj ćemo da pohranimo date vrjednosti pola i imena 'Nemoramo povećavati vrednost za jedan jer arrays rkreću sa 0 kaok prvom pozicijom Dokle = lstLista.Items.Count If txtUnos.TextLength < 1 Then MessageBox.Show("Niste uneli prihvatljivu vrednost", "Greska!!!") ElseIf rbtMusko.Checked Then
SinišaČulić@
19
StaJe(Dokle) = "Muško" lstLista.Items.Add(txtUnos.Text) ElseIf rbtZensko.Checked Then StaJe(Dokle) = "Žensko" lstLista.Items.Add(txtUnos.Text) Else MessageBox.Show("Niste uneli prihvatljivu vrednost", "Greska!!!") End If End Sub Private Sub btnZadatak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak.Click Me.Close() End Sub End Class
Sama forma pri akciji promjene selekcije u listi lblIpsisa.Text dodjeljuje ime osobe koja je selektovana i njezin pol kao što je prikazaa na slijedećim ilustracjama. A ako se doda neka osoba vrednsot koja je selektovana biće pohranjena u string.
SinišaČulić@
20
6. Najmanji zajednički sadržilac Problem se rješava sa dvije until petlje, pri čemu je jedna petlja ugnježđena u drugu. Prvom petljom kontrolišem brojeve i petlja se izvršava dok brojevi nisu jednaki jedinici, isto tako mijenjam vrijednost brojača pomoću koga vršim dijeljenje brojeva i akumuliram sadržilac. Druga petlja dijeli brojeve (rastavlja brojeve na proste faktore) i to za vrijednost brojača dok je ostatak jednak nuli. Imam tri različita slučaja: oba broja djeljiva-dijelim oba (cjelobrojno) prvi broj djeljiv-dijelim prvi drugi broj djeljiv-dijelim drugi Kad brojevi nisu djeljivi brojačem izlazim iz ugniježđene petlje i mijenjam vrijednost brojača
Source coude:
Public Class frm06Zadatak Private Sub _6_Zadatak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub txtIzracunaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles txtIzracunaj.Click 'Potrebne promjenjive Dim PrviBroj, DrugiBroj, Sadrzilac, Brojac As Integer Dim OstatakPrvi, OstatakDrugi As Integer 'Postupak u slucaju greske On Error GoTo Greska
If (Integer.TryParse(txt1broj.Text, PrviBroj)) Or (Integer.TryParse(txt2broj.Text, DrugiBroj)) _ Then GoTo Greska If txt1broj.Text = "" Or txt2broj.Text = "" Then GoTo Greska PrviBroj = txt1broj.Text DrugiBroj = txt2broj.Text If txt1broj.Text = "" Or txt2broj.Text = "" Then GoTo Greska ' pocetne vrijednosti potrebnih promjenjivih Sadrzilac = 1 Brojac = 1 'radi dok oba broja nisu jednaka jedinici Do Until (PrviBroj = 1 And DrugiBroj = 1) 'brojac postavljamo na 2, ako ostane 1 idemo u beskonacnu petlju Brojac = Brojac + 1 ' prvo dijeljenje sa 2-ako moze OstatakPrvi = PrviBroj Mod Brojac OstatakDrugi = DrugiBroj Mod Brojac ' dijelim dalje i Brojac akumuliram u Sadrzilac dok god je jedan od brojeva djeljiv bez ostatka Do Until (OstatakPrvi <> 0 And OstatakDrugi <> 0) If OstatakPrvi = 0 And OstatakDrugi = 0 Then PrviBroj = PrviBroj \ Brojac DrugiBroj = DrugiBroj \ Brojac Sadrzilac = Sadrzilac * Brojac
SinišaČulić@
21
OstatakPrvi = PrviBroj Mod Brojac OstatakDrugi = DrugiBroj Mod Brojac ElseIf OstatakPrvi = 0 Then PrviBroj = PrviBroj \ Brojac Sadrzilac = Sadrzilac * Brojac OstatakPrvi = PrviBroj Mod Brojac ElseIf OstatakDrugi = 0 Then DrugiBroj = DrugiBroj \ Brojac Sadrzilac = Sadrzilac * Brojac OstatakDrugi = DrugiBroj Mod Brojac End If Loop Loop txtrezultat.Text = Sadrzilac.ToString Return Greska: MessageBox.Show(" Unesi prirodne brojeve ") txt1broj.Clear() txt2broj.Clear() txt1broj.Focus() End Sub Private Sub txt1broj_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt1broj.Click txt1broj.Clear() End Sub Private Sub txt2broj_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt1broj.Click txt2broj.Clear() End Sub
Private Sub btnZadatak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZadatak.Click Me.Close() End Sub End Class
7.
Zadatak Enumeracija klasa Nota: tačan tekst je sa datumom kao pokretačem
Sama enumeracija se koristi kako ogromna plakšica pri programiranju jer možemo veoma jednostavno da stvorimo naše sopstvene klase sa kojima možemo d aregulišemo unos popdataka i olakđamo snalaženje unutar koda. Ovaj zadatak je zamišljen kao primjer korišćenja datih enumeracija za manipulaciju labelom koja teba da šrilaže šta bi se u to vreme dana koje je prikazano na formi tebalo da radi.
A kada pokrenemo i promenimo vreme dobijamo:
SinišaČulić@
22
8. Zadatak Fibonačijev niz Matematičko riješenje glasi : : F0=1; F1=2 ; Fn=Fn-1+Fn-2 I ono je tako i realizovano u daljnjem source kodu: Public Class frm08Zadatak
Private Sub btnIzracunaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnIzracunaj.Click Dim int_Broj, i As Long Dim Prvi_Clan, Drugi_Clan, Treci_Clan As Long lstVrednosti.Items.Clear() If txtUnos.Text = "" Then MessageBox.Show(" unesite vrijedost broja! ", "Greška") ElseIf (Integer.TryParse(txtUnos.Text, int_Broj)) Then ' Pridruzujemo vrijednost osobine promjenjivim int_Broj = txtUnos.Text ' Pridruzujem vrijednosti prva dva clana niza Prvi_Clan = 1 Drugi_Clan = 2 'dodajem prva dva clana niza u listu lstVrednosti.Items.Add(Str(Prvi_Clan)) lstVrednosti.Items.Add(Str(Drugi_Clan)) ' Petlja krece od 3-ceg clana For i = 3 To int_Broj Treci_Clan = Prvi_Clan + Drugi_Clan lstVrednosti.Items.Add(Str(Treci_Clan)) ' Zamjena pocetnih vrijednosti Prvi_Clan = Drugi_Clan Drugi_Clan = Treci_Clan Treci_Clan = 0 Next i Else MessageBox.Show(" unesite vrijedost broja! ", "Greška") End If End Sub End Class
Sama forma ima slijedeći izgled:
SinišaČulić@
23
9. Zadatak Kontrola izgleda Zdatak je realizovan bez korišćenja ikakvih varijabli i sastoji se od nekoliko dugmadi koja u sebi na akciju click imaju akciju promene pozacine
Sam kod je poprilično jednostavan: Public Class frm09Zadatak Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlava.Click Me.BackColor = Color.Blue End Sub Private Sub btnCrvena_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCrvena.Click Me.BackColor = Color.Red End Sub Private Sub btnRoza_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRoza.Click Me.BackColor = Color.Pink End Sub Private Sub btnMagneta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMagneta.Click Me.BackColor = Color.Magenta End Sub Private Sub btnTamnoZelena_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTamnoZelena.Click Me.BackColor = Color.DarkGreen End Sub Private Sub btnZuta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZuta.Click Me.BackColor = Color.Yellow End Sub Private Sub btnZelena_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZelena.Click
SinišaČulić@
24
Me.BackColor = Color.LawnGreen End Sub Private Sub btnSvetloPlava_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSvetloPlava.Click Me.BackColor = Color.PowderBlue End Sub Private Sub btnNarandzansta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNarandzansta.Click Me.BackColor = Color.DarkOrange End Sub
Private Sub _9_Zadatak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class
10. Zadatak Multi digitron Ovo je jedan od najtežih zadataka i bio je veoma težak za realizaciju. Problem je u tome d a se mora obezbjediti da dugme operacije i dugme jednako budu sinhronizovani i dapoštuju akcije koje su rađene od strane drugoga dugmeta
Kod je slijedeći(pripremite se na dugo čitanje):
SinišaČulić@
25
Public Class frm10Zadatak 'deklarišemo koje promjenjive ćemo da koristimo pri operacijama Dim PrviClan As Long 'prvi clan sabiraca Dim DrugiClan As Long ' drugi clan sabiraca Dim Displej As String ' displej u koje čuvamo vrednosti rai zastite od korisnika Dim Bufer As String ' trenutno ukucavana vrednost Dim Operacija As String 'koja operacija se radi Dim Rezultat As Long ' vrednos gdje pohranjujemo vrednosti Public Function DaLiJeBroj(ByVal Broj As String) As Boolean 'pravimo funkciju koja provjerava dali su brojevi ' ispravni ili dali je uopste unesena vrenost Dim a As Integer Dim b As Boolean If (Integer.TryParse(Broj.ToString, a)) Or Broj = "" Then b = True Return b Else b = False Return b End If End Function
'Sada unosimo sve akcije koje ce se desavati na klik na neki od brojeva: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Bufer += "1" 'dodajemo u bufer trenutnu vrednost Displej += "1" 'ispisujemo sta smo pritisnuli txtRezultat.Text = Displej.ToString ' ispisujemo dati sadržaj u txt box End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Bufer += "2" Displej += "2" txtRezultat.Text = Displej.ToString End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Bufer += "3" Displej += "3" txtRezultat.Text = Displej.ToString End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Bufer += "4" Displej += "4" txtRezultat.Text = Displej.ToString End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Bufer += "5" Displej += "5" txtRezultat.Text = Displej.ToString End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Bufer += "6" Displej += "6" txtRezultat.Text = Displej.ToString End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
SinišaČulić@
26
Bufer += "7" Displej += "7" txtRezultat.Text = Displej.ToString End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Bufer += "8" Displej += "8" txtRezultat.Text = Displej.ToString End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Bufer += "9" Displej += "9" txtRezultat.Text = Displej.ToString End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Bufer += "0" Displej += "0" txtRezultat.Text = Displej.ToString End Sub
Private Sub btnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlus.Click 'sada izračunavamo vrednosti rezultat iz bufera If Rezultat > 0 And Bufer > 0 Then 'i ako smo vi[e puta uyastopno pritiskali + tada se aktivira ova petlja Rezultat += Bufer Bufer = "" ' Operacija = "+" txtRezultat.Text += " + " Displej += " + " ElseIf Bufer > 0 Then 'Ako smo unijeli neku vrednost i pritisnuli + onda se ova petlja aktivira Rezultat = Bufer Bufer = "" ' i čistimo bufer Operacija = "+" txtRezultat.Text += " + " Displej += " + " Else 'Ako se pokrene operacija jednako prije + onda se ova petlja aktivira samo kao grafički interface Operacija = "+" txtRezultat.Text += " + " Displej += " + " End If End Sub
Private Sub btnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinus.Click If Rezultat > 0 And Bufer > 0 Then 'i ako smo vi[e puta uyastopno pritiskali + tada se aktivira ova petlja Rezultat -= Bufer Bufer = "" ' Operacija = "-" txtRezultat.Text += " - " Displej += " - " ElseIf Bufer > 0 Then 'Ako smo unijeli neku vrednost i pritisnuli + onda se ova petlja aktivira Rezultat = Bufer Bufer = "" ' i čistimo bufer Operacija = "-" txtRezultat.Text += " - " Displej += " - " Else 'Ako se pokrene operacija jednako prije + onda se ova petlja aktivira samo kao grafički interface Operacija = "-"
SinišaČulić@
27
txtRezultat.Text += " - " Displej += " - " End If End Sub
Private Sub btnMnozenje_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMnozenje.Click If Rezultat > 0 And Bufer > 0 Then 'i ako smo vi[e puta uyastopno pritiskali + tada se aktivira ova petlja Rezultat *= Bufer Bufer = "" Operacija = "*" txtRezultat.Text += " * " Displej += " * " ElseIf Bufer > 0 Then 'Ako smo unijeli neku vrednost i pritisnuli + onda se ova petlja aktivira Rezultat = Bufer Bufer = "" ' i čistimo bufer Operacija = "*" txtRezultat.Text += " * " Displej += " * " Else 'Ako se pokrene operacija jednako prije + onda se ova petlja aktivira samo kao grafički interface Operacija = "*" txtRezultat.Text += " * " Displej += " * " End If End Sub Private Sub btnDijeljenje_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDijeljenje.Click If Rezultat > 0 And Bufer > 0 Then 'i ako smo vi[e puta uyastopno pritiskali + tada se aktivira ova petlja Rezultat /= Bufer Bufer = "" Operacija = "/" txtRezultat.Text += " / " Displej += " / " ElseIf Bufer > 0 Then 'Ako smo unijeli neku vrednost i pritisnuli + onda se ova petlja aktivira Rezultat = Bufer Bufer = "" ' i čistimo bufer Operacija = "/" txtRezultat.Text += " / " Displej += " / " Else 'Ako se pokrene operacija jednako prije + onda se ova petlja aktivira samo kao grafički interface Operacija = "/" txtRezultat.Text += " / " Displej += " / " End If End Sub Private Sub btnJednako_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJednako.Click
If Operacija = "+" Then If Bufer > 0 Then Rezultat += Bufer Displej = Rezultat.ToString txtRezultat.Text = Displej Bufer = 0 ElseIf Rezultat > 0 And Bufer = "" Then Displej = Bufer.ToString txtRezultat.Text = Displej Else txtRezultat.Text = Bufer.ToString ' ako je neposredno prije = navedeno + End If ElseIf Operacija = "-" Then If Bufer > 0 Then Rezultat -= Bufer
SinišaČulić@
28
Displej = Rezultat.ToString txtRezultat.Text = Displej Bufer = 0 ElseIf Rezultat > 0 And Bufer = "" Then Displej = Bufer.ToString txtRezultat.Text = Displej Else txtRezultat.Text = Bufer.ToString End If ElseIf Operacija = "*" Then If Bufer > 0 Then Rezultat *= Bufer Displej = Rezultat.ToString txtRezultat.Text = Displej Bufer = 0 ElseIf Rezultat > 0 And Bufer = "" Then Displej = Bufer.ToString txtRezultat.Text = Displej Else txtRezultat.Text = Bufer.ToString End If ElseIf Operacija = "/" Then If Bufer > 0 Then Rezultat /= Bufer Displej = Rezultat.ToString txtRezultat.Text = Displej Bufer = 0 ElseIf Rezultat > 0 And Bufer = "" Then Displej = Bufer.ToString txtRezultat.Text = Displej Else txtRezultat.Text = Bufer.ToString End If End If End Sub
Private Sub btnObrisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnObrisi.Click PrviClan = 0 DrugiClan = 0 Displej = "" Bufer = 0 Operacija = "" Rezultat = 0 txtRezultat.Clear() End Sub End Class
Šta ovaj program radi; svako dugme sa brojem kada bude pritisnuto postavlja Bufer += "8" Displej += "8" txtRezultat.Text = Displej.ToString
Dodaje string buferu svoj broj i displeju, ovo se radi da bi se zaštitilo od manipulacije korisnika txt boxa.
SinišaČulić@
29
Ako se pritisne neka od operacija tatda se pokreće if petlja koja provjerava dali je rezultat unesen ako i ako je bufer veći od 0 onda se rezultat djeli, množi... zavisno koja je tipka pritisnuta, prazni se bufer postavlja se znak operacije tako da petlja jednakosii zna šta da radi u displej se postavlja znak operacije i u txt box rezultat takođe. Ako nije ispunjena nijedna if petlja prelazi se na else if sa kojim se ispituje dali je bufer veći od nula ako jese oneda se rezultat upisuje u bufer i rade ostale ranije navedene operacije unosa podataka i čišćenja. I na kraju akos e pokrene operacija pre unosa teksta onda se samo ispisuje znak operacije Kada se pritisne znak jednakosti prolazi se kroz jednu if petlju koja provijerava koja je operacija u pitanju kada se data operacija nađe izvršava se data operacija prema slijedećoj ugnježdenoj petlji koja provjerava prvo dali je bufer pun ako jeste vrši datu operaciju između rezultat i bufera, i sispicuje ih, ako nije bufer pun on samo ispisuje bufer
11. Zadatak Površina zapremina kvadra Ovaj zadatak je riješen klasično sa 3 promijenjive tipa intkojima se dodjeljuju unesene vrednosti. Vredno spomena jeste to da je data akcija izračunavanja poataka povezana na ontexst change event txt boxova koji su postavljenui u formi čim je ispunjen uslov za izvršavanje operacije stavljaju sse ok strelic pokraj vrednosii koje su unešene kao što je ilustrovano na lsijedećim ilustracijama.
SinišaČulić@
30
Source kod je: Public Class frm11Zadatak Dim a As Long Dim b As Long Dim c As Long Public Sub izracunaj() If (Integer.TryParse(txt1.Text.ToString, a)) And (Integer.TryParse(txt1.Text.ToString, a)) _ And (Integer.TryParse(txt2.Text.ToString, a)) Then
a = txt1.Text b = txt2.Text c = txt3.Text lblrezultat.Text = "Povrsina kvadra je: " & (2 * ((a * b) + (a * c) + (b * c))).ToString lblReyultat2.Text = "Zapremina Kvadra je: " & (a * b * c).ToString Else lblGreska.Text = "Niste jos unijeli sve 3 vrednosti" End If End Sub
Private Sub txt1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles txt1.TextChanged 'Izracunavamo date vrednosti izracunaj() If (Integer.TryParse(txt1.Text.ToString, a)) Then pctr1.Show() Else : pctr1.Hide() End If End Sub Private Sub txt3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles txt3.TextChanged 'Izracunavamo date vrednosti izracunaj() If (Integer.TryParse(txt3.Text.ToString, a)) Then pct3.Show() Else : pct3.Hide() End If End Sub
Private Sub txt2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles txt2.TextChanged 'Izracunavamo date vrednosti izracunaj() If (Integer.TryParse(txt2.Text.ToString, a)) Then pctr2.Show() Else : pctr2.Hide() End If End Sub
Private Sub _11_Zadatak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load pctr1.Hide() pctr2.Hide() pct3.Hide() End Sub End Class
SinišaČulić@
31
12. Zadatak Obrtanje teksta Oov je posve jednostavan zadak koji učitava vrednost unesenu u txt box i opbrće ga uz pomoć StrReverse uskladištenen funkcije Public Class frm12Zadatak Private Sub btnObrniTekst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnObrniTekst.Click Dim Riječ As String Riječ = txtUnos.Text Riječ = StrReverse(Riječ) txtNovi.Text = Riječ End Sub Private Sub btnIzlaz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIzlaz.Click Me.Close() End Sub
End Class
Forma izgleda:
SinišaČulić@
32
13. Zadatak Aritmetička sredina
Program učitava graničnu vrijednost niza, provjerava da nije prazno polje, i ako nije učitava zadani broj članova ispisujući ih u listu, klikom na dugme Ucitaj, u slučaju praznog polja piše poruku o potrebi unosa početne vrijednosti. Klikom na dugme Izracunaj, izračunava se i ispisuje aritmetička sredina učitanog niza.
Public Class frm13Zadatak 'Deklaracija promjenjivih Dim i, Suma, GranicnaV As Integer Dim Niz(100), ASredina As Double Private Sub btn_Izracunaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Izracunaj.Click 'Izracunavanje i ispis aritmeticke sredine niza Suma = 0 For i = 1 To GranicnaV Suma += Niz(i) Next ASredina = Suma / GranicnaV txt_ASredina.Text = ASredina.ToString End Sub Private Sub btn_Ucitaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Ucitaj.Click 'Ucitavanje i ispis niza lst_Niz.Items.Clear() txt_ASredina.Clear() If mtxt_Granica.Text = "" Then MessageBox.Show(" Unesi granicnu vrijednost niza!") mtxt_Granica.Focus() Else GranicnaV = mtxt_Granica.Text For i = 1 To GranicnaV Niz(i) = InputBox(" Unesi vrijednost clana niza") lst_Niz.Items.Add(Niz(i)) Next End If End Sub End Class
SinišaČulić@
33
14. Zadatak Igra pogađanja Ovo je veoma zanimljiva upotreba generisanje slučajnoga broja igra je zamišljena kao pogađanje šibica samo što ih ovdje imamo 30 i nemam samo jedan pokušaj. Slučajno se generiše neki broj između 1 i 30, to jeste po izboru od koliko pokušaja želimo da pogodimo. Potome sse sakriva izbor i pogađamo na svaki klik se poziva funkcija za proveru dali je pritisnuta pravo dugme a dugme postavlja svoj broj u bufer i provjerava se dali je bufer jednak broju koji je postavjlen, ako jeste onda pokazujemo sliku winer i sakrivamo grupu dugmadi. Ako ne oduizimamo broju koji je definisan u izboru 1, sve dokle ne stine na 1 onda pokazujemo sliku loser sakrivamo dugmad i pokazujemo dugme ponovo. Dugme ponovo postavlja farbe na default boju. Svako dugme pri pritisku mijenja boju. Source kod je: Public Class frm14zadatak 'proglasujemo javne promjenjive Dim Pokusaja As Integer Dim pokazivac As Integer Dim dobitnik As Integer
Public Sub pokusaj() ' Provjeravamo da li smo potrošili svoje pokušaje i dali samo pogodili pravo dugme If Pokusaja = 1 Then 'Ako samo potrošili svoje pokušaje pctrGubitnik.Show() 'Prikazujemo sliku gubitnik flpSviZajedno.Hide() ' sakrivamo dugmad
ElseIf Pokusaja > 1 Then 'Ako nisamo potrosili sve pokusaje onda If pokazivac = dobitnik Then ' provjeravamo dali smo pogodili dugme pctrBingo.Show() ' ako jesmo onda pokazujemo dobitnik sliku flpSviZajedno.Hide() 'i sakrivamo dugmad Else Pokusaja -= 1 ' Ako nismo pogodili onda umanjujemo broj pokusaja za 1 End If
End If End Sub
Private Sub _14_zadatak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Pri ucitavanju sakrivamo slijedece stvari flpSviZajedno.Hide() pctrBingo.Hide() pctrGubitnik.Hide() End Sub Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click If RadioButton1.Checked Then Pokusaja = 5 ElseIf RadioButton2.Checked Then Pokusaja = 10 ElseIf RadioButton3.Checked Then Pokusaja = 15 ElseIf RadioButton4.Checked Then Pokusaja = 20 End If flpSviZajedno.Show() dobitnik = CInt(Int((30 - 1 + 1) * Rnd() + 1)) ' generišemo slučajnu vrijednost u grainčnoj vrednosti od 1-30 btnGo.Hide() RadioButton1.Hide() RadioButton2.Hide()
SinišaČulić@
34
RadioButton3.Hide() RadioButton4.Hide() End Sub Private Sub Ponovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIznva.Click Pokusaja = 0 ' postavljamo broj pokusaja na 0 btnGo.Show() RadioButton1.Show() RadioButton2.Show() RadioButton3.Show() RadioButton4.Show() pctrBingo.Hide() pctrGubitnik.Hide() b01.BackColor = Color.White b02.BackColor = Color.White b02.BackColor = Color.White b04.BackColor = Color.White b05.BackColor = Color.White b06.BackColor = Color.White b07.BackColor = Color.White b08.BackColor = Color.White b09.BackColor = Color.White b10.BackColor = Color.White b11.BackColor = Color.White b12.BackColor = Color.White b13.BackColor = Color.White b14.BackColor = Color.White b15.BackColor = Color.White b16.BackColor = Color.White b17.BackColor = Color.White b18.BackColor = Color.White b19.BackColor = Color.White b20.BackColor = Color.White b21.BackColor = Color.White b22.BackColor = Color.White b23.BackColor = Color.White b24.BackColor = Color.White b25.BackColor = Color.White B26.BackColor = Color.White B27.BackColor = Color.White B28.BackColor = Color.White B29.BackColor = Color.White B30.BackColor = Color.White End Sub
Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b01.Click pokazivac = 1 pokusaj() b01.BackColor = Color.BlueViolet End Sub Private Sub b2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b02.Click pokazivac = 2 pokusaj() b02.BackColor = Color.BlueViolet End Sub Private Sub b6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b03.Click pokazivac = 3 pokusaj() b03.BackColor = Color.BlueViolet End Sub Private Sub b4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b04.Click pokazivac = 4 pokusaj() b04.BackColor = Color.BlueViolet
SinišaČulić@
35
End Sub Private Sub b05_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b05.Click pokazivac = 5 pokusaj() b05.BackColor = Color.BlueViolet End Sub Private Sub b06_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b06.Click pokazivac = 6 pokusaj() b06.BackColor = Color.BlueViolet End Sub Private Sub b07_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b07.Click pokazivac = 7 pokusaj() b07.BackColor = Color.BlueViolet End Sub Private Sub b08_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b08.Click pokazivac = 8 pokusaj() b08.BackColor = Color.BlueViolet End Sub Private Sub b09_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b09.Click pokazivac = 9 pokusaj() b09.BackColor = Color.BlueViolet End Sub Private Sub b10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b10.Click pokazivac = 10 pokusaj() b10.BackColor = Color.BlueViolet End Sub Private Sub b11_Click(ByVal sender As b11.Click pokazivac = 11 pokusaj() b11.BackColor = Color.BlueViolet End Sub Private Sub b12_Click(ByVal sender As b12.Click pokazivac = 12 pokusaj() b12.BackColor = Color.BlueViolet End Sub Private Sub b13_Click(ByVal sender As b13.Click pokazivac = 13 pokusaj() b13.BackColor = Color.BlueViolet End Sub Private Sub b14_Click(ByVal sender As b14.Click pokazivac = 14 pokusaj() b14.BackColor = Color.BlueViolet End Sub Private Sub b15_Click(ByVal sender As b15.Click pokazivac = 15 pokusaj() b15.BackColor = Color.BlueViolet End Sub Private Sub b16_Click(ByVal sender As b16.Click pokazivac = 16
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
SinišaČulić@
36
pokusaj() b16.BackColor = Color.BlueViolet End Sub Private Sub b17_Click(ByVal sender As b17.Click pokazivac = 17 pokusaj() b17.BackColor = Color.BlueViolet End Sub Private Sub b18_Click(ByVal sender As b18.Click pokazivac = 18 pokusaj() b18.BackColor = Color.BlueViolet End Sub Private Sub b19_Click(ByVal sender As b19.Click pokazivac = 19 pokusaj() b19.BackColor = Color.BlueViolet End Sub Private Sub b20_Click(ByVal sender As b20.Click pokazivac = 20 pokusaj() b20.BackColor = Color.BlueViolet End Sub Private Sub b21_Click(ByVal sender As b21.Click pokazivac = 21 pokusaj() b21.BackColor = Color.BlueViolet End Sub Private Sub b22_Click(ByVal sender As b22.Click pokazivac = 22 pokusaj() b22.BackColor = Color.BlueViolet End Sub Private Sub b23_Click(ByVal sender As b23.Click pokazivac = 23 pokusaj() b23.BackColor = Color.BlueViolet End Sub Private Sub b24_Click(ByVal sender As b24.Click pokazivac = 24 pokusaj() b24.BackColor = Color.BlueViolet End Sub Private Sub b25_Click(ByVal sender As b25.Click pokazivac = 25 pokusaj() b25.BackColor = Color.BlueViolet End Sub Private Sub b26_Click(ByVal sender As B26.Click pokazivac = 26 pokusaj() B26.BackColor = Color.BlueViolet End Sub Private Sub b27_Click(ByVal sender As B27.Click pokazivac = 27 pokusaj() B27.BackColor = Color.BlueViolet End Sub Private Sub b28_Click(ByVal sender As B28.Click pokazivac = 28 pokusaj() B28.BackColor = Color.BlueViolet End Sub Private Sub b29_Click(ByVal sender As B29.Click
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
System.Object, ByVal e As System.EventArgs) Handles
SinišaČulić@
37
pokazivac = 29 pokusaj() B29.BackColor = Color.BlueViolet End Sub Private Sub b30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B30.Click pokazivac = 30 pokusaj() B30.BackColor = Color.BlueViolet End Sub End Class
15. Zadatak Sam program prvo provjerava dali je unesena vrednost broj ako jeste onda provijeravamo dali je faktorijal od datoga broja 4 ako jeste onda je prestupna godina ako ne onda nije i to ispisujemo. Imamo taođe 2 slike koje prikazuju ok ili ne
SinišaČulić@
38
Source coude je: Public Class frm15Zadatak Private Sub btnKreni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKreni.Click Dim a As Integer If (Integer.TryParse(txtGodina.Text.ToString, a)) Then Dim x As String x = txtGodina.Text If x Mod 4 <> 0 Then lblRezultat.Text = txtGodina.Text.ToString & ". Godina nije prestupna" pctrNe.Show() Else lblRezultat.Text = txtGodina.Text.ToString & ". Godina je prestupna" pctrOk.Show() End If End If End Sub Private Sub _15_Zadatak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load pctrNe.Hide() pctrOk.Hide() End Sub Private Sub btnPoništi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnPoništi.Click txtGodina.Text = "" lblRezultat.Text = "" pctrNe.Hide() pctrOk.Hide() End Sub Private Sub btnIzlaz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIzlaz.Click Me.Close() End Sub End Class
16. Zadatak Pohranjivanje u TXT fajl Ovo je riješeno tako što se pravi txtpolje koje je prošireno i pohranjuje uz pomoć save contetn menija koje je postavljeno da je moguće sačuvati jedino kao txt.
SinišaČulić@
39
Kada pritisnemo sačuvaj u TXT dugme pokreće se funkcija koja je dole navedena u source kodu Public Class frm16Zadatak Private Sub btnSacuvaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnSacuvaj.Click SacuvajDijalog.ShowDialog() Dim ImeFajla As String ImeFajla = SacuvajDijalog.FileName Dim objWriter As New System.IO.StreamWriter(ImeFajla) objWriter.Write(txtUnos.Text) objWriter.Close() MsgBox("Upis izvrsen uspjesno") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub
End Class
I dobijamo meni koji smo ubacili sa toolboxa
I kao što se viid samo je txt dostupan.
SinišaČulić@
40
17. Zadatak Učitavanje iz TTX fajla Otvaranje radimo preko openfile dijaloga koji pozivamo i zadajemo mu parametre koji su neophodno za nejgov rad, i onda uz pomoć whle stringa ispisujemo ga iz txt fajla.
Source kod je: Public Class frm17ZadatakUcitavanjeTxt Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click txtIzlaz.Clear() OpenFileDialog1.ShowDialog() If System.IO.File.Exists(OpenFileDialog1.FileName) Then Dim fileReader As System.IO.StreamReader fileReader = My.Computer.FileSystem.OpenTextFileReader(OpenFileDialog1.FileName.ToString) Dim stringReader As String Do While Not fileReader.EndOfStream stringReader = fileReader.ReadLine() REM MsgBox("Iz fajla sam procitao liniju : " & stringReader) txtIzlaz.Text = txtIzlaz.Text & stringReader & vbCrLf Loop Else MessageBox.Show("Fajl ne postoji !") End If End Sub End Class
SinišaČulić@
41
18. Zadatak Konverzija decimalni/binarni i binanrni/decdecimalni broj Ovaj zaadtak je napravljen tako da dinamički vrši konverziju dok mi pišemo brojeve u txt box a da pri tome vrši proveru dali su date vrednosti uopšte brojevi, i dali su binarni ukoliko su binarni ostaje mogućnost da se uključi radio dugme da se prikažu kao binarni ali ukoliko su brojevi uneti decimalni automatski se prelazi na konverziju dec/bin a druga mogućnost se isključuje
SinišaČulić@
42
Source kod je: Public Class frm18ZadatakDecUBin Public Function BinarniUDecimalni(ByVal Binarni As String) As Long Dim n As Long Dim s As Integer For s = 1 To Len(Binarni) n = n + (Mid(Binarni, Len(Binarni) - s + 1, 1) * (2 ^ (s - 1))) Next s BinarniUDecimalni = n End Function Public Function DecimalniUBinarni(ByVal Decimalni As Long) As String Dim tmp As String Dim n As Long n = Decimalni tmp = Trim(Str(n Mod 2)) n = n \ 2 Do While n <> 0 tmp = Trim(Str(n Mod 2)) & tmp n = n \ 2 Loop DecimalniUBinarni = tmp End Function
Private Sub txtUnosnaVrednost_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles txtUnosnaVrednost.TextChanged Dim i As Byte Dim tekucacifra As Byte Dim a As Long Dim stanje As Boolean 'Proveravamo dail je uneta vrednost uopšte broj If (Long.TryParse(txtUnosnaVrednost.Text, a)) Then 'Prolazimo kroz brojeve unete vrednosti i provijeravamo dali je ijedan unijeti broj veći od 1 Do Until i = (txtUnosnaVrednost.TextLength) tekucacifra = Int(Mid(txtUnosnaVrednost.Text, i + 1, 1)) If tekucacifra > 1 Then stanje = False rbtBinarni.Enabled = False rbtDecimalni.Select() Else stanje = True rbtBinarni.Enabled = True End If i += 1 Loop If rbtDecimalni.Checked Then txtVrednost.Text = "Binaerna vrednost je:" & DecimalniUBinarni(txtUnosnaVrednost.Text.ToString) ElseIf stanje And rbtBinarni.Checked Then txtVrednost.Text = "Decimalna vrednost je:" & BinarniUDecimalni(txtUnosnaVrednost.Text.ToString) End If Else txtVrednost.Text = "Ili niste unijeli broj ili ste van opsega Long varijable" End If End Sub
End Class
SinišaČulić@
43
Literatura Beginning Microsoft Visual Basic 2008~tqw~_darksiderg.pdf to jeste knjiga (engleska verzija) Beginning Microsoft Visual Basic 2008 Thearon Wills, Bryan Newsome Izdavač Wrox
SinišaČulić@
44
