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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Juego] Tragamonedas.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Juego] Tragamonedas.  (Leído 7,232 veces)
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
[Juego] Tragamonedas.
« en: 5 Noviembre 2010, 18:49 pm »

HOLA!!!

Hola, hoy les traigo un tragamonedas, lo programe hoy asi que puede ser que tenga algun que otro bug, digan si encuentran :D.

Es asi:



El codigo:
Código
  1. Private tabla(15) As Byte
  2. Private DETENER As Boolean
  3. Private LINEAS As Byte
  4. Private MONEDAS As Boolean
  5. Private DINERO As Double
  6. Private DIB2(15) As Byte 'REPRESENTA LOS DIBUJOS EN CODIGO
  7. Private BASE(3) As Integer
  8. Dim CODIGO As String
  9. Dim LIN As String
  10. Dim DIN As Integer
  11. Dim RESTA As Byte
  12.  
  13.  
  14. Private Sub Form_Load()
  15. LINEAS = 1
  16. DINERO = 100
  17. MONEDAS = False
  18. Dim x As Byte
  19. For x = 1 To 5
  20. tabla(x) = x
  21. If x >= 2 Then tabla(x + 4) = x
  22. If x >= 3 Then tabla(x + 7) = x
  23. If x >= 4 Then tabla(x + 9) = x
  24. Next
  25. tabla(15) = 5
  26. End Sub
  27.  
  28.  
  29. Private Sub Go_Click()
  30. Dim AP As Byte ' apuesta
  31. AP = LINEAS
  32. If MONEDAS = True Then AP = LINEAS * 2
  33. If AP <= DINERO Then
  34. Girar.Interval = 30
  35. STOPTIM.Interval = 1000
  36. Go.Enabled = False
  37. Else
  38. MsgBox "Estas apostando mas de lo que tienes", , "Atencion"
  39. End If
  40. End Sub
  41.  
  42. Private Sub Girar_Timer()
  43. Randomize
  44.    Dim x As Byte
  45.    Dim VUELTA As Byte ' REPRESENTA LA CANTIDAD DE VECES QUE MANDO UN DIBUJO ARRIBA
  46.    For x = 0 To 14
  47.        DIB1(x).Top = DIB1(x).Top + 150
  48.        If DIB1(x).Top >= 2430 Then
  49.            VUELTA = VUELTA + 1
  50.            DIB1(x).Top = -1330
  51.            If DETENER = True Then Girar.Interval = 0
  52.            RAN = tabla(1 + Int(Rnd() * 14))
  53.            DIB1(x).Picture = LoadPicture(App.Path & "/Images/T (" & RAN & ").jpg")
  54.            DIB2(x) = RAN
  55.            BASE(VUELTA) = x - 1
  56.            If BASE(VUELTA) = -1 Then BASE(VUELTA) = 4
  57.            If BASE(VUELTA) = 4 Then BASE(VUELTA) = 9
  58.            If BASE(VUELTA) = 9 Then BASE(VUELTA) = 14
  59.        End If
  60.    Next
  61.    VUELTA = 0
  62.    If DETENER = True And Girar.Interval = 0 Then
  63.        DETENER = False
  64.        Call Calcular
  65.    End If
  66. End Sub
  67.  
  68. Private Sub MAS_Click()
  69. LBLLIN.Caption = Trim(Str(Val(Mid(LBLLIN.Caption, 1, 1)) + 1)) & " LINEAS"
  70. If LBLLIN.Caption = "6 LINEAS" Then LBLLIN.Caption = "5 LINEAS"
  71. LINEAS = Str(Val(Mid(LBLLIN.Caption, 1, 1)))
  72. End Sub
  73.  
  74. Private Sub MENOS_Click()
  75. LBLLIN.Caption = Trim(Str(Val(Mid(LBLLIN.Caption, 1, 1)) - 1)) & " LINEAS"
  76. If LBLLIN.Caption = "0 LINEAS" Then LBLLIN.Caption = "1 LINEA"
  77. If LBLLIN.Caption = "1 LINEAS" Then LBLLIN.Caption = "1 LINEA"
  78. LINEAS = Str(Val(Mid(LBLLIN.Caption, 1, 1)))
  79. End Sub
  80.  
  81. Private Sub Option1_Click(Index As Integer)
  82. MONEDAS = False
  83. If Index = 1 Then MONEDAS = True
  84. End Sub
  85.  
  86. Private Sub STOPTIM_Timer()
  87. STOPTIM.Interval = 0
  88. StopX.Enabled = True
  89. End Sub
  90.  
  91. Private Sub StopX_Click()
  92. DETENER = True
  93. Go.Enabled = True
  94. StopX.Enabled = False
  95. End Sub
  96.  
  97. Private Sub Calcular()
  98. CODIGO = ""
  99. DIN = 0
  100. 'HORIZONTALES
  101. For x = 0 To 2
  102.    If x = 0 Then
  103.        CODIGO = CODIGO & DIB2(BASE(1) - x) & DIB2(BASE(2) - x) & DIB2(BASE(3) - x)
  104.    ElseIf x = 1 Then
  105.        If BASE(1) = 0 Then
  106.        CODIGO = DIB2(4) & DIB2(9) & DIB2(14) & CODIGO
  107.        Else
  108.        CODIGO = DIB2(BASE(1) - x) & DIB2(BASE(2) - x) & DIB2(BASE(3) - x) & CODIGO
  109.        End If
  110.    ElseIf x = 2 Then
  111.        If BASE(1) = 0 Then
  112.        CODIGO = CODIGO & DIB2(3) & DIB2(8) & DIB2(13)
  113.        ElseIf BASE(1) = 1 Then
  114.        CODIGO = CODIGO & DIB2(4) & DIB2(9) & DIB2(14)
  115.        Else
  116.        CODIGO = CODIGO & DIB2(BASE(1) - x) & DIB2(BASE(2) - x) & DIB2(BASE(3) - x)
  117.        End If
  118.    End If
  119. Next
  120. 'DIAGONAL 1
  121. If BASE(1) = 0 Then
  122.    CODIGO = CODIGO & DIB2(3) & DIB2(9) & DIB2(10)
  123. ElseIf BASE(1) = 1 Then
  124.    CODIGO = CODIGO & DIB2(4) & DIB2(5) & DIB2(11)
  125. ElseIf BASE(1) = 2 Then
  126.    CODIGO = CODIGO & DIB2(0) & DIB2(6) & DIB2(12)
  127. ElseIf BASE(1) = 3 Then
  128.    CODIGO = CODIGO & DIB2(1) & DIB2(7) & DIB2(13)
  129. ElseIf BASE(1) = 4 Then
  130.    CODIGO = CODIGO & DIB2(2) & DIB2(8) & DIB2(14)
  131. End If
  132. 'DIAGONAL 2
  133. If BASE(1) = 0 Then
  134.    CODIGO = CODIGO & DIB2(0) & DIB2(9) & DIB2(13)
  135. ElseIf BASE(1) = 1 Then
  136.    CODIGO = CODIGO & DIB2(1) & DIB2(5) & DIB2(14)
  137. ElseIf BASE(1) = 2 Then
  138.    CODIGO = CODIGO & DIB2(2) & DIB2(6) & DIB2(10)
  139. ElseIf BASE(1) = 3 Then
  140.    CODIGO = CODIGO & DIB2(3) & DIB2(7) & DIB2(11)
  141. ElseIf BASE(1) = 4 Then
  142.    CODIGO = CODIGO & DIB2(4) & DIB2(8) & DIB2(12)
  143. End If
  144. For x = 0 To LINEAS - 1
  145.    LIN = Mid(CODIGO, x * 3 + 1, 3)
  146.    If LIN = "111" Then DIN = DIN + 2000
  147.    If LIN = "222" Then DIN = DIN + 200
  148.    If LIN = "333" Then DIN = DIN + 50
  149.    If LIN = "444" Then DIN = DIN + 30
  150.    If LIN = "555" Then DIN = DIN + 10
  151.    Dim Y As Byte
  152.    If Not LIN = "555" And (Mid(LIN, 1, 2) = "55" Or Mid(LIN, 2, 2) = "55") Then DIN = DIN + 5
  153. Next
  154. If MONEDAS = True Then DIN = DIN * 2
  155. RESTA = LINEAS
  156. If MONEDAS = True Then RESTA = LINEAS * 2
  157. DINERO = DINERO + DIN - RESTA
  158. lbldin.Caption = "$ " & DINERO
  159. End Sub
  160.  

Source con el ejecutable:

Descargar URL:
http://www.gigasize.com/get.php?d=mkrb3z3ylyb

Mirror:
http://hotfile.com/dl/80628928/841f839/Tragamonedas.rar.html

GRACIAS POR LEER!!!


En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
trampa en tragamonedas « 1 2 3 4 5 »
Foro Libre
=AzTLaN= 44 102,112 Último mensaje 6 Octubre 2011, 23:20 pm
por netbios_hack1111111j
hack tragamonedas? « 1 2 3 4 5 »
Hacking
Kase 42 116,671 Último mensaje 2 Agosto 2019, 20:24 pm
por torrealba2719
Por favor,ayuda con tragamonedas britanica en flash
Juegos y Consolas
gamesuruguay 0 2,300 Último mensaje 20 Marzo 2012, 07:25 am
por gamesuruguay
.Net C# Tragamonedas
.NET (C#, VB.NET, ASP)
01munrra 5 6,667 Último mensaje 4 Agosto 2016, 06:21 am
por 01munrra
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines