Ako vytvoriť Visual Basic program pomocou If Else & K Loop

V aplikácii Visual Basic programovanie svete , " If ... Else " výrok je must - mať takmer akýkoľvek počítačový program . " If ... Then ... Else " vyhlásenie je jednou z najzákladnejších všetkých vyhlásení hospodáriacich tokov . Testuje podmienku - a či je to pravda - to bude spúšťať príkazy , ktoré nasledujú " Tak . " Je-li tvrdenie je nepravdivé , potom to bude spúšťať príkazy nasledujúci na " Else " doložku . " For ... Next " vyhlásenie v jazyku Visual Basic bude opakovať skupinu príkazov pre zadaný počet opakovaní . Veci , ktoré budete potrebovať v Microsoft Visual Basic Express
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Visual Basic Express . Kliknite na tlačidlo " Nový projekt ... " V ľavej table obrazovky počítača , a kliknite na tlačidlo " Visual Basic " pod Nainštalované šablóny . Kliknite na "Windows Forms " a kliknite na " OK " pre vytvorenie nového projektu .
2

Double - kliknite na tlačidlo " " na paneli Toolbox pridať nový ovládací prvok tlačidla . Double - kliknite na " Button1 " otvorte Visual Basic okno , a vytvoriť udalosť click na tlačidlo . Zadajte nasledujúce vnútri udalosť click vytvoriť štyri nové premenné :

Dim DayNum Ako DayOfWeek = DateTime.Now.DayOfWeek

Dim hodinu As Integer = DateTime.Now.Hour

Dim date_retezec As String Dim

dayCntr As Integer
3

Zadajte nasledujúce otestovať , či dnes je streda pomocou " If ... Then " vyhlásenie :

Ak DayNum = DayOfWeek.Wednesday Potom

hodina = 14 Alebo hodina = 18 Potom

MessageBox.Show ( " Dnes je streda medzi 2 a osemnásť hodín " )

End If

Ak dnes je streda kód bude tiež testovať , či hodina je medzi 2 a 6 hodín .
4

Zadajte nasledujúci kód zistiť deň týždeň pomocou " For ... Next " vyhlásenia a " If ... Then ... Else " vyhlásenie :

Else

dayCntr = 1 až 6

Ak DayNum = 1 Potom

date_retezec = " Pondelok "

ElseIf DayNum = 2 Potom

date_retezec = " Utorok "

ElseIf DayNum = 2 potom

date_retezec = " Vo štvrtok "

ElseIf DayNum = 2 potom

date_retezec = " piatok "

ElseIf DayNum = 2 potom

date_retezec = " Saturday "

Else

date_retezec = " Nedeľa "

End If

Ak date_retezec < > " " Tak

dayCntr = 8

End If

Ďalšie

Netreba testovať na stredu , pretože to je testovaná v prvej " If ... Else " vyhlásenie .
5

zadajte nasledujúci kód pre zobrazenie názvu dnešný deň a aktuálny čas cez okno so správou :

date_retezec = " V súčasnej dobe nie je Wednesday , dnes je " & date_retezec

date_retezec = date_retezec & " . Aktuálny čas je " & DateTime.Now.TimeOfDay.ToString

MessageBox.Show ( date_retezec )

End If
6

Stlačte " F5 " pre spustenie programu . Kliknite na " Button1 " spustiť kód .

• Predchádzajúca strana: Ako môžem vytvoriť Toolbar Button pomocou jazyka Visual Basic ? 
• Ďalšia strana: Visual Basic Zoradiť metóda