Countdown

Computer: Software & Programmierung .NET & C#
#1

Hallo Allerseits!

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)

#2

Hallo Linh,

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 :wink:

MfG Alex

#3

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.

Mfg
Linh

#4

Meine Anfängerlösung würde so aussehen…

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
#5

Hi Joe,

ich bedanke mich sehr über deine antwort.

(jetz wirds peinlich)

ich habe keine ahnnung wo ich das einsetzten soll.
könntest du mir irgendwie bilder geben
oder ein video
plz.

Danke,Danke, danke
im vorraus

wäre sehr nett

Mfg Linh

#6

Hallo Linh,

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
#7

uups,

das Enum muss sich wie folgt schimpfen

 Private Enum Tage
 Sonntag = 0
 Montag
 Dienstag
 Mittwoch
 Donnerstag
 Freitag
 Samstag
 End Enum

MfG Alex

#8

den teil kapier ich jetz nicht von dir anno.
aber der rest scheint zu klappen

) *HAPPY*

Ich bedanke mich an alle die mir helfen

)