15 Mayıs 2011 Pazar

PİC BASİC

mikrodenetleyicileri programlamak için geliştirlen bu dil ile kolaylıkla yazılımları hazırlayabilirsiniz. Bu derleyicinin demo (kod sınırlaması) sürümünü  BURAYA TIKLAYARAK  indirebilirsiz.

picbasic ile yazılmıs pic16f628 için bir yazılım örneği:
-------------------------------------------------------------------------------------------------------------
PORTA = 0
PORTB = 0
TRISA=000001   'A portu A.0 giriş diğerleri çıkış yapıldı.
TRISB=000000   'B portu tamamı çıkış yapıldı.
'-----------------------------------------------------------------
@ DEVICE pic16F628                      'işlemci 16F628
@ DEVICE pic16F628, WDT_on              'Watch Dog timer açık
@ DEVICE pic16F628, PWRT_ON             'Power on timer açık
@ DEVICE pic16F628, PROTECT_OFF         'Kod Koruma kapalı
@ DEVICE pic16F628, MCLR_OFF             'MCLR pini kullanılıyor.
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT  'Dahili osilatör kullanılacak
'---------------------------değişkenler------------------------------
 AL     VAR  BYTE
 GIRIS  VAR  PORTA.0
 ROLEA  VAR  PORTB.0
 ROLEB  VAR  PORTB.1
 LEDA   VAR  PORTB.6
 LEDB   VAR  PORTB.7
'-----------------------------B A Ş L A N G I Ç ---------------------------
CMCON = 7
Clear _
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
pause 500
PORTB = 0 'tüm çıkışlar low seviyesinde
'-------------------------------------------------------------------------------
BASLA:
       SerIn2 GIRIS, 396, [WAIT ("ETE"),AL]
     
       If AL = 88 Then
          TOGGLE LEDA
          TOGGLE ROLEA
       End If
          
       If AL = 66 Then
          TOGGLE LEDB
          TOGGLE ROLEB
       End If
       pause 200
       GoTo BASLA
End

Hiç yorum yok:

Yorum Gönder