dotNETportal.cz

1 8

Bylo zde zmíněno ošetření Double( a dalších)pro špatné zadání

Dim a As Double
If Double.TryParse(TextBox1.Text, a) = True Then
    
Else
    MsgBox("Zadaná hodnota není číslo, ty osle jeden.")
    TextBox1.Text = ""
End If

Zajímalo bymě, jestli je možné aplikovat toto řešení na více neznámích za ráz, nebo to musím udělat pro každou zadávanou neznámou zvlášť

nahlásit spam

odpovědět

23. 2. 2012 12:47

5 66

Ano, dá se to ošetřit tak, že kontrolujete vstup (textbox) po vstupu, a pokud je chyba, procedura vynadá a ukončí se:

Dim a As Double, b As Double

If Double.TryParse(TextBox1.Text, a) = False Then
    MsgBox("V poli TextBox1 není číslo !!!")
    TextBox1.Text = "" ' Vymaže hodnotu
    TextBox1.Focus() ' Skočí do Textboxu
    Return
End If

If Double.TryParse(TextBox2.Text, b) = False Then
    MsgBox("V poli TextBox2 není číslo !!!")
    TextBox2.Text = "" ' Vymaže hodnotu
    TextBox2.Focus() ' Skočí do Textboxu
    Return
End If

' ... pokud je vše OK pokračujeme

nahlásit spam

1 / 1

odpovědět

Diskuse: Podmínky a operátory

Chci, aby zadavatel zapsal číslo, ale on mi napíše slovo např. "jldj" (omylem). Příkaz CInt nebo Cdbl bude zmatený a vyhodí error. Jakým zůsobem ošetřím to, aby při zadání špatného řetězce, například smazal tento řetězec a žádal po mě nové zadání?

nahlásit spam

odpovědět

12. 12. 2008 16:58

1847 3847

Musíte použít funkci Integer.TryParse (popř. Double.TryParse). Tato funkce má dva parametry - text, který uživatel zadal, a proměnnou, do které se přiřadí výsledek. Samotná funkce vrací True, pokud se převod povedl, popřípadě False, pokud text převést nejde.

Dim a As Double
If Double.TryParse(TextBox1.Text, a) = True Then
    'převod se podařil, v proměnné a je hodnota, kterou uživatel zadal

Else
    'uživatel zadal něco, co se na číslo nedá převést
    MsgBox("Zadaná hodnota není číslo, ty osle jeden.")
    TextBox1.Text = ""
End If

nahlásit spam

5 / 5

odpovědět

Díky moc za rychlou pomoc. Funguje to tak jak jsem chtěl.

nahlásit spam

-2 / 2

odpovědět

21. 2. 2012 10:28

1 8

Když budu mít více proměnných, tak to musim napsat pro každou zvlášť nebo to lze napsat pro všechny najednou?

nahlásit spam

odpovědět

Diskuse: Podmínky a operátory

jak muzu udelat aby byly promene pristupne do vsech sub?

nahlásit spam

odpovědět

3. 12. 2011 18:11

5 66

Neuvedl jste zda VB.Net nebo C# - podle SUB asi VB.NET

proměnná se uvede dovnitř třídy mimo (nad Sub)


Class Trida

  Dim Retezec As String
  Dim Cislo As Integer

  Sub Nastav()
    Retezec = "text"
     Cislo = 1
  End Sub

  Sub Cti()
    Debug.Print Retezec
   Debug.Print Cislo
  End Sub

End Class

nahlásit spam

odpovědět

Dobrý den, chtěl bych aby mi program vypocital strany pomoci Pythagorovy věty - (c*c)=(a*a)+(b*b),ale nevím jak, poradil by mi prosim někdo?

Děkuji

nahlásit spam

odpovědět

8. 2. 2012 10:01

1 8

Jsem začátečník v programování, takže to možná nebude správně, ale přesto se pokusím.

Nejdřív musíš ošetřit, aby program zjistil jaká proměnná je přepona(nejdelší strana)

Pak použiješ pytagorovu větu. Bude to za pomocí If a podle toho jaká neznámá bude největší upravíš pytagorovku.

(c*c)=(a*a)+(b*b),

(b*b)=(a*a)+(c*c),

(a*a)=(c*c)+(b*b),

problém je, že nevím jak to prakticky uvést do programu, aby to správně fungovalo

nahlásit spam

odpovědět

8. 2. 2012 10:05

5 66

Ono je to tím, že dotaz byl položen tak blbě, že na něj nešlo odpovědět. Dotazující nenapsal co je vstup a co potřebuje jako výstup ... Pak holt nikdo nebude ztrácet čas odpovědí

nahlásit spam

odpovědět

8. 2. 2012 10:45

1 8

Dobrá, potom sem napíšu vlastní problém.

Právě si lámu hlavu s tou pravoúhlostí.

Nevím jak to mám řešit. Když zadám C jako nejdelší stranu tak to funguje, ale nevím jak to mám napsat i pro ostatní strany.

c > b >= a or c > a > b then

MsgBox((c*c) = (a*a)+(b*b))

MsgBox("Trojúhelník je pravoúhlý")

else

MsgBox("Trojúhelník není pravoúhlý")

end if

nahlásit spam

odpovědět

8. 2. 2012 11:26

http://www.vbnet.cz/clanek--4-vb_net_od_...

1 8

Tak hned po nahlédnutí do další lekce sem na to přišel.

c > b >= a or c > a > b then

MsgBox((c*c) = (a*a)+(b*b))

MsgBox("Trojúhelník je pravoúhlý, přepona je c")

elseif b > c >= a or b > a > c then

MsgBox ("Trojúhelník je pravoúhlý, přepona je b")

elseif a > b >= c o a > c > b then

MsgBox ("Trojúhelník je pravoúhlý, přepona je a")

else

MsgBox("Trojúhelník není pravoúhlý")

end if

nahlásit spam

odpovědět

Diskuse: Podmínky a operátory

Mám problém, co když chci napsat podmínku pro prázdný textbox:

 If TextBox2.Text = "" Then
            MsgBox("musíš zadat číslo")
        End If

je ot tak spravne? a proc mi to tedy nejde?

Prostě chci aby mi vyhodil textbox kdyz clicknu na buttonek a textak je prazdny...

nahlásit spam

odpovědět

Cau, jsem rovnez zacatecnik, ale nejsem si jist jestli pro datovou promennou Integer resp. Double (kterou asi pouzivas u cisel) lze pouzit TextBox2.Text = "" duvodem je ze se promenna Integer a Double neuklada jako text (tj. neuklada se jako znaky)

cituji Tomase Hercega:

"(String je v paměti uložen jinak než Integer, String je uchováván po znacích, kdežto Integer se ukládá jako číslo ve dvojkové soustavě)."

osobne jsem tento a problem se zadanim pismen do TextBox vyresil pouzitim error codu 13 (tusim, ze je to chyba "mishmatch type - preklad byl neschoda typu"

pro podil to pak vypada asi takto:

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        On Error GoTo Chyba
        TextBox3.Text = Podil(TextBox1.Text, TextBox2.Text)
Chyba:
        If Err.Number = 13 Then MsgBox("Nebyla zadána čísla, prosím zadávejte pouze čísla.")
    End Sub

** PS diky autorovi za velice pekny a prehledny tutorial :)

nahlásit spam

odpovědět

25. 7. 2011 20:55

1847 3847

Tak takhle chyby určitě nechytejte, tahle prastará syntaxe se používat nemá. Obecně je vždycky lepší prevence chyb než jejich udělání a následné zachycování - tady se dá zkontrolovat, jestli se text dá převést na číslo.

Správně by to bylo například takto:

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a As Double, b As Double
        If Double.TryParse(TextBox1.Text, a) And Double.TryParse(TextBox2.Text, b) Then
            TextBox3.Text = Podil(CDbl(TextBox1.Text), CDbl(TextBox2.Text))
        Else 
            MsgBox("Nebyla zadána čísla, prosím zadávejte pouze čísla.")
        End If
    End Sub

Double.TryParse zkusí převést text na číslo a pokud se to povede, vrací True a do proměnné a to číslo nastaví - tím pádem pokud se oba převody povedou, podmínka platí, jinak se zobrazí hláška.

nahlásit spam

1 / 1

odpovědět

Diskuse: Podmínky a operátory

Bezva stránky, díky moc za ně. Uvažuji i o Donate. :) Ale proč píšu. Hrál jsem si s trojúhelníky a nakonec jsem udělal počítání všech hodnot (s, o, pravoúhlost a existence) na jedno tlačítko a tak, aby to psalo rovnou: "Trojůhelník existuje a je pravoúhlý. Použil jsem příklad chleba s máslem, ale zvolil jsem promnnou "e" a asi 20 minut laboroval, proč to nefunguje a pak jsem si všiml, že je ta proměnná už použita v úplně prvním řádku. :-D

nahlásit spam

odpovědět

Samozřejmě "trojúhelník". :)

nahlásit spam

odpovědět

Diskuse: Podmínky a operátory

4. 11. 2010 21:17

Jaroslav Hanák

0 1

Dobrý den

Jsem v programování uplným nováčkem. Čtu si kapitolu po kapitole. Zatím jsem to nějak zvládl. :) Ale teď jsem narazil ten "InputBox" vložým do nového projektu, a otevřu okno kódu a tam vložím pod: " Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click" tento kód co jste uváděl na začátku článku " Dim vstup1, vstup2 As String

vstup1 = InputBox("Zadejte číslo:")

vstup2 = InputBox("Zadejte číslo:", "Můj program")" a další příkazy, které uvádíš bych potřeboval vědět kam vkládáš. Zdůraznuji, že jsem začátečník. Tak mě prosím neukamenujte, děkuji. :-)

nahlásit spam

odpovědět

jj mel jsem ten samy problem :S toto me docela zklamalo..

jsem taky začatecnik (zadnymu jazyku jsem se poradne nevenoval kvuli spatnym tutorialum.. ale tohle je neco jineho! (az na zacatek tohoto serialu... xD))

ale nakonec jsem se k tomu teda dokopal

všimej si až časti kde najdes tento kód:

Dim otazka As String = "Zadejte číslo:"

Dim titulek As String = "Můj program"

Dim vstup3 As String

vstup3 = InputBox(otazka, titulek)

(nad timto textem jen pise co to ta funkce InputBox je a pise tam i o anglicke napovede ktera ti ma vyskocit.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim vstup3 As String

vstup3 = InputBox("Zadejte číslo:", "Můj program")

End Sub

End Class

>> Kdyz kliknes na tlacitko ktere si propravis, tak se ti objevi tabulka (kterou ma autor vyfocenou hned na zacatku)

a kdyz budes pokracovat dostanes se k podminkam to uz se myslim da pochopit (alespon podle me)

ale kdyztak ti tu davam dalsi kod jak to ma CELÉ vypadat:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim cislo As Integer = CInt(InputBox("Zadejte číslo:"))

If cislo Mod 2 = 0 Then

MsgBox("Číslo je sudé!")

Else

MsgBox("Číslo je liché!")

End If

End Sub

End Class

>> mas tam tabulku s tlacitkem > kliknes na tlacitko > zobrazi se ti tabulka > tam napises libovolne cislo a ono ti to rekne jestli je sude nebo liche (podle deleni beze zbytku - to uz jste se snad ve skole ucili..:D)

omlouvam se za tak obsahly komentar xD

nahlásit spam

-1 / 1

odpovědět

26. 1. 2011 20:12

5 66

No všeobecně se dá říci, že tak jako u:

Dim A As Integer
A = 3

kde se do proměnné A přiřadí hodnota 3 (trojka ne čtyřka :-D )

tak v následujícím příkladu:

Dim vstup1, vstup2 As String 
vstup1 = InputBox("Zadejte číslo:") 
vstup2 = InputBox("Zadejte číslo:", "Můj program")

se do vstup1 přiřadí to co zadáte do dialogu inputbox

stejně tak v případě vstup2

Ve skutečnosti vyskočí nejprve jeden dialog, zadáte hodnotu pro vstup1 následně vyskočí druhý dialog, kde zadáte hodnotu pro vstup2

nahlásit spam

odpovědět

Aha :D diky to jsem nevedel.. ted chapu komplet cely tut

nahlásit spam

odpovědět

akorat to ze A = 3 a ty napises ze k promenne A se priradi hodnota 4 to je asi blbe ne ?

nahlásit spam

odpovědět

27. 1. 2011 20:54

5 66

Ne to je v pořádku, jen testuji jestli nad tím přemýšlíš :-D

OK chybičku opravím

nahlásit spam

odpovědět

Diskuse: Podmínky a operátory

Prosím Tě, jaký je rozdíl mezi:

Dim cislo1 As Integer = CInt(InputBox("Zadejte první číslo:"))

Dim a As Double = CDbl(TextBox1.Text)

Myslím, co se týče v zadávání údajů uživatelem. Co je na co.

nahlásit spam

odpovědět

28. 3. 2010 13:22

5 66

1/ "cislo1" bude získáno jako datový typ "Integer"

z dialogu Inputbox (dialog s textovým polem - viz. nahoře dialog "Můj program")

2/ "a" bude získáno jako "Double"

z formuláře a jeho textového pole "TextBox1"

... nebudu zmiňovat ošetření chyb při zadání, a neshodě datových typů

nahlásit spam

odpovědět

Diskuse: Podmínky a operátory

cawte som zaciatocnik a snažim sa vyrobit kalkulačku

mam tam nasobenie delenie sčitanie odčitanie trojuholnikovú nerovnost obsah sťvorca obsah pravouhleho trojuholníka a jedine co mi robí problém je klasicky obsah stvorca s = (a + b + c) / 2

MsgBox(Math.Sqrt(c * (c - a) * (c - b) * (c - c)))

ja som to spravil takto:

Dim a As Integer = CInt(TextBox1.Text)

Dim b As Integer = CInt(TextBox2.Text)

Dim c As Integer = CInt(TextBox3.Text)

s = (a + b + c) / 2

MsgBox(Math.Sqrt(c * (c - a) * (c - b) * (c - c)))

TextBox5.Text = s

prosim poradte ako mam tento problem vyriešiť

nahlásit spam

1 / 1

odpovědět

9. 3. 2010 18:21

5 66

Obávám se, že jsi špatně popsal co chceš vlastně spočítat.

Obsah čtverce? Obsah čtverce je přece S = a2 (a na druhou) neboli S = a * a

nahlásit spam

2 / 2

odpovědět

to mam dobre ale ja mam problem z obsahom trojuholníka

nahlásit spam

1 / 1

odpovědět

9. 3. 2010 18:34

5 66

Obsah NEPRAVOÚHLÉHO trojúhelníku se vypočítá

S = A * Va / 2

Kde Va je kolmice ze strany A na protější vrchol

nahlásit spam

odpovědět

ano ale ja poznam iba 3 strany a b c t.j tri vrcholy A B C

a ja chcem použit tento vzorec:

s = (a + b + c) / 2

MsgBox(Math.Sqrt(s * (s - a) * (s - b) * (s - c)))

ale neviem ho zakonponovat do toho celka ako to mam spravit

nahlásit spam

odpovědět

9. 3. 2010 18:48

5 66

Google :-D tady je postup - Wiki

http://cs.wikipedia.org/wiki/Heronův_vzorec

nahlásit spam

odpovědět

Diskuse: Podmínky a operátory

Ahoj, sorry že otravuju s takovou malicherností, ale je tam chyba - máš tam: chcemě a mělo by to být chceme. Možná už to někdo psal. Díks

nahlásit spam

odpovědět

Diskuse: Podmínky a operátory

no neviem ale ja som sa ucil ze obsah trojholnika sa pocita vzorcom

S=(a*va)/2 :)

nahlásit spam

1 / 1

odpovědět

6. 6. 2009 21:17

1847 3847

To ano, ale tady tu výšku neznáte.

nahlásit spam

1 / 1

odpovědět

hele chlapíku, tohle jsou super stránky, do téhle kapitoly jsem vše chápal, ale tahle kapitola je trochu oříšek.

Potřeboval bych to vyzkoušet, ale nevím, jak. první tabulka mi vyběhne, ale ty další příkazy nevím kam mám psát. když to píši samostatně, vyběhne mi chyba.

Sám jsi v první kapitole napsal, že jeden příklad řekne více než 1000 slov a tady je jen jeden příklad a zbytek teorie.:-(( Škoda.

Jinak 100 bodů za tyto stránky.

nahlásit spam

-1 / 1

odpovědět

Diskuse: Podmínky a operátory

Nainstaloval jsem VB2008 a InputBox nemohu najit. Nejmenuje se nějak jinak?

nahlásit spam

1 / 1

odpovědět

Diskuse: Podmínky a operátory

Ještě jednou děkuji za minulou pomoc. Teď mám ještě jeden pro mě zajímavý problém.

Mám 2 inputboxy, které řeší rovnici. Do boxu1 zadám X a v boxu2 se objeví výsledek Y. A já chci, aby to šlo i tak, abych zadal Y a v boxu 1 se objevilo X.

V čem je problém.

Když je nasteven TextBox1_TextChanged (tedy nepoužívám žádné spoštěcí tlačítko), tak mi po zapsání výsledku do toho druhého inputboxu proběhne procedura, která je za ním schovaná a přepisuje mi ten první a tak dokola.

To má mimo jiné za následek i to, že nejste schopen ani dopsat žádané X do inputboxu neboť po první číslici se vám tam přepíše číslo na výsledek. Co s tím??? Díky

nahlásit spam

-2 / 2

odpovědět

8. 3. 2009 19:18

Vítězslav Grygar

5 17

Pokud to dobře chápu, tak zapíšete číslo do textboxu1 a okamžitě se vypočítá výsledek do textboxu 2. Jestli máte rovnice např. textbox1 = textbox2+ 2 a textbox2 = textbox1 - 2, tak by neměl být absolutně žádný problém. Pokud jsou však rovnice rozdílné, tím však vyvolá se znovu procedura textbox1_textchanged, a tak pořád dokola... Pokud nechcete používat Button, vyřešil bych to tak, že přepočet se provede např. po stisknutí klávesy enter. Nahoře v kódu máte 2 vysouvací nabídky, v té první si vyberte TextBox1 a v té druhé událost KeyDown. Do nově vzniklé procedury napíište podmínku pro otestování klávesy a vložte kód na výpočet rovnice. Mělo by to vypadat asi takto:

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Dim a, b As Double
        If e.KeyCode = Keys.Enter Then
            a = CDbl(TextBox1.Text)
            b = 2 * a
            TextBox2.Text = b

        End If
    End Sub

Obdobně to proveďte pro textbox2.

nahlásit spam

1 / 1

odpovědět

Diskuse: Podmínky a operátory

Mam program a kontoluju jestli je zadane cislo vetsi:

If x>0 Then

MsgBox "Neni zadane kladne cislo"

(End)

EndIf

ted muj problem: kdyz napisu end (v zavorce) program se ukonci a to ja nechci, a kdyz ho nenapisu tak program probehne a spocita se. Ja chci aby po ukazani MsgBoxu program zacal odzacatku, tj.vratil se do puvdoniho stavu (aby neprobehl, ani se neukoncil..)

nahlásit spam

-3 / 3

odpovědět

4. 2. 2008 15:38

5 66

If x > 0 Then
MsgBox "Neni zadane kladne cislo"
Exit Sub ' opustí makro
'nebo
Goto Moje_zalozka ' jde na odkas v sekci programu ...
                  ' označeném Moje_zalozka:
End If

nahlásit spam

-3 / 3

odpovědět

Diskuse: Podmínky a operátory

4. 2. 2008 15:32

5 66

Byl jsem zvyklý z VB že pokud proměnnou předem deklaruji jako INTEGER,

tak není třeba dělat transformaci z Inputbox na datový typ Integer >>>

CInt(vysledek)

 Dim cislo As Integer
 cislo  = CInt(InputBox("Zadejte číslo:"))

Nebo to není korektní?

' já jsem to psal jen takto
 Dim cislo As Integer
 cislo  = InputBox("Zadejte číslo:")

(otázka je pak "ošetření chyb" - nekorektní vstup)

nahlásit spam

-4 / 4

odpovědět

Diskuse: Podmínky a operátory

absolutně špatná kapitola sice ses asi snažil, ale nenapsal jsi kam se ty zdr. kody maj psat jen jsou tam napsaný a není tam kam se maj psat jestli do buttonu nebo formuláře....je to škoda protože jsem kulový pochopil

nahlásit spam

-1 / 1

odpovědět

15. 10. 2007 8:55

1847 3847

Tohle byla spíš teorie, nemusíš to psát nikam, stačí číst ten kód a dívat se, jak se to dělá. Při troše fantazie bys to mohl dát i to procedury Buttonu a pak si jejich hodnoty přes MsgBox vypsat. Chce to trochu přemýšlet, bez toho se programovat nedá.

nahlásit spam

6 / 6

odpovědět

chtěl bych se zeptat, jak má udělat podmínku která by vásledek vypisovala do Labelu? děkuji předem

nahlásit spam

-2 / 2

odpovědět

23. 1. 2008 16:32

1847 3847

Stačí trochu přemýšlet a zkoušet:

If a = 3 Then
   Label1.Text = "a je 3"
End If

nahlásit spam

1 / 1

odpovědět

děkuji moc a jestě jedna otázečka, kdž zchci vytvořit exe soubor.. nevim jak protže když uložím project tak tam ýádný exe není..

nahlásit spam

-3 / 3

odpovědět

23. 1. 2008 16:38