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
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ú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");
}
}
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
If (Image2.Visible = True Or Image3.Visible = True) Then
Shape1.Top = Shape1.Top - 1800
ElseIf Image1.Visible = True Then
Shape1.Top = Shape1.Top - 0
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
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.
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
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