elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Error----->"invalid outside procedure"
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Error----->"invalid outside procedure"  (Leído 4,062 veces)
USUARIO_DE_SOFTWARE_LIBRE

Desconectado Desconectado

Mensajes: 274


Ver Perfil WWW
Error----->"invalid outside procedure"
« en: 29 Diciembre 2005, 16:44 pm »

esoty haciendo un juego muy simple, cundo lo quiero compilar me salta este error: "invalid outside procedure"
el codigo que pongo es este:

Option Explicit
Dim vidas As Byte
vidas = 3

Private Sub Picture1_Click()
Picture1.Picture = LoadPicture(App.Path & _
"\1.gif")
End Sub

Private Sub Picture10_Click()
Picture10.Picture = LoadPicture(App.Path & _
"\3.gif")
End Sub

Private Sub Picture11_Click()
Picture11.Picture = LoadPicture(App.Path & _
"\2.gif")
End Sub

Private Sub Picture12_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture12.Picture = LoadPicture(App.Path & _
"\m1.gif")
End Sub

Private Sub Picture13_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture13.Picture = LoadPicture(App.Path & _
"\m2.gif")
End Sub

Private Sub Picture14_Click()
Picture14.Picture = LoadPicture(App.Path & _
"\5.gif")
End Sub

Private Sub Picture15_Click()
Picture15.Picture = LoadPicture(App.Path & _
"\4.gif")
End Sub

Private Sub Picture2_Click()
Picture2.Picture = LoadPicture(App.Path & _
"\6.gif")
End Sub

Private Sub Picture3_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture3.Picture = LoadPicture(App.Path & _
"\m3.gif")
End Sub

Private Sub Picture4_Click()
Picture4.Picture = LoadPicture(App.Path & _
"\7.gif")
End Sub

Private Sub Picture5_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture5.Picture = LoadPicture(App.Path & _
"\m4.gif")
End Sub

Private Sub Picture6_Click()
Picture6.Picture = LoadPicture(App.Path & _
"\9.gif")
End Sub

Private Sub Picture7_Click()
Picture7.Picture = LoadPicture(App.Path & _
"\8.gif")
End Sub

Private Sub Picture8_Click()
If vidas = 1 Then
MsgBox "Fin del juego", "No te quedan más vidas haz perdido"
Else
vidas -1
MsgBox "Mal!", "Perdiste una vidas, ahora tienes" & vidas
End If
Picture8.Picture = LoadPicture(App.Path & _
"\m5.gif")
End Sub

Private Sub Picture9_Click()
Picture9.Picture = LoadPicture(App.Path & _
"\10.gif")
End Sub

agradezco a quien me pueda dar una mano
saludos


En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Error----->"invalid outside procedure"
« Respuesta #1 en: 30 Diciembre 2005, 01:34 am »

Seria mucho mas facil que marques la linea donde aparece el error.

Gracias.


En línea

USUARIO_DE_SOFTWARE_LIBRE

Desconectado Desconectado

Mensajes: 274


Ver Perfil WWW
Re: Error----->"invalid outside procedure"
« Respuesta #2 en: 30 Diciembre 2005, 03:13 am »

tienes razon de olvide de eso, el error me lo marca cuando declaro  le doi el valor a la variable "vidas", me marca el 3
saludos
En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Error----->"invalid outside procedure"
« Respuesta #3 en: 30 Diciembre 2005, 06:20 am »

Ah ya entendi. Es porque solo le podes dar un valor a una variable en una funcion o sub funcion. Por ejemplo, en el Load de un Form (que es lo mas comun para estos casos).

Lo podes sulucionar moviendo ese Vidas = 3 al evento Form_Load.

Y otra observacion; estas poniendo Vida -1. Supongo que lo que estas tratando de hacer es restarle 1 al total de vidas, pero lo estas haciendo mal. El codigo correcto seria:
Código:
Vidas = Vidas - 1

Un saludo.
En línea

USUARIO_DE_SOFTWARE_LIBRE

Desconectado Desconectado

Mensajes: 274


Ver Perfil WWW
Re: Error----->"invalid outside procedure"
« Respuesta #4 en: 30 Diciembre 2005, 20:14 pm »

ahora me salta otro error, cuando el programa llama a la varible vidas me  dice que la variable no estña definida... ¡ pero si la declare en el el formulario (form_load) !!
como tendria que declarar esta variable???
En línea

Sancho.Mazorka


Desconectado Desconectado

Mensajes: 480


Gamer & Programador


Ver Perfil WWW
Re: Error----->"invalid outside procedure"
« Respuesta #5 en: 3 Enero 2006, 05:28 am »

intenta cambiarla el tipo no le pongas byte ponele otra como integer y no lo tenes que declarar en el form_load poruqe no te dejaria usarla en otro lado declarada asi como esta, esta bien arriba pone
Código:
dim vidas as integer
y si pones vidas = 3 estarias declarandola como constante y encima creo qeu esta mal al vidas = 3 declarada como habias dicho antes en el form_load ya que al principio va a ser 3 y la podes usar con el valor que tenga en el momento por cualquier procedimiento, ya que estamos de que es el juego de que se trata???
a mi no me funciona eso de
Código:
vidas =vidas 1
yo habia hecho en un timer seg = seg + 1 y simepre me qeudaba en uno el timer no las sumaba y estaba declarado el tipo de la variable y tambioen lo probe sin option explicit y nada, ahsta declare en forma global la variable y anda porque puede ser yo queria hacer un tipo reloj cuando se activara el timer iba a sumar de a uno (es la uinica forma que se hacer un reloj). Gracias y salu2.

PD: si no esta claro postealo y te lo hago un poco mas mejor  ;D. espero que eso solucione tu problema  ;)
Sancho Mazorka     :P
« Última modificación: 3 Enero 2006, 05:36 am por Sancho.Mazorka » En línea

Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html


Slasher-K


Desconectado Desconectado

Mensajes: 1.477


Ver Perfil
Re: Error----->"invalid outside procedure"
« Respuesta #6 en: 3 Enero 2006, 06:19 am »

intenta cambiarla el tipo no le pongas byte ponele otra como integer y no lo tenes que declarar en el form_load poruqe no te dejaria usarla en otro lado declarada asi como esta, esta bien arriba pone
Código:
dim vidas as integer
y si pones vidas = 3 estarias declarandola como constante y encima creo qeu esta mal al vidas = 3 declarada como habias dicho antes en el form_load ya que al principio va a ser 3 y la podes usar con el valor que tenga en el momento por cualquier procedimiento, ya que estamos de que es el juego de que se trata???
a mi no me funciona eso de
Código:
vidas =vidas 1
yo habia hecho en un timer seg = seg + 1 y simepre me qeudaba en uno el timer no las sumaba y estaba declarado el tipo de la variable y tambioen lo probe sin option explicit y nada, ahsta declare en forma global la variable y anda porque puede ser yo queria hacer un tipo reloj cuando se activara el timer iba a sumar de a uno (es la uinica forma que se hacer un reloj). Gracias y salu2.

PD: si no esta claro postealo y te lo hago un poco mas mejor  ;D. espero que eso solucione tu problema  ;)
Sancho Mazorka     :P

Mejor relee el tutorial porque tenés errores muy graves de conceptos básicos.

JoKker, tenés que declarar la variable en el sector de Declaraciones, arriba de todo del módulo antes de cualquier procedimiento.

Saludos.
En línea



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
Sancho.Mazorka


Desconectado Desconectado

Mensajes: 480


Gamer & Programador


Ver Perfil WWW
Re: Error----->"invalid outside procedure"
« Respuesta #7 en: 3 Enero 2006, 09:52 am »

mmm me dirias en que parte tengo errores o orrores si no me equivoco la primera parte se lo dije bien. talvez que no me doy cuenta o iinterprete mal todo. gracais por als correciones Slasher-K salu2.


sancho Mazorka    :P
En línea

Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html


karmany
Colaborador
***
Desconectado Desconectado

Mensajes: 1.599


Sueñas que sueñas


Ver Perfil WWW
Re: Error----->"invalid outside procedure"
« Respuesta #8 en: 3 Enero 2006, 12:50 pm »

Prueba a definir la vidas en un módulo de esta forma y siempre la tendrás definida en el proyecto:

Public vidas as integer
En línea

USUARIO_DE_SOFTWARE_LIBRE

Desconectado Desconectado

Mensajes: 274


Ver Perfil WWW
Re: Error----->"invalid outside procedure"
« Respuesta #9 en: 9 Enero 2006, 20:46 pm »

ya probe con el modulo, pero me marca lo mismo, me marca el 3...igual que antes...
gracias x la ayuda :'(
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Run-time error '5': Invalid procedure call or argument
Programación Visual Basic
suarex 7 11,828 Último mensaje 12 Mayo 2011, 19:50 pm
por suarex
HASP Emul PE en una máquina virtual: "Invalid protection key"
Ingeniería Inversa
pep_dj 4 2,770 Último mensaje 30 Septiembre 2013, 08:47 am
por pep_dj
Error leve en procedure SQL server 2012
Bases de Datos
lorblack 4 1,187 Último mensaje 7 Noviembre 2016, 19:45 pm
por lorblack
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines