16F526

[zeus48]

@ DEVICE pic16F526
@ DEVICE pic16F526 , MCLR_OFF
@ DEVICE pic16F526  , PROTECT_ON
@ DEVICE pic16F526 , INTRC_OSC_NOCLKOUT ;Dahili osilatör kullanılacak

OPTION_REG=7
                   
TRISB=%000011
TRISC=%000000
PORTB=0
PORTC=0     

SYMBOL AC =PORTB.0
SYMBOL KAP=PORTB.1
SYMBOL LED=PORTC.0
SYMBOL DAT=PORTC.3

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
BASLA:
IF AC=0 THEN Y=15:W=5:Z=5:GOTO GON   ;20 AÇ GÖNDERİLDİ
IF KAP=0 THEN Y=15:W=6:Z=7:GOTO GON  ;28 KAPA GÖNDERİLDİ
GOTO BASLA

GON:
LED=1
SEROUT DAT,813,["A","A","K",Y,W,Z]
SEROUT DAT,813,["A","A","K",Y,W,Z]
SEROUT DAT,813,["A","A","K",Y,W,Z]
SEROUT DAT,813,["A","A","K",Y,W,Z]
PAUSE 5
SEROUT DAT,813,["A","A","K",Y,W,Z]
SEROUT DAT,813,["A","A","K",Y,W,Z]
SEROUT DAT,813,["A","A","K",Y,W,Z]
SEROUT DAT,813,["A","A","K",Y,W,Z]
PAUSE 5
SEROUT DAT,813,["A","A","K",Y,W,Z]
SEROUT DAT,813,["A","A","K",Y,W,Z]
SEROUT DAT,813,["A","A","K",Y,W,Z]
SEROUT DAT,813,["A","A","K",Y,W,Z]

LED=0
DAT=0
PAUSE 1000
GOTO BASLA




İlk defa 16f526 ile çalışıyorum yukarıdaki yazdığım program eksik çalışıyor  Portb.0 ve portb.1  giriş yaptığım halde  0 durumda   ve  led diye tanımladığım c0  bağlı led yanmıyor ama sürekli data gönderiyor B0 ve B1   0 olduğu için

[zeus48]

Ben 16f526 tanımlamayı başaramadım diye düşünüyorum. Bu konuda yardıma ihtiyacım var

[MB_77]

bu mesaj tarafımdan silinmiştir.

[F®T]

OPTION_REG=%11000111
CM1CON0=% 00000001
CM2CON0=% 00000001
ADCON0=0

bu şekilde denermisin.

[zeus48]

Üstad denedim olmadı

[F®T]

Simülasyonu koyda bakalım nasıl oluyor .

[zeus48]

ısıs 16f526  kapsamıyor

[F®T]

hocam programı basit hale getirip devam edin.butonlar artı led.

bide şu şekil denermisin.pulluplar aktif

OPTION_REG=%00000111

led in yandığını görmek için araya süre koymalısın çok hızlı geçiş yaptığı için görmeyebilirsin.

Ayrıca dahili osc ayarlarıda yok.osc değeri belli değil.

[zeus48]

portb.0  ve portb.1   1 yapamadıktan sonra  basitleştirmem ne sağlayacakki üstad

[F®T]

Zeuse48 bu program compıler edilirken bayağı bir hata veriyor değişken tanımlamaları yok.

w var byte
y var byte
z var byte

bunları eklemelisin.Ayrıca sigorta ayarlarınıda pdf config lerine göre düzenlemen int osc değerini 4 mhz mi 8 mhz mi ayarlaman lazım.

[zeus48]

Nayapmam gerekiyor

[F®T]

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 28.12.2015                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************


@ __config _IntRC_OSC_RB4 & _WDTE_OFF & _MCLRE_OFF & _IOSCFS_4MHz & _CP_OFF & _CPDF_OFF


                    
 TRISB=%000011
 TRISC=%000000
 PORTB=0
 PORTC=0 



OPTION_REG=%00000111 
CM1CON0   =%00000001
CM2CON0   =%00000001 
ADCON0    =0
 
 w var byte
 y var byte
 z var byte     
 
 SYMBOL AC =PORTB.0
 SYMBOL KAP=PORTB.1
 SYMBOL LED=PORTC.0
 SYMBOL DAT=PORTC.3

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 BASLA:
 IF AC=0 THEN Y=15:W=5:Z=5:GOTO GON   ;20 AÇ GÖNDERİLDİ
 IF KAP=0 THEN Y=15:W=6:Z=7:GOTO GON  ;28 KAPA GÖNDERİLDİ
 GOTO BASLA
 
 GON:
 LED=1
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 PAUSE 5
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 PAUSE 5
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 SEROUT DAT,813,["A","A","K",Y,W,Z]
 SEROUT DAT,813,["A","A","K",Y,W,Z]

 
 DAT=0
 PAUSE 500
LED=0 
 PAUSE 500
 GOTO BASLA

Dene bakalım.

[F®T]

burda tüm dosyalar var.

[zeus48]

Üstad ustasın eline sağlık oldu. Teşekkürler arkadaşım

[F®T]

16f506 ile aynı gibi.simülasyonda led aktif görünmüyor sonradan gördüm kırmızı ledle değiştirirsin.