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.
Укупно приказа странице
понедељак, 9. децембар 2013.
среда, 4. децембар 2013.
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.
субота, 16. новембар 2013.
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
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
недеља, 3. новембар 2013.
DODAVANJE NOVIH OBRAZACA U PROGRAM
PROGRAMSKE NAREDBE ZA RAD SA OBRASCIMA
Za učitavanje obrasca:
LOAD ImeObrasca
Za prikazivanje obrasca:
ImeObrasca.Show
Za učitavanje obrasca:
LOAD ImeObrasca
Za prikazivanje obrasca:
ImeObrasca.Show
среда, 23. октобар 2013.
КУТАК ЗА ПРОГРАМЕРЕ
На овом блогу имате прилику да пратите рад додатне наставе из техничког и информатичког образовања. Блог је тематски усмерен на програмирање 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.
Старије постове везане за програмирање можете наћи на
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.
Пријавите се на:
Постови (Atom)