newbody
Was ist hier los:
???
Public Class Form3
Private Sub Label1_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.ParentChanged
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim stunden As String = My.Computer.Clock.LocalTime.Hour
Dim minuten As String = My.Computer.Clock.LocalTime.Minute
Dim sekunden As String = My.Computer.Clock.LocalTime.Seconde
If minuten < 10 Then minuten = 0 + minuten
If sekunden < 10 Then sekunden = 0 + sekunden
Label1.Text = stunden & ":" & minuten & ":" & sekunden
End Sub
End Class
Ich kriege: computer ist kein memeber von my??
DδS
Wo liegt denn die Problemstelle? Könnte es etwa an dem Schreibfehler in dieser Zeile liegen?
Dim sekunden As String = My.Computer.Clock.LocalTime.Seconde
daHooligan
| Zitat: |
Original von D´S
Wo liegt denn die Problemstelle? Könnte es etwa an dem Schreibfehler in dieser Zeile liegen?
Dim sekunden As String = My.Computer.Clock.LocalTime.Seconde |
wir sind hier nicht im französischen programmierforum... da gibts ne englische second aber keine französische seconde...
@TS:ws willst du mit "My.Computer.Clock.LocalTime.Hour" auslesen.
das "My" ist mir total unbekannt... meinst du vllt. "me"
aber auch dann macht my.computer. ... keinen sinn.
bluescreen
also es kann jetz sein das dieser beitrag voll sinnlos is weil ich nur c++ code, aber
minute, und secunde hast du doch als String deklariert...
wie kannst du sie dan mit 10 vergleichen?? Also in C++ wär das dan ein Vergleich mit den ASCII Werten und das hilft hier ja nich. Wenn das jetz schwachsinn is weils in VB anders geht, dann klärt mich auf xD
newbody
Hallo!
Ja danke. ich will nur die Zeit auslesen!
und my.computer sollte es geben
Lese aber die zeit auch gern ander aus!
DδS
bluescrenn hat recht.
Ich hab das ganze mal selber gecodet - und es funktioniert:
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
|
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim stunden As Integer = My.Computer.Clock.LocalTime.Hour
Dim minuten As Integer = My.Computer.Clock.LocalTime.Minute
Dim sekunden As Integer = My.Computer.Clock.LocalTime.Second
Dim stunden_ As String = stunden
Dim minuten_ As String = minuten
Dim sekunden_ As String = sekunden
If minuten < 10 Then minuten_ = "0" & minuten_
If sekunden < 10 Then sekunden_ = "0" & sekunden_
Label1.Text = stunden_ & ":" & minuten_ & ":" & sekunden_
End Sub |
|
@daHooligan:
Mit dem Fettgrdruckten roten wollte ich ja nur auf den Fehler hinweisen!
UND: Der My - Namespace existiert wirklich.
newbody
Oh SRY!
RIESEN FEHLER ! Ich arbeite für Windows Mobile in Visual BAsic!
Was kommmt stat my.computer
DδS
Mit WinMobile kenn ich mich nicht so aus...
Vllt. funtioniert ja
Now.Second
Now.Minute
Now.Hour
newbody
DAS WARS!!!!
Noch ne Frage:
wieso funktioniert dieses nicht:
If minuten < 10 Then minuten = 0 + minuten
If sekunden < 10 Then sekunden = 0 + sekunden
wird aber nicht als fehler angezeigt
aber die 0 nicht im Label mit ausgegeben
DδS
Probie's mal damit:
If minuten < 10 Then minuten = "0" + minuten
If sekunden < 10 Then sekunden = "0" + sekunden
newbody
Ja klar
Danke!!!!!!!!!!