Sv Community El Salvador
Soporte y Tecnología => Programas => Mensaje iniciado por: shakringan en noviembre 17, 2011, 06:46:37 am
-
ayuda tengo un pequeño proble y nesecito ayuda con este mi programita de control ciber no quiere furular y nesecito de su ayuda primero el timer corre bien pero a la hora de cobrar se traba y me tira error ayuda :sur: :sur: :sur: :sur:
Public Class Form1
Private Hora As Integer = 0
Private minuto As Integer = 0
Private segundo As Integer = 0
Private milisegundo As Integer = 0
Sub mostrartiempo()
Label1.Text = Hora.ToString.PadLeft(2, "0") & ":"
Label2.Text = minuto.ToString.PadLeft(2, "0") & ":"
Label3.Text = segundo.ToString.PadLeft(2, "0") & ":"
Label4.Text = milisegundo.ToString.PadLeft(2, "0") & ":"
Label1.Refresh()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
milisegundo += 1
If milisegundo = 9 Then
milisegundo = 0
segundo += 1
If segundo = 59 Then
segundo = 0
minuto += 1
If minuto = 59 Then
minuto = 0
Hora += 1
End If
End If
End If
mostrartiempo()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Hora = 0
minuto = 0
segundo = 0
milisegundo = 0
mostrartiempo()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim vh, vm, pc As String
vm = Label2.Text * 0.01
vh = Label1.Text * 0.6
pc = vh + vm
End Sub
End Class
-
Mientras viene un experto en el tema te puedo ayudar diciendote que estas declarando la variable "vm" como string osea como "cadena de texto" cuando lo que estas haciendo es una multiplicacion numerica que te va a dar un resultado del tipo "Integer" por lo que deberas declarar la variable al tipo "Integer"
ahora lo tenes asi:
Dim vh, vm, pc As String
vm = Label2.Text * 0.01
vh = Label1.Text * 0.6
pc = vh + vm
y deberias probar asi:
Dim vh, vm, pc As Integer
vm = Label2.Text * 0.01
vh = Label1.Text * 0.6
pc = vh + vm
despues observo que estas utilizando un "Label" para capturar un dato numerico por lo que te aconsejaria utilizar un "VAL" para obtener el valor numerico de la etiqueta y te quedaria el codigo algo asi:
Dim vh, vm, pc As Integer
vm = val(Label2.Text) * 0.01
vh = val(Label1.Text) * 0.6
pc = vh + vm
proba a ver si te funciona y si no esperemos a los expertos en programacion XD
-
+ ayuda
http://msdn.microsoft.com/es-es/library/s2dy91zy(v=vs.80).aspx (http://msdn.microsoft.com/es-es/library/s2dy91zy(v=vs.80).aspx)
-
Si le concatenas los dos puntos, no puedes convertirlo a entero (o decimal)
Dim vh, vm, pc As Decimal
vm = Convert.ToDecimal(Label2.Text.Replace(":", "")) * 0.01
vh = Convert.ToDecimal(Label1.Text.Replace(":", "")) * 0.6
pc = vh + vm
-
Si le concatenas los dos puntos, no puedes convertirlo a entero (o decimal)
Dim vh, vm, pc As Decimal
vm = Convert.ToDecimal(Label2.Text.Replace(":", "")) * 0.01
vh = Convert.ToDecimal(Label1.Text.Replace(":", "")) * 0.6
pc = vh + vm
hey gracia bro si me sirvio el codigo gracias