'''Gerhard Reithofer 2010-05-28 ''' The LCD-Editor simulates the display unit EA T123-I2C (http://www.lcd-module.de) used in the 
microcontrollerboard [http://halveddisc.htwm.de/%|%halvedDISC%|%],
see: http://www.tech-edv.co.at/00_Home/20_Programmierung/50_Freie~20Software/en/free.php

!!!!!!
[LCD Editor]
!!!!!!

This can be useful for creating screenshots and documentation.

The TCL-Source package contains also the LCD-font bitmap definitions and the  
[Bitmap Editor] (by [Keith Vetter]) which has been improved by some additional functions. 
With this program the existing dot-matrix definitions can be changed or extended.
 
<<br>>Sorry lvirden, but I've overwritten your original page by accident :-( 
<<br>>


----

[JOB] Thank you gerhard. With the following snippet appended to your code, you can emulate a clock.

======

proc _show_time {} {
  global EData Canvas

  # set fmt "%d.%b,%H:%M:%S"
  set fmt "%d.%b %H:%M:%S"
  # ----------------------------
  set tm_str [clock format [clock seconds] -format "%A,%d.%m.%Y,%H:%M:%S"]
  # puts $tm_str

  set tmp [split $tm_str ","]
  set day [lindex $tmp 0]
  set dt  [lindex $tmp 1]
  set tm  [lindex $tmp 2]

  # puts "$tm - $dt - $day"

  set EData(a,0) " $tm "
  set EData(c,0) {1 1 1 1 1 1 1 1 1 1 1 1}
  set EData(a,1) $dt
  set EData(c,1) {1 1 1 0 1 1 1 1 1 1 1 1}
  set EData(a,2) " $day "
  set EData(c,2) {1 1 1 1 1 1 1 1 1 1 1 1}

  display_TXT $Canvas
  
  # keep it running ...
  after 1000 {_show_time}
}

_show_time

======

Output looks like:
[http://wiki.tcl.tk/_repo/images/LCD_Edit_mod_clock.gif]


<<categories>> Category Graphics | Category Simulator