hallo dirk,
das ist richtig,deine vermutung.habe dies auch 4 mal vorgesehen,aber zur zeit weggelassen um den code übersichtlich zu machen.es sollten in dem falle erstmal nur die sekunden einer angezeigt werden,was aber leider fehl schlägt.ich denke das ich auf dem richtigem weg bin nur macht die anzeige nicht was sie soll.jeder cd4094 ist für eine anzeige zuständig,die 8 register sollten mit meinem bin-code geladen werden und dann ausgeben.poblem ist,ich weiss nicht wie der bin-code der bei shiftout heraus kommt aus sieht.denke das da der hase im pfeffer liegt. mit einem anderen testprog läuft die anzeige einwandfrei. siehe anhang.
es werden die einzelnen zahlen richtig ausgegeben.
Code:
'*******************************************************************************
'* demo für 7 segment platine mit CD4094"
'* anschluss des steckers: 1=plus ,2=minus ,3=output enable=plus
'*                         4=stobe ,5=clock ,6=date´n
'*                         4 und 5 können auf einen pin gelegt werden
'* steckeranschluss 1 ist unten ,neben dem kondensator
'*******************************************************************************

$regfile = "attiny2313.dat"
$crystal = 4000000

Config Portb = Output
Clock Alias Portb.1                                         ' anschluss 4 und 5
Outpin Alias Portb.0                                        ' anschluss 6


'**** variablen für die Zahle 1-9 und den punkt sowie alles aus ***
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim F As Byte
Dim G As Byte
Dim H As Byte
Dim I As Byte
Dim J As Byte
Dim K As Byte
Dim L As Byte

Dim M As Byte

A = &B00111111                                              '1
B = &B10101000                                              '2
C = &B00111000                                              '3
D = &B00011101                                              '4
E = &B01011000                                              '5
F = &B01001000                                              '6
G = &B00111110                                              '7
H = &B00001000                                              '8
I = &B00011000                                              '9
J = &B00001010                                              '0
K = &B11110111                                              'punkt
L = &B11111111                                              'alles aus


'**** start der anzeige mit nullen ****

 For M = 1 To 4
  Shiftout Outpin , Clock , J , 0 , 8 , 100
 Next
 Wait 1

'**** jetzt die zahlen und den punkt sowie alles aus
'**** nacheinander darstellen

 Main1:

 Shiftout Outpin , Clock , A , 1 , 8 , 100
 Shiftout Outpin , Clock , B , 1 , 8 , 100
 Shiftout Outpin , Clock , C , 1 , 8 , 100
 Shiftout Outpin , Clock , D , 1 , 8 , 100

  Wait 2

 Shiftout Outpin , Clock , E , 1 , 8 , 100
 Shiftout Outpin , Clock , F , 1 , 8 , 100
 Shiftout Outpin , Clock , G , 1 , 8 , 100
 Shiftout Outpin , Clock , H , 1 , 8 , 100

  Wait 2

 Shiftout Outpin , Clock , I , 1 , 8 , 100
 Shiftout Outpin , Clock , J , 1 , 8 , 100
 Shiftout Outpin , Clock , K , 1 , 8 , 100
 Shiftout Outpin , Clock , L , 1 , 8 , 100

  Wait 2

  Goto Main1                                                ' zurück an den start
  End