Visualizzazione dei risultati da 1 a 6 su 6
  1. #1

    [VB.NET] Conto alla rovescia

    Devo fare un conto alla rovescia di minuti e secondi

    partenza ad esempio da 03:00.

    con il timer devo fare quell'orario meno un secondo

    non riesco a farlo...

    sapete darmi una mano....

    adesso il testo è messo tutto in una label
    se per costruzione è meglio dividere in due label non ci sono problemi

    Ciao e grazie
    i7 3770K --- Asus P8z77 --- 2x4Gb Corsair Vengeance 2133MHz--- Enermax NoiseTaker II 600w --- SSD: 128Gb Vertex 4 --- WD 1000Gb --- WD 2000Gb --- ASUS ATI5850 1Gb --- Case: Kandalf 25cm Fan --- Tastiera Logitech G15 --- Mouse Razer Copperhead

  2. #2
    Utente di HTML.it L'avatar di albgen
    Registrato dal
    Jun 2005
    Messaggi
    3,249
    Ciao,
    dov'è stà la difficoltà?
    posta il codice e vediamo cosa sbagli...

    vuoi una cosa del genere?
    video
    I got the remedy

  3. #3

    si

    Originariamente inviato da albgen
    Ciao,
    dov'è stà la difficoltà?
    posta il codice e vediamo cosa sbagli...

    vuoi una cosa del genere?
    video
    Si esatto....
    se fosse con numeri interi non ho problema

    Ma con l'ora non riesco....non so come trattarlo

    ho provato a capire lo TimeSpan ma niente

    Ho diviso l'orario:
    strOrario = Me.txtTempo.Text
    tsOrario = (TimeSpan.FromHours(CDbl(Split(strOrario, ":")(0))) + TimeSpan.FromMinutes(CDbl(Split(strOrario, ":")(1))))

    ma dopo????
    mi sa che sono proprio fuori strada
    i7 3770K --- Asus P8z77 --- 2x4Gb Corsair Vengeance 2133MHz--- Enermax NoiseTaker II 600w --- SSD: 128Gb Vertex 4 --- WD 1000Gb --- WD 2000Gb --- ASUS ATI5850 1Gb --- Case: Kandalf 25cm Fan --- Tastiera Logitech G15 --- Mouse Razer Copperhead

  4. #4

    ok

    Ok ci sono


    l'ho ragionata al contrario....sbagliavo l'approccio...

    Private TempoRimasto As Integer = 180

    Private Sub CountDown2()
    Dim ts As TimeSpan = New TimeSpan(0, 0, TempoRimasto)
    If TempoRimasto> 0 Then
    TempoRimasto= TempoRimasto- 1
    Else
    Timer1.Stop()
    End If
    Me.txtTempo.Text = ts.Minutes.ToString("00") & ":" & ts.Seconds.ToString("00")
    end sub

    Cosi mi funziona!!!!!!!!!!!!!
    i7 3770K --- Asus P8z77 --- 2x4Gb Corsair Vengeance 2133MHz--- Enermax NoiseTaker II 600w --- SSD: 128Gb Vertex 4 --- WD 1000Gb --- WD 2000Gb --- ASUS ATI5850 1Gb --- Case: Kandalf 25cm Fan --- Tastiera Logitech G15 --- Mouse Razer Copperhead

  5. #5
    Utente di HTML.it L'avatar di albgen
    Registrato dal
    Jun 2005
    Messaggi
    3,249
    io l'ho fatto leggermente diverso. cmq importante è che ti funziona
    I got the remedy

  6. #6
    Utente di HTML.it L'avatar di gibra
    Registrato dal
    Apr 2008
    residenza
    Italy
    Messaggi
    4,244
    Puoi usare anche la funzione DateAdd().
    Aggiungi al form:
    1 Label: lblTime
    1 Timer: Timer1

    codice:
    Dim thisTime As Date
    thisTime = #12:03:00 AM#
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        thisTime = DateAdd(DateInterval.Second, -1, thisTime)
        lblTime.Text = Format(thisTime, "mm:ss")
    End Sub

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.