.PNG "WinMp4Extract - glavni prozor")
.PNG "WinMp4Extract - video sa GPS podacima")
Programiranje
- Detalji
- Autor: Samir Gutić
- Pročitano: 10351 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.
- Detalji
- Autor: Samir Gutić
- Pročitano: 8523 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 "<br/> To je program <b> N360 </b>";
break;
case 2:
echo "<br/> To je program <b> N361 </b>";
break;
default:
echo "<br/> <b> To je nepostojeći program! </b> ";
}
Case naredba je preglednija od IF naredbe i pogodna je za korištenje u kombinaciji sa Java script-om (kasnije će biti primjer).
- Detalji
- Autor: Samir Gutić
- Pročitano: 8635 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
- Detalji
- Autor: Samir Gutić
- Pročitano: 8251 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.
- Detalji
- Autor: Samir Gutić
- Pročitano: 8745 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:
- Detalji
- Autor: Samir Gutić
- Pročitano: 8887 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.
- Detalji
- Autor: Samir Gutić
- Pročitano: 9287 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.
- Detalji
- Autor: Samir Gutić
- Pročitano: 7737 puta
Ako je potre
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.
- Detalji
- Autor: Samir Gutić
- Pročitano: 5058 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.
- Detalji
- Autor: Samir Gutić
- Pročitano: 10372 puta
Za one koji vole samo da "sastave" svoju web stranicu iz različitih skripti, postoji jedna praktična skripta za unos, obradu i prikaz vijesti na web stranici.
To je skripta PHPNews koju možete pronaći i besplatno preuzeti na oficijelnoj stranici projekta >OVDJE<
Instalacija i upotreba same skripte je zasebna priča (biće i o tome riječi kasnije). U nastavku je opis postupka za implementaciju prijevoda na Bosanski jezik.
Skriptu sam lično koristio više od godinu dana i bio sam prilično zadovoljan.
Jedino mi je nedostajao WYSIWG editor za unos vijesti. Naime, pri kreiranju novih vijesti možete koristiti sve HTML tagove ali ih morate upisati ručno.