Ledlerle Havaya Yazı Yazma 16F628A

Pic Basic Pro (PBP Bas uzantılı dosya uzantısı) ile kodlarla 16F628A' nın portb.0 dan başlayarak  portb.6 ya kadar hepsi kırmızı renkte ledleri saf düzen (Tek Sıra Düz ip gibi
dizilmiş hali) 220 ohm ile GND ye bağlayın. Elle sağa sola hızlı çevirirseniz isim okunabilecektir. 12 Volt FAN motoruna üzerine takabilirseniz
ve motor hızını denemelerle iyi ayarlanırsa
çok net okunur.



include "BS1DEFS.BAS"
trisb=%10000000
PORTB=%10000000
@ DEVICE pic16F628a, INTRC_OSC_NOCLKOUT  '4 mHz Kristal kullanmadığınızda komut böyledir.
'@ DEVICE pic16F628a, XT_OSC  ' kristalli hali

 CMCON=7

ana:
 

'*********************************
' invert Bits portb.7 den başlar
'E
    PORTB=%01111111
    gosub bekle1
    PORTB=%01001001
    gosub bekle1
    PORTB=%01001001
    gosub bekle1
    PORTB=%01001001
    gosub bekle1
    PORTB=%01000001
    gosub bekle1
    PORTB=000000
    gosub bekle3
'*************************************
  'D
   PORTB=%01111111
    gosub bekle1
    PORTB=%01000001
    gosub bekle1
    PORTB=%01000001
    gosub bekle1
    PORTB=100010
    gosub bekle1
    PORTB=111110
    gosub bekle1
    PORTB=000000
    gosub bekle3

'***********************************
'A
    PORTB=011111
    gosub bekle1
    PORTB=%01100100
    gosub bekle1
    PORTB=%01100100
    gosub bekle1
    PORTB=%01100100
    gosub bekle1
    PORTB=011111
    gosub bekle1
    PORTB=000000
    gosub bekle3

'***********************************
'kelime boÅŸluÄŸu
     
    PORTB=000000
    gosub bekle2

'*********************************
bekle1:
    pause  1     '1 ideali
    return
bekle2:
    pause 100  '96    '66
    return    
bekle3:
    pause 2          '2
    return  


Derleme yazılım programınız yoksa aşağıdaki HEX dosyalarını pic programmer kite yükleyiniz.

:100000002828A301A200FF30A207031CA307031C9A
:1000100023280330A100DF300F200328A101E83E90
:10002000A000A109FC30031C1828A00703181528FC
:10003000A0076400A10F152820181E28A01C222844
:1000400000002228080083130313831264000800B1
:1000500083168030860083128030860007309F0030
:100060007F30860065204930860065204930860053
:100070006520493086006520413086006520860174
:100080006B207F308600652041308600652041303E
:10009000860065202230860065203E30860065207F
:1000A00086016B201F308600652064308600652045
:1000B0006430860065206430860065201F3086002D
:1000C000652086016B208601682001300120080030
:0C00D0006430012008000230012008000C
:02400E007C3FF5
:00000001FF