Ayudenme a encontrar el error en variables

[T1NCH0]

Hola gente...soy totalmente newbie aca, ayer empece con el visual porque antes no entendia nada. Me propuse hacer un programa que contara dinero, me funcionaba perfectamente. Me fui y cuando quise volver a probarlo me tiraba un error de tipo mismatch. Bueno les dejo el codigo, el que encuentre el error por favor que me lo diga...gracias .

Private Sub Command1_Click()
Dim Num1
Num1 = 0.05
Label1 = Num1 * Text1
End Sub



Private Sub Command2_Click()
Dim Num1
Num1 = 0.1
Label2 = Num1 * Text2
End Sub

Private Sub Command3_Click()
Dim Num1
Num1 = 0.25
Label3 = Num1 * Text3
End Sub

Private Sub Command4_Click()
Dim Num1
Num1 = 0.5
Label4 = Num1 * Text4
End Sub

Private Sub Command5_Click()
Dim Num1
Num1 = 1
Label5 = Num1 * Text4
End Sub

Private Sub Command6_Click()
Dim Num1
Num1 = 2
Label6 = Num1 * Text6
End Sub

Private Sub Command7_Click()
Dim Num1
Num1 = 5
Label7 = Num1 * Text6
End Sub

Private Sub Command8_Click()
Dim Num1
Num1 = 10
Label8 = Num1 * Text8
End Sub

Private Sub Command9_Click()
Dim Num1
Num1 = 20
Label9 = Num1 * Text9
End Sub
Private Sub Command10_Clic k()
Dim Num1
Num1 = 50
Label10 = Num1 * Text10
End Sub

Private Sub Command11_Clic k()
Dim Num1
Num1 = 100
Label11 = Num1 * Text11
End Sub
Private Sub Command12_Clic k()
Dim Num1
Dim Num2
Dim Num3
Dim Num4
Dim Num5
Dim Num6
Dim Num7
Dim Num8
Dim Num9
Dim Num10
Num1 = 0.05
Num2 = 0.1
Num3 = 0.25
Num4 = 0.5
Num5 = 1
Num6 = 2
Num7 = 5
Num8 = 10
Num9 = 20
Num10 = 50
Num11 = 100
Label12 = Num1 * Text1 + Num2 * Text2 + Num3 * Text3 + Num4 * Text4 + Num5 * Text5 + Num6 * Text6 + Num7 * Text7 + Num8 * Text8 + Num9 * Text9 + Num10 * Text10 + Num11 * Text11
End Sub


La linea subrayada es la que tiene el bug, pero no entiendo como puede ser que ande perfectamente y despues el mismo codigo sin modificaciones tire error. El programa lo que hace es lo siguiente, uno tiene que poner que cantidad de monedas o billetes tiene de cada valor, y programa puede hacer un calculo total o decirte cuanto      tienes de cada moneda o billete. El programa es muy basico, pero repito es mi primer programa. Tenganme paciencia, je. Saludos

[ranefi]

Hola T1NCH0, buena tarde. Aquí te va tu mismo código pero un poco formateado:

Código:

Private Sub Command1_Click()
    Dim Num1 As Double
   
    Num1 = 0.05
    Label1 = Num1 * Val(Text1)
End Sub

Private Sub Command2_Click()
    Dim Num1 As Double
   
    Num1 = 0.1
    Label2 = Num1 * Val(Text2)
End Sub

Private Sub Command3_Click()
    Dim Num1 As Double
   
    Num1 = 0.25
    Label3 = Num1 * Val(Text3)
End Sub

Private Sub Command4_Click()
    Dim Num1 As Double
   
    Num1 = 0.5
    Label4 = Num1 * Val(Text4)
End Sub

Private Sub Command5_Click()
    Dim Num1 As Double
   
    Num1 = 1
    Label5 = Num1 * Val(Text4)
End Sub

Private Sub Command6_Click()
    Dim Num1 As Double
   
    Num1 = 2
    Label6 = Num1 * Val(Text6)
End Sub

Private Sub Command7_Click()
    Dim Num1 As Double
   
    Num1 = 5
    Label7 = Num1 * Val(Text6)
End Sub

Private Sub Command8_Click()
    Dim Num1 As Double
   
    Num1 = 10
    Label8 = Num1 * Val(Text8)
End Sub

Private Sub Command9_Click()
    Dim Num1 As Double
   
    Num1 = 20
    Label9 = Num1 * Val(Text9)
End Sub

Private Sub Command10_Click()
    Dim Num1 As Double
   
    Num1 = 50
    Label10 = Num1 * Val(Text10)
End Sub

Private Sub Command11_Click()
    Dim Num1 As Double
   
    Num1 = 100
    Label11 = Num1 * Val(Text11)
End Sub

Private Sub Command12_Click()
    Dim Num1 As Double
    Dim Num2 As Double
    Dim Num3 As Double
    Dim Num4 As Double
    Dim Num5 As Double
    Dim Num6 As Double
    Dim Num7 As Double
    Dim Num8 As Double
    Dim Num9 As Double
    Dim Num10 As Double
    Dim Num11 As Double

    Num1 = 0.05
    Num2 = 0.1
    Num3 = 0.25
    Num4 = 0.5
    Num5 = 1
    Num6 = 2
    Num7 = 5
    Num8 = 10
    Num9 = 20
    Num10 = 50
    Num11 = 100

    Label12 = (Num1 * Val(Text1)) + (Num2 * Val(Text2)) + (Num3 * Val(Text3)) + _
        (Num4 * Val(Text4)) + (Num5 * Val(Text5)) + (Num6 * Val(Text6)) + _
        (Num7 * Val(Text7)) + (Num8 * Val(Text8)) + (Num9 * Val(Text9)) + _
        (Num10 * Val(Text10) + Num11 * Val(Text11))
End Sub

Para serte sincero, sigo sin entender el por qué de tantas variables y para qué sirve el programa (soy un poco lento en entender xD); pero bueno, en donde le das el valor a Label12, si ya no te aparece ningún error, quiere decir que era por el tipo de datos que estabas usando, como ves, usé Val(String) para los TextBox, esta función sirve para convertir valores de cadena a numéricos, también habrás notado que declaré variables de tipo Double, pues bueno, esto lo hice porque se me dio la gana, jejeje, mentira, lo hice porque con este tipo de datos podrás utilizar fracciones sin temor a que aparezca un error "raro". Espero y esto te sirva, nos vemos.

[T1NCH0]

Gracias capo...este es mi primer programa, por eso le faltan algunas cosas y hay otras que sobran xD. El programa no es muy util, pero lo hice para empezar a  aprender. Todavia no termino de entender bien lo de la declaracion de variables, por ejemplo lo que tu hiciste poniendole As double. Si me explicas me vendria barbaro =D. Lei algo de eso en un manual pero no termine de entenderlo. Saludos!!!

[ranefi]

Hola peladete, buen día. Mira, aquí te dejo la explicación que MSDN Library da:

Lasvariables dobles (punto flotante de doble precisión) se almacenan como números IEEE de coma flotante de 64 bits (8 bytes) con valores de -1,79769313486232E308 a -4,94065645841247E-324 para valores negativos y de 4,94065645841247E-324 a 1,79769313486232E308 para valores positivos. El carácter de declaración de tipo para Double es el signo de número (#).

En pocas palabras, el tipo de datos Double es como un Integer pero más preciso. Espero y te sirva. Au revoir.