Cube, ich habe auch einen

**mycroc** · 08.06.2008, 16:39

Ich gebe zu es ist nicht wirklich einfalsreiche noch einen led Cube in die Welt zu setzen. Es hat aber in den Fingern gekribbelt. Und das Ergebnis kann nun bestaunt werden.
Video:
http://de.youtube.com/watch?v=mO7JkiEe7rE
Schaltplan PDF:

Bild hier

Layout PDF:

Bild hier

und ein Bild:

Bild hier

der Code:

(ist noch in Arbeit, werde ich nachreichen)

MfG
mycroc

**niki1** · 08.06.2008, 17:21

Ist gut geworden. Respekt.
Muss mir auch mal eins bauen.
Im Schaltplan was ist mit der blauen Verbindung gemeint , wozu ist die da?
Mfg niki1

Mfg niki1

**Ferdinand** · 08.06.2008, 19:06

Servus

Das ist ja mal echt ne schöne idee.

In was hast du das den programmirt und wie bisst du da fohr gegangen.

köndest du den CODE mal reinstelen.

niki1:

die blaue linie ist ein leitungs-strang so werden meradrige bus dargestelt.

das heist da laufen mehrere leitungen lang die den selben weg haben (-;

**mycroc** · 08.06.2008, 20:03

zu beginn wuste ich nicht wie ich anfangen soll, deswegen ist der Code mit der zeit gewachsen und deswegen..... sagen wir mal suboptimal.... geht aber.

Code:

$regfile = "m8535.dat"
$crystal = 4000000
'--------------------------------------
Config Porta = Output
Config Portb = Output
Config Portc.7 = Output
Config Portd.5 = Output
Config Portd.6 = Output
Config Timer1 = Timer , Prescale = 256
Enable Timer1
On Timer1 Systemtakt
Enable Interrupts
Enable Timer1
Load Timer1 , 2000
'--------------------------------------
Dim Ablauf(2) As Byte
Dim Ablaufmax As Byte
Dim Ablaufalt As Byte
Dim Zaehler As Byte
Dim Auswahl(10) As Byte
Dim Status As Byte
'.0 = Timer
'.1 = Ablauf 1 = wurm vor
'.2 = Ablauf 2 = wurm rück
'.3 = Ablauf 3 = fläche
'.4 = Ablauf 4 = pfeil
'.5 = Ablauf 5 = zufall
Dim Ladewert As Word
Dim Leds As Word
'X1 -> .0
'X2 -> .1
'X3 -> .2
'X4 -> .3
'X5 -> .4
'X6 -> .5
'X7 -> .6
'X8 -> .7
'X9 -> .8
'Ebene1 -> .9
'Ebene2 -> .10
'Ebene3 -> .11
'--------------------------------------
Declare Sub Schalten()
Declare Sub Anzeige()
Declare Sub Zufall()
Declare Sub Wurm()
Declare Sub Fläche()
Declare Sub Pfeil()
Declare Sub Zufällig()
'--------------------------------------
X1 Alias Porta.0
X2 Alias Porta.1
X3 Alias Porta.2
X4 Alias Porta.3
X5 Alias Porta.4
X6 Alias Porta.5
X7 Alias Porta.6
X8 Alias Porta.7
X9 Alias Portc.7
Ebene3 Alias Portb.0
Ebene2 Alias Portb.1
Ebene1 Alias Portb.2
Ledrot Alias Portd.6
Ledgelb Alias Portd.5
'--------------------------------------
Ladewert = 2000
Status.1 = 1
Status.2 = 0
Status.3 = 0
Status.4 = 0
Status.5 = 0
Ledrot = 0
Ledgelb = 0
'######## Anfang ################################
Do
If Status.0 = 1 Then
   Status.0 = 0
   If Status.1 = 1 Then
      Ablaufmax = 61
      Incr Ablauf(1)
      If Ablauf(1) >= Ablaufmax Then
         Status.1 = 0
         Status.2 = 1
         Call Zufall
      End If
      Call Wurm
   End If

   If Status.2 = 1 Then
      Decr Ablauf(1)
      If Ablauf(1) <= 0 Then
         Status.2 = 0
         Status.3 = 1
         Call Zufall
      End If
      Call Wurm
   End If

   If Status.3 = 1 Then
      Ablaufmax = 19
      Incr Ablauf(1)
      If Ablauf(1) >= Ablaufmax Then
         Ablauf(1) = 0
         Status.3 = 0
         Status.4 = 1
         Call Zufall
      End If
      Call Fläche
   End If

   If Status.4 = 1 Then
      Ablaufmax = 7
      Incr Ablauf(1)
      If Ablauf(1) >= Ablaufmax Then
         Ablauf(1) = 0
         Status.4 = 0
         Status.5 = 1
         Call Zufall
      End If
      Call Pfeil
   End If

   If Status.5 = 1 Then
      Ablaufmax = 100
      Incr Ablauf(1)
      Call Zufällig
      If Ablauf(1) >= Ablaufmax Then
         Ablauf(1) = 0
         Status.5 = 0
         Status.1 = 1
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      End If
   End If
End If


Auswahl(1) = Auswahl(2)
Call Anzeige

Auswahl(1) = Auswahl(3)
Call Anzeige

Auswahl(1) = Auswahl(4)
Call Anzeige

Auswahl(1) = Auswahl(5)
Call Anzeige

Auswahl(1) = Auswahl(6)
Call Anzeige

Auswahl(1) = Auswahl(7)
Call Anzeige

Auswahl(1) = Auswahl(8)
Call Anzeige

Auswahl(1) = Auswahl(9)
Call Anzeige

Auswahl(1) = Auswahl(10)
Call Anzeige

Loop
'#############################################################################
'#############################################################################
Sub Zufällig()
Incr Ablauf(2)
   If Ablauf(2) >= 10 Then
      Auswahl(2) = Rnd(27)
      Auswahl(3) = Rnd(27)
      Auswahl(4) = Rnd(27)
      Auswahl(5) = Rnd(27)
   End If
End Sub
'######## Wurm ##############
Sub Wurm
   Ablaufmax = 61
   Select Case Ablauf(1)
      Case 0
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0

      Case 1
         Auswahl(2) = 1
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0

      Case 2
         Auswahl(2) = 1
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0

      Case 3
         Auswahl(2) = 1
         Auswahl(3) = 2
         Auswahl(4) = 0
         Auswahl(5) = 0

      Case 4
         Auswahl(2) = 1
         Auswahl(3) = 2
         Auswahl(4) = 0
         Auswahl(5) = 0

      Case 5
         Auswahl(2) = 1
         Auswahl(3) = 2
         Auswahl(4) = 3
         Auswahl(5) = 0

      Case 6
         Auswahl(2) = 1
         Auswahl(3) = 2
         Auswahl(4) = 3
         Auswahl(5) = 0

      Case 7
         Auswahl(2) = 1
         Auswahl(3) = 2
         Auswahl(4) = 3
         Auswahl(5) = 6

      Case 8
         Auswahl(2) = 2
         Auswahl(3) = 3
         Auswahl(4) = 6
         Auswahl(5) = 0

      Case 9
         Auswahl(2) = 2
         Auswahl(3) = 3
         Auswahl(4) = 6
         Auswahl(5) = 9

      Case 10
         Auswahl(2) = 3
         Auswahl(3) = 6
         Auswahl(4) = 9
         Auswahl(5) = 0

      Case 11
         Auswahl(2) = 3
         Auswahl(3) = 6
         Auswahl(4) = 9
         Auswahl(5) = 8

      Case 12
         Auswahl(2) = 6
         Auswahl(3) = 9
         Auswahl(4) = 8
         Auswahl(5) = 0

      Case 13
         Auswahl(2) = 6
         Auswahl(3) = 9
         Auswahl(4) = 8
         Auswahl(5) = 7

      Case 14
         Auswahl(2) = 9
         Auswahl(3) = 8
         Auswahl(4) = 7
         Auswahl(5) = 0

      Case 15
         Auswahl(2) = 9
         Auswahl(3) = 8
         Auswahl(4) = 7
         Auswahl(5) = 4

      Case 16
         Auswahl(2) = 8
         Auswahl(3) = 7
         Auswahl(4) = 4
         Auswahl(5) = 0

      Case 17
         Auswahl(2) = 8
         Auswahl(3) = 7
         Auswahl(4) = 4
         Auswahl(5) = 5

      Case 18
         Auswahl(2) = 7
         Auswahl(3) = 4
         Auswahl(4) = 5
         Auswahl(5) = 0

      Case 19
         Auswahl(2) = 7
         Auswahl(3) = 4
         Auswahl(4) = 5
         Auswahl(5) = 14

      Case 20
         Auswahl(2) = 4
         Auswahl(3) = 5
         Auswahl(4) = 14
         Auswahl(5) = 0

      Case 21
         Auswahl(2) = 4
         Auswahl(3) = 5
         Auswahl(4) = 14
         Auswahl(5) = 15

      Case 22
         Auswahl(2) = 5
         Auswahl(3) = 14
         Auswahl(4) = 15
         Auswahl(5) = 0

      Case 23
         Auswahl(2) = 5
         Auswahl(3) = 14
         Auswahl(4) = 15
         Auswahl(5) = 18

      Case 24
         Auswahl(2) = 14
         Auswahl(3) = 15
         Auswahl(4) = 18
         Auswahl(5) = 0

      Case 25
         Auswahl(2) = 14
         Auswahl(3) = 15
         Auswahl(4) = 18
         Auswahl(5) = 17

      Case 26
         Auswahl(2) = 15
         Auswahl(3) = 18
         Auswahl(4) = 17
         Auswahl(5) = 0

      Case 27
         Auswahl(2) = 15
         Auswahl(3) = 18
         Auswahl(4) = 17
         Auswahl(5) = 16

      Case 28
         Auswahl(2) = 18
         Auswahl(3) = 17
         Auswahl(4) = 16
         Auswahl(5) = 0

      Case 29
         Auswahl(2) = 18
         Auswahl(3) = 17
         Auswahl(4) = 16
         Auswahl(5) = 13

      Case 30
         Auswahl(2) = 17
         Auswahl(3) = 16
         Auswahl(4) = 13
         Auswahl(5) = 0

      Case 31
         Auswahl(2) = 17
         Auswahl(3) = 16
         Auswahl(4) = 13
         Auswahl(5) = 10

      Case 32
         Auswahl(2) = 16
         Auswahl(3) = 13
         Auswahl(4) = 10
         Auswahl(5) = 0

      Case 33
         Auswahl(2) = 16
         Auswahl(3) = 13
         Auswahl(4) = 10
         Auswahl(5) = 11

      Case 34
         Auswahl(2) = 13
         Auswahl(3) = 10
         Auswahl(4) = 11
         Auswahl(5) = 0

      Case 35
         Auswahl(2) = 13
         Auswahl(3) = 10
         Auswahl(4) = 11
         Auswahl(5) = 12

      Case 36
         Auswahl(2) = 10
         Auswahl(3) = 11
         Auswahl(4) = 12
         Auswahl(5) = 0

      Case 37
         Auswahl(2) = 10
         Auswahl(3) = 11
         Auswahl(4) = 12
         Auswahl(5) = 21

      Case 38
         Auswahl(2) = 11
         Auswahl(3) = 12
         Auswahl(4) = 21
         Auswahl(5) = 0

      Case 39
         Auswahl(2) = 11
         Auswahl(3) = 12
         Auswahl(4) = 21
         Auswahl(5) = 24

      Case 40
         Auswahl(2) = 12
         Auswahl(3) = 21
         Auswahl(4) = 24
         Auswahl(5) = 0

      Case 41
         Auswahl(2) = 12
         Auswahl(3) = 21
         Auswahl(4) = 24
         Auswahl(5) = 27

      Case 42
         Auswahl(2) = 21
         Auswahl(3) = 24
         Auswahl(4) = 27
         Auswahl(5) = 0

      Case 43
         Auswahl(2) = 21
         Auswahl(3) = 24
         Auswahl(4) = 27
         Auswahl(5) = 26

      Case 44
         Auswahl(2) = 24
         Auswahl(3) = 27
         Auswahl(4) = 26
         Auswahl(5) = 0

      Case 45
         Auswahl(2) = 24
         Auswahl(3) = 27
         Auswahl(4) = 26
         Auswahl(5) = 23

      Case 46
         Auswahl(2) = 27
         Auswahl(3) = 26
         Auswahl(4) = 23
         Auswahl(5) = 0

      Case 47
         Auswahl(2) = 27
         Auswahl(3) = 26
         Auswahl(4) = 23
         Auswahl(5) = 20

      Case 48
         Auswahl(2) = 26
         Auswahl(3) = 23
         Auswahl(4) = 20
         Auswahl(5) = 0

      Case 49
         Auswahl(2) = 26
         Auswahl(3) = 23
         Auswahl(4) = 20
         Auswahl(5) = 19

      Case 50
         Auswahl(2) = 23
         Auswahl(3) = 20
         Auswahl(4) = 19
         Auswahl(5) = 0

      Case 51
         Auswahl(2) = 23
         Auswahl(3) = 20
         Auswahl(4) = 19
         Auswahl(5) = 22

      Case 52
         Auswahl(2) = 20
         Auswahl(3) = 19
         Auswahl(4) = 22
         Auswahl(5) = 0


      Case 53
         Auswahl(2) = 20
         Auswahl(3) = 19
         Auswahl(4) = 22
         Auswahl(5) = 25

      Case 54
         Auswahl(2) = 19
         Auswahl(3) = 22
         Auswahl(4) = 25
         Auswahl(5) = 0

      Case 55
         Auswahl(2) = 19
         Auswahl(3) = 22
         Auswahl(4) = 25
         Auswahl(5) = 0

      Case 56
         Auswahl(2) = 22
         Auswahl(3) = 25
         Auswahl(4) = 0
         Auswahl(5) = 0

      Case 57
         Auswahl(2) = 22
         Auswahl(3) = 25
         Auswahl(4) = 0
         Auswahl(5) = 0

      Case 58
         Auswahl(2) = 25
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0

      Case 59
         Auswahl(2) = 25
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0

      Case 60
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
   End Select

End Sub

'######## Fläche ######################################
Sub Fläche()
   Ablaufmax = 19
   Select Case Ablauf(1)
      Case 0
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 1
         Auswahl(2) = 1
         Auswahl(3) = 2
         Auswahl(4) = 3
         Auswahl(5) = 4
         Auswahl(6) = 5
         Auswahl(7) = 6
         Auswahl(8) = 7
         Auswahl(9) = 8
         Auswahl(10) = 9
      Case 2
         Auswahl(2) = 10
         Auswahl(3) = 11
         Auswahl(4) = 12
         Auswahl(5) = 13
         Auswahl(6) = 14
         Auswahl(7) = 15
         Auswahl(8) = 16
         Auswahl(9) = 17
         Auswahl(10) = 18
      Case 3
         Auswahl(2) = 19
         Auswahl(3) = 20
         Auswahl(4) = 21
         Auswahl(5) = 22
         Auswahl(6) = 23
         Auswahl(7) = 24
         Auswahl(8) = 25
         Auswahl(9) = 26
         Auswahl(10) = 27
      Case 4
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 5
         Auswahl(2) = 1
         Auswahl(3) = 4
         Auswahl(4) = 7
         Auswahl(5) = 10
         Auswahl(6) = 13
         Auswahl(7) = 16
         Auswahl(8) = 19
         Auswahl(9) = 22
         Auswahl(10) = 25
      Case 6
         Auswahl(2) = 2
         Auswahl(3) = 5
         Auswahl(4) = 8
         Auswahl(5) = 11
         Auswahl(6) = 14
         Auswahl(7) = 17
         Auswahl(8) = 20
         Auswahl(9) = 23
         Auswahl(10) = 26
      Case 7
         Auswahl(2) = 3
         Auswahl(3) = 6
         Auswahl(4) = 9
         Auswahl(5) = 12
         Auswahl(6) = 15
         Auswahl(7) = 18
         Auswahl(8) = 21
         Auswahl(9) = 24
         Auswahl(10) = 27
      Case 8
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 9
         Auswahl(2) = 19
         Auswahl(3) = 20
         Auswahl(4) = 21
         Auswahl(5) = 22
         Auswahl(6) = 23
         Auswahl(7) = 24
         Auswahl(8) = 25
         Auswahl(9) = 26
         Auswahl(10) = 27
      Case 10
         Auswahl(2) = 10
         Auswahl(3) = 11
         Auswahl(4) = 12
         Auswahl(5) = 13
         Auswahl(6) = 14
         Auswahl(7) = 15
         Auswahl(8) = 16
         Auswahl(9) = 17
         Auswahl(10) = 18
      Case 11
         Auswahl(2) = 1
         Auswahl(3) = 2
         Auswahl(4) = 3
         Auswahl(5) = 4
         Auswahl(6) = 5
         Auswahl(7) = 6
         Auswahl(8) = 7
         Auswahl(9) = 8
         Auswahl(10) = 9
      Case 12
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 13
         Auswahl(2) = 3
         Auswahl(3) = 6
         Auswahl(4) = 9
         Auswahl(5) = 12
         Auswahl(6) = 15
         Auswahl(7) = 18
         Auswahl(8) = 21
         Auswahl(9) = 24
         Auswahl(10) = 27
      Case 14
         Auswahl(2) = 2
         Auswahl(3) = 5
         Auswahl(4) = 8
         Auswahl(5) = 11
         Auswahl(6) = 14
         Auswahl(7) = 17
         Auswahl(8) = 20
         Auswahl(9) = 23
         Auswahl(10) = 26
      Case 15
         Auswahl(2) = 1
         Auswahl(3) = 4
         Auswahl(4) = 7
         Auswahl(5) = 10
         Auswahl(6) = 13
         Auswahl(7) = 16
         Auswahl(8) = 19
         Auswahl(9) = 22
         Auswahl(10) = 25
      Case 16
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 17
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 18
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 19
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
     End Select
End Sub

'######## Pfeil ################################################
Sub Pfeil()
'If Status.4 = 1 Then
   Ablaufmax = 7
   Select Case Ablauf(1)
      Case 0
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 1
         Auswahl(2) = 5
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 2
         Auswahl(2) = 14
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
      Case 3
         Auswahl(2) = 23
         Auswahl(3) = 1
         Auswahl(4) = 2
         Auswahl(5) = 3
         Auswahl(6) = 6
         Auswahl(7) = 9
         Auswahl(8) = 8
         Auswahl(9) = 7
         Auswahl(10) = 4
      Case 4
         Auswahl(2) = 10
         Auswahl(3) = 11
         Auswahl(4) = 12
         Auswahl(5) = 15
         Auswahl(6) = 18
         Auswahl(7) = 17
         Auswahl(8) = 16
         Auswahl(9) = 13
         Auswahl(10) = 0
      Case 5
         Auswahl(2) = 19
         Auswahl(3) = 20
         Auswahl(4) = 21
         Auswahl(5) = 24
         Auswahl(6) = 27
         Auswahl(7) = 26
         Auswahl(8) = 25
         Auswahl(9) = 22
         Auswahl(10) = 0
      Case 6
         Auswahl(2) = 0
         Auswahl(3) = 0
         Auswahl(4) = 0
         Auswahl(5) = 0
         Auswahl(6) = 0
         Auswahl(7) = 0
         Auswahl(8) = 0
         Auswahl(9) = 0
         Auswahl(10) = 0
   End Select
End Sub Pfeil()
'######## Anzeige ################################

Ich freue mich schon auf meinungen

Übrigens:
kann man mit Target die einzelnen Busleitungen Beschriften?

**mycroc** · 08.06.2008, 20:06

der ganze code passte nicht, deswegen hier der rest

Code:

'######## Anzeige ################################
Sub Anzeige
Select Case Auswahl(1)
'Ebene 1
   Case 0
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 1

   Case 1
      X1 = 1
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 2
      X1 = 0
      X2 = 1
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 3
      X1 = 0
      X2 = 0
      X3 = 1
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 4
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 1
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 5
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 1
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 6
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 1
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 7
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 1
      X8 = 0
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 8
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 1
      X9 = 0
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1

   Case 9
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 1
      Ebene1 = 0
      Ebene2 = 1
      Ebene3 = 1
'Ebene 2------------------------------------------

   Case 10
      Leds = &B0000110000000001
      X1 = 1
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 11
      Leds = &B0000110000000010
      X1 = 0
      X2 = 1
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 12
      Leds = &B0000110000000100
      X1 = 0
      X2 = 0
      X3 = 1
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 13
      Leds = &B0000110000001000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 1
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 14
      Leds = &B0000110000010000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 1
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 15
      Leds = &B0000110000100000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 1
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 16
      Leds = &B0000110001000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 1
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 17
      Leds = &B0000110010000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 1
      X9 = 0
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1

   Case 18
      Leds = &B0000110100000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 1
      Ebene1 = 1
      Ebene2 = 0
      Ebene3 = 1
'Ebene 3------------------------------------------

   Case 19
      Leds = &B0000110000000001
      X1 = 1
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 20
      Leds = &B0000110000000010
      X1 = 0
      X2 = 1
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 21
      Leds = &B0000110000000100
      X1 = 0
      X2 = 0
      X3 = 1
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 22
      Leds = &B0000110000001000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 1
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 23
      Leds = &B0000110000010000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 1
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 24
      Leds = &B0000110000100000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 1
      X7 = 0
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 25
      Leds = &B0000110001000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 1
      X8 = 0
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 26
      Leds = &B0000110010000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 1
      X9 = 0
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0

   Case 27
      Leds = &B0000110100000000
      X1 = 0
      X2 = 0
      X3 = 0
      X4 = 0
      X5 = 0
      X6 = 0
      X7 = 0
      X8 = 0
      X9 = 1
      Ebene1 = 1
      Ebene2 = 1
      Ebene3 = 0
   End Select

End Sub
'-----------------------------------
Sub Schalten
X1 = Leds.0
X2 = Leds.1
X3 = Leds.2
X4 = Leds.3
X5 = Leds.4
X6 = Leds.5
X7 = Leds.6
X8 = Leds.7
X9 = Leds.8
Ebene1 = Leds.9
Ebene2 = Leds.10
Ebene3 = Leds.11
End Sub
'-------------------------------------
Sub Zufall()
   A:
   Ladewert = Rnd(6000)
   If Ladewert <= 1000 Then Goto A
   Toggle Ledgelb
End Sub
'--------------------------------------
'--------------------------------------
Systemtakt:
Status.0 = 1                                                'timer bit setzen
Load Timer1 , Ladewert
Toggle Ledrot
Return

MfG

mycroc

**elayne** · 08.06.2008, 21:57

Hey,
schönes Projekt, du solltest aber die Busleitungen im Schaltplan beschriften. Zum einen bickt man dann auch durch wenn das ganze ausgedruckt ist, zum anderen versteht man es auch besser am PC.

Gruß
elayne

**mycroc** · 08.06.2008, 22:41

aber wie Beschriftet man die Busleitungen in Target? So ist es wirklich nicht zu durchschauen, dessen bin ich mir bewust ich weiss nur nicht wie man das macht!

**mycroc** · 11.06.2008, 19:21

ich habe jetzt mal die LEDs an der oberseite angeschliffen. Die LEDs leuchten für so eine Anwendung schöner, leider ist das auf einem foto
Bild hier

nur schlecht zu erkennen. Auch mit einem Video läst sich kaum ein unterschied sehen.

http://de.youtube.com/watch?v=8sYk2j7lR9A

In echt macht sich die Arbeit aber bezahlt.