Apuntes de la clase del 29/6/06

En la clase de T.I.C. del día de la fecha, aprendimos algo muy importante:
Aprendimos a lograr que la maquina “razonara” por si misma con el “If” que, en mi opinión, es algo parecido a un condicional de Ingles:
“If” (si) esto es así y asa “Then” (Entonces) haz tal y tal cosa. “Else:” (De lo contrario) haz tal y tal otra. End If (Fin del condicional)

Asi vimos como programar para que al pasar canales con el boton de canal mas, al llegar al canal tope vuelva a 2. O si no como programar TV/CATV o ON/OFF.
Por ejemplo para programar el label de TV/CATV (En un solo boton) se usaría así:

If (Nombre del label de tv/catv).caption = “TV” Then
(Nombre del label de tv/catv).caption = “CATV”
Else: (Nombre del label de tv/catv).caption = “TV”
End If

O para programar el color del label de encendido y apagado (En un solo boton):

If (Nomre del label de on/off).(propiedad de color) = “(Codigo de color rojo)” Then
(Nomre del label de on/off).(propiedad de color) = “(Codigo de color Verde)”
Else: (Nomre del label de on/off).(propiedad de color) = “(Codigo de color rojo)”
End If

Asi le damos a la máquina la capacidad de diferenciar entre lo que debe hacer en un caso o en otro.

Esro tambien se puede relacionar para usar con el procesador de textos logrando que poner y sacar negrita, cursiva o subrayadose pueda hacer con un solo boton.

Quedarìa algo asi:

Negrita:

If Text.FontBold = False Then
Text.FonrBold = True
Else: Texr.FontBold = False
End IF

Cursiva:

If Text.FontItalic = False Then
Text.FonrItalic = True
Else: Texr.FontItalic = False
End IF

Subbrayado:

If Text.FontUnderline = False Then
Text.FontUnderline = True
Else: Texr.FontUnderline = False

End IF

De esta forma concluyo mis apuntes de hoy.

Ariel Sigaloff