Icons

[specci48]

Die Basic4ppc-Internen Ticks sind als vollständiger Zeitstempel zu verstehen, d.h. sie enthalten nicht nur die Uhrzeit sondern auch die Datumsinformation.

Dein geänderter Code läßt sich somit etwas vereinfachen:

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

[Bobbes]

Guten Morgen,
gut das das Forum wieder geht das ganze Wochenende war versaut

Das Ganze mit Outlook ist glaube ich erstmal für mich zu kompliziert.

Ich habe gesehen das Erel das Programm Acount als Beispiel mit beigefügt hat
Das würde mir für den Anfang auch reichen. Jetzt verstehe ich das ganze mit dem Table noch nicht so ganz. Ich kann zwar schon meine Daten in die CSV-Datei übertragen , aber wie komme ich in die zweite Zeile und so weiter.
Wie fange ich das mit dem LoadCSV und SaveCSV an. Kann ich überhaupt eine CSV-Datei mit dem PPC lesen ((außer mit dem Total Commander)?

Gruß Bobbes

Ach ja verstehen ich das richtig :Icons müssen immer ein 32x32 und eine 16x16 Datei beinhalten.

[Heinz]

Hallo,
geht doch ganz einfach mit den Befehlen.
Syntax: LoadCSV (File Name, Separator Character, Header Exist, Create Columns)
1. Parameter -> Datei
2. Parameter -> Separator (meist ein Komma)
3. + 4. Parameter kannst du auf False setzen. Diese sind nur dann sinnvoll,
wenn du keine Spalten z.B. mit TableX.AddCol vorher angelegt hast.
Ich setze z.B. immer vorher die Spalten mit AddCol

Syntax: SaveCSV (File Name, Separator Character, IncludeHeader)
-> Gleiches wie oben und letzter Parameter auf False

Hier mal ein Mini - Code :

' 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

[specci48]

Originally Posted by Bobbes

Ach ja verstehen ich das richtig :Icons müssen immer ein 32x32 und eine 16x16 Datei beinhalten.

Nein, müssen nicht. Aber es sieht besser aus, wenn man beide Icons manuell vorgibt, anstatt den Pocket PC automatisch verkleinern oder vergrößern zu lassen.

[Bobbes]

Vielen Dank für Eure Tips ich glaube das ist das beste Frorum was man sich wünschen kann hier wird immer geholfen auch wenn die Fragen noch so "einfach" sind.

Danke Euch nochmal .

Gruß Bobbes

P.S.: Aber selstverständlich werde ich weiter fragen