Zarábaj až 6 000 € mesačne! Akreditované rekvalifikačné kurzy od 0 €. Viac informácií.

Diskusia – 7. diel - Ošetrenie užívateľských vstupov

Späť

Upozorňujeme, že diskusie pod našimi online kurzami sú nemoderované a primárne slúžia na získavanie spätnej väzby pre budúce vylepšenie kurzov. Pre študentov našich rekvalifikačných kurzov ponúkame možnosť priameho kontaktu s lektormi a študijným referentom pre osobné konzultácie a podporu v rámci ich štúdia. Toto je exkluzívna služba, ktorá zaisťuje kvalitnú a cielenú pomoc v prípade akýchkoľvek otázok alebo projektov.

Komentáre
Avatar
dave_23
Tvůrce
Avatar
dave_23:21.1.2014 15:40

Má u toho druhého parametru metody TryParse teda být Out nebo ne? Mě to s ním nefunguje a v další části tutoriálu už ho tam taky nemáš...

 
Odpovedať
21.1.2014 15:40
Avatar
Odpovedá na dave_23
Michal Žůrek - misaz:21.1.2014 16:15

aha, ne nemá to tam být, pokud chceš udělat aby ten parametr mohl být ovlivněn i ven, tak se to píše v definici pomocí ByRef.

Díky za upozornění, opravím.

 
Odpovedať
21.1.2014 16:15
Avatar
Neaktivní uživatel:20.7.2017 9:17

Musím říct že tyhle články mi vážně pomohli.. Napsal jsem si svoují vlastní kalkulačku možná je trošku složitější než tahle ale zase je to moje první aplikace...

Module Module1

Sub Main()

Začátek:
Console.Clear()

Console.Write­Line("(-------------------------Kalkulačka 1.0 by DJ_M1k3-------------------------)")
Console.WriteLine(" Vítejte v kalkulačce ")
Console.WriteLine()
Console.Write­Line("Přejete si vytvořit nový příklad(y/n)")
Console.WriteLine()
Chyba1:
Dim pokracovat As String = Console.ReadLine
pokracovat = pokracovat.ToLower

Select Case pokracovat
Case "y"
Nový: Console.Clear()
Console.Write­Line("(-------------------------Kalkulačka 1.0 by DJ_M1k3-------------------------)")
Console.WriteLine(" Zadávám nový příklad ")
Case "n"
FileClose()
Case Else
Console.WriteLine()
Console.Write­Line("Neplatný uživatelský vstup zadejte prosím hodnotu znovu.")
Console.WriteLine()
GoTo Chyba1
End Select

While pokracovat = "y"
Console.WriteLine()
Console.Write­Line("Zadejte prosím první číslo výpočtu")
Console.WriteLine()

Dim a, b As Single
a = Console.ReadLine

Console.WriteLine()
Console.Write­Line("Zadejte prosím druhé číslo výpočtu")
Console.WriteLine()
b = Console.ReadLine

Console.Clear()
Console.Write­Line("(-------------------------Kalkulačka 1.0 by DJ_M1k3-------------------------)")
Console.WriteLine(" Zadávám nový příklad ")
Console.WriteLine()
Console.Write­Line("Vámi zvolená čísla jsou: " & a & " a " & b)
Console.WriteLine()
Console.Write­Line("Nyní prosím vyberte číselnou operaci kterou chcete s hodnotami " & a & " a " & b & " provést")
Console.WriteLine()
Console.Write­Line("1. sčítání")
Console.Write­Line("2. odčítání")
Console.Write­Line("3. násobení")
Console.Write­Line("4. dělení")
Console.WriteLine()
Chyba2:
Dim operace As Char = Console.ReadKe­y.KeyChar
Dim vysledek As Double

Select Case operace
Case "1"
vysledek = a + b
Case "2"
vysledek = a - b
Case "3"
vysledek = a * b
Case "4"
vysledek = a / b
Case Else
Console.WriteLine()
Console.Write­Line("Neplatný uživatelský vstup zadejte prosím hodnotu znovu.")
Console.WriteLine()
GoTo Chyba2
End Select

Console.Clear()
Console.Write­Line("(-------------------------Kalkulačka 1.0 by DJ_M1k3-------------------------)")
Console.WriteLine(" Výpočet dokončen ")
Console.WriteLine()
Console.Write­Line("Výsledek výpočtu: " & vysledek & " Použili jste následující čísla: " & a & " a " & b)
Console.WriteLine()
Console.Write­Line("Co si přejete provést dále?")
Console.WriteLine()
Console.Write­Line("1. Založit nový příklad")
Console.Write­Line("2. Odejít z aplikace")
Chyba3:
Dim dále As Char = Console.ReadKe­y.KeyChar

Select Case dále
Case "1"
GoTo Nový
Case "2"

Case Else
Console.WriteLine()
Console.Write­Line("Neplatný uživatelský vstup zadejte prosím hodnotu znovu.")
Console.WriteLine()
GoTo Chyba3
End Select

pokracovat = "n"
Console.Clear()
Console.Write­Line("(-------------------------Kalkulačka 1.0 by DJ_M1k3-------------------------)")
Console.WriteLine(" Zavírám aplikaci... ")
Console.WriteLine()
Console.Write­Line("Aplikaci ukončíte libovolnou klávesou.")
Console.ReadKey()

End While

End Sub

End Module

Odpovedať
20.7.2017 9:17
Neaktivní uživatelský účet
Avatar
Odpovedá na Neaktivní uživatel
Neaktivní uživatel:20.7.2017 9:51

ještě teda musím ošetřit uživatelský vstup y/n na začátku teď když jsem zadal místo y y´´ tak mi program hodil chybu..

Odpovedať
20.7.2017 9:51
Neaktivní uživatelský účet
Robíme čo je v našich silách, aby bola tunajšia diskusia čo najkvalitnejšia. Preto do nej tiež môžu prispievať len registrovaní členovia. Pre zapojenie sa do diskusie sa zaloguj. Ak ešte nemáš účet, zaregistruj sa, je to zadarmo.

Zatiaľ nikto nevložil komentár - buď prvý!