Witam,
jest program który ma za zadanie komunikować uC z PC. Wszystko poprawnie działa o ile procesor jest podłączony do programatora, a dokładnie podłączony jest kabel SCK.
Dlaczego nie chce program działać po odłączeniu programatora? Programator zgodny z stk 500v2.
Program:
jest program który ma za zadanie komunikować uC z PC. Wszystko poprawnie działa o ile procesor jest podłączony do programatora, a dokładnie podłączony jest kabel SCK.
Dlaczego nie chce program działać po odłączeniu programatora? Programator zgodny z stk 500v2.
Program:
$regfile = "m32def.dat"
$crystal = 11059200
$baud = 9600
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Dim Adr_eep As Word At &H8F
Dim Adr_low As Byte At &H8F Overlay
Dim Adr_hi As Byte At &H90 Overlay
Config Serialin = Buffered , Size = 254
Config Sda = Portc.1
Config Scl = Portc.0
Dim Adres_eep As Word
Dim Znak As String * 1
Dim Wew As Byte
Const In_eep = 160
Const Out_eep = 161
Const Max_eep = 65536
Enable Interrupts
Print "Podaj adres eeprom 24c64"
Input Adr_eep
Print "Adres eeprom wynosi: " ; Adr_eep
Print "Podaj adres wew. eeprom"
Input Wew
Readeeprom Adres_eep , Wew
Print "Adres wew. eeprom: " ; Adres_eep
Do
Znak = Waitkey()
Print "Odebrano znak: " ; Znak
I2cstart
I2cwbyte In_eep
I2cwbyte Adr_hi
I2cwbyte Adr_low
I2cwbyte Znak
I2cstop
Print "Adres eeprom wynosi: " ; Adr_eep
Adr_eep = Adr_eep + 1
Writeeeprom Adr_eep , Wew
Readeeprom Adres_eep , Wew
Print "Adres eeprom po dodaniu wynosi: " ; Adres_eep
Waitms 10
Loop
End