XMega-A1 mit BASCOM - XPLAINED Virtual Com Port

Altug T. OP #5026355
Lesenswert?
• ▲
▼ 
Hallo,

Habe mir mit BASCOM dieses kleine Programm für meinen XMEGA-A1 XPlained 
geschrieben, das einfach nur eine LED blinken lassen und etwas in den 
BASCOM Terminal Emulator ausdrucken soll:


1
$regfile = "xm128a1def.dat"

2
$crystal = 32000000                     '32MHz

3
$hwstack = 64

4
$swstack = 40

5
$framesize = 40

6
$lib "xmega.lib"

7
$external _xmegafix_clear

8
$external _xmegafix_rol_r1014

9
Config Osc = Enabled , 32mhzosc = Enabled         'We use internal 32MHz

10
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1       'Internal 32MHz, no prescaler

11


12
Config Porte.0 = Output                                     'Porte.0 as Output

13
Porte.0 = 1

14


15
$baud = 9600

16
Config Com3 = 9600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8

17
Open "COM3:" For Binary As #1

18
Waitms 1000

19


20
Do

21
  Porte.0 = 0

22
  Waitms 1000

23
  Porte.0 = 1

24
  Waitms 1000

25
  Print #1 , "a"

26
Loop

27
End                                                         'end program


Die LED blinkt, aber ich kriege keinen Ausdruck über den XPLAINED 
Virtual Com Port. (siehe Bild)

Was habe ich falsch eingestellt?
Angehängte Dateien:
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Ratgeber Gast #5027144
Lesenswert?
• ▲
▼ 
Setze mal als oberste Zeile "$Sim" (Ohne Anführungsstriche) rein und 
kompiliere erneut. Dadurch werden die 1000ms Wartezeit in der Simulation 
nicht mit ausgeführt, die jetzt die Printausgabe ewig verzögern.
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Altug T. OP #5027149
Lesenswert?
• ▲
▼ 
Habe mein Problem gelöst, indem ich im Geräte Manager den XPlained 
Virtual Port (COM3) auf den COM1 geswitched habe.

Ich sehe nun mit Putty eine Ausgabe. (siehe Screenshot)

Außerdem habe ich natürlich den Code verändert:

1
Config Com1 = 9600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8

2
Open "COM1:" For Binary As #1
Angehängte Dateien:
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren