Hallo, würde gerne für meine Eisenbahn eine Anzeigetafel für Ankunft und Abfahrt machen.
Das Grundprogramm dank Hkipnik funktioniert.
Jetzt würde ich das Programm aber gerne erweitern, das die Uhrzeit wirklich sich ändert.
Desweiteren das sich jede Minute auch die Abfahrt/ Ankunftszeiten ändern.
Hat irgendeiner schon mal eine Uhr ( ganz einfach muss nicht genau sein) programmiert ?
Anbei der Code
Alles anzeigen
Das Grundprogramm dank Hkipnik funktioniert.
Jetzt würde ich das Programm aber gerne erweitern, das die Uhrzeit wirklich sich ändert.
Desweiteren das sich jede Minute auch die Abfahrt/ Ankunftszeiten ändern.
Hat irgendeiner schon mal eine Uhr ( ganz einfach muss nicht genau sein) programmiert ?
Anbei der Code
Quellcode
- '*******************************************************************************
- 'Programm for Display ST7735R 1.8Zoll 128x160
- ' and Display ILI9163 1.8Zoll 128x160
- 'Bascom IDE 2.0.7.7
- '
- 'Version:13012014
- 'By Hkipnik
- ' © Copyright by H.Kipnik 2012
- 'Date 13.01.2014
- '*******************************************************************************
- ' SD Card CS --> portD.7
- ' Miso --> portb.4
- 'Display
- ' CS --> portb.2
- ' DC --> portb.1
- ' reset --> portb.0
- ' Mosi --> portb.3
- ' Clock --> portb.5
- '
- '
- '*******************************************************************************
- $regfile = "m328pdef.dat"
- $crystal = 20000000
- $hwstack = 50
- $swstack = 150
- $framesize = 150
- $baud = 57600
- '*******************************************************************************
- Const Sdcard = 0 'use SD Card = 1 no SD Card = 0
- Const Modus = 1 '0=Portrait 1=Landscape
- Const Driver = 1 '0=ST7735 1=ILI9163
- 'only Display ST7735
- 'Display typ Red or black Tab have different RGB order
- 'color of the display plastic wrap
- Const Disp_typ = 0 'RGB order 0=Black Tab 1=Red Tab
- '*******************************************************************************
- Config Portb.2 = Output
- Config Portb.1 = Output
- Config Portb.0 = Output
- Lcd_cs Alias Portb.2
- Lcd_dc Alias Portb.1
- Lcd_reset Alias Portb.0
- Lcd_reset = 1
- Lcd_cs = 1
- Lcd_dc = 1
- '*******************************************************************************
- 'Include Declaration
- $include "TFTDriver\ST7735_declarations.inc"
- '*******************************************************************************
- 'Use For Demo
- Dim Help_str As String * 15
- Dim Temp_str As String * 15
- Dim Zahler As Byte
- '*******************************************************************************
- 'Init SD Card and Spi
- #if Sdcard = 1
- $include "Avr-Dos\Config_MMCSD_HC.bas"
- $include "Avr-Dos\Config_AVR-DOS.bas"
- Init_sd_card
- #endif
- #if Sdcard = 0
- ' Config Portb.0 = Output 'auch wenn nicht genutzt
- ' Portb.0 = 1
- Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
- Spsr.0 = 1
- Spiinit
- #endif
- '*******************************************************************************
- 'Init the Dispaly
- Lcd_init
- Lcd_clear Black
- '*******************************************************************************
- #if Sdcard = 1
- Call Init_sd_card() 'Init SD Card
- Temp_str = "SD Card= " + Str(sd_ok)
- Lcd_text Temp_str , 1 , 1 , 1 , Yellow , Black
- ' 1 OK
- ' 0 Error
- Temp_str = "SD Card Typ= " + Str(mmcsd_cardtype)
- Lcd_text Temp_str , 1 , 20 , 1 , Yellow , Black
- ' 0 can't init the Card
- ' 1 MMC
- ' 2 SDSC Spec. 1.x
- ' 4 SDSC Spec. 2.0 or later
- ' 12 SDHC Spec. 2.0 or later
- Wait 2
- Lcd_clear Black
- #endif
- Lcd_clear Blue
- Wait 1
- Lcd_text "HAMBURG HBF Gleis Abf." , 1 , 3 , 4 , White , Blue
- Lcd_text "ICE577" , 1 , 20 , 4 , Blue , White
- lcd_text "Berlin HBF" , 42 , 20 , 4 , White , Blue
- Lcd_text "2", 110, 20, 4, White , Blue
- Lcd_text "17min", 127,20,4,White, Blue
- Lcd_text "ICE321" , 1 , 32 , 4 , Blue , White
- lcd_text "Koeln HBF" , 42 , 32 , 4 , White , Blue
- Lcd_text "3", 110, 32, 4, White , Blue
- Lcd_text "21min", 127,32,4,White, Blue
- Lcd_text "ICE437" , 1 , 44 , 4 , Blue , White
- lcd_text "Kiel HBF" , 42 , 44 , 4 , White , Blue
- Lcd_text "7", 110, 44, 4, White , Blue
- Lcd_text "11min", 127,44,4,White, Blue
- Lcd_text "RB2513" , 1 , 56 , 4 , Blue , White
- lcd_text "Luebeck" , 42 , 56 , 4 , White , Blue
- Lcd_text "4", 110, 56, 4, White , Blue
- Lcd_text "23min", 127,56,4,White, Blue
- Lcd_text "RB8715" , 1 , 68 , 4 , Blue , White
- lcd_text "HH-Altona" , 42 , 68 , 4 , White , Blue
- Lcd_text "9", 110, 68, 4, White , Blue
- Lcd_text "8min", 127,68,4,White, Blue
- Lcd_text "IC1455" , 1 , 80 , 4 , Blue , White
- lcd_text "Hagen HBF" , 42 , 80 , 4 , White , Blue
- Lcd_text "11", 110, 80, 4, White , Blue
- Lcd_text "18min", 127,80,4,White, Blue
- Lcd_text "Uhrzeit 13:45" , 40 , 118 , 4 , White , Blue
- Do
- '*******************************************************************************
- 'test landscape
- '*******************************************************************************
- #if Modus = 1
- For Zahler = 1 To 182
- Help_str = Str(zahler)
- Temp_str = Format(help_str , "000")
- Temp_str = Temp_str + ".bin"
- ' Lcd_pic 0 , 0 , 160 , 120 , Temp_str
- Next
- #endif
- Loop
- End
- '*******************************************************************************
- $include "TFTDriver\ST7735_functions-1.inc"
- #if Sdcard = 1
- $include "Avr-Dos\SD_card_init.inc"
- #endif
- $include "Font\Font8x8.font"
- $include "Font\Font12x16.font"
- $include "Font\font8x12.font"
- $include "Font\font6x10.font"
- $include "Font\font10x16.font"