German Icons

Sub Globals
   'Declare the global variables here.
   timeIsRunning = false
   ticksAtStart = 0
   ticksAtStop = 0
   DateFormat("dd.mm.yyyy")
End Sub

Sub App_Start
   Montagezeit.Show
End Sub


Sub Button1_Click
   If timeIsRunning = false Then
      ' Start = aktuelle Uhrzeit
      ticksAtStart = Now
      startzeit.Text = Time(ticksAtStart)
      startdatum.text = Date(ticksAtStart)
      ' kein Ende gesetzt
      endezeit.Text = ""
      enddatum.Text = ""
      ' Button heißt nun Stop
      button1.Text = "Stop"
   Else
      ' Ende = aktuelle Uhrzeit
      ticksAtStop = Now
      endezeit.Text = Time(ticksAtStop)
      enddatum.Text = Date(ticksAtStop)
      ' Differenz = Ende - Start
      differenz.Text = Time(ticksAtStop - ticksAtStart)
      ' Button heißt nun wieder Start
      button1.Text = "Start"   
   End If
   timeIsRunning = Not(timeIsRunning)
End Sub

' Im Designer eine Form, drei Buttons und ein Table (Table1) erstellen.
' Die unteren SUBs sind die Klick - Events der Buttons
Sub Globals
    myfile = "Test1.csv"
End Sub

Sub App_Start
   Form1.Show
   Table1.AddCol(cString, "Name", 120, True)
   Table1.AddCol(cString, "Vorname", 80, True)
   Table1.AddCol(cNumber, "Alter", 50, True)
   ' Hier 3 Datensätze ins Table reinschreiben
   Table1.AddRow("Müller", "Franz", 50)
   Table1.AddRow("Becker", "Berta", 60)
   Table1.AddRow("Keller", "Monika", 20)
End Sub

Sub Table1_SelectionChanged (ColName, Row)
    ' Hier kommen Aktionen rein, wenn man in die Spalten springt 
    'AddTextBox (Form1,"TextBox1", 20, 20, 50, 25, "")
End Sub

Sub Button1_Click
    ' Lade Datei in das TableControl
   Table1.LoadCSV(myfile, ",", False, False)
End Sub

Sub Button2_Click
    ' Speichere das TableControl in Datei
   Table1.SaveCSV (myfile, ",", False)
End Sub

Sub Button3_Click
    Table1.Clear
End Sub