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
Lesezeichen