Ich habe mir visual basics 2008 express gedownloadet und möchte daraus einen Count DOWN erstellen.
Einen Timer hab ich mit Tutorials aus Youtube geschafft xD
aber ich benötige ein countdown.
den countdown möchte ich auf den 29.06.09 stellen um 9:00.
an diesem zeitpunkt soll mein countdown zu ende sein.
da ich mein computer nicht bis zum 29.06 AN habe, muss das countdown mit der uhr des computers verbunden sein (glaube ich zumindest)
das hier ist mein ansatz:
1 label
1text box
1 button
1 Timer
–> ICh Bitte um ein Programm oder Code
(wenn möglich eines das ein autostart hat)
so lernt man aber nie. Bist du nicht selbst der Meinung das man es erst selber probieren kann und dann wenn man nicht mehr weiter kommt, hilfe in Anspruch zu nehmen?
Dein Vorhaben ist sehr leicht zu realisieren!
Das einzigste was du brauchst ist ein Timer und Timespan
ich bin doch nur ein Computeropfer.
das einzigste was ich kann ist headshots verteilen xD
also du meinst man braucht nur einen timer und einen timespan.
unter timespan kapier ich nix
könntest du mir ein screenshot geben und einen code für meinen Timer
wenn nötig auch für den timespan.
Private Sub Form\_Load()
Timer1.Enabled = True
Timer1.Interval = 600
End Sub
Private Sub Timer1\_Timer()
Label1 = "Datum = " & Date & "Zeit = " & Time
If Date = "29.06.09" & Time = "9:00:00" Then
MsgBox "ALARM"
End If
End Sub
mal abgesehen davon das du im Forum für VB bist und nicht .NET, worauf du fragst ist hier ein kleines Demo.
Demnaechst stelle aber bitte deine Fragen im .NET Forum!
Erstelle hierzu einfach ein neues Project und kopiere dir folgenden Source
Du musst weder Labels noch Timer einpflegen. Die werden dynamisch geladen
Option Explicit On
Option Infer On
Option Strict On
Public Class Form1
Private tSpan As New TimeSpan
Private CountdownDT As DateTime = #6/29/2009 9:00:00 AM#
Private MyLabel(9) As Label
Private Enum Tage
Sonntag = 0
Montag
Dienstag
Mittwoch
Donnerstag
Samstag
End Enum
Private Sub Form1\_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyTimer As New Timer With {.Interval = 100}
For i = 0 To 9
MyLabel(i) = New Label
With MyLabel(i)
.BorderStyle = BorderStyle.Fixed3D
.Dock = DockStyle.Top
.Location = New Point(10, 0)
.AutoEllipsis = True
End With
Next
Me.AutoSize = True
Me.Controls.AddRange(MyLabel)
AddHandler MyTimer.Tick, AddressOf Tick
Tick(Nothing, EventArgs.Empty)
MyTimer.Start()
End Sub
Private Sub Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
tSpan = CountdownDT.Subtract(DateTime.Now)
MyLabel(9).Text = "Aktuelles Datum: " & DateTime.Now.ToString
MyLabel(8).Text = "Zieldatum: " & [Enum].GetName(GetType(Tage), CountdownDT.DayOfWeek) & ", " & CountdownDT.ToShortDateString
MyLabel(7).Text = CStr(IIf(DateTime.Now
MfG Alex
