create currency converter?

[beginneruser]

hello,

Hello,

I am a new user. Never worked with VB before. I wanne make a windows form application. Its a currency converter that can convert EUROS to belgium franks,german marks and the coins off Nederland. it has to be possibel to round the result to zero decimal. I already made the design with the radiobuttons and labels. But I dont know how to make it work. Its also for a assignment. I am totaly lost.

Can someone help me?

 

[jmcilhinney]

When you round the value, do you still need to show zeroes after the decimal point or just a whole number?

 

[beginneruser]

by rounding the zeros dont need to see. only the whole number before the decimal point

 

[beginneruser]

this is what I have.but now I am lost



Public Class Form1

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rounding.Click

End Sub
End Class

 

[beginneruser]

I sill get errors with this code

hello,


I have seartched and looked on this code.and I have everything, but I keep getting errors. anybody know whats wrong?

Public Class Form1

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioDEM.CheckedChanged

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioNLG.CheckedChanged

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rounding.Click

End Sub

Private Sub Convert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Convert.Click
If (RadioBEF.Checked = True) Then
If (IsNumeric(ResultBEF.Text) = True) Then
ResultDEM.Text = (Val(ResultBEF.Text) * 1.1875)
ResultNLG.Text = (Val(ResultBEF.Text) * 0.507)
ElseIf (ResultBEF.Text = "") Then
ResultDEM.Text = "Please enter a value"
ResultNLG.Text = "Please enter a value"
Else
ResultDEM.Text = "Numbers only please"
ResultNLG.Text = "Numbers only please"
End If

End If

If (RadioDEM.Checked = True) Then
If (IsNumeric(ResultDEM.Text) = True) Then
ResultBEF.Text = (Val(ResultDEM.Text) * 0.842)
ResultNLG.Text = (Val(ResultDEM.Text) * 0.4269)
ElseIf (ResultAUD.Text = "") Then
ResultGBP.Text = "Please enter a value"
ResultUSD.Text = "Please enter a value"
Else
ResultGBP.Text = "Numbers only please"
ResultUSD.Text = "Numbers only please"
End If
End If

If (RadioNLG.Checked = True) Then
If (IsNumeric(ResultNLG.Text) = True) Then
ResultDEM.Text = (Val(ResultNLG.Text) * 2.342)
ResultBEF.Text = (Val(ResultNLG.Text) * 1.972)
ElseIf (ResultNLG.Text = "") Then
ResultDEM.Text = "Please enter a value"
ResultNLG.Text = "Please enter a value"
Else
ResultDEM.Text = "Numbers only please"
ResultNLG.Text = "Numbers only please"
End If
End If
End Sub
End Class