Mensajes

mmm, me has dejado repillo =P, lo unico de array ( es arreglo creo , no toy muy seguro) que vi fue en java y no entendi nada. vere bien lo que me planteas, y revisare los tutoriales que tengo para ver algo ams sobre arrays

muchas gracias

saludos

disculpa, en el psot se me olvido mencionar que habia leido ese enlace xD, pero no entendi muxo =S, por eso de ahi postie =P.

lo revisare nuevamente, muchas gracias

ola de nuevo, disculpen las molestias pero me han encomendado otra tarea, y toy corto de conocimientos. me encomendaron un BINGO ( aka en chile le decimos BINGO, pero con la imagen sabran de que se trata) y pensando antes de tirarme a hacerlo, se me vino altiro una complicacion que tendria, la cual es que tengo que hacer el mismo random en todas las casillas : EJ: en la columna B tengo que hacer int (rnd*15)+1 y el problema de esto es que se me pueden repetir numeros = en varias casillas, he intentado validarlas o hacer comparaciones mediante bucles o instrucciones iterativas que segun yo el codigo que llevo hasta aora me debiera servir y no debiesen repetirse numeros.

acontinuacion coloco la imagen del formulario

http://img73.imageshack.us/my.php?image=bingolh8.jpg

desde el boton "Empezar", se ejecutan los random y las validacion que hice.

el codigo es el siguiente:

Private Sub btEmepzar_Click()
    Randomize
    lbNumero1.Caption = Int(Rnd * 15) + 1
    lbNumero2.Caption = Int(Rnd * 15) + 1
    If Val(lbNumero1.Caption) = Val(lbNumero2.Caption) Then
       Do While Val(lbNumero1.Caption) = Val(lbNumero2.Caption)
       lbNumero2.Caption = Int(Rnd * 15) + 1
       Loop
    End If
    Randomize
    lbNumero3.Caption = Int(Rnd * 15) + 1
    If Val(lbNumero3.Caption) = Val(lbNumero2.Caption) And Val(lbNumero3.Caption) = Val(lbNumero1) Then
       Do While Val(lbNumero3.Caption) = Val(lbNumero2.Caption) And Val(lbNumero3.Caption) = Val(lbNumero1.Caption)
       lbNumero3.Caption = Int(Rnd * 15) + 1
       Loop
    End If
    Randomize
    lbNumero4.Caption = Int(Rnd * 15) + 1
        If Val(lbNumero4.Caption) = Val(lbNumero3.Caption) Then
            Do While Val(lbNumero4.Caption) = Val(lbNumero3.Caption)
            lbNumero4.Caption = Int(Rnd * 15) + 1
            Loop
        End If
        If Val(lbNumero4.Caption) = Val(lbNumero2.Caption) Then
            Do While Val(lbNumero4.Caption) = Val(lbNumero2.Caption)
            lbNumero4.Caption = Int(Rnd * 15) + 1
            Loop
        End If
        If Val(lbNumero4.Caption) = Val(lbNumero1.Caption) Then
            Do While Val(lbNumero4.Caption) = Val(lbNumero1.Caption)
            lbNumero4.Caption = Int(Rnd * 15) + 1
            Loop
        End If
    Randomize
    lbNumero5.Caption = Int(Rnd * 15) + 1
        If Val(lbNumero5.Caption) = Val(lbNumero4.Caption) Then
            Do While Val(lbNumero5.Caption) = Val(lbNumero4.Caption)
            lbNumero5.Caption = Int(Rnd * 15) + 1
            Loop
        End If
        If Val(lbNumero5.Caption) = Val(lbNumero3.Caption) Then
            Do While Val(lbNumero5.Caption) = Val(lbNumero3.Caption)
            lbNumero5.Caption = Int(Rnd * 15) + 1
            Loop
        End If
        If Val(lbNumero5.Caption) = Val(lbNumero2.Caption) Then
            Do While Val(lbNumero5.Caption) = Val(lbNumero2.Caption)
            lbNumero5.Caption = Int(Rnd * 15) + 1
            Loop
        End If
        If Val(lbNumero5.Caption) = Val(lbNumero1.Caption) Then
            Do While Val(lbNumero5.Caption) = Val(lbNumero1.Caption)
            lbNumero5.Caption = Int(Rnd * 15) + 1
            Loop
        End If
           
como estoy probando, solo hice asta el lbnumero5, que es la ultima casilla de la columna B.
el problema, bueno ya lo plantee, se me repiten numeros en distintas casillas.

si pueden ayudarme porfavor =), que quero ir puliendo desde un principio el juego y esto me tiene atascado.

de ante mano muchas gracias

saludos

ola  denuevo, disucla men la tardanza, t cuento, entregue el programa, la nota aun nome la dan, pero dentro de lo poco que cachaba lo deje bien validado y todo para que el profe no lesiara botandolo. como le puse musica al juego y si subo el exe no la escucharas, subi a MU la carpeta del trabajo con los audios, para que tu lo rutes y lo veas ( mi profe ocupaba otra cosa pa reproducir sonidos con WMP, algo de add.path, yo solo en la propiedad URL le pegaba la ruta), asi que aqui t dejo el link

http://www.megaupload.com/?d=D585Z9F6

para que lo veas, este no sera el unico trabajo que me toque, asi que si puedes decirme si ta bien, errores y esas cosas para ir corrigiendo, lo del idioma, me kedo grande al final, = taba contra el tiempo, no era algo que pedia el trabajo pero queria hacerlo =S, y lo del add.path, que aun no kaxo bn como funciona.



saludos men y gracias


PD: los temas estan en las rutas de cada objeto de WMP, asi que sabras altiro cual tema es de cual frm. los frm con temas son : Juego1, Juego2, Menu y Load1 y load( mismo tema para ambos)

gracias men por la respuesta, bueno me puse a probar lo que me dijistes y hice lo sgte:

cree un modulo y le puse lo sgte:

Sub Cambiar_Ingles2()
   
    FrmAcerca.btVolveratras4.Caption = "Main Menu"
    frmAprender.btTutorialmodo1.Caption = "How To Play Faerum"
    frmAprender.btTutorialmodo2.Caption = "How To Play Fangh"
    frmAprender.btVolveratras3.Caption = "Main Menu"
    FrmComienzo.lbEntrar.Caption = "Enter"
    frmJuego1.btMayor1.Caption = "Bigger"
    frmJuego1.btMayor2.Caption = "Bigger"
    frmJuego1.btMayor3.Caption = "Bigger"
    frmJuego1.btMayor4.Caption = "Bigger"
    frmJuego1.btMenor1.Caption = "Minor"
    frmJuego1.btMenor2.Caption = "Minor"
    frmJuego1.btMenor3.Caption = "Minor"
    frmJuego1.btMenor4.Caption = "Minor"
    frmJuego1.btCambiar.Caption = "Play Fangh"
    frmJuego1.btVolveralmenu.Caption = "Main Menu"
    frmJuego1.btVolverajugar.Caption = "Play Again"
    frmJuego2.btJuego1.Caption = "First Game"
    frmJuego2.btJuego2.Caption = "Second Game"
    frmJuego2.btJuego3.Caption = "Thirth Game"
    frmJuego2.btJuego4.Caption = "Fourth Game"
    frmJuego2.btJugar1.Caption = "Play"
    frmJuego2.btJugar2.Caption = "Play"
    frmJuego2.btJugar3.Caption = "Play"
    frmJuego2.btJugar4.Caption = "Play"
    frmJuego2.btVolverajugar.Caption = "Play Again"
    frmJuego2.btCambiar.Caption = "Play Faerum"
    frmJuego2.btVolveralmenu.Caption = "Main Menu"
    frmLoad.btCancelar.Caption = "Cancel"
    frmLoad.lbCargando.Caption = "Loading"
    frmLoad2.btCancelar.Caption = "Cancel"
    frmLoad2.lbCargando.Caption = "Loading"
    FrmMenu.btJugar.Caption = "SinglePlayer"
    FrmMenu.btOpciones.Caption = "Options"
    FrmMenu.btAprender.Caption = "How To Play"
    FrmMenu.btMultiplayer.Caption = "Multiplayer"
    FrmMenu.btAcerca.Caption = "About Me"
    FrmMenu.btSalir.Caption = "Quit"
    frmModos.btModo1.Caption = "Play Faerum"
    frmModos.btModo2.Caption = "Play Fangh"
    frmModos.btVolveralmenu.Caption = "Main Menu"
    FrmMultiplayer.btJugaronline.Caption = "Game Online"
    FrmMultiplayer.btJugarRed.Caption = "Network"
    FrmMultiplayer.btVolveralmenu.Caption = "Main Menu"
    frmOpciones.btEspañol.Caption = "Spanish"
    frmOpciones.btIngles.Caption = "English"
    frmOpciones.btVolveralmenu.Caption = "Main Menu"
    FrmTutorialmodo.btVolveralmenu.Caption = "Main Menu"
    frmTutorialmodo1.btVolveralmenu.Caption = "Main Menu"
    FrmMenu.Show
    Unload frmOpciones
   
End Sub

Sub Cambiar_Español()
   
   en este es lo mismo que arriva pero al español.

la Sub Cambiar_Ingles2() la llamo desde el evento click de un boton, pero pasa lo sguiente. se me abren las dos modalidades del juego automaticamente en dos ventanas distintas, con el idioma en ingles pero yo al vuelver menu principal ( mediante un boton back del jeugo) esta todo en ingles, pero despues despues
de el menu voy al juego denuevo y el idioma a cambiado denuevo a español.
esta medio enredao por lo que pondre unas imagenes con la secuencia:


al momento de cambiar a ingles

http://img294.imageshack.us/my.php?image=hicimosclickrt5.jpg

despues de cambiar a ingles

http://img264.imageshack.us/my.php?image=despuesdelclickty5.jpg

desde el menu inicio que estaba en ingles nos fuimos a singleplayer

http://img403.imageshack.us/my.php?image=desdeelmenualsingleplayhy1.jpg

luego en el load antes del juego que debiera haber estado en ingles

http://img294.imageshack.us/my.php?image=loadantesdeljuegoyq8.jpg

el juego en si pero en español

http://img294.imageshack.us/my.php?image=juego1rl4.jpg


es raro lo que pasa, lo del menu pasa porke despues de llamar la subrutina de ingles dice que lo lleve al menu, pero de psaita se abren los dos juegos y eso es lo que no se por que pasa.

alomejor no hice lo que me dijistes en el post anterior.

saludos y gracias

muchas gracias men por la respuesta, sabes lo del (-1) es por que la carta de arriba resta ala de abajo(textbox).

EJ: carta - texbox = 150 - 50(ingresado por el user)= 100

pero podia pasar que el textbox fuera mayor ala carta, por ende seria una resta asi:

EJ: carta - textbox = 50 - 150 = -100.

ese - 100 se agrega ala parte de la formula:

puntaje= puntaje - ( resultado). en el primer caso resultado es + yen el segundo es -, por ende se suman.

bueno pero el detalle no taba ahi, estaba en que tenia que validar la variable cada juego., por que en el load del frm se inicializa en 1000, el primero funciona.

EJ: la resta fue 1000 - 200( carta - texbox)= 800

pero en la segunda jugada puntaje sigue valiendo 1000 poke en el codigo no se actualiza y toma el del principio y se veia que sumaba poke pasaba esto

jugada 2

EJ: resta final  1000- 150 (carta - trext box)= 850

por eso se veia como que sumaba.

muchas gracias = por la ayuda, era la ultima parte del codigo que me faltaba, asike esta terminado, aora keda amononarlo namas.

una consulta queria hacer = , como puedo hacer que  al apretar un boton me kambie los formularios a ingles, ej: un frm options con un boton ingles.

me dijeron por ahi que podia hacer un modulo con 2 variables globales ( ingles y español) y hacer las subrutinas de ingles y español en cada frm.

bueno si pueden ayudarme con eso, osea una idea, yo despues me la mateo =)..

grax de antemano

saludos

ola a todos

bueno les cuento, toy tudiando tecnico en computacion e informatica y estoy en el ramo de programacion visual. la encontre reentretenida, me paso horas en un trabajo que me dieron, que e shacer un juego de cartas en dos modalidades, y estoy aproblemado con el codigo se podria decir, pondre una foto del juego para que les pueda explicar mejor de que se trata:

http://img518.imageshack.us/my.php?image=dibujovd4.jpg

el juego consiste en que la persona colo un valor asta 250 ( eso no lo he validado aun :S, me urge mas lo otro) , en donde ese valor tiene que aproximarse lo mas posible al de arriva que tiene como maximo 250 ( Carta = Val(Int(Rnd * 250) + 1)), luego ambos numeros se restan y la diferencia se le resta al puntaje global de abajo, la gracia es que al final la persona quede con el mayor puntaje posible.

el problema que se me suscito fue que en algunas jugadas el puntaje de abajo se me suma. por ej: despues de la primera jugada el puntaje global quedo en 860 y despues juego en la segunda y me puee aparecer 960, sumandome la 2º jugada.

Objetos

las cartas se llaman: txCarta1, txCarta2, txCarta3, txCarta4.
los texbox se llaman: txValor1, txValor2, txValor3, txValor4.

declaraciones:

Dim Carta As Integer
Dim Carta1 As Integer
Dim Carta2 As Integer
Dim Carta3 As Integer
Dim Puntaje As Integer
Dim Resultado As Integer

* al principio declare 1 sola ( carta) pero pense que si declaraba varias podria funcionar

codigo de btJugar1

Private Sub btJugar1_Click(Index As Integer)
Randomize
Carta = Val(Int(Rnd * 250) + 1)
txCarta1.Text = Carta
txCarta1.Visible = True
btJuego1.BackColor = &HFFC0C0
Resultado = Carta - txValor1.Text
If Resultado < 0 Then
Resultado = Resultado * -1
Puntaje = Puntaje - Resultado
lbScore.Caption = Puntaje
'lbScore.Caption = Puntaje - Resultado
Else
lbScore.Caption = Puntaje - Resultado

End If

txValor1.Enabled = False

End Sub


Codigo btJugar2

Private Sub btJugar2_Click(Index As Integer)
Randomize
Carta1 = Val(Int(Rnd * 250) + 1)
txCarta2.Text = Carta1
txCarta2.Visible = True
btJuego2.BackColor = &HFFC0C0
Resultado = Carta1 - txValor2.Text
If Resultado < 0 Then
Resultado = Resultado * -1
punntaje = Puntaje - Resultado
'lbScore.Caption = Puntaje - Resultado
lbScore.Caption = Puntaje
Else
lbScore.Caption = Puntaje - Resultado
End If
txValor2.Enabled = False

End Sub

Codigo btJugar3

Private Sub btJugar3_Click(Index As Integer)
Randomize
Carta2 = Val(Int(Rnd * 250) + 1)
txCarta3.Text = Carta2
txCarta3.Visible = True
btJuego3.BackColor = &HFFC0C0
Resultado = Carta2 - txValor3.Text
If Resultado < 0 Then
Resultado = Resultado * -1
Puntaje = Puntaje - Resultado
lbScore.Caption = Puntaje
'lbScore.Caption = Puntaje - Resultado
Else
lbScore.Caption = Puntaje - Resultado
End If
txValor3.Enabled = False

End Sub


Codigo btJugar4

Private Sub btJugar4_Click(Index As Integer)
Randomize
Carta3 = Val(Int(Rnd * 250) + 1)
txCarta4.Text = Carta3
txCarta4.Visible = True
btJuego4.BackColor = &HFFC0C0
Resultado = Carta3 - txValor4.Text
If Resultado < 0 Then
Resultado = Resultado * -1
Puntaje = Puntaje - Resultado
lbScore.Caption = Puntaje
'lbScore.Caption = Puntaje - Resultado
Else
lbScore.Caption = Puntaje - Resultado
End If
txValor4.Enabled = False

End Sub


esop serian, disculpen lo extenso, pero creo que si dejo todo detallado, sera mas facil que me puedan ayudar.
de antemano muchas gracias y disculpen lo malito del diseño, eske soy nuevo en esto de la programacion en general.

saludos