Steffen44
05.02.2007, 12:35
Hallo
ich habe das RN-Mega256 komplett mit 5 Volt und GND beschalten und bin nun dabei das Testprogramm auszuprobieren was die LED blinken lassen soll :
'RoboterNetz Board RN-Mega2560 ab Version 1.0 und
'
'Aufgabe:
'Laesst LED blinken
'Gibt Zahlen ueber USB aus
'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter http://www.Roboternetz.de oder robotikhardware.de
'Eigene Programmbeispiele sind im Roboternetz gerne willkommen!
'################################################# #############
'Diese Anweisung setzt die Fusebits automatisch korrekt (Syntax $PROG LB, FB , FBH , FBX )
$prog , 255 , &B11011001 , 'Quarz an / Teiler aus / Jtag aus
$regfile = "m2560def.dat"
$hwstack = 82 '80
$framesize = 68 ' 64
$swstack = 68 '44
$crystal = 16000000 'Quarzfrequenz
Config Pind.5 = Output
Led Alias Portd.5
Config Pine.5 = Input
Usb Alias Pine.5 'Ist 1 wenn USB angeschlossen
Config Com4 = 38400 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "com4:" For Binary As #4 'USB Buchse
Dim I As Integer
Do
Led = 1
Waitms 1000
Led = 0
Waitms 1000
Print #4 , "Hallo" ; I
I = I + 1
Loop
End
Ich habe die LED laut Schaltplan mit 5 Volt externer Spannung versorgt und es tut sich rein gar nichts. Sowie ich die LED auf GND lege dann leuchtet sie aber laut Programm soll Sie ja blinken.
Alles deutet darauf hin das der Port gar nicht angesteuert wird oder irgendein anderer Defekt vorliegt. An der LED selber liegt schon eine Spannung an die vom µController kommt deswegen leuchtet die LED auch nicht wenn ich extern 5 Volt beschalte. Den Port auf Low zu setzen funktioniert irgendwie nicht.
Kann mir da wer einen Ratschlag geben ?
Danke und Gruß
Steffen
ich habe das RN-Mega256 komplett mit 5 Volt und GND beschalten und bin nun dabei das Testprogramm auszuprobieren was die LED blinken lassen soll :
'RoboterNetz Board RN-Mega2560 ab Version 1.0 und
'
'Aufgabe:
'Laesst LED blinken
'Gibt Zahlen ueber USB aus
'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter http://www.Roboternetz.de oder robotikhardware.de
'Eigene Programmbeispiele sind im Roboternetz gerne willkommen!
'################################################# #############
'Diese Anweisung setzt die Fusebits automatisch korrekt (Syntax $PROG LB, FB , FBH , FBX )
$prog , 255 , &B11011001 , 'Quarz an / Teiler aus / Jtag aus
$regfile = "m2560def.dat"
$hwstack = 82 '80
$framesize = 68 ' 64
$swstack = 68 '44
$crystal = 16000000 'Quarzfrequenz
Config Pind.5 = Output
Led Alias Portd.5
Config Pine.5 = Input
Usb Alias Pine.5 'Ist 1 wenn USB angeschlossen
Config Com4 = 38400 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "com4:" For Binary As #4 'USB Buchse
Dim I As Integer
Do
Led = 1
Waitms 1000
Led = 0
Waitms 1000
Print #4 , "Hallo" ; I
I = I + 1
Loop
End
Ich habe die LED laut Schaltplan mit 5 Volt externer Spannung versorgt und es tut sich rein gar nichts. Sowie ich die LED auf GND lege dann leuchtet sie aber laut Programm soll Sie ja blinken.
Alles deutet darauf hin das der Port gar nicht angesteuert wird oder irgendein anderer Defekt vorliegt. An der LED selber liegt schon eine Spannung an die vom µController kommt deswegen leuchtet die LED auch nicht wenn ich extern 5 Volt beschalte. Den Port auf Low zu setzen funktioniert irgendwie nicht.
Kann mir da wer einen Ratschlag geben ?
Danke und Gruß
Steffen