PIC BASIC PLUS PROJELERİ

[XNHCX]

Dostlar ,
Bu başlık altına PicBasicPLUS ya da yeni adıyla PROTON+ ile hazırlanmış projeleri ekleyelim.

[XNHCX]

Aşağıdaki linke bakmadan geçmeyin arkadaşlar.

http://users.picbasic.org/projects/

[rr]

Pic Basic Plusta Yazdığım freakans metre Programını Açık Kodlarını veriyorum ben 2 Mhz kadar denedim.
 

Device=16f628A
    DECLARE LCD_DTPIN PORTB.0
	DECLARE LCD_ENPIN PORTB.4 
    DECLARE LCD_RSPIN PORTB.5 
	'Lcd Uçları Rb0-Lcd4.....Rb3-Lcd7 ,EnPin Rb4,Rspin Rb5
	' Frakans ölçme girişi RB6 bağlanır.
	' RA5  Mclrden çıkartıldı.
	Config xt_osc, wdt_off, mclre_off, lvp_off, PWRTE_OFF,CP_OFF
	XTAL  = 20 
    SYMBOL T0IE INTCON.5 		' TMR0 Overflow Interrupt Enable 
	SYMBOL T0IF INTCON.2 		' TMR0 Overflow Interrupt Flag 
	SYMBOL GIE INTCON.7		' Global Interrupt Enable 
	SYMBOL INTF INTCON.1
	SYMBOL RBIF INTCON.0
	SYMBOl TMR1ON T1CON.0
	SYMBOL TMR1IE PIE1.0 
	SYMBOL TMR1IF PIR1.0
	
	Dim DegByte As Byte
	Dim DegDWord as DWord
	Dim DegFloat as Float
	Dim Rb0Sayac As Dword
	Dim Tsayac As Word
	Dim XX As Byte
	Dim DEGTMR1 as Word
    Dim Degfloat2 As Float
Basla:
	'INTF=0
	Option_Reg=%00000011
 	INTCON=%00100000 
	CmCoN=7
	T1CON=%0000110
	TrisA=%00000000
	TrisB=%11111111
	Tmr0=0
	PIE1=%00000001 
	PIR1=0 
	
	 Goto Ana	
	
	 ON_INTERRUPT goto Kesme
'------------------><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

TMR1SAY:
 TMR1IF=0		
 DEGTMR1=DEGTMR1+1	 
Retfie Fast
'------------------><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Kesme:
Asm
BTFSC TMR1IF
Goto TMR1SAY
Endasm
'INTF=0 'Kesme Hesaplamalrı için Sayaçlar zaman kazandırıyor.
T0IF=0
Tsayac=Tsayac-1
if Tsayac=0 Then TMR1ON=0 
'CONTEXT RESTORE
Retfie Fast
'-----------------------------------------------------------
Ana:
Asm
BekAna1:
Btfsc PortB,6
Goto BekAna1
BekAna2:
BtFss PortB,6
Goto BekAna2
EndASM
DEGTMR1=0
TMR1IF=0
TMR1ON=0
TMR1L =0
TMR1H=0
TSayac=1221
TMR0=0
INTF=0
T0IF=0
TMR1ON=1
GIE=1
'-><<<<------<<<-------<<<-------<<<-------<<<--------------
Ana1:
if TMR1ON=0 Then Goto Degerlendir
Goto Ana1
	
'->>-------->>>------->>>------->>>-------->>>----->>------
Degerlendir:
GIE=0
DegDWord=256*TMR1H
DegDWord=DegDWord+TMR1L
DegDWord=DegDWord+ DEGTMR1*65536
TMR1H=0
TMR1L=0
TMR1ON=1
Delayus 247   ' Burada Gecikmelerden kaynaklanan sayımlar Çıkartılacak.
TMR1ON=0
'DegDWord=0
DegDWord=DegDWord-TMR1L
DegDWord=DegDWord-256*TMR1H
Degfloat=DegDWord/1000
'Degfloat=1/Degfloat
'Degfloat=Degfloat*Degfloat 
'Degfloat2=Degfloat*71	
'Degfloat=Degfloat-Degfloat2
'Degfloat=Degfloat+3972
'Degfloat=Degfloat*1000
Cls
'Print At 1,1,"L= ", Dec  Degfloat  ' Degfloat
Print At 1,14, "F= ",Dec DegDWord
  Delayms 500	
Goto Ana

[fsan]

@rr
sağol kardes ellerine saglik.
bu programi proteus ile test etme imkanimiz varmi, sen nasil test ettin?
proton+ veya pb plus ün hangi versionuyla calisir bu?

basarilar..

[a.zorba]

frekansmetrenin acık şemasını verebilirmisin
zorba19772000@yahoo.com

[rr]

Pic Basic plus 2.13 derle. proteus isis de 6.2 sp5 similasyon yapabilirsin.
Clock in(RA5) Clock out(RA6) Cristal bağla Uclarından 22 pf ile Toprağa bağla. Lcd yi Notta yazıldığı gibi bağla. Rb6 ise Genarators kısmından Dclok nesnasini istediğin frakansa ayarla test et.

[rr]

Pic yüklerken Fuse ayarlarını dikkat edin. cristal ayarını Hs getirin.

[mmengi]

isis te pic e kristal bağlamanıza gerek yok özellikler kısmına hızı yazmanız yeterlidir.mclr yi vdd ye bağlamak gerekir eğer I/O olarak kullanmıyorsanız.

[rree]

Fxx628X3.DSN
http://groups.yahoo.com/group/rree20032004/files
Adrese şemasın koydum.

[fsan]

Sevgili rree,
verdigin kodu denedim frekansi nerdyse 5Mhz'e kadar dogru gösteriyor yalniz kod icerisinde bazi "commented lines" var birde semadaki görülen L= ?? degeri ne ise yariyor? Bir sakincasi yoksa devrenin calisma mantigini zaman bulunca biraz aciklarmisin ?


http://home.no/picproje/

Tesekkürler..

[rr]

Bobin ölçü aletine eklemeye çalışıyordum. Bazı problemlerden dolayı
proje askıda  L ile ilgili kısımları silebilirsin.

[dentaytr]

hocam bobinide ekleseydin dehşet olurdu ama canın sağolsun güzel proje