Funktion um Zahlen auf SAA1064 anzeigen zu lassen ?

[Blamaster]

Hi,

im Wiki gibts ja folgende Code um Zahlen an den SAA1064 zu schicken:

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

     Select Case Zahl
         Case 0:
               Segmente = &H3F
         Case 1:
                Segmente = &H06
         Case 2:
                Segmente = &H5B
         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

     End Select

     I2cwbyte Segmente
     I2cstop
End Sub

Damit lässt sich ja auf dem Segment ZifferX die ZahlX von 0-9 ausgeben.

Ich habe die Schaltung mit 2 Segmenten aufgebaut nicht mit 4. Ich würde jetzt das ganze gerne so abändern, das ich eine Zahl von 0-99 an die Funktion übergeben kann und die Zahl dann direkt ausgegeben werden kann.

Allerdings hab ich in Bascom noch nie mit funktionen gearbeitet und mir ist auch noch nicht ganz klar wie sich das umsetzen lässt.

In einer Delphi Pc Software hätte ich das gaze jetzt so realisiert das die Zahl als String übergeben wird und der String mit einer maximalen Länge von 2 (01-99) dann in der funktion beim Beispiel von 23 in Wert1 = 2 und Wert2 = 3 geteilt wird, dann wieder zurück in ein integer gewandelt und dann einzeln übergeben.

Lässt sich das so auch irgendwie in Bascom realisieren ?

mfg Yannic

[021aet04]

Ich habe das gleiche Problem gehabt. Hier ist der Link
https://www.roboternetz.de/phpBB2/ze...ghlight=modulo

Es ist in C geschrieben, sollte sich aber relativ einfach nach Bascom konvertieren lassen.

MfG Hannes

[Richard]

Einfach die Zahl in einem String wandeln und ausgeben.

Gruß Richard

[Blamaster]

Danke für die Tipps.

Richards Variante hört sich am leichtesten an.

Nur hab ich da gerade noch ein Problem mit:

Declare Sub Led_display_init()
Declare Sub Led_display(byval Zahl As Byte)

$regfile = "m16def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 20
$framesize = 40
$baud = 9600

Config Scl = Portc.0
Config Sda = Portc.1

Dim S_ausgabe As String * 2


Led_display_init

Do
Waitms 3000
Led_display 15
Loop

'Funktionen für 7 Segment

Sub Led_display_init()
  I2cinit
  I2cstart
  I2cwbyte &H70
  I2cwbyte 0
  I2cwbyte &B0110110
  I2cstop

       Led_display 0

End Sub


Sub Led_display(zahl As Byte)
     I2cstart
     I2cwbyte &H70
     I2cwbyte 1

     S_ausgabe = Str(zahl)

     I2cwbyte S_ausgabe
     I2cstop
End Sub

Ich habs jetzt so versucht. Klappt allerdings nicht so wirklich. Was muss denn mit I2cwbyte 1 gemacht werden wenn ich den ganzen string mal angenommen (S_ausgabe=22) ausgeben lassen möchte. Irgendwie muss dabei ja segment 1 und segment 2 angesprochen werden können.