Visual Basic - Necesito ayuda con un conversor de monedas

Life is soft - evento anual de software empresarial
   
Vista:

Necesito ayuda con un conversor de monedas

Publicado por Lio (1 intervención) el 25/11/2011 17:15:29
Hola gente, estoy haciendo un conversor de monedas y la verdad q soy muy novato.. para hacerlo tome un modelo de youtube y cambie unas cosas.. me quedo asi


Private Sub Dolar_Click()



'Declaring the value's
Dim PesoS As String
Dim Peso As Double
Dim DolarS As String
Dim Dolar As Double

'Reading the screen
PesoS = Textbox1.Text
Peso = Val(PesoS)

'Calculate
Dolar = Peso * 4,28

'Write to screen
DolarS = Str(Dolar)
Textbox4.Text = DolarS

End Sub


eso es el q hice yo y esto es lo q esta en un video

Private Sub cmdEuro_Click()



'Declaring the value's
Dim DollarS As String
Dim Dollar As Double
Dim EuroS As String
Dim Euro As Double

'Reading the screen
DollarS = txtDollar.Text
Dollar = Val(DollarS)

'Calculate
Euro = Dollar * 0.788705734

'Write to screen
EuroS = Str(Euro)
txtEuro.Text = EuroS

End Sub

cuando le mando play escribo el numero, toco el boton de dolares y me tira error de sintaxis y me marca "Dolar = Peso * 4,28" de un color y Private Sub Dolar_Click() en amarillo y con una flecha al costado

Alguien me podria ayudar? lo necesito para la tarde!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Necesito ayuda con un conversor de monedas

Publicado por Christian (666 intervenciones) el 25/11/2011 21:40:05
Pone 4.28 en vez de 4,28
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Necesito ayuda con un conversor de monedas

Publicado por Pedro Luis (57 intervenciones) el 26/11/2011 21:13:53
Me parece que complicas demasiado el asunto, si realmente usas Vb 6,0, he probado lo siguiente y funciona, se podria simplificar mas pero no quiero complicar las cosas.

Dos cajas de texto y un boton


Private Sub Command1_Click()
Dim Pesos As Double, Dolares As Double
Pesos = Text1
Dolares = Pesos * 4.28
Text2 = Dolares
End Sub

Tendras que verificar que el usuario solo ingresa numeros pero eso ya es otra cuestion,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Necesito ayuda con un conversor de monedas

Publicado por jcmg (518 intervenciones) el 08/12/2011 02:32:51
otra forma:
dos textbox mas este code

Private Sub Text1_Change()
Dim r As Double
On Error Resume Next
r = Text1
Text2 = r * 4.28
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar