comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[CrapCode] Codigo que tira rayos por los ojos.

  • 0 Respuestas
  • 1622 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 634
  • Actividad:
    5%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Febrero 07, 2013, 09:18:02 am »
HOLA!!!

Estaba aburrido, y como nadie contesta el reto hice esto:
Código: Visual Basic
  1.     'armen un form con:
  2.    ' 2 shapes
  3.    ' 2 lines
  4.    ' 1 timer
  5.    ' y denle a f5
  6.    
  7.     Private Sub Form_Load()
  8.        Me.ScaleMode = vbPixels
  9.        Me.ScaleHeight = 600
  10.        Me.ScaleWidth = 800
  11.        Shape1.Top = Me.ScaleHeight / 2 - 200
  12.        Shape2.Top = Me.ScaleHeight / 2 - 200
  13.        Shape1.Left = Me.ScaleWidth / 2 - 150
  14.        Shape2.Left = Me.ScaleWidth / 2 + 150
  15.        Shape1.Shape = 2
  16.        Shape2.Shape = 2
  17.        Shape1.Width = 150
  18.        Shape2.Width = 150
  19.        Shape1.Height = 300
  20.        Shape2.Height = 300
  21.        Line1.BorderColor = &HFF&
  22.        Line2.BorderColor = &HFF&
  23.        Line1.X1 = Shape1.Left + Shape1.Width / 2
  24.        Line1.Y1 = Shape1.Top + Shape1.Height / 2
  25.        Line2.X1 = Shape2.Left + Shape2.Width / 2
  26.        Line2.Y1 = Shape2.Top + Shape2.Height / 2
  27.        Timer1.Interval = 100
  28.     End Sub
  29.      
  30.     Private Sub Timer1_Timer()
  31.        Randomize
  32.        neg = 1
  33.        If Rnd() * 2 > 1 Then neg = -1
  34.        Line1.X2 = Shape1.Left + Shape1.Width / 2 + Rnd() * 300 * neg
  35.        neg = 1
  36.        If Rnd() * 2 > 1 Then neg = -1
  37.        Line1.Y2 = Shape1.Top + Shape1.Height / 2 + Rnd() * 300 * neg
  38.        neg = 1
  39.        If Rnd() * 2 > 1 Then neg = -1
  40.        Line2.X2 = Shape2.Left + Shape2.Width / 2 + Rnd() * 300 * neg
  41.        neg = 1
  42.        If Rnd() * 2 > 1 Then neg = -1
  43.        Line2.Y2 = Shape2.Top + Shape2.Height / 2 + Rnd() * 300 * neg
  44.     End Sub
  45.      

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!



EAN13: Verificar y generar codigo de control

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3277
Último mensaje Julio 26, 2010, 04:22:33 pm
por ANTRAX
Compactar una base de datos, usando código VB

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1452
Último mensaje Julio 26, 2010, 10:47:07 am
por ANTRAX
Dibujar Codigo de Barras (Bar Code)

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1282
Último mensaje Julio 26, 2010, 11:01:14 am
por ANTRAX
Leer un Tag de un código HTML

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1193
Último mensaje Julio 26, 2010, 01:54:51 pm
por ANTRAX