Cybererror
26.08.2009, 19:29
Hallo.
Wollte mal was porbiren aber leider geht es nicht so wie ich will.
Ich wollte Die Ein und Aus schaltzeit die LED berechnen lassen um sie zu Dimmen.
Wenn ich es als zahl eingebe ZB Waitus 2000
geht es aber wenn ich es als Variablen eingebe geht es nicht?
Was mache ich falsch?
´Test Porgramm
$regfile = "m8def.dat"
$crystal = 3686100
$hwstack = 100
$swstack = 100
$framesize = 100
Config Portc = Output
Config Portb.4 = Output
Config Portb.5 = Output
Dim Ein As Long
Dim Aus As Long
Dim Zahl As Word
Chip1 Alias Portb.4
Chip2 Alias Portb.5
Portc = &B00000000
Chip1 = 1 : Chip1 = 0
Chip2 = 1 : Chip2 = 0
Portc = &B00000001
Chip1 = 1 : Chip1 = 0
Chip2 = 0 : Chip2 = 0
Ein = 1
Aus = 2000
Do
Portc = &B00001111
Chip2 = 1 : Chip2 = 0
Waitus 1 (Ein)<- Hier setzt ich diese Variable ein
Portc = &B00000000
Chip2 = 1 : Chip2 = 0
Waitus 2000 (Aus)
Loop
Code-Tags vom Mod eingefügt (PicNick)
Wollte mal was porbiren aber leider geht es nicht so wie ich will.
Ich wollte Die Ein und Aus schaltzeit die LED berechnen lassen um sie zu Dimmen.
Wenn ich es als zahl eingebe ZB Waitus 2000
geht es aber wenn ich es als Variablen eingebe geht es nicht?
Was mache ich falsch?
´Test Porgramm
$regfile = "m8def.dat"
$crystal = 3686100
$hwstack = 100
$swstack = 100
$framesize = 100
Config Portc = Output
Config Portb.4 = Output
Config Portb.5 = Output
Dim Ein As Long
Dim Aus As Long
Dim Zahl As Word
Chip1 Alias Portb.4
Chip2 Alias Portb.5
Portc = &B00000000
Chip1 = 1 : Chip1 = 0
Chip2 = 1 : Chip2 = 0
Portc = &B00000001
Chip1 = 1 : Chip1 = 0
Chip2 = 0 : Chip2 = 0
Ein = 1
Aus = 2000
Do
Portc = &B00001111
Chip2 = 1 : Chip2 = 0
Waitus 1 (Ein)<- Hier setzt ich diese Variable ein
Portc = &B00000000
Chip2 = 1 : Chip2 = 0
Waitus 2000 (Aus)
Loop
Code-Tags vom Mod eingefügt (PicNick)