Туторијал за програмирање во MikroBasic (Тастер)

[Devil]

Главна страна (дискусии, прашања)
http://elektronika-mk.net/index.php?topic=4291.msg39377#msg39377

Шема


Код

Code: [Select]

'************* TUTORIAL II - TASTERI **********
'********* Makedonski Forum za Elektronika********
'********* http://elektronika-mk.net **********
'********* Procesor PIC16F628A @ 4MHz, Simulacija ISIS 7, Razvoen sistem MFE_01
'************** DEVIL ****************
program Taster         'Ime na programata

main:                  'Glaven del na programata
TRISB = 0              'Postavi porta B kako izlez
PORTB = 0              'Pocetna sostojba na porta B e 0
TRISA = 1              'Postavi porta A kako vlez
PORTA = 1              'Pocetna sostojba na porta A e 1
Delay_ms(30)           '30mS pauza
if PORTA.0 = 1         'Dokolku portata RA0 e na visoko nivo
then PORTB.0 = 1       'Togas portata RB0 e na visoko nivo (sveti prvata led)
  else PORTB.1 = 1     'Dokolku ne e taka portata RB1 e na visoko nivo (sveti vtora led)
end if                 'Tuka zavrsuva IF funkcijata
Delay_ms(100)
  goto main            'Pocni od pocetok (odi i pocni od MAIN)

end.
Видео
PIC Button tutorial no.1

[Devil]

-----II дел-----
примена на тастер за контрола на повеќе порти

Шема иста со претходната

Код

Code: [Select]

'************* TUTORIAL II - TASTERI **********
'********* Makedonski Forum za Elektronika********
'********* http://elektronika-mk.net **********
'********* Procesor PIC16F628A @ 4MHz, Simulacija ISIS 7, Razvoen sistem MFE_01
'************** DEVIL ****************

program Taster         'Ime na programata

main:                  'Glaven del na programata
TRISB = 0              'Postavi porta B kako izlez
PORTB = 0              'Pocetna sostojba na porta B e 0
TRISA = 1              'Postavi porta A kako vlez
PORTA = 1              'Pocetna sostojba na porta A e 1
Delay_ms(30)           '30mS pauza
if PORTA.0 = 0           'Dokolku porta RA0 e na nisko nivo togas
then PORTB = %00001000   'Togas porta B e so sledniot raspored
  Delay_ms(100)          'RB4=1, RB5=0, RB6=0, RB7=0
  PORTB = %00000100      'RB4=0, RB5=1, RB6=0, RB7=0
  Delay_ms(100)          'RB4=0, RB5=0, RB6=1, RB7=0
  PORTB = %00000010      'RB4=0, RB5=0, RB6=0, RB7=1
  Delay_ms(100)
  PORTB = %00000001
  Delay_ms(100)
  else goto main          'Dokolku RA0 ne e na nsiko nivo odi na pocetok (main)
 end if                   'Zavrsi ja IF funkcijata
 goto main                'Odi na pocetok
end.
Видео
PIC Button tutorial no.2

Во видеово се гледа дека еднаш едната диода не свети еднаш свети, значи диодите си светат убаво нормално како што треба, но поради лошата снимка изгледа така како да не работаат убаво