Scytale: hat Lightcube:Firmware nach Lightcube/Firmware verschoben: Der Trenner für Namespaces ist ":", der für Unterseiten ist "/"; das hier verwirrt nur die Software und mich. ;)

2008-01-10T12:23:10Z

hat Lightcube:Firmware nach Lightcube/Firmware verschoben: Der Trenner für Namespaces ist ":", der für Unterseiten ist "/"; das hier verwirrt nur die Software und mich. ;)

Neue Seite

{{pausiertes Projekt|Kontakt=TheMaverick|öffentlich=ja}}

Hier ist meine funktionierende Firmware für den Cube. Der Code wurde mit Bascom / Ponyprog auf den AVR gespeichert.

<code qbasic>

$regfile = "m32def.dat" 'AVR Chip configuration
$crystal = 16000000 'AVR soll auf 16MHz laufen

Baud = 28800 'Serielle Schnittstelle auf 28.800 Baud setzen

Config Porta = Output 'Kanäle auf Output setzen
Config Portb = Output
Config Portc = Output

Declare Sub Activate_led(byval Led As String)
Declare Sub Demomovie(byval Demo As String , Byval D_speed As String )

Dim Eingabe As String * 364
Dim I As Integer
Dim Leds(64) As String * 3
Dim Count As Integer
Dim Typsetzer As Byte 'typ 0 = led, 1 = speed, 2 = demo
Dim Waiter As Integer
Dim Speed As String * 3
Dim Schnitt As String * 1
Dim Movie As String * 1

Do
Input Eingabe 'Texteingabe für die Darstellung erwarten

If Left(eingabe , 1) = "a" And Right(eingabe , 1) = "z" Then

'Variablen zur¸cksetzen start
Speed = ""
Waiter = 0
Typsetzer = 0
For I = 0 To Count
Leds(i) = ""
Next I
Count = 0
Movie = ""
'Variablen zur¸cksetzen ende

For I = 0 To Len(eingabe) Step 1
Schnitt = Mid(eingabe , I , 1)
Select Case Schnitt
Case "x"
Typsetzer = 0 'auf led setzen
Count = Count + 1
Case "a"
'Typsetzer = 0 'auf led setzen

Case "m"
Typsetzer = 2 'auf demo setzen

Case "s"
Typsetzer = 1 'auf speed setzen

Case "z"
'Typsetzer = 0 'auf led setzen
Exit For

Case Else
If Typsetzer = 1 Then 'wenn speed dann
Speed = Speed + Mid(eingabe , I , 1)
Elseif Typsetzer = 2 Then
Movie = Movie + Mid(eingabe , I , 1)
Else 'wenn led dann
Leds(count) = Leds(count) + Mid(eingabe , I , 1)
End If
End Select
Next I
End If

Waiter = Val(speed)

If Waiter < 1 Then
Waiter = 1
End If

While Ischarwaiting() = 0
If Len(movie) > 0 Then

Call Demomovie(movie , Speed)

Else

For I = 0 To Count Step 1

If Len(leds(i)) > 0 Then
Call Activate_led(leds(i)) 'led anzeigen, 3 Zahlen ¸bergeben als string z.B.: 123
Waitms Waiter
End If

If 0 <> Ischarwaiting() Then
Exit For
Exit While
End If

Next I

End If
Wend
Porta = 0
Portb = 0
Portc = 0
Loop

Sub Activate_led(byval Led As String * 3)

Dim Istx_s As String * 1
Dim Istx As Byte
Dim Isty_s As String * 1
Dim Isty As Byte
Dim Istz_s As String * 1
Dim Istz As Byte

Porta = 0
Portb = 0
Portc = 0

Istx_s = Mid(led , 1 , 1) 'erste Ziffer auslesen
Istx = Val(istx_s) - 1

Isty_s = Mid(led , 2 , 1) 'zweite Ziffer auslesen
Isty = Val(isty_s) - 1

Istz_s = Mid(led , 3 , 1) 'dritte Ziffer auslesen
Istz = Val(istz_s) - 1

Porta.istx = 1
Portb.isty = 1
Portc.istz = 1

End Sub

'//// DEMOMOVIES ////////////////////////////////////////////////////////////////////

Sub Demomovie(byval Demo As String , Byval D_speed As String * 3)
Dim Demomovie As Integer
Demomovie = Val(demo)

Dim Demospeed As Integer
Demospeed = Val(d_speed)

Select Case Demomovie
Case 1
For I = 0 To 7
Porta = 0
Portb = 0
Portc = 0

Porta.i = 1
Portb.i = 1
Portc.i = 1

If 0 <> Ischarwaiting() Then
Exit For
Exit Function
Exit For
Exit While
End If

Waitms Demospeed

If 0 <> Ischarwaiting() Then
Exit For
Exit Function
Exit For
Exit While
End If

Next I
Case 2
Dim Demo2image(56) As String * 3
Demo2image(1) = "111"
Demo2image(2) = "222"
Demo2image(3) = "333"
Demo2image(4) = "444"
Demo2image(5) = "555"
Demo2image(6) = "666"
Demo2image(7) = "777"
Demo2image(8) = "888"

Demo2image(9) = "788"
Demo2image(10) = "688"
Demo2image(11) = "588"
Demo2image(12) = "488"
Demo2image(13) = "388"
Demo2image(14) = "288"
Demo2image(15) = "188"
Demo2image(16) = "277"
Demo2image(17) = "366"
Demo2image(18) = "455"
Demo2image(19) = "544"
Demo2image(20) = "633"
Demo2image(21) = "722"
Demo2image(22) = "811"

Demo2image(23) = "821"
Demo2image(24) = "831"
Demo2image(25) = "841"
Demo2image(26) = "851"
Demo2image(27) = "861"
Demo2image(28) = "871"
Demo2image(29) = "881"
Demo2image(30) = "772"

Demo2image(31) = "663"
Demo2image(32) = "554"
Demo2image(33) = "445"
Demo2image(34) = "336"
Demo2image(35) = "227"
Demo2image(36) = "118"
Demo2image(37) = "218"

Demo2image(38) = "318"
Demo2image(39) = "418"
Demo2image(40) = "518"
Demo2image(41) = "618"
Demo2image(42) = "718"
Demo2image(43) = "818"
Demo2image(44) = "727"

Demo2image(45) = "636"
Demo2image(46) = "545"
Demo2image(47) = "454"
Demo2image(48) = "363"
Demo2image(49) = "272"
Demo2image(50) = "181"

Demo2image(51) = "171"
Demo2image(52) = "161"
Demo2image(53) = "151"
Demo2image(54) = "141"
Demo2image(55) = "131"
Demo2image(56) = "121"

For I = 1 To 56

Call Activate_led(demo2image(i))

If 0 <> Ischarwaiting() Then
Exit For
Exit Function
Exit For
Exit While
End If

Waitms Demospeed

If 0 <> Ischarwaiting() Then
Exit For
Exit Function
Exit For
Exit While
End If

Next I
End Select

End Sub

End
</code>
--[[Benutzer:TheMaverick|TM]] 22:49, 2. Dez. 2006 (CET)

Lightcube/Firmware - Versionsgeschichte

Scytale: hat Lightcube:Firmware nach Lightcube/Firmware verschoben: Der Trenner für Namespaces ist ":", der für Unterseiten ist "/"; das hier verwirrt nur die Software und mich. ;)