K
khatarat
Guest
labas
Norėčiau parašyti programą skaityti analogas vertybes ir siųsti jį per nuoseklaus uostą prie kompiuterio tai mano programa jos neveikia i dont know, kur yra problema
$ regfile "m16def.dat"
$ crystal = 4000000
Config ADC = laisvosios, Prescaler = Auto
Config Serialout = Buffered, dydis = 20
Atidarykite "com1" Dėl Binary As # 1
Įjungti Interrupts
Pradėti ADC
Dim W Word
Daryti
Print # 1, W
W = Getadc (0)
Ciklas
Norėčiau parašyti programą skaityti analogas vertybes ir siųsti jį per nuoseklaus uostą prie kompiuterio tai mano programa jos neveikia i dont know, kur yra problema
$ regfile "m16def.dat"
$ crystal = 4000000
Config ADC = laisvosios, Prescaler = Auto
Config Serialout = Buffered, dydis = 20
Atidarykite "com1" Dėl Binary As # 1
Įjungti Interrupts
Pradėti ADC
Dim W Word
Daryti
Print # 1, W
W = Getadc (0)
Ciklas