Page 1 of 1

INKEY non lavora con ATMEGA128

PostPosted: 30 Jul 2011, 08:42
by Micos
Io sto usando bascom-avr 2.0.5.0. Ho scritto un semplice programma per comunicare con un PC attraverso
Rs232 che lavora bene con atmega32.
Quando uso questo codice con atmega128 il micro con riesce a leggere dal PC. Mi può aiutare qualcuno?
################################################################
Code: Select all
$regfile = "m128def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
$baud = 19200 ' use baud rate
'$baud1 = 19200
$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

Config Portf = Output

Dim Confirmcharwaiting As Byte

Dim Confirmchar As Byte

Print "Hello"

Do
Again:

  Confirmcharwaiting = Ischarwaiting()
  If Confirmcharwaiting = 1 Then   
     Confirmchar = Inkey()
          If Confirmchar = "c" Then
              Print "ok"
              Goto Nextstep
         Else
              Goto Again
         End If
  Else
    Goto Again
  End If

Nextstep:
Loop

End

Re: INKEY non lavora con ATMEGA128

PostPosted: 01 Aug 2011, 08:56
by tubincolo
Secondo me, se tu usi IsCharWaiting() tu stai utilizzando serial comm bufferizzato, cosi devi inserire un "enable interrupts" prima del tuo main loop.

Ciao