Dim DATA_IN[20] As Byte
Dim Adres As Word
dim veri as byte
dim Toplamadres as word
adres= 2
basla:
serin portb.1,85,[veri]
BStart
BusOut %10100010,adres,[veri]
BStop
DelayMS 5
adres = adres + 1
BStart
BusOut %10100010,0,[adres]
BStop
DelayMS 5
print at 1,1, "Girilen Veri:",veri
print at 2,1, " Adres:" ,@adres
if veri = 13 then GOTO oku
goto basla
oku:
cls
adres = 0
BStart
BusOut %10100010,[adres]
Brestart
BusIn %10100011, [toplamadres]
BStop
for adres = 1 to toplamadres
print at 1,1,"Veri Okunuyor"
BStart
BusOut %10100010,[adres]
Brestart
BusIn %10100011, [data_in[adres]]
BStop
SerOut PORTB.2,90,[" Girilen Veri:",DATA_IN[adres],10,13]
delayms 50
komutlar bunlar adres değişkenini byte tipinde tanımladığımda sorun yok ama word tipinde sıkıntı yaşıyorum !!
next