-         

Ergebnis 1 bis 10 von 10

Thema: Cube, ich habe auch einen

  1. #1
    Erfahrener Benutzer Fleißiges Mitglied Avatar von mycroc
    Registriert seit
    29.11.2006
    Ort
    Bochum
    Beiträge
    111

    Cube, ich habe auch einen

    Anzeige

    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:



    Layout PDF:



    und ein Bild:



    der Code:

    (ist noch in Arbeit, werde ich nachreichen)

    MfG
    mycroc

  2. #2
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    14.02.2008
    Beiträge
    252
    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

  3. #3
    Erfahrener Benutzer Fleißiges Mitglied Avatar von Ferdinand
    Registriert seit
    10.09.2004
    Ort
    Stuttgart
    Alter
    37
    Beiträge
    196
    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 (-;
    habe schreiben erst heute gelernt.

    bin legasteniger.

    by Ferdinand.

  4. #4
    Erfahrener Benutzer Fleißiges Mitglied Avatar von mycroc
    Registriert seit
    29.11.2006
    Ort
    Bochum
    Beiträge
    111
    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?

  5. #5
    Erfahrener Benutzer Fleißiges Mitglied Avatar von mycroc
    Registriert seit
    29.11.2006
    Ort
    Bochum
    Beiträge
    111
    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

  6. #6
    Erfahrener Benutzer Fleißiges Mitglied
    Registriert seit
    29.09.2007
    Ort
    Südbaden
    Beiträge
    182
    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

  7. #7
    Erfahrener Benutzer Fleißiges Mitglied Avatar von mycroc
    Registriert seit
    29.11.2006
    Ort
    Bochum
    Beiträge
    111
    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!

  8. #8
    Erfahrener Benutzer Fleißiges Mitglied Avatar von mycroc
    Registriert seit
    29.11.2006
    Ort
    Bochum
    Beiträge
    111
    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


    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.

  9. #9
    Erfahrener Benutzer Fleißiges Mitglied
    Registriert seit
    29.09.2007
    Ort
    Südbaden
    Beiträge
    182
    Mit Target kenn ich mich nicht aus...
    aber du hättest auch Led's in einer flachen Bauform wählen können

    Gruß
    elayne

  10. #10
    Erfahrener Benutzer Fleißiges Mitglied Avatar von mycroc
    Registriert seit
    29.11.2006
    Ort
    Bochum
    Beiträge
    111
    ja das stimt natürlich, aber ich habe nur bauteile genomen die ich in der ecke liegen hatte.

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •