Lager valutakalkulator og har noen spørsmål [VB.NET]

[Sentinelle]

Hei, jeg er ganske så ny innen VB.NET og programmering generelt, og bestemte meg for å lage en valutakalkulator.

 

1. Hvordan får jeg programmet til å ikke kræsje når tallene i tekstboksen "amount" blir slettet?

 

2. Hvordan får jeg de konverterte tallene i tekstboksene til å ha max to desimaler? Skal jeg gjøre om 5 USD to EUR oppgir den "3,78787878787879"

 

3. Er det mulig at programmet lagrer en instilling slik at det kan hentes opp neste gang programmet starter osv.?

 

4. Dette spørsmålet er ikke så viktig, men hvordan kan jeg få programmet til å hente verdier fra en nettside, slik at valutakursene blir "up to date"?

 

Her er kildekoden så langt hvis noen er interessert:

 

 

Public Class Form1
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Currency.SelectedIndexChanged
        Amount.Enabled = True
    End Sub
    Private Sub Textbox1_TextChanged(sender As Object, e As EventArgs) Handles Amount.TextChanged
        Dim USD
        USD = 1
        Dim EUR
        EUR = 1.32
        Dim GBP
        GBP = 1.56
        Dim NOK
        NOK = 0.16
        If Currency.Text = "USD" Then
            USD1.Text = Amount.Text * (USD / USD)
            EUR1.Text = Amount.Text * (USD / EUR)
            GBP1.Text = Amount.Text * (USD / GBP)
            NOK1.Text = Amount.Text * (USD / NOK)
        End If
        If Currency.Text = "EUR" Then
            USD1.Text = Amount.Text * (EUR / USD)
            EUR1.Text = Amount.Text * (EUR / EUR)
            GBP1.Text = Amount.Text * (EUR / GBP)
            NOK1.Text = Amount.Text * (EUR / NOK)
        End If
        If Currency.Text = "GBP" Then
            USD1.Text = Amount.Text * (GBP / USD)
            EUR1.Text = Amount.Text * (GBP / EUR)
            GBP1.Text = Amount.Text * (GBP / GBP)
            NOK1.Text = Amount.Text * (GBP / NOK)
        End If
        If Currency.Text = "NOK" Then
            USD1.Text = Amount.Text * (NOK / USD)
            EUR1.Text = Amount.Text * (NOK / EUR)
            GBP1.Text = Amount.Text * (NOK / GBP)
            NOK1.Text = Amount.Text * (NOK / NOK)
        End If
    End Sub
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Amount.KeyPress
        If Not IsNumeric(e.KeyChar) Then
            e.Handled = True
        End If
    End Sub
End Class

 

 

Endret 7. september 2013 av Commodent