Hola, yo soy muy nuevo en esto de programar y eh buscado mucho acerca de este tema. Nose si alguno de ustedes las conocen (creo que si), detodos modos voy a dejar algunas imagenes de como son.
Mi pregunta es si alguno conoce como programar alguna de estas maquinas o emularlas en la pc, uno de estos juegos ya lo eh visto emulado en el mame32, poreso pienso que se puede hacer, el tema es que no tengo idea como. Otro metodo que vi es que las ram son colocadas como una dim de memoria y no se usa el disco se ejecuta directo de la ram.
(http://slotsdirect.com/8liners/Tns/CHClassicMain1Bartn.jpg)(http://slotsdirect.com/8liners/Tns/Queen%20Bee%20sm.jpg)(http://slotsdirect.com/8liners/Tns/Monkey%20land%20Flyer%20sm.jpg)(http://slotsdirect.com/8liners/Tns/cherrymaster96-1tn.jpg)
La ultima de las imagenes es de la que tengo emulada pero me falta trabajar en la comunicacion con los puertos( control de pago, ingreso de crediditos, etc.
Bueno muchas gracias por todo
No entiendo lo que pides, no se si lo que quieres es hacer un tragamonedas o emularlo o que. Si lo quieres hacer es como todo paso a paso.
Lo que quiero hacer es una tragamonedas, y buscop informacion de los tipos de metodos que puede aver,¿me explico?
Emular rom, programarla, o cualquier tipo de informacion.
Es fácil.
Te haces un random con cada imagen y yasta...
Luego, a traves de if, vas haciendo las secuencias/algorritmos...
Por ejem, si la imagen X se repite en las tres columnas, la maquina me da X dinero...
Para el dinero puedes usar variables o lo que se te ocurra...
Cada vez que pulses el boton y hagas el random, perderás X dinero, y si ganas, añadiras dinero a esa variable...
Muchas gracias por tu aporte, me da una idea de lo que tengo que hacer. Detods modos agradeceria mas informacion, pj:
Como trabajar con el % de pago, cada cuanto paga y como paga, Si recauda 100 ¿como controlo lo que paga? creo que con IF tambien no? el tema es como lo paga, puede pagar la mitad toda junta o en partes 5, 25, 10, 10.
Perdon por tanta consulta es que realmente hace 1 semana que estoy aprendiendo a programar, comense por aprender Vb 6.0 y es en ese que trabajo por el momento ya que estoy tratando de aprender VB 2005. De modo que te agradeceria si te podras tomar la molestia de hacer un pequenio codio, para yo poder verlo y aprender, si queres subelo en forma de imagen( no tengo problema en escribir ) solo quiero aprender. por ultimo a que re referis con random ?
Muchas gracias
bueno a ver si este código te sirve para empezar, para este programa vas a ocupar:
1 CommandButton (Caption = "Prueba tu suerte")
1 arreglo de 5 Labels (label1(1), label1(2), label1(3), label1(4), label1(5))
5 timers (Interval = 100, Enabled = False)
Option Explicit
Dim n(1 To 5) As Integer
Private Sub Command1_Click()
Dim i As Long
n(1) = 0
n(2) = -1
n(3) = -1
n(4) = -1
n(5) = -1
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
Timer5.Enabled = True
End Sub
Private Sub Timer1_Timer()
Randomize
Label1(1).Caption = Int((9 * Rnd) + 1)
n(1) = n(1) + 1
If n(1) = 10 Then
Timer1.Enabled = False
Timer2.Enabled = True
n(2) = 0
End If
End Sub
Private Sub Timer2_Timer()
Randomize
Label1(2).Caption = Int((9 * Rnd) + 1)
If n(2) = -1 Then Exit Sub
n(2) = n(2) + 1
If n(2) = 10 Then
Timer2.Enabled = False
Timer3.Enabled = True
n(3) = 0
End If
End Sub
Private Sub Timer3_Timer()
Randomize
Label1(3).Caption = Int((9 * Rnd) + 1)
If n(3) = -1 Then Exit Sub
n(3) = n(3) + 1
If n(3) = 10 Then
Timer3.Enabled = False
Timer4.Enabled = True
n(4) = 0
End If
End Sub
Private Sub Timer4_Timer()
Randomize
Label1(4).Caption = Int((9 * Rnd) + 1)
If n(4) = -1 Then Exit Sub
n(4) = n(4) + 1
If n(4) = 10 Then
Timer4.Enabled = False
Timer5.Enabled = True
n(5) = 0
End If
End Sub
Private Sub Timer5_Timer()
Randomize
Label1(5).Caption = Int((9 * Rnd) + 1)
If n(5) = -1 Then Exit Sub
n(5) = n(5) + 1
If n(5) = 10 Then
Timer5.Enabled = False
If Label1(1).Caption = Label1(2).Caption And _
Label1(1).Caption = Label1(2).Caption And _
Label1(1).Caption = Label1(3).Caption And _
Label1(1).Caption = Label1(4).Caption Then
MsgBox "ganaste"
Else
MsgBox "suerte para la proxima"
End If
End If
End Sub
en este código uso un arreglo de 5 labels (label1) 5 timers y un commandbutton. lo que hace esque cuando le das click al commandbutton se habilitan los 5 timers y empiezan a generar números aleatotrios, con la variable "n" le digo cuando detenerse a cada Timer, en este caso cuando el timer1 ha generado 10 números se detiene y hace que el timer2 se detenga al haber generado otros 10 números y asi susesivamente.
Muchas gracias !!!! se me hace mucho mas claro el modo en que tengo que hacelo. Voy a intentar hacer algunas modificaciones y agregarle algunas cosas para ver que sale
;)