Vota por nosotros en el ranking web que participamos

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Octubre 06, 2008, 02:20:55
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: problema novato!! 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: problema novato!!  (Leído 352 veces)
Rexix
Colaborador
*****
Desconectado Desconectado

Mensajes: 482


xoy del rojo, ex un xentimiento no puedo parar!!


Ver Perfil Email
« en: Junio 26, 2007, 12:44:48 »
buenas, soy novato en este lenguaje y he estado haciendo cositas basicas... asi que quisiera que me dijeran el porque de este error

el error me aparece en tiempo de ejecucion y dice que no coinciden los tipos...
pues la verdad he intentado varias cosas y no se....

espero algunas sugerencias...

aqui el code:

Código:
Option Explicit
Dim txt1, txt2, txt3, txt4, txt5 As Double

Private Sub txtParcial_Change(Index As Integer)
 If txtParcial(0) Then
    txt1 = CDbl(txtParcial(0).Text)
    'lbPorc(0) = Str(txt1 * 20 / 100)
 End If
 
 If txtParcial(1) Then
    txt2 = CDbl(txtParcial(1).Text)
    'lbPorc(1) = Str(txt2 * 20 / 100)
 End If
 
 If txtParcial(2) Then
    txt3 = CDbl(txtParcial(2).Text)
    'lbPorc(2) = Str(txt3 * 20 / 100)
 End If
 
 If txtParcial(3) Then
    txt4 = CDbl(txtParcial(3).Text)
    'lbPorc(3) = Str(txt4 * 20 / 100)
 End If
   
 If txtParcial(4) Then
    txt5 = CDbl(txtParcial(4).Text)
    'lbPorc(4) = Str(txt5 * 20 / 100)
 End If
   
End Sub
« Última modificación: Junio 26, 2007, 12:47:25 por Rexixtente » En línea



my page:
http://usuarios.lycos.es/r71xn942

problemas para Recordar tus contraseñas? aqui tienes la solucion
http://foro.el-hacker.com/index.php/topic,122732.0.html
sNipeR-
Visitante
« Respuesta #1 en: Junio 26, 2007, 12:31:58 »
Para empezar k bien k usas tags para los controlos como txtParcial aunk k el lbPorc seria lblPorc Smiley

Bueno los errores en tu codigo son varios (por ejemplo lbPorc.ke??... se es un label seria .caption)por eso te voy a ensenar como hacerlo.

Esta un lio kuando en verdad puede ser muy simple. Una recomendacion, kuando trabajes con arrays, usa un select case, veras como te keda mas simple.

Usas esto caso los calculos sean diferentes en cada array.

Código:
Option Explicit

Private Sub txtParcial_Change(Index As Integer)
    select case index
    case 0
        lblPorc(0).caption = val(txtParcial(0).Text) * 20 / 100
    case 1
    .
    .
    .
    end select
End Sub

Y esto se son ='s en todo k es tu caso  Grin

Código:
Option Explicit

Private Sub txtParcial_Change(Index As Integer)
    lblPorc(Index).caption = val(txtParcial(index).Text) * 20 / 100
End Sub

Salu2
« Última modificación: Junio 26, 2007, 12:33:19 por Tughack » En línea
Rexix
Colaborador
*****
Desconectado Desconectado

Mensajes: 482


xoy del rojo, ex un xentimiento no puedo parar!!


Ver Perfil Email
« Respuesta #2 en: Junio 26, 2007, 09:11:21 »

buenas, primero agradecerte por haberme sacado de dudas...

con lo del select case se me habia ocurrido pero me habia hecho un nudo en la cabeza  y no supe como convocar index y ya vi que no tiene ciencia...

tambien si fue un errror tonto el mio al olvidarme de especificar la propiedad del lbporc.....

ya corregi el code y me funciona ahora a la perfeccion..

lo ultimo que quisiera es que miraran y me dieran si es posible mejores recomendaciones para mejorar la efectividad y disminuir redundancias en mi estilo.. ya que como he dicho soy muy novato en este lenguaje y hay varias cosas que todavia me confunden...

gracias y hasta luego:

code:
Código:
//este code calcula la nota definitiva
Option Explicit
Dim txt1, txt2, txt3, txt4, txt5, result As Double

Private Sub btCalcular_Click()
  lbPorc(5).Caption = txt1 + txt2 + txt3 + txt4 + txt5
End Sub

Private Sub txtParcial_Change(Index As Integer)
 Select Case Index
 Case 0:
   lbPorc(0).Caption = Val(txtParcial(0).Text) * 20 / 100
   txt1 = Val(txtParcial(0).Text) * 20 / 100
 Case 1:
   lbPorc(1).Caption = Val(txtParcial(1).Text) * 20 / 100
   txt2 = Val(txtParcial(1).Text) * 20 / 100
 Case 2:
   lbPorc(2).Caption = Val(txtParcial(2).Text) * 30 / 100
   txt3 = Val(txtParcial(2).Text) * 30 / 100
 Case 3:
   lbPorc(3).Caption = Val(txtParcial(3).Text) * 20 / 100
   txt4 = Val(txtParcial(3).Text) * 20 / 100
 Case 4:
   lbPorc(4).Caption = Val(txtParcial(4).Text) * 10 / 100
   txt5 = Val(txtParcial(4).Text) * 10 / 100
 End Select
 
End Sub
En línea



my page:
http://usuarios.lycos.es/r71xn942

problemas para Recordar tus contraseñas? aqui tienes la solucion
http://foro.el-hacker.com/index.php/topic,122732.0.html
sNipeR-
Visitante
« Respuesta #3 en: Junio 27, 2007, 03:39:42 »
Ola

Como ya te havia dicho no hay razon para usares esas variables txt1, txt2 etc...

Puedes hacerlo desde los texts o los labels...

Otra cosa, seria bueno k ya k estas poniendo los tag controls k los pusieras correctamente.

Mira esto:

http://foro.el-hacker.com/visual-basic-y-net/control-tags-t76042.0.html

Salu2
En línea
Rexix
Colaborador
*****
Desconectado Desconectado

Mensajes: 482


xoy del rojo, ex un xentimiento no puedo parar!!


Ver Perfil Email
« Respuesta #4 en: Junio 29, 2007, 11:57:22 »

oye, gracias por las recomendaciones...

lastimosamente no me funciona el link Sad

espero y porfavor puedas volvermelo a poner correctamente ya que de verdad necesito mejores nociones para mejorar mi tecnica de programacion con respecto a este lenguaje.

byes  Grin
En línea



my page:
http://usuarios.lycos.es/r71xn942

problemas para Recordar tus contraseñas? aqui tienes la solucion
http://foro.el-hacker.com/index.php/topic,122732.0.html
sNipeR-
Visitante
« Respuesta #5 en: Junio 30, 2007, 05:52:53 »
Si parece k los links han sido arreglados...

http://foro.el-hacker.com/index.php/topic,76042.0.html

Salu2
En línea
Rexix
Colaborador
*****
Desconectado Desconectado

Mensajes: 482


xoy del rojo, ex un xentimiento no puedo parar!!


Ver Perfil Email
« Respuesta #6 en: Julio 05, 2007, 12:32:16 »

buenas, por aqui he vuelto Grin

es que he buscado por todos lados y no puedo encontrar el control common dialog y no puedo encontrarlo...

haber que me pueden recomendar...

salu2 Grin
En línea



my page:
http://usuarios.lycos.es/r71xn942

problemas para Recordar tus contraseñas? aqui tienes la solucion
http://foro.el-hacker.com/index.php/topic,122732.0.html
placa4
Habitual
*****
Desconectado Desconectado

Mensajes: 166



Ver Perfil
« Respuesta #7 en: Julio 05, 2007, 12:42:15 »
En línea
No se que firma poner... Espera, si esto ya es una firma, ¡una metafirma!
Sh4k4
.
Colaborador
*****
Desconectado Desconectado

Mensajes: 563


SHAKA


Ver Perfil WWW
« Respuesta #8 en: Julio 06, 2007, 10:19:47 »
En línea
Arayashiki
Rexix
Colaborador
*****
Desconectado Desconectado

Mensajes: 482


xoy del rojo, ex un xentimiento no puedo parar!!


Ver Perfil Email
« Respuesta #9 en: Julio 06, 2007, 11:18:07 »

muchas gracias.....

un problem facilmente resuelto...

el link que me pasaste sh4k4 esta muy bueno lo voy a estudiar....

salu2 Grin
En línea



my page:
http://usuarios.lycos.es/r71xn942

problemas para Recordar tus contraseñas? aqui tienes la solucion
http://foro.el-hacker.com/index.php/topic,122732.0.html
Sh4k4
.
Colaborador
*****
Desconectado Desconectado

Mensajes: 563


SHAKA


Ver Perfil WWW
« Respuesta #10 en: Julio 06, 2007, 07:37:03 »
De nada Rexixtente!! lo prometido el codigo del modulo de clase, para no usar el commondialog ocx:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=699&lngWId=1

Su uso es facil solo llamen las funciones OpenDialog y SaveDialog acompleten los valores y listo!!! su EXE pesara 1 poquito mas pero definitivamente mejor que no cargar una ocx....saludoz HOM!  Cool

PD:"y las demas librerias?? jeje"
En línea
Arayashiki
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: problema novato!! « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.6 | SMF © 2006-2007, Simple Machines LLC