Um einmal alle Konfigurationen aufzulisten welche ich beim MySmartUSB, dem PC & Controller vorgenommen hab.
  • MySmartUSB
    [list:fc170bc951]USB-Treiber installiert und auf COM7 umgestellt
    Virtuellen COM-Port auf Bitrate 115200 (Bits pro Sekunde)
    PC restartet und Gerät erkennen lassen.
    Den MySmartUSB update (FirmwareUpdate)
    MyAVR Quick Prog zum testen drüber laufen lassen (Kommunikation funzt)

BASCOM:
  • Bascom installiert.
    Compiler / Chip auf "m128def.dat" gesetzt & XRAM auf "None"
    Compiler / Communication| Baudrate auf "19200" gesetzt.
    Compiler / Communication| Frequency auf "16000000" Hz

    [list:fc170bc951]Communication
    [list:fc170bc951] COM Port: 7
    Baudrate: 19200
[/list:u:fc170bc951]
  • Programmer
    [list:fc170bc951]COM-Port: 7
    BAUD: 19200
[/list:u:fc170bc951][/list:u:fc170bc951][/list:u:fc170bc951]
Hab ich dort etwas falsch gemacht?

Der Code (verkürzt aufgrund einer Demo-Version)

Code:
$regfile = "m128def.dat" ' Bei Mega 128 "
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000                                         'Quarzfrequenz
$baud = 19200 'Baudrate für Funkmodul
$baud1 = 9600 'Baudrate für MAX
Open "com2:" For Binary As #2 'Ausgabe über zweite serielle Schnittstelle (MAX)
Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 250 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk
' ---------------------------------------------------
Declare Sub Allemeineendchen();
Declare Sub Lauflicht_uni() ;
Declare Sub Lauflicht_jpmot() ;
Declare Sub Lauflicht_key() ;
Dim I As Word
Dim U As Word
Dim O As Word
Wait 1
Print #2 , ""
Print #2 , "**** RN-Mega128Funk ****"
Print #2 , ""
Allemeineendchen
'Folgende Anweisungen soirgen dafür
'das alle Ports über einen internen Widerstand auf High (1)
'gesetzt werden
Porta = 255
Portb = 255
Portc = 255
Portd = 255
Porte = 255
Portf = 255
Print #2 , "JPMOT Pin 1=" ; Pind.5
Print #2 , "JPMOT Pin 2=" ; Pind.4
Print #2 , "JPMOT Pin 3=" ; Pind.6
Print #2 , "JPMOT Pin 4=" ; Pind.7
Print #2 , "JPMOT Pin 5=" ; Pina.4
Print #2 , "JPMOT Pin 6=" ; Pine.3
Print #2 , "JPMOT Pin 7=" ; Pina.5
Print #2 , "JPMOT Pin 8=" ; Pine.4
For U = 0 To 7
O = U + 1
Print #2 , "LCD Pin " ; O ; "=" ; Pinf.u
Next U
For U = 0 To 7
O = U + 1
Print #2 , "KEY Pin " ; O ; "=" ; Pinc.u
Next U
For U = 0 To 7
O = U + 1
Print #2 , "UNI Pin " ; O ; "=" ; Pinb.u
Next U
Do
Loop 'Endlosschleife kann nur durch RESET Button beendet werden
End
' Spiele Lied "AllE meine Endchen"
Sub Allemeineendchen()
Sound Portg.2 , 130 , 1916
Sound Portg.2 , 146 , 1706
Sound Portg.2 , 164 , 1520
End Sub