Geri git   Programlama ve Elektronik > Elektronik Programlama > PIC Basic

PIC Basic PIC Basic Pro vb. Hakkında

Cevapla
 
Seçenekler Stil
Alt 25. December 2007, 12:03 AM   #1 (permalink)
Administrator
 
PIONEERNADIR - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Dec 2007
Nerden: Mersin - Merkez
Mesajlar: 762
PIONEERNADIR - MSN üzeri Mesaj gönder PIONEERNADIR - YAHOO üzeri Mesaj gönder
Standart PIC Basic Pro Öğreniyoruz - Ders Notları

Ö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
PIONEERNADIR isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 20. April 2012, 10:58 AM   #2 (permalink)
Amatör
 
Üyelik tarihi: Apr 2012
Mesajlar: 1
Standart Cevap: PIC Basic Pro Öğreniyoruz - Ders Notları

Link ölmüş yenilenecek mi acaba....
mnukrom isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 23. April 2012, 06:53 PM   #3 (permalink)
Amatör
 
Üyelik tarihi: Jun 2011
Mesajlar: 5
Standart Cevap: PIC Basic Pro Öğreniyoruz - Ders Notları

lıng gocuk
ALPHA isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

Seçenekler
Stil

Yetkileriniz
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
PIC BASIC Projects - 30 Projects Using PIC BASIC and PIC BASIC PRO (pdf) Download ULAGA PIC Basic 3 6. April 2014 12:03 AM
Görüntü Sistemleri Ders Notları - Dr. İbrahim Türkoğlu - Fırat Üniversitesi PIONEERNADIR Elektronik e-Book (pdf-doc-chm-html vb.) 6 13. February 2013 04:05 PM
Catia Eğitim Notları PIONEERNADIR Bilgisayar e-Book (pdf-doc-chm-html vb.) 1 9. December 2012 11:40 AM
Enstrümantasyon Ders Notları Siyah_light Konu Çöp Kutusu 0 30. December 2008 12:56 PM
Güç Elektroniği ders notları!!! Siyah_light Konu Çöp Kutusu 0 30. December 2008 12:50 PM