Visual basic CASE naredba

Detalji
Autor: Samir Gutić
Pročitano: 9734 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: 9654 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: 9113 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: 9521 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: 9359 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).

Upravljanje kombinacijom tipki sa tastature

Detalji
Autor: Samir Gutić
Pročitano: 11248 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.

rar VB6 ASCII kodovi 1.0
Download

InputBox

Detalji
Autor: Samir Gutić
Pročitano: 10501 puta

InputBox služi za prikaz prozora za unos neke vrijednosti od strane korisnika, u toku izvršavanja programa:

ponovi = InputBox("Upišite broj slanja istog mail-a", "Broj slanja", 1, 800,600)

Ponovi je varijabla u programu koja će sadržavati unešenu vrijednost i treba biti deklarisana ovisno o tipu podataka koji se unose.

"Upišite broj slanja istog mail-a" je tekst koji se pojavljuje na naslovnoj traci Input dijaloga koji se pojavi.

"Broj slanja" je tekst koji bude ispisan na samoj formi dijaloga.

1 predstavlja default vrijednost koja će biti upisana u input texbox dijaloga.

800 je X pozicija dijaloga na ekranu.

600 je Y pozicija dijaloga na ekranu.

Opširnije: …

Visual basic MsgBox

Detalji
Autor: Samir Gutić
Pročitano: 11019 puta

Msgbox (poruka na ekranu) služi za prikaz poruke u prozorčiću na ekranu.

dim yesno as byte 'YES=6; NO=7

yesno = MsgBox("Jeste li sigurni da želite da napravite SHUTDOWN računara? " & Chr(10) & _ "Ako kliknete na Yes biće pokrenut SHUTDOWN i izgubićete" & Chr(10) & _ "sve podatke koje niste sačuvali.", vbYesNo + vbQuestion, "Poruka")

If yesno = 6 Then

'Pokretanje procudure za shutdown računara

Shutdown

End If

Znak & omogućava združivanje dva dijela stringa, Chr(10) obezbjeđuje prelazak teksta, koji će biti prikazan na poruci, u novi red dok _ omogućava prelazak jedne linije koda u drugi red prozora za upis koda. vbYesNo obezbjeđuje prikaz Yes i No tipki na poruci, dok vbQuestion odeđuje ikonicu na poruci (u ovom slučaju znak upitnik).

U ovom primjeru će bit prikazana poruka sa izborom Yes i No. Izborom Yes pokreće se procedura Shutdown dok se izborom No ništa ne izvršava (zahvaljujući IF naredbi).

PHP IF naredba

Detalji
Autor: Samir Gutić
Pročitano: 10342 puta

Ako je potrebno vršiti grananje programa na osnovu nekakvih uslova, koristi se IF naredba.

Na primjeru ispod, vrši se pokretanje odgovarajuće jezičke stranice (EN, BA ili SI) na osnovu vrijednosti varijable $zemlja

if ($zemlja == 'EN')
{
include ("EN/narudzbeEN.php");
}
else if ($zemlja == 'BA')
{
include ("BA/narudzbeBA.php");
}
else if ($zemlja == 'SI')
{
include ("SI/narudzbeSI.php");
}

Gdje je EN/narudzbeEN.php puna putanja do php file-a koji se pokreće.

Npr. ako je vrijednost varijable $zemlja=BA biće pokrenut file narudzbeBA.php.

Eksplicitna promjena tipa podataka

Detalji
Autor: Samir Gutić
Pročitano: 8792 puta

Moguća je i eksplicitna promjena tipa podataka. Npr. konverzija integer varijable u string tip:

$a=13;
$b=(string)$a;

Vraćanje nazad:
$a=(integer)$b;

Page 23 of 26