Realizar un video de entre 30 segundos y 1 minuto. Pueden aparecer los autores. Las imágenes deben ser tomadas de YouTube.

Debe relatar:

- Lo mas divertido (escolar) del año
- Lo mas aburrido (escolar) del año
- Lo mas dificil de TIC y en general (un tema, una clase, un proyecto)
- Lo mas interesante de TIC y en general (un tema, una clase, un proyecto)

No hacer nombres, solo mencionar materias. Publicarlo en YouTube y en el Campus (despues vemos como)
Showing posts with label Visual Basic Ascensor. Show all posts
Showing posts with label Visual Basic Ascensor. Show all posts

Thursday, October 30, 2008

Ascensor 3 (Melu)


Private Sub cinco_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"
End Sub


Private Sub Command1_Click()
asce.Top = 480
a.Caption = "5"
b.Caption = "5"
c.Caption = "5"
d.Caption = "5"
e.Caption = "5"
f.Caption = "5"
g.Caption = "5"
End Sub


Private Sub Command2_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
End Sub


Private Sub Command3_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
End Sub


Private Sub Command4_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
End Sub


Private Sub Command5_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
End Sub


Private Sub Command6_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
End Sub


Private Sub cuatro_Click()
asce.Top = 1080
a.Caption = "4"
b.Caption = "4"
c.Caption = "4"
d.Caption = "4"
e.Caption = "4"
f.Caption = "4"
g.Caption = "4"
End Sub


Private Sub luz_Click()
If asce.FillColor = vbWhite Then
asce.FillColor = vbBlack
Else
If asce.FillColor = vbBlack Then
asce.FillColor = vbWhite
End If
End If
End Sub


Private Sub pb_Click()
asce.Top = 3480
a.Caption = "PB"
b.Caption = "PB"
c.Caption = "PB"
d.Caption = "PB"
e.Caption = "PB"
f.Caption = "PB"
g.Caption = "PB"
End Sub


Private Sub ss_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
End Sub


Private Sub dos_Click()
asce.Top = 2280
a.Caption = "2"
b.Caption = "2"
c.Caption = "2"
d.Caption = "2"
e.Caption = "2"
f.Caption = "2"
g.Caption = "2"
End Sub


Private Sub SSS_Click()
asce.Top = 4080
a.Caption = "SS"
b.Caption = "SS"
c.Caption = "SS"
d.Caption = "SS"
e.Caption = "SS"
f.Caption = "SS"
g.Caption = "SS"
End Sub

Private Sub stop_Click()

uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
ss.Enabled = False
pb.Enabled = False
luz.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
SSS.Enabled = False
End Sub


Private Sub tres_Click()
asce.Top = 1680
a.Caption = "3"
b.Caption = "3"
c.Caption = "3"
d.Caption = "3"
e.Caption = "3"
f.Caption = "3"
g.Caption = "3"
End Sub


Private Sub uno_Click()
asce.Top = 2880
a.Caption = "1"
b.Caption = "1"
c.Caption = "1"
d.Caption = "1"
e.Caption = "1"
f.Caption = "1"
g.Caption = "1"
End Sub
Posted by at No comments:
Labels: , ,

Friday, October 24, 2008

Ascensor (por Pau)




Private Sub cinco_Click()
ascen.Top = 480
numero.Caption = "5"
nrito(0) = "5"
nrito(1) = "5"
nrito(2) = "5"
nrito(3) = "5"
nrito(5) = "5"
nrito(6) = "5"
nrito(7) = "5"
ccinco(0).Caption = Val(ccinco(0).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1

End Sub

Private Sub cincoo_Click(Index As Integer)
ascen.Top = 480
numero.Caption = "5"
nrito(0) = "5"
nrito(1) = "5"
nrito(2) = "5"
nrito(3) = "5"
nrito(5) = "5"
nrito(6) = "5"
nrito(7) = "5"
ccinco(0).Caption = Val(ccinco(0).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub cuatro_Click()
ascen.Top = 1320
nrito(0) = "4"
numero.Caption = "4"
nrito(1) = "4"
nrito(2) = "4"
nrito(3) = "4"
nrito(5) = "4"
nrito(6) = "4"
nrito(7) = "4"
ccuatro(8).Caption = Val(ccuatro(8).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub cuatroo_Click(Index As Integer)
ascen.Top = 1320
nrito(0) = "4"
numero.Caption = "4"
nrito(1) = "4"
nrito(2) = "4"
nrito(3) = "4"
nrito(5) = "4"
nrito(6) = "4"
nrito(7) = "4"
ccuatro(8).Caption = Val(ccuatro(8).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub dos_Click()
ascen.Top = 3000
numero.Caption = "2"
nrito(0) = "2"
nrito(1) = "2"
nrito(2) = "2"
nrito(3) = "2"
nrito(5) = "2"
nrito(6) = "2"
nrito(7) = "2"
cdos(6).Caption = Val(cdos(6).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub doss_Click(Index As Integer)
ascen.Top = 3000
numero.Caption = "2"
nrito(0) = "2"
nrito(1) = "2"
nrito(2) = "2"
nrito(3) = "2"
nrito(5) = "2"
nrito(6) = "2"
nrito(7) = "2"
cdos(6).Caption = Val(cdos(6).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub luz_Click()
If ascen.FillColor = vbBlack Then
ascen.FillColor = vbWhite
Else
ascen.FillColor = vbBlack
End If
End Sub

Private Sub pb_Click()
ascen.Top = 4680
nrito(0) = "PB"
nrito(1) = "PB"
nrito(2) = "PB"
nrito(3) = "PB"
nrito(5) = "PB"
nrito(6) = "PB"
nrito(7) = "PB"
numero.Caption = "PB"
cpb(4).Caption = Val(cpb(4).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub pbb_Click(Index As Integer)
ascen.Top = 4680
nrito(0) = "PB"
nrito(1) = "PB"
nrito(2) = "PB"
nrito(3) = "PB"
nrito(5) = "PB"
nrito(6) = "PB"
nrito(7) = "PB"
numero.Caption = "PB"
cpb(4).Caption = Val(cpb(4).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub sss_Click(Index As Integer)
ascen.Top = 5520
nrito(0) = "SS"
nrito(1) = "SS"
nrito(2) = "SS"
nrito(3) = "SS"
nrito(5) = "SS"
nrito(6) = "SS"
nrito(7) = "SS"
numero.Caption = "SS"
css(3).Caption = Val(css(3).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub


Private Sub stop_Click()
If cuatro.Enabled = True Then
cinco.Enabled = False
cuatro.Enabled = False
tres.Enabled = False
dos.Enabled = False
uno.Enabled = False
pb.Enabled = False
subsuelo.Enabled = False
cincoo(0).Enabled = False
cuatroo(9).Enabled = False
tress(8).Enabled = False
doss(7).Enabled = False
unoo(6).Enabled = False
pbb(5).Enabled = False
sss(4).Enabled = False
luz.Enabled = False
Else
cinco.Enabled = True
cuatro.Enabled = True
tres.Enabled = True
dos.Enabled = True
uno.Enabled = True
pb.Enabled = True
subsuelo.Enabled = True
cincoo(0).Enabled = True
cuatroo(9).Enabled = True
tress(8).Enabled = True
doss(7).Enabled = True
unoo(6).Enabled = True
pbb(5).Enabled = True
sss(4).Enabled = True
luz.Enabled = True
End If
End Sub


Private Sub subsuelo_Click()
ascen.Top = 5520
nrito(0) = "SS"
nrito(1) = "SS"
nrito(2) = "SS"
nrito(3) = "SS"
nrito(5) = "SS"
nrito(6) = "SS"
nrito(7) = "SS"
numero.Caption = "SS"
css(3).Caption = Val(css(3).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub tres_Click()
ascen.Top = 2160
numero.Caption = "3"
nrito(0) = "3"
nrito(1) = "3"
nrito(2) = "3"
nrito(3) = "3"
nrito(5) = "3"
nrito(6) = "3"
nrito(7) = "3"
ctres(7).Caption = Val(ctres(7).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub tress_Click(Index As Integer)
ascen.Top = 2160
numero.Caption = "3"
nrito(0) = "3"
nrito(1) = "3"
nrito(2) = "3"
nrito(3) = "3"
nrito(5) = "3"
nrito(6) = "3"
nrito(7) = "3"
ctres(7).Caption = Val(ctres(7).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub uno_Click()
ascen.Top = 3840
nrito(0) = "1"
nrito(1) = "1"
nrito(2) = "1"
nrito(3) = "1"
nrito(5) = "1"
nrito(6) = "1"
nrito(7) = "1"
numero.Caption = "1"
cuno(5).Caption = Val(cuno(5).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub

Private Sub unoo_Click(Index As Integer)
ascen.Top = 3840
nrito(0) = "1"
nrito(1) = "1"
nrito(2) = "1"
nrito(3) = "1"
nrito(5) = "1"
nrito(6) = "1"
nrito(7) = "1"
numero.Caption = "1"
cuno(5).Caption = Val(cuno(5).Caption) + 1
cuenta.Caption = Val(cuenta.Caption) + 1
End Sub
Posted by at No comments:
Labels: ,

Thursday, October 16, 2008

Visual Basic Ascensor (Ariel .M.)


Private Sub cinco_Click()
Text1.Text = ""
Text1.Visible = True
Label1.Visible = True
Command1.Visible = True
End Sub

Private Sub boton5_Click()
Text1.Text = ""
Text1.Visible = True
Label1.Visible = True
Command1.Visible = True
End Sub

Private Sub boton4_Click()
ascensor.Top = 2045
End Sub

Private Sub boton2_Click()
ascensor.Top = 3725
End Sub

Private Sub botonp_Click()
ascensor.Top = 5400
End Sub

Private Sub botons_Click()
ascensor.Top = 6230
End Sub

Private Sub boton3_Click()
ascensor.Top = 2880
End Sub

Private Sub boton1_Click()
ascensor.Top = 4565
End Sub

Private Sub Command1_Click()
If Text1.Text = "plipluncho" Then
ascensor.Top = 1200
Text1.Visible = False
Label1.Visible = False
Command1.Visible = False
End If

End Sub

Private Sub cuatro_Click()
ascensor.Top = 2045
End Sub

Private Sub dos_Click()
ascensor.Top = 3725
End Sub

Private Sub planta_Click()
ascensor.Top = 5400
End Sub

Private Sub sub_Click()
ascensor.Top = 6230
End Sub

Private Sub tres_Click()
ascensor.Top = 2880
End Sub

Private Sub uno_Click()
ascensor.Top = 4565
End Sub
Posted by at No comments:
Labels: ,
Subscribe to: Posts (Atom)