Spanky
29.10.2006, 16:01
Hallo,
ich will meinen AT Mega32 so prgrammieren dass, ich einmal auf den Knopf drücke und an licht angeht. und wenn ich loslasse soll es anbleiben bis ich nochmal auf den knopf drücke. geht das ???
Ich habe einfach mal das Programm von Frank genommen:
'################################################# ##
'step3.bas.BAS
'für
'RoboterNetz.de AVR Tutorial in RN-Wissen
'
'Autor: Frank Brall
'Weitere Beispiele und Beschreibung der Hardware
'unter
' http://www.Roboternetz.de oder
' http://www.Roboternetz.de/wissen
'################################################# ######
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
Config Portc.0 = Output 'Ein Pin wird aus Ausgang konfiguriert PC0 (also Pin0 von Port C)
Config Pina.7 = Input 'Ein Pin (PA0) wird als Eingang definiert
Porta.7 = 1 'Interner Pullup Widerstand ein
Do
If Pina.7 = 1 Then
Portc.0 = 1 'Pin wird auf High, also 5V geschaltet
Else
Portc.0 = 0 'Pin wird auf Low, also 0V geschaltet
End If
Loop
End
Was muss ich ändern damit der Pin auf high bleibt bis ich ihm sage das er auf low gehen soll.
Vileicht so:
Do
If Pina.7 = 1 Then
Portc.0 = 1
If Pina.7 = 1 Then
Portc.0 = 0
End If
mfg
Florian
ich will meinen AT Mega32 so prgrammieren dass, ich einmal auf den Knopf drücke und an licht angeht. und wenn ich loslasse soll es anbleiben bis ich nochmal auf den knopf drücke. geht das ???
Ich habe einfach mal das Programm von Frank genommen:
'################################################# ##
'step3.bas.BAS
'für
'RoboterNetz.de AVR Tutorial in RN-Wissen
'
'Autor: Frank Brall
'Weitere Beispiele und Beschreibung der Hardware
'unter
' http://www.Roboternetz.de oder
' http://www.Roboternetz.de/wissen
'################################################# ######
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
Config Portc.0 = Output 'Ein Pin wird aus Ausgang konfiguriert PC0 (also Pin0 von Port C)
Config Pina.7 = Input 'Ein Pin (PA0) wird als Eingang definiert
Porta.7 = 1 'Interner Pullup Widerstand ein
Do
If Pina.7 = 1 Then
Portc.0 = 1 'Pin wird auf High, also 5V geschaltet
Else
Portc.0 = 0 'Pin wird auf Low, also 0V geschaltet
End If
Loop
End
Was muss ich ändern damit der Pin auf high bleibt bis ich ihm sage das er auf low gehen soll.
Vileicht so:
Do
If Pina.7 = 1 Then
Portc.0 = 1
If Pina.7 = 1 Then
Portc.0 = 0
End If
mfg
Florian