Proton Basic Kullanan Arkadaşlar HBusout Nasıl kullnılıyor?

Yuppi

Üye
Katılım
20 Ağu 2007
Mesajlar
1
Puanları
1
Yaş
39
Isısde 7.2 Sp0 da simule yapıyorum.(daha doğrusu istediğim gibi çalışmıyor)
18F452 ve 24lc256 kullanıyorum.
Proton v3 de programı yazıyorum
Problem şu istediğim adrese direk olarak yazamıyorum.İlk 8 adres normal ondan sonrasında bir kaç kere peş peşe yaz dersem yazıyor ama bu arada kafasına göre bir kaç adrese daha yazıyor.Hazır bulduğum bir kod page olarak yazıyor.Burada protona herhangi bi tanımlama gerekiyormu.Yani bw i2c kullanmak için register tanımı gibi.

kod
Device 18F452

Declare XTAL = 40
'Declare SLOW_BUS 1
Declare LCD_TYPE 0
Declare LCD_DTPIN PORTD.4
Declare LCD_ENPIN PORTD.1
Declare LCD_RSPIN PORTD.2
Declare LCD_RWPIN PORTD.3
Declare LCD_INTERFACE 4
Declare LCD_LINES 2
Dim b_gec As Byte
Dim epryaz As Byte
Dim epryaz1 As Byte
Dim epr_adres As Byte
Dim PP4 As Byte SYSTEM
EPROMSIL:
Cls
Print At 1,3,"Eproma yaziliyor"
DelayMS 10
' While SEC=1
'DelayMS bekle
'If YUKARI=1 Then epr_adres=epr_adres+1
'DelayMS bekle
'If ASAGI=1 Then epr_adres=epr_adres-1
For epr_adres=0 To 256
Print At 2,5, HEX4 epr_adres
DelayMS bekle
'Wend
'DelayMS 20
HBStart
'HBusOut $A0,epr_adres,[$11]
DelayMS 100
HBusOut $A0
HBusOut epr_adres / $10
HBusOut epr_adres // $10
HBusOut "h"
If PP4.0 = 1 Then GoTo not_received

HBStop
Next
DelayMS 50
GoTo EPROMSIL
not_received:
While SEC=1
Cls
Print At 1,1," olmadı...."
Wend
GoTo EPROMSIL


Bu konda fikri olan varmı? yada projelerinde eeprom kullanan ve protonla yazılım haırlayan?
 

Forum istatistikleri

Konular
127,959
Mesajlar
913,914
Kullanıcılar
449,606
Son üye
rasit.

Yeni konular

Geri
Üst