2 tane pic16f84a ile 9 katlı asansör devresi

[mstfrnci]

Dediginiz gibi butonları düzelttim fakat alıcı picinden displaye sayıları nasıl uyarlayacagım bir türlü cözemedim,1 tane sayıyı uyarlayabilsem digerlerinide yaparım ama orada kaldım ilerleyemiyorum.Dosyaları rar yapıp http://www.dosya.tc/server21/ytTIrI/_dev.rar.html buraya yükledim birisi yardım ederse gercekten cok makbule gececek,teşekkür eder iyi forumlar dilerim

[MCansız]

devrede yanlış display kullanılmış giriş çıkış kullanımları yanlış  düzelttim burada

http://s3.dosya.tc/server15/uENgF2/_dev.zip.html

şema



verici kod

TRISA.0=0 'a.0 veric pin o halde çıkış olmalı
trisa.4=1 'porta.4 çıkış olarak ayarlandı
TRISB=255
PORTA=0
PORTB=0
BUT1 var porta.4
BUT2 VAR PORTB.0
BUT3 VAR PORTB.1
BUT4 VAR PORTB.2
BUT5 VAR PORTB.3
BUT6 VAR PORTB.4
BUT7 VAR PORTB.5
BUT8 VAR PORTB.6
BUT9 VAR PORTB.7
CIKIS VAR PORTA.0
VERICI VAR BYTE
VERICI=0
	
BASLA:
IF BUT1=0 THEN
       WHILE BUT1=0
       WEND 
       VERICI=21 
       GOSUB GONDER
ENDIF 
IF BUT2=0 THEN
       WHILE BUT2=0
       WEND 
       VERICI=22
       GOSUB GONDER
ENDIF       
IF BUT3=0 THEN
       WHILE BUT3=0
       WEND 
       VERICI=23
       GOSUB GONDER
ENDIF
       
IF BUT4=0 THEN
       WHILE BUT4=0
       WEND 
       VERICI=24
       GOSUB GONDER
ENDIF       
       
IF BUT5=0 THEN
       WHILE BUT5=0
       WEND 
       VERICI=25
       GOSUB GONDER
ENDIF       
       
IF BUT6=0 THEN
       WHILE BUT6=0
       WEND 
       VERICI=26
       GOSUB GONDER
ENDIF
       
IF BUT7=0 THEN
       WHILE BUT7=0
       WEND 
       VERICI=27
       GOSUB GONDER
ENDIF
       
IF BUT8=0 THEN
       WHILE BUT8=0
       WEND 
       VERICI=28
       GOSUB GONDER
ENDIF
       
IF BUT9=0 THEN
       WHILE BUT9=0
       WEND      
       VERICI=29
       GOSUB GONDER
         
ENDIF 

GOTO BASLA                                                

GONDER:
 SEROUT2 CIKIS,396,["M","S","T","F",VERICI]
 SEROUT2 CIKIS,396,["M","S","T","F",VERICI]


RETURN
END

alıcı kod

TRISA=255
TRISB=0
PORTA=0
PORTB=0

Y VAR BYTE
Y=0 


BASLA:

SERIN2 PORTA.0,396,[WAIT("MSTF"),y]

	IF y=21 THEN
    PORTB=$3f              
  
	ENDIF
	
	IF y=22 THEN
	PORTB=$06
	ENDIF

	IF y=23 THEN
	PORTB=$5b
	ENDIF

	IF y=24 THEN
	PORTB=$4f  
	ENDIF

	IF y=25 THEN
	PORTB=$66
	ENDIF

	IF y=26 THEN
	PORTB=$6d
	ENDIF
	
	IF y=27 THEN
	PORTB=$7d
	ENDIF

   	IF y=28 THEN
	PORTB=$07
	ENDIF

    IF y=29 THEN
    PORTB=$7f

	ENDIF
GOTO BASLA
END

[mstfrnci]

devrede yanlış display kullanılmış giriş çıkış kullanımları yanlış  düzelttim burada

http://s3.dosya.tc/server15/50qObQ/_dev.zip.html

muhteşemsin abi cok sagol cok teşekkür ederim Allah razı olsun 12 saat ugrastım hemen bakayım ben nerde yanlıs yaptıgıma tekrar teşekkür ediyorum

[muzikmp3]

http://s3.dosya.tc/server15/Qwp1TR/SingleVerici.rar.html