::: Amicus :::

Can't find project library CurDir

Detalji: Autor: Samir Gutić; Pročitano: 6792 puta

Ako pri pokretanju programa iz Visual basic editora "iskoči" greška da nije pronađena library CurDir onda znači da nedostaje neka od referenci. Treba izabrati Project\References...

U novodobijenom prozoru će biti prikazane uključene reference (sa kvakicama). Ispred neke od uključenih referenci će biti ispisano MISSING. Potrebno je isključiti tu referencu da bi se program mogao pokrenuti.

ENUM tip podataka

Detalji: Autor: Samir Gutić; Pročitano: 11820 puta

Ako je potre ENUM tip podataka bno definisati vlastiti tip podataka sa određenim vrijednostima koje Visual Basic ponudi nakon upisa imena tipa podatka i znaka jednako (=), slika ispod, potrebno je deklarisati ENUM tip podataka.

Opširnije: …

Upotreba DATE funkcije

Detalji: Autor: Samir Gutić; Pročitano: 11811 puta

Za dobijanje trenutnog datuma u Visual Basic 6 programu potrebno je koristiti funkciju Date. Ova funkcija daje trenutni datum i može se koristiti kao uprimjeru ispod:

datum=Date

Time se u varijablu datum smiješta vrijednost trenutnog datuma.

Za prikaz datuma u željenom formatu koristiti funkciju Format:

Format (date, "dd/mm/yyyy")

U ovom primjeru je izvršeno formatiranje datuma u formatu npr. 27/07/2004.

Opširnije: …

Visual basic CASE naredba

Detalji: Autor: Samir Gutić; Pročitano: 11767 puta

CASE naredba služi za usmjeravanje toka izvršavanja programa na osnovu vrijednosti varijable ili izraza.

U sljedećem primjeru se na osnovu vrijednosti varijable MjesecS, koja predstavlja redni broj mjeseca, varijabli MjesecL dodjeljuje naziv mjeseca.

Opširnije: …

Upotreba funkcije SendKeys

Detalji: Autor: Samir Gutić; Pročitano: 11267 puta

Ako je potrebno iz programa simulirati pritisak na neku tipku sa tastature, koristi se funkcija SendKeys ("^{END}"), True

U tabeli su navedene tipke na tastaturi i kodovi koji se koriste u funkciji sendkeys:

Opširnije: …

Maskiranje znakova ukucanih u text box

Detalji: Autor: Samir Gutić; Pročitano: 10670 puta

Ako se text box koristi za unos password-a moguće je izvršiti maskiranje unesenih znakova, tj. zamjenu ukucanog znaka željenim znakom. Potrebno je za text box u svojstvo PasswordChar upisati znak koji će biti korišten kao zamjenski, npr. *

Sada će pri upisu teksta u text box biti prikazane samo zvjezdice.

Zabrana upisa nekog znaka u txtbox

Detalji: Autor: Samir Gutić; Pročitano: 11134 puta

Da bi se izvršila zabrana upisa određenog znaka u text box potrebno je pratiti pritisak tipke na tastaturi i to kroz proceduru txtime_KeyPress. Ako je detektovan zabranjen znak onda se ASCII vrijednost postavlja na nulu.

Na primjeru je zabrana upisa svih znakova osim cifara 0-9 i tipki Del i Backspace.

Private Sub txtime_KeyPress(KeyAscii As Integer)

If KeyAscii >47 And KeyAscii <58 or KeyAscii=127 Or KeyAscii=8 Then

Else

KeyAscii=0

Beep

End if

End Sub

Moguće je umjesto ASCII koda za neki znak koristiti funkciju Asc ali je tada moguće samo pisati uslove sa = kao u primjeru:

Private Sub txtime_KeyPress(KeyAscii As Integer)

If KeyAscii = Asc(".") Then

MsgBox "Unos decimalnog broja nije dozvoljen.", vbOKOnly + vbInformation, "Poruka."

End If

End Sub

PHP SWITCH CASE naredba

Detalji: Autor: Samir Gutić; Pročitano: 10840 puta

Ako je potrebno na osnovu vrijednosti neke varijable vršiti grananje programa, slično kao sa IF naredbom, koristi se switch case naredba.

Primjer ispod, na osnovu vrijednosti varijable $ProgramId na ekran printa jednu od 3 poruke:

1 --> To je program N360

2 --> To je program N361

za bilo koji drugi broj -->To je nepostojeći program!

switch ($ProgramId) {
case 1:
echo " To je program N360 ";
break;
case 2:
echo " To je program N361 ";
break;
default:
echo " To je nepostojeći program! ";
}

Case naredba je preglednija od IF naredbe i pogodna je za korištenje u kombinaciji sa Java script-om (kasnije će biti primjer).

Upravljanje kombinacijom tipki sa tastature

Detalji: Autor: Samir Gutić; Pročitano: 12816 puta

Visual basic 6 programom je moguće upravljati i pomoću tipki sa tastature. Sljedeći primjer prati istovremeni pritisak na tipke Ctrl + Alt + m.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = vbCtrlMask + vbAltMask And KeyCode = vbKeyM Then

MsgBox "Pritisnuli ste tipke CTRL+Alt+m"

End If

End Sub

U attachment-u možete pronaći RAR arhivu koja sadrži Visula Basic 6 projekat (i kompajliran EXE file) koji vrši prikaz ASCII kôdova za tipke pritisnute na tastaturi.

Pored toga, nakon zatvaranja programa, u direktoriju u kome je ASCII.EXE file kreira se ascii.txt datoteka u kojoj su upisani svi pritisnuti znakovi i njihovi ASCII kôdovi.

Dokumenti za download: