POVEZIVANJE SOFTVERA SEMAFOR SA HARDVEROM

Evo jedna sjajna ideja, hajde da kod koji smo napisali za animaciju rada semafora povežemo na mali interfejs koji ima na sebi tri led diode i koji će da simulira rad semafora.

DODAVANJE ANIMACIJE - POKRETA

U VB programskom jeziku, animaciju možemo da postavimo na nekoliko načina. Današnji primer je jedan od načina gde je potrebno nacrtati nekoliko sličica, a onda u tajmeru podesiti da se sličice pojavljuju jedan za drugom, nešto slično kao prilkom izrade crtanog filma. Za crtanje možemo upotrebiti razne programe, danas ćemo upotrebiti PAINT.

PROGRAM PREVODILAC - DODAVANJE NOVOG OBRASCA

Hajde da sada izmenimo program PREVODILAC, tako što ćemo umesto MsgBox-a koji je do sada prikazivao prevod, ubaciti u projekat novi obrazac koji će da zameni prethodni način prikaza prevoda. Ubacite novi obrazac tako što ćete ući u meni Project, a nakon toga kliknuti na Add Form.
Kreirajte obrazac kao na slici

Podesite svojstva:
Label1             Font          Times New Roman
                                        14 point
Text1              TabStop     False
Command1     Caption     Zatvori
Form2             Caption     Prevod


Izbrišite programski red
MsgBox (Def),, List1.Text
Na isto mesto upišite:
Load Form2
Form2.Label1=List1.Text
Form2.Text1=Def
Form2.Show

Dupli klik na dugme Zatvori, upisati kod:
Form2.Hide

DODAVANJE NOVIH OBRAZACA U PROGRAM

PROGRAMSKE NAREDBE ZA RAD SA OBRASCIMA

Za učitavanje obrasca:
LOAD ImeObrasca

Za prikazivanje obrasca:
ImeObrasca.Show

КУТАК ЗА ПРОГРАМЕРЕ

На овом блогу имате прилику да пратите рад додатне наставе из техничког и информатичког образовања. Блог је тематски усмерен на програмирање VBasic-ом.
Старије постове везане за програмирање можете наћи на
http://tehnickoinformaticko.blogspot.com/

PROGRAM LIČNI ALARM
Izgled obrasca 1

 Podesiti svojstva        Timer1 - interval - 15000
                                  enabled - False
Kod za Timer1
 CurrentTime = Format(Time, "hh:mm")
    If CurrentTime = Text1.Text Then
        Beep
        MsgBox (Text2.Text), , "Personal Alarm"
        Timer1.Enabled = False
                                                              Form1.WindowState = 0 'Restore form
                                                          End If


Kod za komandno dugme (Set Alarm and Minimaze) Command1  
Form1.WindowState = 1           'Minimize form 
Timer1.Enabled = True           'Start timer

Aplikacija služi kao lični podsetnik sa zvučnim signalom  i porukom kada dođe vreme za sledeći sastanak ili zadatak. Program alarm proverava trenutno vreme u sistemskom satu. 
Minimizovanje obrazaca postiže se svojstvom WindowState=1. Maksimizovanje sa WindowState=2. Vraćanje obrasca na normalan podrazumevani prikaz koristimo WindowState=0.