- Oct 14, 2004
- 1,887
- 0
- 0
I'm having trouble converting some currencies in this program I made.
Anyone know what I need ot get this working properly? So far here is what I have,
Option Explicit On
Option Strict Off
Public Class Form1
Private Sub xClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xClear.Click
Me.xDollarsTextBox.Text = String.Empty
Me.xPoundsTextBox.Text = String.Empty
Me.xPesosTextBox.Text = String.Empty
End Sub
Private Sub xExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xExit.Click
Me.Close()
End Sub
Private Sub xCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xCalc.Click
Dim Dollars As Integer
Dim Pounds As Integer
Dim Pesos As Integer
Pounds = Dollars * 0.571505
Pesos = Dollars * 10.7956
Me.xPoundsTextBox.Text = Pounds.ToString
Me.xPesosTextBox.Text = Pesos.ToString
Anyone know what I need ot get this working properly? So far here is what I have,
Option Explicit On
Option Strict Off
Public Class Form1
Private Sub xClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xClear.Click
Me.xDollarsTextBox.Text = String.Empty
Me.xPoundsTextBox.Text = String.Empty
Me.xPesosTextBox.Text = String.Empty
End Sub
Private Sub xExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xExit.Click
Me.Close()
End Sub
Private Sub xCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xCalc.Click
Dim Dollars As Integer
Dim Pounds As Integer
Dim Pesos As Integer
Pounds = Dollars * 0.571505
Pesos = Dollars * 10.7956
Me.xPoundsTextBox.Text = Pounds.ToString
Me.xPesosTextBox.Text = Pesos.ToString