Eine Uhr mit einer 32x64 RGB-Led-Anzeige, die Zeit wird von einem GPS-Modul abgeleitet

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Eine Uhr mit einer 32x64 RGB-Led-Anzeige, die Zeit wird von einem GPS-Modul abgeleitet

      Hier ein Versuchsaufbau der oben beschriebenen Uhr. Wenn sie läuft, dann schaut es so aus


      Wenn alles klappt, dann wird automatisch aus der UTC auf MESZ bzw. MEZ umgerechnet und angezeigt. Auf dem billigen GPS-Modul mit dem NEO-6M ist eine RTC enthalten, sodass bald nach dem Einschalten eine Uhrzeit erscheint. Was ich noch nicht ausgetestet hab', wo überall in der Wohnung der GPS-Empfang für eine genaue Uhrzeit ausreicht.
      (Das Programm enthält auch noch code, der jetzt nicht benützt wird.)

      Im Programm ist ein Fehler, die Sommerzeit endet zur UTC-Zeit um 1 Uhr, was 3 Uhr MESZ entspricht. Die Variable Zeit_ende muss also mit "01:00:00" vorbelegt werden.
      Dateien
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von tschoeatsch ()

    • Im Wohnzimmer, mit Kalksandsteinwänden, Stahlbetondecke, hatte ich bei 4m Abstand vom Fenster nach paar Zehnminuten Empfang. Zumindest blinkte die Led vom GPS-Modul, das dabei im Probebetrieb auch Koordinaten ausgab. Ich gehe mal davon aus, dass ein Blinken einen stabilen Empfang bedeutet.
      Jetzt liegt die Uhr probehalber im Keller, noch blinkt nix...
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------
    • Hm, eine RTC soll eingebaut sein, was wohl auch stimmt. Wenn man die Schaltung vom Netz nimmt und paar Minuten später wieder einsteckert, ist sofort die genaue Zeit da. Jetzt, eine knappe Stunde im Keller, offensichtlich ohne Empfang (nix blinkt), steht jetzt die Stunde auf 13 statt auf 20. Das 'real' von 'real time clock' kann man wohl nicht so ernst nehmen X/
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------
    • Eher ein fehlerhaftes Programm meinerseits ;( . Stecker raus, Stecker rein, zack, richtige Zeit, auch im Keller.
      Gleicher Effekt im Wohnzimmer. Empfang wohl da (Modul blinkt), vorhin richtige Zeit, plötzlich statt 8 Uhr 4 Uhr und die Anzeige beim Datum teilvermurkst. Stecker raus...rein, alles gut. Da das Datum ja jede Sekunde neu geschrieben wird, wundert mich das. Es schaut jetzt mal wie ein Überlauf bei einer Variablen aus, oder der stack passt nicht, oder...
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------
    • This is universal code for different fonts. The basis is the 6x8 font code.
      You can change this code for scroll up and down ?

      Quellcode

      1. Text = "347" : Call Set_text_big(0 , 0 , 12 , 18 , 2)
      2. Sub Set_text_big(byval X As Word , Byval Y As Word , Byval W As Byte , Byval H As Byte , Byval Color As Byte)
      3. Local Col , Mem_byte_num , Y1 , X1 As Word
      4. Local Character_column , Letter_num , Bit_num , Font_byte , Bit_counter , Fff As Byte
      5. Local H_size As Byte , H_size2 As Byte , V_size As Byte , Vh_size As Byte
      6. Dim Sign As String * 1
      7. Y1 = Row_num1 - Y
      8. ' character width
      9. H_size = W
      10. H_size2 = H_size - 1
      11. ' The height of the symbol. 1- 4 points, 2- 8 points, 3- 12 points, 4- 16 points, 5- 20 points, 6- 24 points, 7- 28 points, 8- 32 points
      12. If H > 4 And H < 9 Then V_size = 2
      13. If H > 8 And H < 13 Then V_size = 3
      14. If H > 12 And H < 17 Then V_size = 4
      15. If H > 16 And H < 21 Then V_size = 5
      16. If H > 20 And H < 25 Then V_size = 6
      17. If H > 24 And H < 29 Then V_size = 7
      18. If H > 28 And H < 33 Then V_size = 8
      19. ' Value to transfer to next character
      20. Vh_size = H_size * V_size
      21. For Letter_num = 1 To Len(text)
      22. Sign = Mid(text , Letter_num , 1)
      23. Tab_start = Asc(sign)
      24. Tab_start = Tab_start - 32
      25. Tab_start = Tab_start * Vh_size
      26. For Fff = 1 To V_size
      27. For Character_column = 0 To H_size2
      28. Bit_num = X Mod 8 : Bit_num = 7 -bit_num
      29. Col = X / 8
      30. Mem_byte_num = Y1 * Bytes_in_row
      31. Mem_byte_num = Mem_byte_num + Col
      32. If Mem_byte_num > Mem_size_1 Then Exit Sub
      33. X1 = Tab_start + Character_column
      34. 'If H_size = 10 Then Font_byte = Lookup(x1 , Font_10x18)
      35. If H_size = 12 Then Font_byte = Lookup(x1 , Font_12x18)
      36. 'If H_size = 14 Then Font_byte = Lookup(x1 , Font_14x20)
      37. 'If H_size = 16 Then Font_byte = Lookup(x1 , Font_16x32)
      38. 'If H_size = 20 Then Font_byte = Lookup(x1 , Font_20x30)
      39. For Bit_counter = 0 To 3
      40. If Color.0 = 1 Then Memory_red(mem_byte_num).bit_num = Font_byte.bit_counter
      41. If Color.1 = 1 Then Memory_green(mem_byte_num).bit_num = Font_byte.bit_counter
      42. If Color.2 = 1 Then Memory_blue(mem_byte_num).bit_num = Font_byte.bit_counter
      43. Mem_byte_num = Mem_byte_num - Bytes_in_row
      44. Next Bit_counter
      45. Incr X1
      46. Incr X
      47. Next Character_column
      48. Tab_start = Tab_start + H_size
      49. Y1 = Y1 - 4
      50. X = X - H_size
      51. Next Fff
      52. X = X + H_size
      53. Y1 = Row_num1 - Y
      54. Next Letter_num
      55. End Sub
      Alles anzeigen
    • Quellcode

      1. Font_12x18:
      2. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' <SPACE>
      3. Data 0 , 0 , 0 , 0 , 12 , 12 , 12 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 9 , 13 , 9 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 15 , 15 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 15 , 15 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 7 , 7 , 7 , 0 , 0 , 0 , 0 , 0 ' !
      4. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 8 , 14 , 14 , 0 , 0 , 0 , 8 , 14 , 14 , 0 , 0 , 0 , 7 , 7 , 7 , 0 , 0 , 0 , 7 , 7 , 7 , 0 , 0 ' "
      5. Data 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 , 10 , 5 ' #
      6. Data 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 ' $
      7. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' %
      8. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' &
      9. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' <ZAP>
      10. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' (
      11. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' )
      12. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' *
      13. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' +
      14. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' ,
      15. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' -
      16. Data 0 , 0 , 0 , 0 , 14 , 14 , 14 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' .
      17. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' /
      18. Data 0 , 8 , 12 , 12 , 14 , 14 , 14 , 12 , 12 , 8 , 0 , 0 , 14 , 15 , 15 , 15 , 1 , 0 , 0 , 3 , 15 , 15 , 14 , 0 , 15 , 15 , 15 , 0 , 0 , 0 , 0 , 0 , 15 , 15 , 15 , 0 , 7 , 15 , 15 , 14 , 0 , 0 , 0 , 8 , 15 , 15 , 15 , 0 , 0 , 1 , 3 , 7 , 7 , 7 , 7 , 7 , 3 , 3 , 0 , 0 ' 0
      19. Data 0 , 0 , 0 , 0 , 0 , 14 , 14 , 14 , 14 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 15 , 15 , 15 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 15 , 15 , 15 , 0 , 0 , 0 , 0 , 7 , 15 , 14 , 12 , 15 , 15 , 15 , 15 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 7 , 7 , 7 , 7 , 0 , 0 , 0 ' 1
      20. Data 14 , 14 , 14 , 14 , 14 , 14 , 14 , 14 , 14 , 14 , 14 , 0 , 0 , 3 , 7 , 15 , 14 , 12 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 3 , 7 , 15 , 14 , 12 , 0 , 0 , 12 , 12 , 12 , 8 , 0 , 0 , 0 , 0 , 15 , 15 , 15 , 0 , 0 , 3 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 3 , 1 , 0 ' 2
      21. Data 0 , 8 , 12 , 12 , 14 , 14 , 14 , 12 , 12 , 8 , 0 , 0 , 7 , 7 , 7 , 1 , 0 , 0 , 0 , 1 , 15 , 15 , 15 , 0 , 0 , 0 , 0 , 0 , 12 , 12 , 12 , 14 , 15 , 7 , 3 , 0 , 12 , 12 , 8 , 0 , 0 , 0 , 1 , 11 , 15 , 15 , 14 , 0 , 1 , 3 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 3 , 1 , 0 ' 3
      22. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 14 , 14 , 14 , 0 , 0 , 15 , 15 , 15 , 7 , 7 , 7 , 7 , 15 , 15 , 15 , 7 , 0 , 15 , 15 , 15 , 8 , 0 , 0 , 0 , 15 , 15 , 15 , 0 , 0 , 0 , 7 , 15 , 15 , 8 , 0 , 0 , 15 , 15 , 15 , 0 , 0 , 0 , 0 , 7 , 7 , 7 , 0 , 0 , 7 , 7 , 7 , 0 , 0 ' 4
      23. Data 8 , 12 , 14 , 14 , 14 , 14 , 14 , 14 , 12 , 8 , 0 , 0 , 3 , 3 , 3 , 0 , 0 , 0 , 0 , 15 , 15 , 15 , 15 , 0 , 14 , 14 , 14 , 12 , 12 , 12 , 14 , 15 , 15 , 7 , 3 , 0 , 15 , 15 , 15 , 0 , 1 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 0 , 0 ' 5
      24. Data 8 , 12 , 14 , 14 , 14 , 6 , 14 , 14 , 12 , 12 , 0 , 0 , 15 , 15 , 15 , 1 , 0 , 0 , 0 , 1 , 15 , 15 , 15 , 0 , 15 , 15 , 15 , 6 , 12 , 12 , 14 , 15 , 7 , 7 , 1 , 0 , 15 , 15 , 15 , 8 , 8 , 0 , 0 , 8 , 12 , 12 , 12 , 0 , 0 , 1 , 3 , 7 , 7 , 7 , 7 , 3 , 3 , 1 , 0 , 0 ' 6
      25. Data 0 , 0 , 14 , 14 , 14 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 7 , 15 , 15 , 12 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 15 , 15 , 14 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 7 , 15 , 14 , 8 , 0 , 0 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 0 ' 7
      26. Data 8 , 12 , 14 , 14 , 14 , 14 , 14 , 14 , 12 , 8 , 0 , 0 , 15 , 15 , 15 , 1 , 0 , 0 , 0 , 1 , 15 , 15 , 15 , 0 , 1 , 11 , 15 , 15 , 14 , 14 , 14 , 15 , 11 , 3 , 1 , 0 , 15 , 15 , 15 , 1 , 0 , 0 , 1 , 15 , 15 , 15 , 0 , 0 , 1 , 3 , 3 , 7 , 7 , 7 , 7 , 3 , 3 , 1 , 0 , 0 ' 8
      27. Data 0 , 8 , 12 , 14 , 14 , 14 , 14 , 12 , 8 , 0 , 0 , 0 , 3 , 3 , 3 , 1 , 0 , 0 , 1 , 7 , 15 , 15 , 8 , 0 , 12 , 14 , 15 , 7 , 3 , 3 , 3 , 14 , 15 , 15 , 15 , 0 , 15 , 15 , 15 , 8 , 0 , 0 , 8 , 15 , 15 , 15 , 3 , 0 , 0 , 1 , 3 , 3 , 7 , 7 , 7 , 3 , 1 , 0 , 0 , 0 ' 9
      28. Data 0 , 0 , 0 , 0 , 12 , 12 , 12 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 8 , 8 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' :
      29. Data 0 , 0 , 6 , 6 , 14 , 14 , 12 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 8 , 8 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' ;
      30. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 8 , 8 , 12 , 12 , 14 , 14 , 14 , 7 , 0 , 6 , 15 , 15 , 15 , 11 , 9 , 9 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 3 , 3 , 7 , 7 , 14 , 14 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' <
      31. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 12 , 12 , 12 , 12 , 12 , 12 , 12 , 12 , 12 , 12 , 12 , 0 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 9 , 0 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' =
      32. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 7 , 14 , 14 , 14 , 12 , 12 , 8 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 9 , 9 , 11 , 15 , 15 , 15 , 6 , 0 , 14 , 14 , 7 , 7 , 3 , 3 , 1 , 1 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ' >
      33. Data 0 , 0 , 0 , 0 , 14 , 14 , 14 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 12 , 12 , 12 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 1 , 7 , 15 , 14 , 12 , 8 , 0 , 0 , 12 , 12 , 12 , 0 , 0 , 0 , 0 , 0 , 15 , 15 , 15 , 0 , 0 , 1 , 3 , 3 , 7 , 7 , 7 , 7 , 3 , 3 , 1 , 0 ' ?
      34. Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 8 , 6 , 2 , 11 , 9 , 9 , 9 , 9 , 9 , 11 , 2 , 4 , 15 , 0 , 15 , 15 , 0 , 0 , 1 , 15 , 12 , 1 , 3 , 12 , 1 , 6 , 12 , 9 , 11 , 10 , 10 , 11 , 11 , 12 , 6 , 3 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 0 , 0 , 0 , 0 ' @
      Alles anzeigen
    • SAMEGO schrieb:

      Hi, Mike.
      Can I change the code (scroll) to other fonts?
      Hi, Samego, ich verstehe nicht ganz, was du vor hast. Wenn du nur andere Schriftzeichen anzeigen lassen willst, dann musst du den font anpassen. Das Programm war für mich ein Versuch mit dem display, ich werde daher das Programm nicht erweitern oder ändern. Wenn du es verwenden willst, dann kannst du das machen, aber Anpassungen muss du selber erledigen.
      Wenn du den font anpassen willst, dann muss du den Aufbau analysieren. Er ist von mir speziell für dieses Programm entstanden, irgendwelche Standard-fonts passen nicht.
      Für die Analyse würde ich ein nicht symmetrisches Zeichen wie zum Beispiel `1` wählen und die zugeordneten data-bytes als pixel-Bild darstellen. So siehst du die Zuordnung, welches bit von welchen byte ein pixel am display setzt.


      Hi, Samego, I don't quite understand what you're up to. If you only want to display other characters, then you have to adapt the font. For me, the program was an experiment with the display, so I will not expand or change the program. If you want to use it, you can do that, but you have to make adjustments yourself.
      If you want to adapt the font, then you have to analyze the structure. I created it especially for this program, some standard fonts don't fit.
      For the analysis I would choose a non-symmetrical character such as `1` and display the assigned data bytes as a pixel image. So you can see the assignment of which bit of which byte a pixel sets on the display.

      Data 0 , 0 , 66 , 254 , 2 , 0 ' 1

      die 6 bytes als bits nebeneinander dargestellt ergibt folgendes Bild:
      the 6 bytes shown as bits next to each other results in the following picture:

      bit7 0,0,0,1,0,0
      bit6 0,0,1,1,0,0
      bit5 0,0,0,1,0,0
      bit4 0,0,0,1,0,0
      bit3 0,0,0,1,0,0
      bit2 0,0,0,1,0,0
      bit1 0,0,1,1,1,0
      bit0 0,0,0,0,0,0
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------
    • Mitch64 schrieb:

      Hi @tschoeatsch

      Mal ne Frage zu der Matrix.

      Wie viel Strom zieht die denn so bei der Zeitanzeige, so wie du das im Video gezeigt hast?
      Und wi wäre etwa das Maximum, wenn alle LED's Weiss sein?
      Hi Mitch64,
      die verwendete Anzeige, die ich nur leihweise hatte, hat zwar 32X64=2048 RGB-Leds, aber es leuchten nur 1/16, also 128 Stück maximal gleichzeitig. Rechnerisch wäre es dann 128 x 4Farben x 0,02A = 10,24A. Bei meinen Experimenten hatte ich viel weniger Stromverbrauch, ich betrieb die displays aber auch deutlich bunter :D und auch gedimmt.
      Genau, bei 5V.
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------
    • @SAMEGO
      ich vermute, es liegt daran, dass du in deiner Programmversion zwei subs verschachtelt hast
      I suspect it's because you nested two subs in your program version

      Quellcode

      1. ...
      2. Sub Load_num_6_8(byval Z As Dword , Byval Font As Byte , Byval X As Word , Byval Y As Word , Byval Color As Byte )
      3. Local Helper As Word , Mem_byte_num As Word , Number As String * 5
      4. Local Character_column As Byte , Letter_num As Byte , Sign As String * 1
      5. Local Font_byte As Byte
      6. Zaehlerstand_start = Z
      7. Number = Str(z)
      8. Text_start = Format(number , "00")
      9. Mem_byte_num = 0
      10. For Letter_num = 1 To Len(text_start)
      11. Sign = Mid(text_start , Letter_num , 1)
      12. Tab_start = Asc(sign)
      13. Tab_start = Tab_start - 32
      14. Tab_start = Tab_start * 6
      15. For Character_column = 0 To 5
      16. Font_byte = Lookup(tab_start , Font_6x8)
      17. Helper = Font_byte
      18. Shift Helper , Left , 8
      19. Mem_start(mem_byte_num) = Mem_start(mem_byte_num) + Helper
      20. Mem_byte_num = Mem_byte_num + 1
      21. Tab_start = Tab_start + 1
      22. Next Character_column
      23. Next Letter_num
      24. For N_1 = 0 To 7
      25. Call Turn
      26. Waitms 10
      27. Call Show_number_6_8(x , Y , Color)
      28. Next N_1
      29. Text_ziel = Text_start
      30. Zaehlerstand_ziel = Zaehlerstand_start
      31. End Sub
      32. ...
      Alles anzeigen

      beide subs verwenden als lokale Variable "Letter_num"
      both subs use "Letter_num" as a local variable


      Quellcode

      1. ...
      2. Sub Turn
      3. Local Letter_num As Byte , Sign_start As String * 1 , Sign_ziel As String * 1
      4. Local Mem_num_1 As Byte , Col As Byte
      5. ...

      Quellcode

      1. ...
      2. Sub Load_num_6_8(byval Z As Dword , Byval Font As Byte , Byval X As Word , Byval Y As Word , Byval Color As Byte )
      3. Local Helper As Word , Mem_byte_num As Word , Number As String * 5
      4. Local Character_column As Byte , Letter_num As Byte , Sign As String * 1
      5. Local Font_byte As Byte
      6. ...
      Löse die Verschachtelung wieder auf, oder verwende verschiedene Namen bei den lokalen Variablen.
      Break the nesting again, or use different names for the local variables.
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------
    • SAMEGO schrieb:

      Ich verstehe nicht, wo der Fehler ist. Ich dachte, das wäre dein Code, Michael.
      Das stimmt, der code war einmal von mir, aber du hast ihn ja verändert. Das darfst du natürlich machen, aber dann ist es nicht mehr der code, der bei mir funktioniert hat.
      Dein geposteter code hat mit dem hier vorgestellen code für die Uhrzeitanzeige nichts gemein. Dein code ist eine Änderung von meinem code für ein Zählwerk, mit Ziffern eines 12x16-font. Der Fehler bei deiner Änderung auf den 6x8-font steckt vermutlich in der sub turn. Ich habe jetzt aber nicht so viel Lust, einen code, den ich nie mehr brauchen werde, der schon lange zurück liegt, noch groß an Wünsche anzupassen. Das war vor ein paar Jahren wohl noch anders, aber ich habe mich halt verändert. Aber ich habe meine Fehlervermutung in deinen code eingearbeitet und den korrigierten code angehängt. Vielleicht funktionier er ja jetzt.
      Dateien
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------