Trabajo 1
Codigos
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB PictureBox1_MouseDown()
END
PUBLIC SUB btnarriba_Click()
PictureBox1.Y = PictureBox1.Y - 3
'btnarriba:funciona para mover la imagen hacia arriba
END
PUBLIC SUB btnderecha_Click()
PictureBox1.X = PictureBox1.X + 3
'btnderecha:funciona para mover la imagen hacia la derecha
END
PUBLIC SUB btnizquierda_Click()
PictureBox1.X = PictureBox1.X - 3
'btnizquierda:funciona para mover la imagen hacia la izquierda
END
PUBLIC SUB btnabajo_Click()
PictureBox1.y = PictureBox1.y + 3
'btnabajo:funciona para mover la imagen hacia abajo
END
PUBLIC SUB Timer1_Timer()
END
PUBLIC SUB Button2_Click()
PictureBox1.X = PictureBox1.X - 3
END
PUBLIC SUB Button3_Click()
PictureBox1.Y = PictureBox1.Y - 3
END
PUBLIC SUB Button4_Click()
PictureBox1.y = PictureBox1.y + 3
END
PUBLIC SUB Button1_Click()
PictureBox1.X = PictureBox1.X + 3
END
PUBLIC SUB tmrarriba_Timer()
tmrarriba.Enabled = TRUE
END
PUBLIC SUB tmrderecha_Timer()
tmrderecha.Enabled = TRUE
END
PUBLIC SUB tmrizquierda_Timer()
tmrizquierda.Enabled = TRUE
END
PUBLIC SUB tmrabajo_Timer()
tmrabajo.Enabled = TRUE
END
PUBLIC SUB btnizquierda1_Click()
PictureBox1.X = PictureBox1.X - 3
'btnizquierda:funciona para mover la imagen hacia izquierda
END
PUBLIC SUB btnderecha1_Click()
PictureBox1.X = PictureBox1.X + 3
'btnderecha:funciona para mover la imagen hacia derecha
END
PUBLIC SUB btnabajo1_Click()
PictureBox1.y = PictureBox1.y + 3
'btnabajo:funciona para mover la imagen hacia abajo
END
PUBLIC SUB btnarriba1_Click()
PictureBox1.Y = PictureBox1.Y - 3
'btnarriba:funciona para mover la imagen hacia arriba
END
PUBLIC SUB btnstop_Click()
btnstop.FALSE
END
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB PictureBox1_MouseDown()
END
PUBLIC SUB btnarriba_Click()
PictureBox1.Y = PictureBox1.Y - 3
'btnarriba:funciona para mover la imagen hacia arriba
END
PUBLIC SUB btnderecha_Click()
PictureBox1.X = PictureBox1.X + 3
'btnderecha:funciona para mover la imagen hacia la derecha
END
PUBLIC SUB btnizquierda_Click()
PictureBox1.X = PictureBox1.X - 3
'btnizquierda:funciona para mover la imagen hacia la izquierda
END
PUBLIC SUB btnabajo_Click()
PictureBox1.y = PictureBox1.y + 3
'btnabajo:funciona para mover la imagen hacia abajo
END
PUBLIC SUB Timer1_Timer()
END
PUBLIC SUB Button2_Click()
PictureBox1.X = PictureBox1.X - 3
END
PUBLIC SUB Button3_Click()
PictureBox1.Y = PictureBox1.Y - 3
END
PUBLIC SUB Button4_Click()
PictureBox1.y = PictureBox1.y + 3
END
PUBLIC SUB Button1_Click()
PictureBox1.X = PictureBox1.X + 3
END
PUBLIC SUB tmrarriba_Timer()
tmrarriba.Enabled = TRUE
END
PUBLIC SUB tmrderecha_Timer()
tmrderecha.Enabled = TRUE
END
PUBLIC SUB tmrizquierda_Timer()
tmrizquierda.Enabled = TRUE
END
PUBLIC SUB tmrabajo_Timer()
tmrabajo.Enabled = TRUE
END
PUBLIC SUB btnizquierda1_Click()
PictureBox1.X = PictureBox1.X - 3
'btnizquierda:funciona para mover la imagen hacia izquierda
END
PUBLIC SUB btnderecha1_Click()
PictureBox1.X = PictureBox1.X + 3
'btnderecha:funciona para mover la imagen hacia derecha
END
PUBLIC SUB btnabajo1_Click()
PictureBox1.y = PictureBox1.y + 3
'btnabajo:funciona para mover la imagen hacia abajo
END
PUBLIC SUB btnarriba1_Click()
PictureBox1.Y = PictureBox1.Y - 3
'btnarriba:funciona para mover la imagen hacia arriba
END
PUBLIC SUB btnstop_Click()
btnstop.FALSE
END