RN-Digi Elemente einzeln abschalten

[daneil86]

hi,
ich benutze die RN-Digi Schaltung zur Darstellung 1-4 stelliger Zahlen auf den 4 Siebensegmentanzeigen. Nun möchte ich bei beispielsweise bei 2- oder 3-stelligen Zahlen die vordersten Siebensegmentanzeigen abschalten. Ich bin aus dem Datenblatt des SAA1064 nicht ganz schlau geworden. Anscheinend kann man mit Controlbit 1 und 2 jeweils zwei Elemente lahmlegen. Aber wie kann ich einzelne ausschalten?
Hier noch mein bisher verwendeter Code und im Anhang das Datenblatt des SAA1064:




Declare Sub Led_display_init()
Declare Sub Led_display(byval Ziffer As Byte , Byval Zahl As Byte)

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32

$crystal = 16000000 'Quarzfrequenz
$baud = 9600

Const Rn_digi_slave_write = &H70
Const Rn_digi_slave_read = &H71
Const Dezimalpunktziffer = 0 'Segment wo Dezimalpunkt leuchten soll (0=keinen)
Const Timervorgabe = 3036

Dim Segmente As Byte
Dim Z As Byte
Dim Beiner As Byte
Dim Bzehner As Byte
Dim Bhunderter As Byte
Dim Btausender As Byte
Dim Einer As Word
Dim Zehner As Word
Dim Hunderter As Word
Dim Tausender As Word
Dim A As Word
Dim Zaehlerirq0 As Long
Dim Impulseprosekunde As Long
Dim Impulseprominute As Long
Dim Umdrehungenprominute As Integer



Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1
Config Int0 = Falling
Config Timer1 = Timer , Prescale = 256

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcdbus = 4


Zaehlerirq0 = 0
On Int0 Irq0
Enable Int0

On Timer1 Timer_irq
Enable Timer1

Enable Interrupts





I2cinit
Led_display_init


Sound Portd.7 , 400 , 450 'BEEP
Sound Portd.7 , 400 , 250 'BEEP
Sound Portd.7 , 400 , 450 'BEEP

Cls
Locate 1 , 1
Lcd "Upm="
'Locate 2 , 1
'Lcd "Ips="

Bhunderter = 0
Btausender = 0
Beiner = 0
Bzehner = 0

Do

Umdrehungenprominute = Impulseprosekunde * 26
Umdrehungenprominute = Umdrehungenprominute / 15

Locate 1 , 5
Lcd Umdrehungenprominute
'Locate 2 , 5
'Lcd Impulseprosekunde


A = Umdrehungenprominute

Einer = A Mod 10
A = A - Einer
A = A / 10
Zehner = A Mod 10
A = A - Zehner
A = A / 10
Hunderter = A Mod 10
A = A - Hunderter
A = A / 10
Tausender = A Mod 10

If Btausender = Tausender Then
Else
Btausender = Tausender
Led_display 2 , Btausender
End If

If Bhunderter = Hunderter Then
Else
Btausender = Tausender
Led_display 1 , Bhunderter
End If

If Bzehner = Zehner Then
Else
Bzehner = Zehner
Led_display 4 , Bzehner
End If

If Beiner = Einer Then
Else
Beiner = Einer
Led_display 3 , Beiner
End If

Bhunderter = Hunderter
Btausender = Tausender
Beiner = Einer
Bzehner = Zehner

Loop

End


Sub Led_display_init()
I2cstart
I2cwbyte Rn_digi_slave_write
I2cwbyte 0 'Control Byte

'Dynamic Alternative Mode und Helligkeit
'Die oberen 3 Bits bestimmen die Helligkeit
'Wenn es dunkler sein soll dann z.b. &B0110111
I2cwbyte &B0110111 '&B1110111

I2cstop

'Alle Ziffern auf 0
For Z = 1 To 4
Led_display Z , 0
Next Z

End Sub


Sub Led_display(ziffer An Byte , Zahl As Byte)
I2cstart
I2cwbyte Rn_digi_slave_write
I2cwbyte Ziffer

Select Case Zahl
Case 0:
Segmente = &H3F '00111111
Case 1:
Segmente = &H06 '00000110
Case 2:
Segmente = &H5B '01011011
Case 3:
Segmente = &H4F
Case 4:
Segmente = &H66
Case 5:
Segmente = &H6D
Case 6:
Segmente = &H7D
Case 7:
Segmente = &H07
Case 8:
Segmente = &H7F
Case 9:
Segmente = &H67
Case Else :
Segmente = &H80 'Ansonsten Dezimalpunkt

End Select

If Dezimalpunktziffer = Ziffer Then Segmente = Segmente Or &H80
I2cwbyte Segmente
I2cstop
End Sub


'Pro Impuls (Markierung auf Scheibe) ein Aufruf
Irq0:
Incr Zaehlerirq0
Return


'Pro Sekunde ein Aufruf
Timer_irq:
Timer1 = Timervorgabe
Impulseprosekunde = Zaehlerirq0
Zaehlerirq0 = 0
Return

Gruß
Daniel