apuntes-clase 6/7

Sub Uno_Click
Auxcanal.Caption = Auxcanal.Caption + "1"
End Sub

Sub Enter_Click
Canal.Caption = Auxcanal.Caption
Auxcanal.Caption = " "
End Sub

Sub Canalmas_Click
Canal.Caption = Val (Canal.Caption) + 1
End Sub

power point

apunte-clase 29/07

Sub Botonon_Click
Onoff.BackColor = vbRed
End Sub

Sub Botontv_Click
Tvcatv.Caption = "TV"
End Sub

Sub Botoncatv_Click
Tvcatv.Caption = "CATV"
End Sub

Sub Brillomas_Click
Pantalla.Top = Pantalla.Top - 100
Bajopantalla.Top = Bajopantalla.Top - 100
Tvcatv.Top = Tvcatv.Top - 100
Onoff.Top = Onoff.Top - 100
Canal.Top = Canal.Top - 100
End Sub

Sub Brillomenos_Click
Pantalla.Top = Pantalla.Top + 100
Bajopantalla.Top = Bajopantalla.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
Onoff.Top = Onoff.Top + 100
Canal.Top = Canal.Top + 100
End Sub
Sub Contrastemas_Click
Pantalla.Left = Pantalla.Left + 100
Bajopantalla.Left = Bajopantalla.Left + 100
Tvcatv.Left = Tvcatv.Left + 100
Onoff.Left = Onoff.Left + 100
Canal.Left = Canal.Left + 100
End Sub
Sub Contrastemenos_Click
Pantalla.Left = Pantalla.Left - 100
Bajopantalla.Left = Bajopantalla.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
Onoff.Left = Onoff.Left - 100
Canal.Left = Canal.Left - 100
End Sub
Sub Volumenmas_Click
Pantalla.Width = Pantalla.Width + 100
Bajopantalla.Width = Bajopantalla.Width + 100
End Sub

Sub Volumenmenos_Click
Pantalla.Width = Pantalla.Width - 100
Bajopantalla.Width = Bajopantalla.Width - 100
End Sub