Bienvenido: ( Identificarse | Registrarse )      
Foros de Trucos Windows
 
Closed TopicStart new topicStart Poll

Outline · [ Estándar ] · Lineal+

> Duda formulario VB, "No coinciden los tipos"

iXnaCio-7-8-
post Feb 27 2008, 10:37 PM
Publicado: #1


This Place is Gonna Burn
Group Icon

Grupo: Miembros Vitalicios
Mensajes: 1.281
Registrado: 16-January 07
Desde: Soria (España)
Miembro nº: 190.964



Hola,
Jaja me da verguenza preguntar este tipo de cosas por que es más bien una chorradilla lo que estoy haciendo en VB, bueno el caso es que me he quedado atascado intentando hacer un formulario tal que así:
CODE

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
--------------------------------------------------------------------
Private Sub cmdSalir_Click()
End
End Sub
--------------------------------------------------------------------
Private Sub opDolares_Click()
Text2.Text = CSng(Text1.Text) * 0.925
End Sub
--------------------------------------------------------------------
Private Sub opEuros_Click()
Text2.Text = CSng(Text1.Text) / 0.925
End Sub
--------------------------------------------------------------------

imagen externa


Bueno es muy sencillo, pones un valor en la caja de texto 1 y según hayas elegido la opción de euros o dólares debería devolver el resultado en una u otra divisa. El problema es que me dá un error tal que así : "Error 13 en tiempo de ejecución: No coinciden los tipos" ; jaja si supiera a que tipos se refiere aún podría hacerl algo, sabeís que falla?.
Saludos!
P,d: no se si este es el sitio correcto para postear esto, si no es así, mod jaja...

smile.gif


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
RadicalEd
post Feb 28 2008, 12:06 AM
Publicado: #2


Desocupado Programando
Group Icon

Grupo: Moderadores
Mensajes: 637
Registrado: 7-February 05
Desde: SoloCodigo
Miembro nº: 76.900



Cambia
CSng(Text1.Text) / 0.925
por
Val(Text1.Text) / 0.925


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
iXnaCio-7-8-
post Feb 28 2008, 12:17 AM
Publicado: #3


This Place is Gonna Burn
Group Icon

Grupo: Miembros Vitalicios
Mensajes: 1.281
Registrado: 16-January 07
Desde: Soria (España)
Miembro nº: 190.964



Jajaj gracias, lo había resulelto poniendo comillas, pero me daba problema si dejaba el campo vacío, ahora ya están resueltos ambos.

Una duda más, que valor podría utilizar para poner a cero los campos text?
He intentado esto:
CODE

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

No da resultado, no se como se representa "nada" en con símbolo, o por ejemplo para decir si tal funcion tiene un valor, hacer tal...

Gracias!
smile.gif


Mensaje modificado por iXnaCio-7-8- el Feb 28 2008, 12:22 AM


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
iXnaCio-7-8-
post Feb 28 2008, 12:47 AM
Publicado: #4


This Place is Gonna Burn
Group Icon

Grupo: Miembros Vitalicios
Mensajes: 1.281
Registrado: 16-January 07
Desde: Soria (España)
Miembro nº: 190.964



JaJA cierren post, al final me ha funcionado, tenia un error de síntaxis, gracias por todo.
cerrado.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

 
Closed TopicTopic OptionsStart new topic

Collapse

> Topicos similares

duda sobre ununtu y xp (acceso comun a archivos) ricky21 51 4 Ayer, 07:04 PM
By: ricky21
[duda] you tube nicogauna 93 13 Oct 6 2008, 04:33 AM
By: nicogauna
Tremenda duda entre Toshiba o HP! El_Christiancito 83 1 Oct 4 2008, 12:32 PM
By: Aitor_sp
Tremenda duda entre Toshiba o HP! El_Christiancito 0 0 Oct 3 2008, 05:54 AM
By: El_Christiancito
[DUDA] Memoria RAM nicogauna 806 24 Oct 3 2008, 02:14 AM
By: vitrox2007