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)

Friday, September 12, 2008

visual basic 3(por cami)

Private Sub anterior_Click()
nrocanal.Caption = Auxiliar.Caption
End Sub

Private Sub canalmas_Click()
If tvcatv.Caption = "TV" Then
If nrocanal.Caption < caption =" nrocanal.Caption" caption =" 0" caption =" nrocanal.Caption" caption =" 0"> 0 Then
nrocanal.Caption = nrocanal.Caption - 1
Else
If tvcatv.Caption = "catv" Then
nrocanal.Caption = 120
Else
nrocanal.Caption = 13
End If
End If
End Sub

Private Sub CATVTV_Click()
If tvcatv.Caption = "TV" Then
tvcatv.Caption = "CATV"
Else
tvcatv.Caption = "TV"
End If
End Sub

Private Sub cero_Click()
nrocanal.Caption = "0"
End Sub

Private Sub cinco_Click()
Auxiliar.Caption = Auxiliar.Caption + "5"
End Sub

Private Sub cuatro_Click()
Auxiliar.Caption = Auxiliar.Caption + "4"
End Sub
Private Sub dos_Click()
Auxiliar.Caption = Auxiliar.Caption + "2"
End Sub

Private Sub enter_Click()
If Auxiliar.Caption < 129 Then
aux2.Caption = nrocanal.Caption
nrocanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
Else
Auxiliar.Caption = ""
End If
End Sub

Private Sub mas_Click(Index As Integer)
pantalla.Left = pantalla.Left + 100
nrocanal.Left = nrocanal.Left + 100
onoff.Left = onoff.Left + 100
tvcatv.Left = tvcatv.Left + 100
pantalla2.Left = pantalla2.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
nrocanal.Top = nrocanal.Top + 100
onoff.Top = onoff.Top + 100
tvcatv.Top = tvcatv.Top + 100
pantalla2.Top = pantalla2.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
End Sub

Private Sub menos_Click()
pantalla.Left = pantalla.Left - 100
nrocanal.Left = nrocanal.Left - 100
onoff.Left = onoff.Left - 100
tvcatv.Left = tvcatv.Left - 100
pantalla2.Left = pantalla2.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
End Sub

Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
nrocanal.Top = nrocanal.Top - 100
onoff.Top = onoff.Top - 100
tvcatv.Top = tvcatv.Top - 100
pantalla2.Top = pantalla2.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
End Sub

Private Sub nueve_Click()
Auxiliar.Caption = Auxiliar.Caption + "9"
End Sub

Private Sub ocho_Click()
Auxiliar.Caption = Auxiliar.Caption + "8"
End Sub
Private Sub OFF_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
cero.Enabled = False
End Sub

Private Sub offon_Click()
nrocanal.Caption = ""
tvcatv.Caption = ""
aux2.Caption = ""
If onoff.BackColor = vbRed Then
onoff.BackColor = vbBlack
uno.Enabled = False
dos.Enabled = False
tres.Enabled = False
cuatro.Enabled = False
cinco.Enabled = False
seis.Enabled = False
siete.Enabled = False
ocho.Enabled = False
nueve.Enabled = False
Else
aux2.Caption = "0"
nrocanal.Caption = "0"
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
End If
End Sub

Private Sub ON_Click()
nrocanal.Caption = "0"
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
uno.Enabled = True
dos.Enabled = True
tres.Enabled = True
cuatro.Enabled = True
cinco.Enabled = True
seis.Enabled = True
siete.Enabled = True
ocho.Enabled = True
nueve.Enabled = True
cero.Enabled = True
End Sub

Private Sub seis_Click()
Auxiliar.Caption = Auxiliar.Caption + "6"
End Sub

Private Sub siete_Click()
Auxiliar.Caption = Auxiliar.Caption + "7"
End Sub
Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub

Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

No comments: