C ile Pic basic arası Bir soru

[breathness]

Hocam dediğinizi yaptım birazda oynadım şöyle bir kod çıkdı Allah razı olsun bu kod aşamasını tamamladık, Allah nasip ederse okulda ares e aktarıp baskı devresini yapacağım


sonucu adım adım paylaşacağım inşallah




[/code]@ DEVICE pic16f628a, INTRC_OSC_NOCLKOUT

DEFINE LCD_DREG PORTB       
DEFINE LCD_DBIT 4           
DEFINE LCD_RSREG PORTB       
DEFINE LCD_RSBIT 2             
DEFINE LCD_EREG PORTB       
DEFINE LCD_EBIT 1           
DEFINE LCD_BITS 4             
DEFINE LCD_LINES 2           
DEFINE LCD_COMMANDUS 2000     
DEFINE LCD_DATAUS 50           

SYMBOL SIFIRLA=PORTB.3   
SYMBOL SENSOR=PORTA.0       
SYMBOL SENSORQ=PORTA.1 
SYMBOL SENSORW=PORTA.2 
SYMBOL SENSORE=PORTA.3 
SYMBOL SENSORR=PORTA.4 
SYMBOL SENSORT=PORTB.0 
               
PARA VAR WORD               


    CMCON = 7
    TRISA=%11111111                       
    TRISB=%00001001                 
                       
    LCDOUT $FE,1,"KUMBARA FONU(;"
       READ 0,para       
    LCDOUT $FE,$C0,"kurus=",DEC5 PARA





PAUSE 200


BASLA:


IF SIFIRLA=0 THEN BOSALT   
     
IF SENSOR=0 THEN PARA=PARA+1                 
WRITE 0,PARA
LCDOUT $FE,$C0,"kurus=",DEC5 para
BIRAKMADI:
IF SENSOR=0 THEN GOTO BIRAKMADI     






IF SENSORQ=0 THEN PARA=PARA+5         
WRITE 0,PARA
LCDOUT $FE,$C0,"kurus=",DEC5 para
BIRAKMADIQ:
IF SENSORQ=0 THEN GOTO BIRAKMADIQ     






IF SENSORW=0 THEN PARA=PARA+10         
WRITE 0,PARA
LCDOUT $FE,$C0,"kurus=",DEC5 para
BIRAKMADIW:
IF SENSORW=0 THEN GOTO BIRAKMADIW     






IF SENSORE=0 THEN PARA=PARA+25         
WRITE 0,PARA
LCDOUT $FE,$C0,"kurus=",DEC5 para
BIRAKMADIE:
IF SENSORE=0 THEN GOTO BIRAKMADIE     






IF SENSORR=0 THEN PARA=PARA+50         
WRITE 0,PARA
LCDOUT $FE,$C0,"kurus=",DEC5 para
BIRAKMADIR:
IF SENSORR=0 THEN GOTO BIRAKMADIR     






IF SENSORT=0 THEN PARA=PARA+100         
WRITE 0,PARA
LCDOUT $FE,$C0,"kurus=",DEC5 para
BIRAKMADIT:
IF SENSORT=0 THEN GOTO BIRAKMADIT     


GOTO BASLA


BOSALT:               
PARA=0
WRITE 0,0                                 
LCDOUT $FE,$C0,"kurus=",DEC5 PARA         
                                 
GOTO BASLA

[breathness]

[size=78%][/size]


areside çizdim bol atlamalı oldu maşallah bugün bastım dirençleri soketleri koydum kutu kapağına lcd ve sensörleri koyması kaldı sadece cn70 sensöründede bir diyot bir foto transistor var iki EKSİ yi birleştirdim diğerlerinide devre şemasına göre bağladım devamıda gelecek inşallah


HOcam Bİrtanesiniz,

[haydarpasamikro]

Katkımız olduysa ne mutlu bize. Başarılar..