|
Mostrar Mensajes
|
Páginas: [1]
|
1
|
Programación / Programación Visual Basic / Re: Accion sobre un array de controles (labels)
|
en: 25 Diciembre 2006, 22:26 pm
|
ei gentes, me ha surgido otro problemilla qe tiene qe ver con el codigo anterior. aver, yo qiero qe cuando el shape toqe un label cualqiera por la parte de arriba, el interruptor Xarr se encienda, y cuando no lo toqe, se apague. El codigo qe uso, aunqe para esto no me sirve es: Private Sub Timer1_Timer() Dim i As Integer For i = 0 To 19 If Shape1.Top <= Label1(i).Top + Label1(i).Height And Label1(i).Top <= Shape1.Top Then If Label1(i).Left <= Shape1.Left And Label1(i).Left + Label1(i).Width >= Shape1.Left + Shape1.Width Then Xarr = True else Xarr = False End If End If Next End Sub Esta vez la ecuación qe uso para qe avise cuando se tocan si qe esta bien (xDD, comprovada). El problema de este código es qe el interruptor solo se enciende cuando coinciden el shape el label de index, llamemoslo x. Como los labels estan esparcidos, no puede coincidir el shape con todos a la vez, por tanto el interruptor esta siempre apagado, nose si me explico. Bueno, aver si alguien me puede ayudar un pokillo con esto, porqe me faltan ideas.
|
|
|
2
|
Programación / Programación Visual Basic / Re: Accion sobre un array de controles (labels)
|
en: 24 Diciembre 2006, 18:50 pm
|
Lo he vuelto a revisar, tenia un problema en la ecuación, para qe salte el mensaje cuando se toqen, tu codigo ya me funciona, qeda así: Private Sub Timer1_Timer() For i = 0 To 15 If Shape1.Top > Label1(i).Top - Shape1.Height + 1 And Label1(i).Top + Label1(i).Height - 1 > Shape1.Top Then If Shape1.Left > Label1(i).Left - Shape1.Width + 1 And Label1(i).Left + Label1(i).Width - 1 > Shape1.Left Then MsgBox "OK" End If End If Next End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.Move X - 495 / 2, Y - 495 / 2 End Sub
Pero vamos, qe yo veo un poco chapuza tener qe ir contando todo el numero de labels hasta llegar al qe se toca cada 10 milesima de segundo (le he cambiado el intervalo de tiempo a 10, porqe sino en la 9 ya no saltaba nunca, y en la 8, solo a veces... De todas formas tiene qe aver algo mas sencillo para hacerlo, pero de todos modos gracias por las respuestas
|
|
|
3
|
Programación / Programación Visual Basic / Re: Accion sobre un array de controles (labels)
|
en: 24 Diciembre 2006, 18:21 pm
|
mmm.... no, no me sirve, no me da error, pero ignora cuando pasa por encima... el problema del codigo qe me has dado creo qe es qe el timer es unicamente de una milésima de segundo, y en cada milésima tiene qe comprobar los 10 uno a uno, por tanto aparte de qe senota qe se relentiza un poco, cada vex qe pasa una milésima, i pasa a ser 0 otra vez, por tanto no llega a comprobar las 20. no se puede poner, por ejemplo label1(0 to 19).top , o algo asi? tiene qe haber una forma mas facil, sin chapuzas...
|
|
|
4
|
Programación / Programación Visual Basic / Accion sobre un array de controles (labels)
|
en: 24 Diciembre 2006, 18:01 pm
|
Wenas a todos, vereis, eske estaba haciendo un juegecillo, donde un shape qe se mueve, y al tocar un label, "label1" (hay 20, index del 0 al 19) te salte un msgbox. Esto lo comprueba un timer con un interval de 1, y no me apetece escribir 20 codes iguales. Sin matriz, el code (para 1 label) sería: Código: Private Sub Timer1_Timer() If Shape1.Top >= Label1.Top And Shape1.Top + Shape1.Height <= Label1.Top + Label1.Height Then If Shape1.Left >= Label1.Left And Shape1.Left + Shape1.Width <= Label1.Left + Label1.Width Then MsgBox "OK" End If End If End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.Move X - 495 / 2, Y - 495 / 2 End Sub Pero no tengo mucha idea sobre matrices de controles, y nose qe hay qe poner junto con label1 para qe funcione con todos por igual... Sabeis como se haría? Gracias
|
|
|
5
|
Informática / Tutoriales - Documentación / Re: Crackear 9x/NT/2000/XP
|
en: 26 Noviembre 2005, 17:48 pm
|
tengo un cd de windows 2000 y lo he puesto iniciando el xp pero no me aparece nada de nada y el xp inicia normal como hago para iniciar la consola de reparacion del windows 2000 en el xp ?
Cuando inicias el PC, si pulsas supr. entras en la bios, ahí tienes que modificar la "boot secuence", que predeterminadamente te inicia primero la unidad A y luego la C, y tienes que poner que ponet primero el CD-ROM y luego la C. Luego le das a F10 y se reinicia el PC, y antes de que cargue el HDD, le das a Enter para entrar en la utilidad de instalación de Windows.
|
|
|
6
|
Informática / Tutoriales - Documentación / Re: TUTORIAL PROGRAMACION BAT
|
en: 29 Junio 2005, 11:44 am
|
ola me gustaria saber como crear un bat k m indike si hay algun virus en el sistema si es posible,si alguien sabe el codigo?????'' k lo ponga plisss. gracias. Aver, lo que quieres hacer se llama ANTIVIRUS, y en el mercado están por unos 40 euros (mejor bajarselos crackados, claro), así que dudo mucho que se pudieran con cuatro líneas de el bloc de notas. Lo que puedes hacer es decirle a uno que ya esté instalado que se ejecute. tambien puede postearlo en: http://foro.elhacker.net/index.php/topic,74832.0.html
|
|
|
7
|
Media / Juegos y Consolas / Crear objetos para el Sims
|
en: 28 Junio 2005, 15:30 pm
|
Hola, no sabía muy bien donde postear esto, y me decidí aquí. Mi pregunta es si alguien sabe de algún programa o alguna forma para crear objetos de los sims (*.iff) desde cero, sin usar objetos ya hechos.
Gracias
|
|
|
|
|
|
|