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?
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?