Hallo,
danke erst mal für die schnelle Antwort.
Die Spannungsversorgung geht über akkus. Die Spannung beträgt aber 4,8V. Also daran sollte es nicht liegen. Die Zeit habe ich verlängert und eine dritte LED angeschlossen und auch im Programm hinzugefügt:
Config Portc.2 = Output
Portc.2 = 0
Diese leuchtet aber nicht!? Egal ob Portc.2 = 1 oder 0...
Der 16 Mhz Quarz ist mit den 22pF Kondensatoren angeschlossen und es ist alels eingestellt. Das $prog &HFF , ..... ist ein Befehl von Bascom, mit denen er die Fusebits schreibt und ändert. Habe ich vergessen zu löschen.
Wenn ich die LED nur blinken lassen möchte, funktiniert dies ohne probleme. Aber mit dem Taster geht es nicht...
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
'$prog &HFF , &HFF , &HD9 , &H00 ' generated. Take care that the chip supports all fuse bytes.
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Pinc.7 = Input
Portc.7 = 1
Portc.2 = 0
Do
If Pinc.7 = 0 Then
Portc.0 = 1
Waitms 500
Portc.0 = 0
Waitms 100
Else
Portc.1 = 0
End If
Loop
End
Lesezeichen