Bascom Datentyp char an Unterfunktion

[Luke17]

Fällt noch jemand eine bessere Lösung ein.

Hab diesen unschönen Aufruf öffters in meinem Programm und
das frisst noch hinzu sehr viel Speicher.

Bin über jeden verbesserungsvorschlag dankbar!

[DanielSan]

Da ich nicht weiss wie deine Funktion Led_display aussieht, schiess ich mal ins blaue:

Declare Sub Led_display(s As String)                        'Sub deklarieren
Dim I As Byte
Dim Text As String * 4

Text = "Affe"

Do

Call Led_display(text)                                      'Sub aufrufen und den String "Text" mit dem Inhalt "Affe" übergeben

Loop

End

Sub Led_display(s As String)
Dim S As String * 4
Dim Ausgabe As String * 1
   For I = 1 To 4
      Ausgabe = Mid(s , I , 1)                              'hier wird der String in einzelne Buchstaben zerlegt
      Print Ausgabe                                         'hier muss dann deine Ausgabegeschichte hin
   Next
End Sub

Mit ner Function hab ich es nicht hinbekommen. Deshalb ists bei mir ne Sub geworden.
Hoffe das hilft dir. Wenn nicht, dann zeig mal deine Led_display funktion. Dann weiss ich genauer, was dein Problem ist.

Gruß Daniel

[Luke17]

Danke Daniel für deine Mühe!

Das sieht doch gut aus, so hab ich mir das vorgestellt. ich werds
gleich mal ausprobieren.

-MfG Luke -