lancio di Microsoft Visual Basic Express. Fare clic su "Nuovo progetto ... " nel riquadro sinistro dello schermo del computer , e fare clic su " Visual Basic " Modelli di sotto installati . Fare clic su " Applicazione Windows Form " e fare clic su "OK" per creare un nuovo progetto . 
 
 2 Fare doppio clic su "Pulsante" nel riquadro Casella degli strumenti per aggiungere un nuovo controllo pulsante . Fare doppio clic su " Button1 " per aprire la finestra di Visual Basic e creare un evento click del pulsante . Digitare il seguente all'interno del evento click di creare quattro nuove variabili : 
 
 Dim DayNum Come DayOfWeek = DateTime.Now.DayOfWeek 
 
 Dim ora As Integer = DateTime.Now.Hour 
 
 Dim dateString As String Dim 
 
 dayCntr As Integer 
 3 
 Digitare il seguente comando per verificare se oggi è Mercoledì utilizzando il " se ... allora " dichiarazione: 
 
 Se DayNum = DayOfWeek.Wednesday Poi 
 
 Se ora = 14 Or ora = 18 Poi 
 
MessageBox.Show (" Oggi è Mercoledì tra 2 e 6:00 " ) per
 End If 
 
 Se oggi è Mercoledì il codice sarà anche verificare se l'ora è compresa tra 2 e 6:00 . 
 4 
 Digitare il seguente codice per sapere il giorno della la settimana con un " For ... Next" dichiarazione e un " If ... Then ... Else" dichiarazione: 
 
 Else 
 
 dayCntr = 1 To 6 
 
 Se DayNum = 1 Then 
 
 dateString = " Lunedi" 
 
 ElseIf DayNum = 2 Quindi 
 
 dateString = " Martedì" 
 
 ElseIf DayNum = 2 poi 
 
 dateString = " Giovedi" 
 
 ElseIf DayNum = 2 Quindi 
 
 dateString = " Venerdì" 
 
 ElseIf DayNum = 2 Quindi 
 
 dateString = "Sabato " 
 
 Else 
 
 dateString = "Domenica " 
 
 End If 
 
 dateString < > "" Then 
 
 dayCntr = 8 
 
 End If 
 
 Avanti 
 
 non c'è bisogno di testare per Mercoledì poiché è testato nella prima istruzione " If ... Else" . 
 5 
 Digitare il seguente codice per visualizzare il nome del giorno di oggi e l'ora corrente attraverso una finestra di messaggio : 
 
 dateString = " oggi non è Mercoledì , oggi è" & dateString 
 
 dateString = dateString & " . ora di oggi è " & DateTime.Now.TimeOfDay.ToString 
 
MessageBox.Show ( dateString ) per
 End If 
 6 
 Premere " F5 " per eseguire il programma . Fare clic su " Button1 " per eseguire il codice . 
 
              
Programmazione © www.354353.com