Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - reeyesg

#11
Ummm tienes razon a lo que me dices, pero sigo sin entender... porq los text todos son individuales.. no se como haria para que todos hicieran la misma funcion cn un solo codigo,, es a lo que me quiero dar a entender. :c
#12
Claro asi es mas facil porq lo estas haciendo para la consola nativa, pero lo que ando haciendo es para interfaz grafica de java.. si fuera por consola nativa uff mas rapido!!.. o si no,, tendre q copiar 10 veces lo mismo de la primera..
#13
Java / [AYUDA] Pequeño programa de notas
6 Mayo 2015, 17:33 PM
Buenos dias, vengo a uds a pedirle una pqueña mano.. me mandaron a hacer un programa en JAVA q Lea 10 notas y diga cual aprobo, reprobo o sobresalio, ya probe con una nota y me va bien.. pero el problema esta en que no se como hacer para correr con 10 notas no tengo ni minima idea :s aqui mi avance

Código (java) [Seleccionar]
String n1= this.Nota1.getText();
    if(n1.equals(""))
    {
        JOptionPane.showMessageDialog(null, "Introduzca la Nota");
    }else{
     double num1= Double.parseDouble(n1);
     
     if (num1<=5.4){
         this.Estado1.setText("Reprobado");
     }
     else if((num1>=5.5) && (num1<=9.4))
     {
              this.Estado1.setText("Aprobado");
     }else{
                 this.Estado1.setText("Sobresaliste");
         
         
     }
       
    }


Una ayuda con eso por favor, gracias de antemano! :P
#14
Código (vb) [Seleccionar]
Dim matriz(2, 2) As Integer
Dim fila, columna As Integer
Dim x As Integer

Private Sub Command1_Click()
x = 0
For fila = 0 To 2
   For columna = 0 To 2
       matriz(columna, fila) = InputBox("ingrese numero:", "ingreso")
       Txt_Casillas(x) = matriz(columna, filas)
       x = x + 1
   
   Next columna
Next fila

End Sub



Aja es lo mas parecido esta matriz es con numero, pero estos numeros se ingresan, lo k yo kisiera es k sean con letras y aleatorias alguna ayuda?
#15
Ve la idea k tengo es esta,, CREAR unos botones .. y con otro boton k me genere letras aleatorias a esos botones, pero no consigo como hacer eso! :s .. pork ya de ahi tooooodo es mas facil para mi solo necesito eso
#16
Buenos dias, bueno vengo cn otro proyecto, me mandaron a hacer un proyecto del juego de blackberrys Word Mole, me imagino k lo han escuchado.. y kisiera algunas ideas de como resolverlo, graaacias de antemano en lo k tnga mi primer adelanto posteo .. OBVIEN LAS LETRAS "K" SE ME DAÑO LA LETRA "CU" DE MI TECLADO
#17
La verdad no se q hacer ya.. solo hice q funcionara para q suba y cuando llegue vuelva a iniciar.. tambn hice el de q vaya a la izquierda y derecha pero no logro.. para q vuelva a su posicion inicial.. el carro se me desaparece..

Este me va bn para q vaya al centro
Código (vb) [Seleccionar]
If (Image2.Visible = True Or Image3.Visible = True) Then
    Shape1.Top = Shape1.Top - 1800

ElseIf Image1.Visible = True Then
    Shape1.Top = Shape1.Top - 0


Este es para cuando llegue cuente el carro y regrese a su posicion inicial:
Código (vb) [Seleccionar]
Private Sub Label1_Change()

If Shape1.Top = -960 Then 'posicion de llegada del carro
Label2.Caption = Label2 + 1 'Contador
Shape1.Top = 6240 'Posicion inicial del carro
End If


me va bn hasta ahiii.. pero cuando pongo los q cruzan.. el carro no me vuelve a la posicion inicial.. quisiera mas ayuda porfavor
#18
Buenas vengo a revivir el post.. porq quisieraaa una ayuda ya q es lo unico q me falta
bueno quisiera mover ese shape.. aleatoriamente hacia arriba a la derecha e izquierda.. y q terminado el recorrido vuelva a su lugar podrian ayudarme porfa.. ya se como moverlos pero mas no se como hacerlo aleatorio

#19
Cita de: ivancea96 en 11 Noviembre 2014, 23:02 PM
Con Rnd() sacas un número aleatorio 0 <= X < 1. Puedes usarlo para aleatorizar la dirección que tomará el coche.

Te diría que tabules el código, y que le pongas nombres más intuitivos a las variables. Pero bueno, eso ya es cosa tuya.

Por cierto, en el enunciado pone que los semáforos tendrán 4 luces.

sii lo de las luces lo se,, pero si uno le pone el rnd().. es para q vayan a la derecha, izquierda o siga derecho.. y ahi se podria ir pa otros lados jajajaja,, pero bueno tratare de hacerlo asi como me dices aunq no se mucho.. espero q me ayuden mas
#20
Código (vb) [Seleccionar]

Dim a As Integer
Dim tiempo As Integer
Private Sub Command1_Click()
a = 0
Timer1.Enabled = True
Timer1.Interval = 1000
tiempo = InputBox("Escriba el tiempo de Simulacion del Semaforo", "Simulacion de Semaforo")
Label1.Caption = tiempo

End Sub

Private Sub Timer1_Timer()
a = a + 1
If a = 1 Then
Image1.Visible = True   'Luz Roja
Image2.Visible = False  'Luz Amarilla
Image3.Visible = False  'Luz Verde
Image4.Visible = False  'Luz Roja
Image5.Visible = True   'Luz Amarilla
Image6.Visible = False  'Luz Verde
End If
If a = 7 Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = True
End If
If a = 12 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = True
Image5.Visible = False
Image6.Visible = False
End If
If a = 14 Then
a = 0
End If
Label1.Caption = Label1.Caption - 1
If Label1.Caption < 1 Then
Timer1.Enabled = False
End If
End Sub


Eso es lo poco que e hecho.. estan lo de insertar el tiempo de cuanto durara la simulacion.. el cambio de luces.. faltaria el de mover los carros aleatoriamente.. porq ta tngo este otro codigo q es el q hara q se muevan los carros pero no se como se hara aleatorio q vayan a la derecha izquierda o derecho


Código (vb) [Seleccionar]
if(image2.visible =true or image3.visible=true) then 'cuando muestre la luz amarilla y verde se mueve

imageCarro.left=imagecarro.left+20 '20 es la velocidad q se movera el carro

elseif image1.visible=true then ' cuando se pone la luz roja

imagecarro.left=imagecarro.ledt+0 ' la velocidad es 0 porq se detiene

end if


espero su ayuda