Pages: [1]   Go Down

Author Topic: Туторијал за програмирање во MikroBasic (LED)  (Read 1978 times)

Offline Devil

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 5329
  • Gender: Male
    • Македонски форум за електроника
Туторијал за програмирање во MikroBasic (LED)
« Opened on 05.03.2011, Saturday, 16:48:53 (Edited 22.01.2015, Thursday, 11:42:21) »
Главна „страна“
http://elektronika-mk.net/index.php?topic=4291.0

Код
Code: [Select]
'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
Jас не сум себичен, помагам. Помагај и ти !

Секоја куќа си има свои куќни правила.Почитувај ги куќните правила!

Offline Devil

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 5329
  • Gender: Male
    • Македонски форум за електроника
Туторијал за програмирање во MikroBasic (LED)
« Reply #1 on 05.03.2011, Saturday, 17:21:05 »
-------------- ВТОР ДЕЛ ---------------
Ефекти во вклучувањето и исклучувањето
шема иста

I ефект

код
Code: [Select]
'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

Jас не сум себичен, помагам. Помагај и ти !

Секоја куќа си има свои куќни правила.Почитувај ги куќните правила!

Offline Devil

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 5329
  • Gender: Male
    • Македонски форум за електроника
Одг: Туторијал за програмирање во MikroBasic (LED)
« Reply #2 on 05.03.2011, Saturday, 17:38:44 »
--------ТРЕТ ДЕЛ -----------
Шема иста
код
Code: [Select]
'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
Jас не сум себичен, помагам. Помагај и ти !

Секоја куќа си има свои куќни правила.Почитувај ги куќните правила!

Offline Devil

  • Администратор
  • Топ Експерт
  • *****
  • Posts: 5329
  • Gender: Male
    • Македонски форум за електроника
Одг: Туторијал за програмирање во MikroBasic (LED)
« Reply #3 on 05.03.2011, Saturday, 17:54:50 »
--------- ЧЕТВРТ ДЕЛ -------------
Шема иста
Код
додаден е само овај дел
Code: [Select]
'*** 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
Jас не сум себичен, помагам. Помагај и ти !

Секоја куќа си има свои куќни правила.Почитувај ги куќните правила!
Pages: [1]   Go Up