countdown with display

[fastdraw]

how to display a countdown in seconds ?


solved by albert :


'**********countdown**************

Timer1.Interval =1000
Timer1.enabled =1
Dim seconds
seconds =180

Sub Timer1_Timer
If seconds =0 then

Me.enabled =0

Exit Sub

End If
seconds = seconds -1
TextBox1.Text =seconds
End Sub

Détecter la langueAfrikaansAlbanaisAllemandAmhariqueAnglaisArabeArménienAzériBasqueBengaliBiélorusseBirmanBosniaqueBulgareCatalanCebuanoChichewaChinois SimpChinois TradCingalaisCoréenCorseCréole haïtienCroateDanoisEspagnolEspérantoEstonienFinnoisFrançaisFrisonGaélique ÉcosseGalicienGalloisGéorgienGrecGudjaratiHaoussaHawaïenHébreuHindiHmongHongroisIgboIndonésienIrlandaisIslandaisItalienJaponaisJavanaisKannadaKazakhKhmerKirghizKurdeLaotienLatinLettonLituanienLuxembourgeoisMacédonienMalaisienMalayalamMalgacheMaltaisMaoriMarathiMongolNéerlandaisNépalaisNorvégienOuzbekPachtôPanjabiPersanPolonaisPortugaisRoumainRusseSamoanSerbeSesothoShonaSindhîSlovaqueSlovèneSomaliSoudanaisSuédoisSwahiliTadjikTagalogTamoulTchèqueTeluguThaïTurcUkrainienUrduVietnamienXhosaYiddishYoroubaZoulou

AfrikaansAlbanaisAllemandAmhariqueAnglaisArabeArménienAzériBasqueBengaliBiélorusseBirmanBosniaqueBulgareCatalanCebuanoChichewaChinois SimpChinois TradCingalaisCoréenCorseCréole haïtienCroateDanoisEspagnolEspérantoEstonienFinnoisFrançaisFrisonGaélique ÉcosseGalicienGalloisGéorgienGrecGudjaratiHaoussaHawaïenHébreuHindiHmongHongroisIgboIndonésienIrlandaisIslandaisItalienJaponaisJavanaisKannadaKazakhKhmerKirghizKurdeLaotienLatinLettonLituanienLuxembourgeoisMacédonienMalaisienMalayalamMalgacheMaltaisMaoriMarathiMongolNéerlandaisNépalaisNorvégienOuzbekPachtôPanjabiPersanPolonaisPortugaisRoumainRusseSamoanSerbeSesothoShonaSindhîSlovaqueSlovèneSomaliSoudanaisSuédoisSwahiliTadjikTagalogTamoulTchèqueTeluguThaïTurcUkrainienUrduVietnamienXhosaYiddishYoroubaZoulou

Fonction Sound est limitée à 200 caractères

Options : Historique : Commentaires : Donate

Fermer