https://gambas-buch.de/ Sun, 19 Apr 2026 13:20:36 +0000 FeedCreator 1.8 https://gambas-buch.de/lib/tpl/dokuwiki/images/favicon.ico https://gambas-buch.de/ https://gambas-buch.de/doku.php?id=k20:k20.3:k20.3.2:start&rev=1775129752&do=diff 20.3.2 Timer-Projekte 2 20.3.2.1 Beispiel 5 – CountDown 1 [B0] Abbildung 20.3.2.1.1: Geschenke schon beisammen? Quelltext: Public Sub Form_Open() FMain.Center FMain.Resizable = False CountDown.Delay = 1000 ' Auslese-Takt für die aktuelle Zeit (kleiner oder gleich 1000ms)! CountDown.Start CountDown.Trigger MovieBox1.Playing = True lblText2.Text &= " " & Format$(Now(), "yyyy") End ' Form_Open() Public Sub CountDown_Timer() Dim dCountDown As Date Dim dMonth, dWeek,… anonymous@undisclosed.example.com (Anonymous) Thu, 02 Apr 2026 11:35:52 +0000