Македонски форум за електроника
Стручна литература => Туторијали => Topic started by: Devil on 05.03.2011, Saturday, 16:48:53
-
Главна „страна“
http://elektronika-mk.net/index.php?topic=4291.0 (http://elektronika-mk.net/index.php?topic=4291.0)
Код
'Proekt Tutorijal za Makedonski Forum za Elektronika
'************ http://elektronika-mk.net
'*****************Devil Tutorijali****************
'Hardver razvoen sistem MFE_01, softver mikroBasic PRO for PIC v.4
'Simulacija ISIS7
'Procesor 16F628A na 4MHz
program led 'Program led e imeto na proektot (programata)
main: 'Glaven del na programata
TRISB = 0 'Postavi porta B kako izlez
PORTB = 0 'Pocetna sostojba (digitalna sostojba 1-visoko nivo, 0- nisko nivo) na porta B e 0
Delay_ms(500) 'Pauza od 500mS
'Od tuka nadolu ja pisuvame programata za trepkanje na LED diodite
PORTB.0 = 1 'Pinot RB0 e na visoko nivo
Delay_ms(100) 'Pauza od 100mS ovaa naredba nadolu se povtoruva poveke pati
PORTB.1 = 1 'Pinot RB1 e na visoko nivo
Delay_ms(100)
PORTB.2 = 1 'Pinot RB2 e na visoko nivo
Delay_ms(100)
PORTB.3 = 1 'RB3 e na visoko nivo, ovaa naredba se povtoruva do RB7 da e na visoko nivo
Delay_ms(100)
PORTB.4 = 1
Delay_ms(100)
PORTB.5 = 1
Delay_ms(100)
PORTB.6 = 1
Delay_ms(100)
PORTB.7 = 1 'Portot RB7 e posleden
Delay_ms(2000) 'Pauza od 2S i site pinovi ostanuvaat zadrzani na visoko nivo, diodite svetat
PORTB = 0 'Portata B e na nisko naponsko nivo, site LED se iskluceni
goto main 'Odi na pocetok, ova e beskonecna komanda, ovaa programa
' ke se izvrzuva beskonecno dolgo
end. 'Kraj na programata
Видео
PIC LED tutorial no.1 (http://www.youtube.com/watch?v=s9BH4c2YQSc#)
-
-------------- ВТОР ДЕЛ ---------------
Ефекти во вклучувањето и исклучувањето
шема иста
I ефект
код
'Proekt Tutorijal za Makedonski Forum za Elektronika
'************ http://elektronika-mk.net
'*****************Devil Tutorijali****************
'Hardver razvoen sistem MFE_01, softver mikroBasic PRO for PIC v.4
'Simulacija ISIS7
'Procesor 16F628A na 4MHz
program led 'Program led e imeto na proektot (programata)
main: 'Glaven del na programata
TRISB = 0 'Postavi porta B kako izlez
PORTB = 0 'Pocetna sostojba (digitalna sostojba 1-visoko nivo, 0- nisko nivo) na porta B e 0
Delay_ms(500) 'Pauza od 500mS
'Od tuka nadolu ja pisuvame programata za trepkanje na LED diodite
PORTB.0 = 1 'Pinot RB0 e na visoko nivo
Delay_ms(100) 'Pauza od 100mS ovaa naredba nadolu se povtoruva poveke pati
PORTB.1 = 1 'Pinot RB1 e na visoko nivo
Delay_ms(100)
PORTB.2 = 1 'Pinot RB2 e na visoko nivo
Delay_ms(100)
PORTB.3 = 1 'RB3 e na visoko nivo, ovaa naredba se povtoruva do RB7 da e na visoko nivo
Delay_ms(100)
PORTB.4 = 1
Delay_ms(100)
PORTB.5 = 1
Delay_ms(100)
PORTB.6 = 1
Delay_ms(100)
PORTB.7 = 1 'Portot RB7 e posleden
Delay_ms(200) 'Pauza od 2S i site pinovi ostanuvaat zadrzani na visoko nivo, diodite svetat
'******************* VTOR DEL ***************************
'******************** EFEKTI **************************
'*** I efekt *** 'Isklucuvaj gi portite vo obratna nasoka od vklucuvanjeto
PORTB.7 = 0 'Iskluci go RB7, ova sledi za site porti do RB0
Delay_ms(100) 'Pauza od 100mS
PORTB.6 = 0
Delay_ms(100)
PORTB.5 = 0
Delay_ms(100)
PORTB.4 = 0
Delay_ms(100)
PORTB.3 = 0
Delay_ms(100)
PORTB.2 = 0
Delay_ms(100)
PORTB.1 = 0
Delay_ms(100)
PORTB.0 = 0
Delay_ms(50) ' Pauza od 50mS
goto main 'Odi na pocetok, ova e beskonecna komanda, ovaa programa
' ke se izvrzuva beskonecno dolgo
end. 'Kraj na programata
Видео
PIC LED tutorial no. 2 (http://www.youtube.com/watch?v=VYOdsI4WgoY#ws)
-
--------ТРЕТ ДЕЛ -----------
Шема иста
код
'Proekt Tutorijal za Makedonski Forum za Elektronika
'************ http://elektronika-mk.net
'*****************Devil Tutorijali****************
'Hardver razvoen sistem MFE_01, softver mikroBasic PRO for PIC v.4
'Simulacija ISIS7
'Procesor 16F628A na 4MHz
program led 'Program led e imeto na proektot (programata)
main: 'Glaven del na programata
TRISB = 0 'Postavi porta B kako izlez
PORTB = 0 'Pocetna sostojba (digitalna sostojba 1-visoko nivo, 0- nisko nivo) na porta B e 0
Delay_ms(500) 'Pauza od 500mS
'Od tuka nadolu ja pisuvame programata za trepkanje na LED diodite
PORTB.0 = 1 'Pinot RB0 e na visoko nivo
Delay_ms(100) 'Pauza od 100mS ovaa naredba nadolu se povtoruva poveke pati
PORTB.1 = 1 'Pinot RB1 e na visoko nivo
Delay_ms(100)
PORTB.2 = 1 'Pinot RB2 e na visoko nivo
Delay_ms(100)
PORTB.3 = 1 'RB3 e na visoko nivo, ovaa naredba se povtoruva do RB7 da e na visoko nivo
Delay_ms(100)
PORTB.4 = 1
Delay_ms(100)
PORTB.5 = 1
Delay_ms(100)
PORTB.6 = 1
Delay_ms(100)
PORTB.7 = 1 'Portot RB7 e posleden
Delay_ms(500) 'Pauza od 2S i site pinovi ostanuvaat zadrzani na visoko nivo, diodite svetat
'******************* VTOR DEL ***************************
'******************** EFEKTI **************************
'*** I efekt *** 'Isklucuvaj gi portite vo obratna nasoka od vklucuvanjeto
PORTB.7 = 0 'Iskluci go RB7, ova sledi za site porti do RB0
Delay_ms(100) 'Pauza od 100mS
PORTB.6 = 0
Delay_ms(100)
PORTB.5 = 0
Delay_ms(100)
PORTB.4 = 0
Delay_ms(100)
PORTB.3 = 0
Delay_ms(100)
PORTB.2 = 0
Delay_ms(100)
PORTB.1 = 0
Delay_ms(100)
PORTB.0 = 0
Delay_ms(500) ' Pauza od 50mS
'***** II efekt ***** '"Paralelno" vklucuvanje
PORTB.0 = 1 'Vklucuvaj gi
PORTB.7 = 1
Delay_ms(100)
PORTB.1 = 1
PORTB.6 = 1
Delay_ms(100)
PORTB.2 = 1
PORTB.5 = 1
Delay_ms(100)
PORTB.3 = 1
PORTB.4 = 1
Delay_ms(300)
PORTB.4 = 0 'Isklucuvaj gi
PORTB.3 = 0
Delay_ms(100)
PORTB.5 = 0
PORTB.2 = 0
Delay_ms(100)
PORTB.6 = 0
PORTB.1 = 0
Delay_ms(100)
PORTB.0 = 0
PORTB.7 = 0
Delay_ms(500)
goto main 'Odi na pocetok, ova e beskonecna komanda, ovaa programa
' ke se izvrzuva beskonecno dolgo
end. 'Kraj na programata
Видео
PIC LED tutorial no. 3 (http://www.youtube.com/watch?v=E12MQj6NzyU#ws)
-
--------- ЧЕТВРТ ДЕЛ -------------
Шема иста
Код
додаден е само овај дел
'*** III efekt *** '"Knight Rider"
PORTB.0 = 1
Delay_ms(80)
PORTB.0 = 0
PORTB.1 = 1
Delay_ms(80)
PORTB.1 = 0
PORTB.2 = 1
Delay_ms(80)
PORTB.2 = 0
PORTB.3 = 1
Delay_ms(80)
PORTB.3 = 0
PORTB.4 = 1
Delay_ms(80)
PORTB.4 = 0
PORTB.5 = 1
Delay_ms(80)
PORTB.5 = 0
PORTB.6 = 1
Delay_ms(80)
PORTB.6 = 0
PORTB.7 = 1
Delay_ms(80)
PORTB.7 = 0
Delay_ms(80)
PORTB.7 = 1
Delay_ms(80)
PORTB.7 = 0
PORTB.6 = 1
Delay_ms(80)
PORTB.6 = 0
PORTB.5 = 1
Delay_ms(80)
PORTB.5 = 0
PORTB.4 = 1
Delay_ms(80)
PORTB.4 = 0
PORTB.3 = 1
Delay_ms(80)
PORTB.3 = 0
PORTB.2 = 1
Delay_ms(80)
PORTB.2 = 0
PORTB.1 = 1
Delay_ms(80)
PORTB.1 = 0
PORTB.0 = 1
Delay_ms(80)
PORTB.0 = 0
DElay_ms(500)
Видео
PIC LED tutorial no. 4 (http://www.youtube.com/watch?v=o0lTMAfQSvk#ws)