PIC Basic Pro ve konfigürasyon

Başlatan ilker_32, 22 Temmuz 2008, 11:10:48

Teğmen

Proton derleyicide picbasic programını deniyorum.
Kod Seç
@device pic18f46k22 gibi birşey yazamıyorum pic seçimi gibi bir olay var mı c deki gibi project wizard
"Girdim ilim meclisine kıldım eyledim talep,   Dediler ilim geride kaldı illa Edep illa Edep" Hz.Yunus Emre K.S.

ferit06

Device = 18F46K22

şeklide yazabilirsin.

Maxim


Teğmen

Kod Seç
'****************************************************************
'
*  Name    basic__first_project.BAS                          *
'*  Author  : [Emre]                                            *
'
*  Notice  Copyright (c2017 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'
*  Date    27.09.2017                                        *
'*  Version : 1.0                                               *
'
*  Notes   :                                                   *
'*          :                                                   *
'
****************************************************************



Device 18F46K22
Declare Xtal=8

 

DEFINE LCD_DREG
	
	
PORTB
	
    
'LCD data bacakları PortB de bağlı
DEFINE LCD_DBIT
	
	
	
4
	
	
'
LCD data bacakları 4. bitten başlıyor
DEFINE LCD_EREG
	
	
PORTB
	
    
'LCD Enable Bacağı PortB de bağlı
DEFINE LCD_EBIT
	
	
	
3
	
	
'
LCD Enable Bacağı 3. bite bağlı
	

DEFINE LCD_RWREG    PORTB
	
    
'LCD RW Bacağı PortB de bağlı
DEFINE LCD_RWBIT     
	
2
	
	
'
LCD RW Bacağı  2. bite bağlı
DEFINE LCD_RSREG
	
PORTB
	
    
'LCD RS Bacağı PortB de bağlı
DEFINE LCD_RSBIT
	
	
1
	
	
'
LCD RS bacağı 1. Bite bağlı
	
	

DEFINE LCD_BITS
	
	
	
4
	
	
'LCD 4 bit  olarak bağlı
DEFINE LCD_Lines
	
	
2
	
	
'
LCD 2 sıra olarak çalışıyor.

TRISA=0  'A portu çıkış olarak ayarlandı.
TRISB=0  '
B portu çıkış olarak ayarlandı.

'Low PORTB.2     
	
	
'
RW bacağı ekrana yazmaya imkan vermek için LOW yapıldı.

'PAUSE 200                    
	
LCD nin kullanıma hazır hale gelebilmesi için gerekli süre

LCDOUT $FE
,1             
	
'Önce Ekranı siliyoruz.
LCDOUT "BASIC DERSLERI"  '
ilk sıra baştan itibaren yazdırıyoruzAslında bu komutu başka bir şekilde de yazabilirizşöyle
'      LCDOUT $FE,2,"BASIC DERSLERI"

LCDOUT $FE,$C0,"DERS No: 3"
	
	
'
ikinci satıra yazdırıldı.

End 
	
	
	
	
	
	
'Program sonu
hiçbirşey değitirmedim ama lcd de okuyamıyorum
"Girdim ilim meclisine kıldım eyledim talep,   Dediler ilim geride kaldı illa Edep illa Edep" Hz.Yunus Emre K.S.

MC_Skywalker

birde böyle denermisin
Kod Seç

DEFINE LCD_DREG        PORTB        
'LCD data bacakları PortB de bağlı
DEFINE LCD_DBIT            4        '
LCD data bacakları 4. bitten başlıyor
DEFINE LCD_EREG        PORTB        
'LCD Enable Bacağı PortB de bağlı
DEFINE LCD_EBIT            3        '
LCD Enable Bacağı 3. bite bağlı    
DEFINE LCD_RWREG    PORTB        
'LCD RW Bacağı PortB de bağlı
DEFINE LCD_RWBIT         2        '
LCD RW Bacağı  2. bite bağlı
DEFINE LCD_RSREG    PORTB        
'LCD RS Bacağı PortB de bağlı
DEFINE LCD_RSBIT        1        '
LCD RS bacağı 1. Bite bağlı        
DEFINE LCD_BITS            4        
'LCD 4 bit  olarak bağlı
DEFINE LCD_Lines        2        '
LCD 2 sıra olarak çalışıyor.

TRISA=0  'A portu çıkış olarak ayarlandı.
TRISB=0  '
B portu çıkış olarak ayarlandı.

Low PORTB.2             'RW bacağı ekrana yazmaya imkan vermek için LOW yapıldı.

PAUSE 200                        ' 
LCD nin kullanıma hazır hale gelebilmesi için gerekli süre

LCDOUT $FE
,1                 'Önce Ekranı siliyoruz.
LCDOUT "BASIC DERSLERI"  '
ilk sıra baştan itibaren yazdırıyoruzAslında bu komutu başka bir şekilde de yazabilirizşöyle
'      LCDOUT $FE,2,"BASIC DERSLERI"

LCDOUT $FE,$C0,"DERS No: 3"        '
ikinci satıra yazdırıldı.

End                         'Program sonu
Comodore C64 ve/veya Amiga 500 bağışlarınız kabul edilir.

Maxim

@Teğmen hocam ne yaptığınızı anlamadım
öncelikle picbasic mi yoksa proton derleyicimi kullanıyorsunuz?
ikisi aynıdır diyenler olsada farklı şeyler ve farklı tanımlamaları var.
eğer, picbasic ise buradan, yok proton ise forumdaki proton bölümünden devam etmenizi tavsiye ederim

Teğmen

@Maxim hocam var ikiside derleyicilerin ama basicte 1.günüm yani anlamaya çalışıyoırum
"Girdim ilim meclisine kıldım eyledim talep,   Dediler ilim geride kaldı illa Edep illa Edep" Hz.Yunus Emre K.S.

Maxim

eğer picbasicten devam edecekseniz
ete ustanın forumu en doğru yerdir
http://www.etepic.com/