cinhcet
25.06.2006, 11:11
Hallo
Ich habe mir grad mal BAscom runtergeladen und hab dann auch gleich mal ein bisschen rumprogrammiert.
Da das mein erstes Programm ist, möchte ich wissen, ob das so funktioniert.
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
Config Portc.0 = Output
Config Pina.7 = Input
Porta.7 = 1
Config Portc.1 = Output
Config Pina.6 = Input
Porta.6 = 1
Do
If Pina.7 = 1 Then
Portc.0 = 1
Else
Portc.0 = 0
End If
If Pina.6 = 0 Then
Portc.1 = 1
Else
Portc.1 = 0
End If
Loop
End
An die Ports c.0 und c.1 sollen LEDs dran, und an den Pins a.6 und a.7 Taster.
Die LED c.0 leuchtet noch nicht, die LED c.1 schon.
Wenn man jetzt den Taster a.6 drückt, geht die LED c.1 aus(solange man drückt)
Bei dem Taster a.7, geht die LED c.0 ein(solange man drückt)
Würde das funktionieren?????
Ich werde mir dann mal einen ATMega 32(für den ist das Programm) kaufen, und das ISP Kabel auch, die anderen Teile hab ich schon.
Ich habe mir grad mal BAscom runtergeladen und hab dann auch gleich mal ein bisschen rumprogrammiert.
Da das mein erstes Programm ist, möchte ich wissen, ob das so funktioniert.
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
Config Portc.0 = Output
Config Pina.7 = Input
Porta.7 = 1
Config Portc.1 = Output
Config Pina.6 = Input
Porta.6 = 1
Do
If Pina.7 = 1 Then
Portc.0 = 1
Else
Portc.0 = 0
End If
If Pina.6 = 0 Then
Portc.1 = 1
Else
Portc.1 = 0
End If
Loop
End
An die Ports c.0 und c.1 sollen LEDs dran, und an den Pins a.6 und a.7 Taster.
Die LED c.0 leuchtet noch nicht, die LED c.1 schon.
Wenn man jetzt den Taster a.6 drückt, geht die LED c.1 aus(solange man drückt)
Bei dem Taster a.7, geht die LED c.0 ein(solange man drückt)
Würde das funktionieren?????
Ich werde mir dann mal einen ATMega 32(für den ist das Programm) kaufen, und das ISP Kabel auch, die anderen Teile hab ich schon.