Hallo Forum Nutzer und Bastler
Hab mal ne dumme Frage ich möchte mit einer matrix anzeige (TA07-11hwa) ein wort anzeigen lassen was durch ein schalter geändert wird.
Beispiel:
schalter AUS = WC
Schalter EIN = X
so nu mein CODE den ich versuche das darsutellen
Code
'--------------------------------------------------------------
' ATtiny2313 TEXT Anzeige WC Besetzt
' Copyright © 08.08.2010 by Thorsten Sch.
'
' Vcc = 5V Spannung
'---------------------------------------------------------------
$regfile = "2313def.dat"
$hwstack = 32
$swstack = 32
$framesize = 32
$lib "mcsbyte.lbx"
Ddrb = &B1111111
Ddrd = &B1111111
Declare Sub Feil()
Dim I As Byte
Portb = &B0000000
Portd = &B0000000
Do
I = Rnd(1)
Select Case I
Case 0 : Gosub Feil
End Select
Waitms 150
Loop
Sub Feil()
Portd = &B00000000
Portb = &B10000000
Portb = &B10010010
Portb = &B10010010
Portb = &B10010010
Waitms 200
End Sub
End 'en
Alles anzeigen
Wie oder wo könnte mein fehler liegen oder könntet ihr mir tipps geben....
Danke Gruss Thorsten Sch.