Kablo Test devresi

[smyomekatronik]

Kablo test devresi yapmaya çalışıyorum. verici kısmında alıcıdan gelen doğrulama sinyali gelsede gelmesede çıkış saymaya devam ediyor. Sorunu çözemedim.

http://www.dosya.tc/server27/FY5hku/KabloTest.rar.html

Device 16F628
Xtal 4
TRISA=0
TRISB=%11111111
PORTA=0
PORTB=0

'---------------------------
Dim data1 As Byte
Dim data2 As Byte
Dim data3 As Byte
Dim data4 As Byte
Dim data5 As Byte
Dim data6 As Byte
Dim data7 As Byte
Dim data8 As Byte
Dim data9 As Byte
Dim x As Byte
Dim y As Byte

'------------------------------
data1=0
data2=0
data3=0
data4=0
data5=0
data6=0
data7=0
data8=0
data9=0
x=0
y=0


'----------------------------------
Symbol dta=PORTA.1
Symbol clock=PORTA.0
Symbol latch=PORTA.2
Symbol gonderdim=PORTA.3
Symbol aldim=PORTB.0
Symbol ariza=PORTB.1
'-----------------------------------
DelayMS 500  

basla:
x=0
basla_1:
y=0
GoSub sayi  ' çıkış değerini  al 
SHOut dta,clock,0,[data1,data2,data3,data4,data5,data6,data7,data8,data9]
High latch:DelayUS 5:Low latch  'aldığın değeri 595 e gönder
High gonderdim 'değeri gönderdim
bekle:
If aldim=1 Then  'alıcı değeri alıp almadığı kontrol ediliyor
While aldim=1:Wend 'sonsuz döngü sinyal gitmeden çıkmıyor
y=1                'alıcı değeri doğru almışsa y bir oluyor
DelayMS 5
EndIf
If y=1 Then GoTo devam Else GoTo bekle 'alıcı değeri almışsa devam ediyor yoksa sinyalin gelmesini bekliyor
devam:
Low gonderdim 'gönderim sinyalini kes
x=x+1
DelayMS 100
If x=9 Then GoTo basla 
GoTo basla_1
sayi:
LookUp x,[1,2,4,8,16,32,64,128,0],data1
Return

Device 16F628
Xtal 4
TRISA=%11111111
TRISB=0
PORTA=0
PORTB=0
Dim data1 As Byte
Dim data2 As Byte
Dim data3 As Byte
Dim data4 As Byte
Dim data5 As Byte
Dim data6 As Byte
Dim data7 As Byte
Dim data8 As Byte
Dim data9 As Byte
Dim x As Byte
Dim y As Byte


data1=0
data2=0
data3=0
data4=0
data5=0
data6=0
data7=0
data8=0
data9=0
x=0
y=0



Symbol dta=PORTA.0
Symbol clock=PORTA.1
Symbol latch=PORTA.2
Symbol gonderdim=PORTA.3
Symbol aldim=PORTB.0

DelayMS 100

basla:
bekle:

If gonderdim=1 Then GoTo devam Else GoTo bekle' verici gönderdim sinyali gelene kadar bekle 
devam:
GoSub oku 'gelen veriyi oku
If data1=1 Then High aldim 'gelen veri doğru ise aldim sinyali gönder
DelayMS 100
Low aldim 'aldim sinyalini kes
DelayMS 100

basla2:
bekle2:

If gonderdim=1 Then GoTo devam2 Else GoTo bekle2' verici gönderdim sinyali gelene kadar bekle 
devam2:
GoSub oku 'gelen veriyi oku
If data1=2 Then High aldim 'gelen veri doğru ise aldim sinyali gönder
DelayMS 100
Low aldim 'aldim sinyalini kes
DelayMS 100

GoTo basla


oku:
Low latch:DelayUS 5 :High latch
SHIn dta,clock,1,[data1,data2,data3,data4,data5,data6,data7,data8,data9]
Return