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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Presentacion para Videojuego VBS+HTA
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Presentacion para Videojuego VBS+HTA  (Leído 1,672 veces)
John1Connor

Desconectado Desconectado

Mensajes: 11


El que no dice la verdad, es porque esta mintiendo


Ver Perfil
Presentacion para Videojuego VBS+HTA
« en: 24 Junio 2015, 09:47 am »

Que les parece?



La falta de WScript.Sleep en las aplicaciones html me hace hacer estas cosas raras:
Código
  1. Dim T
  2. T = 0
  3. Public Sub Presenta()
  4. Document.Body.Style.Cursor = "hand"
  5. Logos.src = "imagenes/logos/ramonscriptlogo.png"
  6. With Logos.Style
  7. .position = "Absolute"
  8. .display = "inline"
  9. .filter = "alpha(opacity=" & T & ")"
  10. .width = 230
  11. .height = 300
  12. .top = (Limpiar(Screen.Height) / 2) - (Limpiar(.height) / 2)
  13. .left = (Limpiar(Screen.Width) / 2) - (Limpiar(.width) / 2)
  14. Call Opacity()
  15. end with
  16. End SUb
  17.  
  18. Public Function Limpiar(s)
  19. Limpiar = Replace(s,"px","")
  20. End Function
  21.  
  22.  
  23.  
  24. Sub Opacity()
  25. if T = 100 Then
  26. Call BorrarUno()
  27. Else
  28. T = cdbl(T) + cdbl(1)
  29. Logos.Style.filter = "alpha(opacity=" & T & ")"
  30. TP = Window.SetTimeOut("Opacity()",50)
  31. end if
  32.  
  33. End Sub
  34.  
  35.  
  36. Sub BorrarUno()
  37. Logos.Style.filter = "alpha(opacity=0)"
  38. T = 0
  39. Logos.src = "imagenes/logos/foroeh.png"
  40. With Logos.Style
  41. .width = 513
  42. .height = 145
  43. .top = (Limpiar(Screen.Height) / 2) - (Limpiar(.height) / 2)
  44. .left = (Limpiar(Screen.Width) / 2) - (Limpiar(.width) / 2)
  45. Call OpacityDos()
  46. end with
  47. End SUb
  48.  
  49.  
  50. Sub OpacityDos()
  51. if T = 100 Then
  52. Call BorrarDos()
  53. Else
  54. T = cdbl(T) + cdbl(1)
  55. Logos.Style.filter = "alpha(opacity=" & T & ")"
  56. TP = Window.SetTimeOut("OpacityDos()",50)
  57. end if
  58. End Sub
  59.  
  60.  
  61. Sub BorrarDos()
  62. Logos.Style.filter = "alpha(opacity=0)"
  63. T = 0
  64. Logos.src = "imagenes/logos/oglogo.png"
  65. With Logos.Style
  66. .width = 450
  67. .height = 100
  68. .top = (Limpiar(Screen.Height) / 2) - (Limpiar(.height) / 2)
  69. .left = (Limpiar(Screen.Width) / 2) - (Limpiar(.width) / 2)
  70. Call OpacityTres()
  71. end with
  72. End SUb
  73.  
  74.  
  75. Sub OpacityTres()
  76. if T = 100 Then
  77. Call BorrarTres()
  78. Else
  79. T = cdbl(T) + cdbl(1)
  80. Logos.Style.filter = "alpha(opacity=" & T & ")"
  81. TP = Window.SetTimeOut("OpacityTres()",50)
  82. end if
  83. End SUb
  84.  
  85. Sub BorrarTres()
  86. Logos.Style.filter = "alpha(opacity=0)"
  87. T = 0
  88. Logos.src = "imagenes/logos/jclogo.png"
  89. With Logos.Style
  90. .width = 400
  91. .height = 36
  92. .top = (Limpiar(Screen.Height) / 2) - (Limpiar(.height) / 2)
  93. .left = (Limpiar(Screen.Width) / 2) - (Limpiar(.width) / 2)
  94. Call OpacityCuatro()
  95. end with
  96. End SUb
  97.  
  98. Sub OpacityCuatro()
  99. if T = 100 Then
  100. Call BorrarCuatro()
  101. Else
  102. T = cdbl(T) + cdbl(1)
  103. Logos.Style.filter = "alpha(opacity=" & T & ")"
  104. Logos.Style.Left = Limpiar(Logos.Style.Left) - (T / 50)
  105. TP = Window.SetTimeOut("OpacityCuatro()",20)
  106. end if
  107. End SUb
  108.  
  109.  
  110.  
  111. Sub BorrarCuatro()
  112. Logos.Style.filter = "alpha(opacity=0)"
  113. T = 0
  114. Logos.src = "imagenes/logos/plogo.png"
  115. With Logos.Style
  116. .width = 200
  117. .height = 30
  118. .top = (Limpiar(Screen.Height) / 2) + 50
  119. .left = (Limpiar(Screen.Width) / 2) - (Limpiar(.width) / 2)
  120. Call OpacityCinco()
  121. end with
  122. End SUb
  123.  
  124. Sub OpacityCinco()
  125. if T = 100 Then
  126. Call BorrarCinco()
  127. Else
  128. T = cdbl(T) + cdbl(1)
  129. Logos.Style.filter = "alpha(opacity=" & T & ")"
  130. Logos.Style.Left = Limpiar(Logos.Style.Left) + (T / 20)
  131. TP = Window.SetTimeOut("OpacityCinco()",50)
  132. end if
  133. End SUb
  134.  
  135.  
  136. Sub BorrarCinco()
  137. Logos.Style.filter = "alpha(opacity=0)"
  138. T = 0
  139. Logos.src = "imagenes/logos/logo.png"
  140. With Logos.Style
  141. .width = 692 / 2
  142. .height = 305 / 2
  143. .top = (Limpiar(Screen.Height) / 2) - (Limpiar(.height) / 2)
  144. .left = (Limpiar(Screen.Width) / 2) - (Limpiar(.width) / 2)
  145. Call OpacitySeis()
  146. end with
  147. End SUb
  148.  
  149. Sub OpacitySeis()
  150. if T = 100 Then
  151. Exit Sub
  152. Else
  153. T = cdbl(T) + (0.5)
  154. Logos.Style.filter = "alpha(opacity=" & T & ")"
  155. Logos.Style.Top = (Limpiar(Screen.Height) / 2) - (T)
  156. TP = Window.SetTimeOut("OpacitySeis()",10)
  157. end if
  158. End SUb
  159.  


Espero que les guste.
Saludos


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Videojuego de Saw para Octubre de 2009
Juegos y Consolas
Castiblanco 0 1,634 Último mensaje 1 Febrero 2008, 20:22 pm
por Castiblanco
¿Ideas para montaje / presentación de fotografías?
Diseño Gráfico
nichihack 9 16,499 Último mensaje 16 Septiembre 2010, 11:41 am
por nichihack
Presentación y Driver de video HD para XP
Dudas Generales
mekal 2 3,060 Último mensaje 22 Febrero 2012, 18:31 pm
por mekal
Un videojuego para tratar la depresión
Noticias
wolfbcn 0 1,316 Último mensaje 20 Abril 2012, 13:38 pm
por wolfbcn
Reclutamiento de Equipo para Creación de VideoJuego en 3D de Fantasía
Juegos y Consolas
Ali Baba 6 4,234 Último mensaje 28 Junio 2018, 21:22 pm
por assw1208
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines