Toggle sidebar

Thread obsoleto Visual Basic - InfoBox

H

Habboworld

Guest
Autore del topic
Salve a tutti , io sto facendo un programmino in Visual Basic che restituisce

====

Ora

===

Giorno Numero Mese Anno


L'unico problema è che vorrei creare un label "status" .

Cioè , voglio che da un ora a un altra venga visualizzato un testo (Status.Text = "Testo").

Esempio:

If 07.00 - 08.00 Then

Status.Text = "Colazione"

EndIf

Ecc...

Mi aiutate?

Grazie mille
 
Ok , tre concetti

1) Il tuo è tutto diverso dal mio

2) Non hai scritto quello che mi interessava qwe

3) Il tuo come grafica fa cacare
--------------- AGGIUNTA AL POST ---------------
Comunque Visual Basic 2008 (quello di visual studio)
--------------- AGGIUNTA AL POST ---------------
Cioè quello che voglio è che ad una certa ora mi cambi il testo del label "status".
 
Ultima modifica da un moderatore:
Beh, stai usando VB .NET cmq sia, creati un Timer, all'evento Timer.tick aggiorni l'ora e la data e fai i controlli, metti in una variabile l'ora e fai:

Codice:
Perfavore, Entra oppure Registrati per vedere i codici!

Credo a te servi una cosa simile..
 
Errore 1 L'operatore '>' non è definito per i tipi 'Date' e 'Integer'. C:\Users\UTENTE\Documents\Visual Studio 2008\Projects\InfoBox\InfoBox\InfoBox.vb 118 12 InfoBox
Errore 2 L'operatore '<' non è definito per i tipi 'Date' e 'Integer'. C:\Users\UTENTE\Documents\Visual Studio 2008\Projects\InfoBox\InfoBox\InfoBox.vb 118 24 InfoBox
Errore 3 L'operatore '>' non è definito per i tipi 'Date' e 'Integer'. C:\Users\UTENTE\Documents\Visual Studio 2008\Projects\InfoBox\InfoBox\InfoBox.vb 121 16 InfoBox
Errore 4 L'operatore '<' non è definito per i tipi 'Date' e 'Integer'. C:\Users\UTENTE\Documents\Visual Studio 2008\Projects\InfoBox\InfoBox\InfoBox.vb 121 29 InfoBox
Errore 5 L'operatore '>' non è definito per i tipi 'Date' e 'Integer'. C:\Users\UTENTE\Documents\Visual Studio 2008\Projects\InfoBox\InfoBox\InfoBox.vb 123 16 InfoBox
Errore 6 L'operatore '<' non è definito per i tipi 'Date' e 'Integer'. C:\Users\UTENTE\Documents\Visual Studio 2008\Projects\InfoBox\InfoBox\InfoBox.vb 123 29 InfoBox
--------------- AGGIUNTA AL POST ---------------
Comunque si , una cosa simile :emoji_slight_smile:


Solo che non si può usare il simbolo "<" o ">" per questo caso (da quanto ho capito dagli errori)
 
Ultima modifica da un moderatore:
Non ti servirebbero a niente ...


In pratica se tolgo quello ritorna tutto normale
 
Si che mi servirebbe! Voglio vedere come hai dichiarato le variabili ecc.. Se non vuoi darmelo tranquillo :emoji_slight_smile:

Risolverà qualcun'altro :emoji_slight_smile:
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim thisDay As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now)
Label1.Text = thisDay

Dim thisDate As Date
Dim thisMonth As Integer
thisDate = #2/12/1969#
thisMonth = Month(thisDate)

Label3.Text = thisMonth

If thisMonth = 1 Then
Label3.Text = "Gennaio"
End If

If thisMonth = 2 Then
Label3.Text = "Febbraio"
End If

If thisMonth = 3 Then
Label3.Text = "Marzo"
End If

If thisMonth = 4 Then
Label3.Text = "Aprile"
End If

If thisMonth = 5 Then
Label3.Text = "Maggio"
End If

If thisMonth = 6 Then
Label3.Text = "Giugno"
End If

If thisMonth = 7 Then
Label3.Text = "Luglio"
End If

If thisMonth = 8 Then
Label3.Text = "Agosto"
End If

If thisMonth = 9 Then
Label3.Text = "Settembre"
End If

If thisMonth = 10 Then
Label3.Text = "Ottobre"
End If

If thisMonth = 11 Then
Label3.Text = "Novembre"
End If

If thisMonth = 12 Then
Label3.Text = "Dicembre"
End If


Dim ora As Date
ora = TimeValue(Now)
Orologio.Text = ora

Dim anno As Integer
anno = Year(Now)
Label5.Text = anno

Dim Oggi As Integer = DateAndTime.Weekday(Now, FirstDayOfWeek.Monday)
Label4.Text = Oggi

If Oggi = "1" Then
Label4.Text = "Lunedì"
End If

'Se è Lunedì restituisce "Lunedì"

If Oggi = "2" Then
Label4.Text = "Martedì"
End If

'Se è Martedì restituisce "Martedì"

If Oggi = "3" Then
Label4.Text = "Mercoledì"
End If

'Se è Mercoledì restituisce "Mercoledì"

If Oggi = "4" Then
Label4.Text = "Giovedì"
End If

'Se è Giovedì restituisce "Giovedì"

If Oggi = "5" Then
Label4.Text = "Venerdì"
End If

'Se è Venerdì restituisce "Venerdì"

If Oggi = "6" Then
Label4.Text = "Sabato"
End If

'Se è Sabato restituisce "Sabato"

If Oggi = "7" Then
Label4.Text = "Domenica"
End If

'Se è Domenica restituisce "Domenica"
 
Invece di prendere tutta la data devi riuscire a prendere l'ora e basta :emoji_slight_smile:
--------------- AGGIUNTA AL POST ---------------
Ora te lo sistemo io :emoji_slight_smile:
 
Ultima modifica:
Eccolo modificato velocemente, in fondo vedi le modifiche effettuate!
Raccomandazioni: ricordati di attivare il timer e di impostare una velocità di refresh alta: 10000 Millisecondi = 10 secondi
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
 
Non ti dico cosa succede con il debug o.O

Un casino di finestre aperte con scritto 20

:O
--------------- AGGIUNTA AL POST ---------------
Perfetto , risolto

Ho fatto così

Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
 
Ultima modifica da un moderatore:
Si , unico problema è che vorrei specificare ore & minuti.

Tipo se sono le 7.55-9.35 Status.Text = "Lezione"


Si può ?
 
:emoji_slight_smile:

Grazie comunque
--------------- AGGIUNTA AL POST ---------------
If DateTime.Now.Hour and DateTime.Now.Minute = ???
 
Ultima modifica da un moderatore:
Devi accedere o registrarti per rispondere qui.
 
 
Top
Indietro