fitec
24.08.2008, 11:34
Hallo,
ich beschäftige mich nun doch schon länger mit Bascom und habe schon das eine oder andere Programm geschrieben.
Gestern habe ich nun ein kleines Programm geschrieben, dass sich nicht kompilieren lässt.
Hier der Code:
$regfile = "m8def.dat"
$crystal = 4000000
Portd.6 = Input
Portd.6 = 1
Portb.1 = Output
Portb.0 = Output
Portd.7 = Output
Dim I As Byte
Dim X As Byte
Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
Do
If Portd.6 = 0
Then Exit Loop
End If
Loop
2a Alias Portb.0
1a Alias Portd.7
1a = 1
2a = 0
Do
For I = 0 To 255
X = I
Compare1a = X
Waitms 10
Next
For I = 0 To 255
X = X - 1
Compare1a = X
Waitms 10
Next
Loop
End
Nun bekomme ich die Meldung:
Error: Error 105 Line 4 (und7) Storebit error [0] C\Users\.....
Das betrifft also eine ganz normales Pin config. Wenn ich das umstelle zeigt er den Fehler bei einem anderen Pin config an.
Was ist da falsch? Ich bin am Verzweifeln.
Gruß fitec
ich beschäftige mich nun doch schon länger mit Bascom und habe schon das eine oder andere Programm geschrieben.
Gestern habe ich nun ein kleines Programm geschrieben, dass sich nicht kompilieren lässt.
Hier der Code:
$regfile = "m8def.dat"
$crystal = 4000000
Portd.6 = Input
Portd.6 = 1
Portb.1 = Output
Portb.0 = Output
Portd.7 = Output
Dim I As Byte
Dim X As Byte
Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 1
Do
If Portd.6 = 0
Then Exit Loop
End If
Loop
2a Alias Portb.0
1a Alias Portd.7
1a = 1
2a = 0
Do
For I = 0 To 255
X = I
Compare1a = X
Waitms 10
Next
For I = 0 To 255
X = X - 1
Compare1a = X
Waitms 10
Next
Loop
End
Nun bekomme ich die Meldung:
Error: Error 105 Line 4 (und7) Storebit error [0] C\Users\.....
Das betrifft also eine ganz normales Pin config. Wenn ich das umstelle zeigt er den Fehler bei einem anderen Pin config an.
Was ist da falsch? Ich bin am Verzweifeln.
Gruß fitec