Proton + Eeprom'a Veri Kaydetme Ve Çağırma

[isikyasar]

Device 16F877
Xtal 4

Input PORTC.0
Input PORTC.1
Input PORTC.2


Declare LCD_DTPin PORTD.4
Declare LCD_ENPin PORTD.3
Declare LCD_RSPin PORTD.2

Dim mehmet As word
mehmet=0
DelayMS 10

mehmet = ERead 10
DelayMS 50

 
  basla:

If PORTC.1=1 Then
mehmet=mehmet + 1
DelayMS 100
End If

If PORTC.2=1 Then
mehmet=mehmet - 1
DelayMS 100
End If


  If PORTC.0=1 Then
  EWrite 10, [mehmet]
  DelayMS 50
End If


Print At 1,1,Dec5 mehmet , "   1"   

  GoTo basla


önemli noktaları kalın olarak gösterdim. bende bu konuda yardım almıştım arkadaşlardan. aslında basit biryerdeymiş sorun. örneği incelersen faydası olacaktır.

[isikyasar]

Hocalarımdan ricam olacak.


SerIn PORTC.7 , 16468 , [Str SerString]         ' 15 karakter seri bir veriyi okuyup lcd de görebiliyorum
'-----------------------------------------------------------------------------------------------------------------
bu okuduğum değeri hafızaya alıp daha sonra tekrardan görmek istiyorum. Şöyle bir kod

EWrite 10, [SerString[0] ,SerString[1],SerString[2],SerString [3] , SerString [4] ,SerString [5],SerString [6],SerString [7],SerString [8] , SerString [9] ,SerString [10],SerString [11],SerString [12],SerString [13],SerString [14]]

bu şekilde hafızaya kayıt olayı problemli olabilirmi. Seri porttan okunan değerleri 10 adet farklı Ewrite kullanarak yapmam gerekiyor.