Výběr měny   otázka

VB.NET, Algoritmy, HTTP/HTML

Pokouším se vylepšit prorgram z článku

http://www.vbnet.cz/clanek--72-pracujeme...

tak, abych si mohl vybrat měnu, kterou chci.

Po stisknutí tlačítka se zobrazí dialog, ve kterém si pomocí ComboBoxu vyberu jednu z měn.

Kód jsem upravil takto

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim dlg As New Dialog2
        Dim VyberMeny As String = dlg.ComboBox1.ValueMember
        Dim kurz As Single = 0

        dlg.ShowDialog()

        Try
            'vystavit požadavek na dnešní den

            Dim url As String = String.Format("http://www.cnb.cz/cs/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/denni_kurz.txt?date={0:dd.MM.yyyy}", Now)

            Dim rq As HttpWebRequest = HttpWebRequest.Create(url)

            'odeslat jej na server a získat odpověď

            Dim rs As HttpWebResponse = rq.GetResponse()

            'vytvořit StreamReader pro pohodlnou práci

            Dim sr As New IO.StreamReader(rs.GetResponseStream())
            'projít řádky

            While Not sr.EndOfStream

                Dim s As String = sr.ReadLine()
                Select Case VyberMeny
                    Case dlg.ComboBox1.ValueMember("USD")

                        If s.StartsWith("USA|") Then

                            kurz = CDbl(s.Substring(s.LastIndexOf("|") + 1))
                            MsgBox(String.Format("Aktuální kurz: 1 USD = {0:c}", kurz))



                        End If
                    Case dlg.ComboBox1.ValueMember("EUR")

                        If s.StartsWith("EMU|") Then
                            kurz = CDbl(s.Substring(s.LastIndexOf("|") + 1))
                            MsgBox(String.Format("Aktuální kurz: 1 EUR = {0:c}", kurz))

                        End If
                    Case dlg.ComboBox1.ValueMember("GBP")

                        If s.StartsWith("Velká Británie|") Then
                            kurz = CDbl(s.Substring(s.LastIndexOf("|") + 1))
                            MsgBox(String.Format("Aktuální kurz: 1 GBP = {0:c}", kurz))

                        End If
                End Select


            End While

            'zavřít StreamReader

            sr.Close()

            'zavřít spojení

            rs.Close()

        Catch ex As Exception
            MsgBox("", , ex.Message)
        End Try
    End Sub

Ale po vybrání měny mi to hodí chybovou hlášku "Převod řetězce USD na typ Integer není platný". Přemýšlel jsem nad tím nevím si rady, jak to udělat aby mi to šlo.

Neví prosím někdo co mám upravit? (jsem začátečník, tak mi to kdyžtak vysvětlete nějak polopaticky)

Děkuji za odpověď

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:
Heslo:

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback