PIC Basic Pro Öğreniyoruz - Ders Notları

**PIONEERNADIR** · 25. December 2007, 12:03 AM

Önsöz

Pic Basic Pro programlama dilinin kullanımı ve komutları konusunda bilgiler vermek komutların kullanım şekillerini açıklama ve sonuçta örnekler vererek yeni başlayanlara bu dili öğretmeyi amaçlıyorum.Basic bilenler ise dersleri takip ederlerse bazı enteresan programlama teknikleri öğrenebilirler. Zira Basic dili her ne kadar üniversal bir dil olsa da bazı komutlar akıllıca kullanılarak programlamada karşılaşılan zorluklar kolaylıkla aşılabilir.
Derslerimizde temel amaç örnekler vererek öğretmektir. Zira en iyi öğrenme yolu görsel olanıdır.

Erol Erdal (ETE)

Aşağıda Örnek Olarak Kitaptan Alınma Bir Kısım
************************************************** **************
* Name : LED-ANIMASYON.BAS
* Author : [Erol Tahir Erdal]
* Notice : Copyright(c) 2005[ETE] All Rights Reserved
* Date : 09.04.2005
* Version : 1.0
* Notes : Tüm pinlere 330 Ohm seri olarak LED Bağlanacak
************************************************** **************
PORTA=0
TrisA=%00000000
TrisB=%00000000
'-----------------------------------------------------------------
@ 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 kullanlımııyor.
@ DEVICE pic16F628 INTRC_OSC_NOCLKOUT 'Dahili osilatör kullanılacak
'-----------------------------------------------------------------
CMCON=7 '16F628 de komparatör pinleri iptal hepsi dijital
'-----------------------------------------------------------------
I var WORD
Z VAR BYTE
W VAR BYTE
T VAR BYTE
Y var byte
SON VAR BYTE '128 - 192 -224 - 240 - 248 - 124
'-----------------------------------------------------------------
'A portundan başlayarak ledleri birer birer yakıyoruz. Sonra B portuna
'atlıyoruz. Hepsi yandıktan sonra teker söndürüyoruz. Bu sefer ikişer
'yakıyoruz ve söndürüyoruz. Üçer yakıyoruz söndürüyoruz. Bu sefer Dıştan
'içe doğru yakıp söndürüyoruz. Sonra içten dışa doğru. SOnra kara şimşek yapıyoruz.
'------------------------------------------------------------------
PORTA=0
PORTB=0
I=1:Z=2:W=1
'---------------------------ANA PROGRAM BÖÜMÜ-----------------------------------
BASLA:
PORTA=I ‘1. bit den başlayarak ledleri yakıyoruz
PAUSE 100
I=I*2 ‘bir sonraki bit yakıldı
IF I<254 THEN BASLA
PORTA=0 ‘tüm bitler yandıktan sonra portun tamamını söndür
I=W
BIR: PORTB=I ‘Aynı işi B portu içinde yap
PAUSE 100
I=I*2
IF I<254 THEN BIR
PORTB=0
T=I/2 ‘bu sefer geriye doğru yakıyoruz ledleri
I=T
IKI:PORTB=I
PAUSE 100
I=I/2
IF I>0 THEN IKI
PORTB=0
I=T
UC:PORTA=I ‘Geriye doğru A portunu yakıyoruz
PAUSE 100
I=I/2
IF I>0 THEN UC
Z=Z+1:I=2*W+1:W=I
IF Z<8 THEN BASLA
PORTA=0
I=128
Z=1
'------------------BURAYA KADAR 1-5 SIRA ÇİFT YÖN YAKILDI-----------------------
DORT: PORTA=I
PORTB=Z
PAUSE 100
I=I/2
Z=Z*2
IF I>0 THEN DORT
ARA: I=1:Z=128:W=I:T=7:y=z
BES:
PORTA=I
PORTB=Z
PAUSE 100
I=I*2
Z=Z/2
IF Z>1 THEN BES
z=w:I=y
ALTI: PORTA=I
PORTB=Z
PAUSE 100
I=I/2
Z=Z*2
IF I>1 THEN ALTI
T=T-1:I=W*2+1:Z=DCD T+Y:W=I:Y=z
IF I<33 then BES
porta=0portb=0
I=1:Z=2:W=1:T=7
goto basla
END

Dosyaları Buradan İndirebilirsiniz
[Sadece Üyelere Linkler Açıktır.Üye Olun !!! Tıklayarak Üye Olun !!!]
Password : www.proelo.com

mnukrom · 20. April 2012, 10:58 AM

Link ölmüş yenilenecek mi acaba....

ALPHA · 23. April 2012, 06:53 PM

lıng gocuk