vacaciones(mapa)

las vaciones de invierno

Las vacaciones

_LUNES 23 DE JULIO: fui a clases de teatro a las 6:00, el resto de día leí el sabueso de los baskerville
_MARTES 24 DE JULIO: ayude a trabajar a mi papá al negocio de el por la mañana, luego seguí leyendo la novela
_MIERCOLES 25 DE JULIO: ayude a trabajar a mi papá al negocio de el por la mañana y después me llevo a comer a un restaurante, seguí leyendo la novela
_JUEVES 26 DE JULIO: ayude a trabajar a mi papá al negocio de el por la mañana, y después fui a comer a lo de mi bobe, seguí leyendo la novela
_VIERNES 27 DE JULIO: me fui a lo de mi mamá, y compre los elementos para hacer un trabajo de grafica. Seguí leyendo la novela
_SABADO 28 DE JULIO: me levante tarde, fui un rato al negocio de mi papá, hable con mi hermana por teléfono y arreglamos de ir a pasear por santa fe (fuimos). , seguí leyendo la novela
_DOMINGO 29 DE JULIO: me quede toda la mañana en mi casa y a la tarde fui al cyber para hacer un trabajo de TIC, seguí leyendo la novela
_LUNES 30 DE JULIO: fui a clases de teatro a las 6:00, y nos dijeron que la obra que íbamos a representar era “Las nueve tías de Apolo”, seguí leyendo la novela
_MARTES 31 DE JULIO: ayude a trabajar a mi papá al negocio de el por la mañana, después me vino a buscar mi mamá y fuimos a comprar ropa, seguí leyendo la novela
_MIERCOLES 1 DE AGOSTO: con los materiales que había comprado el27 de julio, hice una maqueta para grafica, seguí leyendo la novela
_VIERNES 2 DE AGOSTO: termine el trabajo de grafica, y el resto del día mire la tele y leí el sabueso
_SABADO 3 DE AGOSTO: fuimos al cine con mi papá y mi hermana a ver “Shrek”, seguí leyendo la novela
_DOMINGO 4 DE AGOSTO: descanse todo el día, inclusive me permití no leer el sabueso de los basquerville!

Avance ,control

sus offon.click



if onoff.backcolor=vbred then

onoff.backcolor=vbblack

canalmas.enabled=false



else



onoff.backcolor=vbred

canalmas.enbled=true



end if





sub canalmas.click



if tvcatv.caption="tv" then

if nrocanal.caption>13 then

nrocanal.caption=1



else



nrocanal.caption=nrocanal.caption+1



end if

else



if nrocanal.caption>120 then

nrocanal.caption=1



else



if nro canal.caption=nrocanal.caption+1



endif

end sub

visual basic

Visual Basic

Sub canal mas-click
If
val(nro canal.caption)<13then caption="val(nrocanal.caption)+1" caption="1">1 then
Nrocanal.caption=val(nrocanal.caption)-1

Else
Nro canal.caption=13
End if
End sub

Sub bot tv catv.click
If tv catv.caption=”tv”then
Tvg catv.caption=”catv”
Else

Tvcatv.caption=”tv”
End if
End sub

Sub enter-click
If val(canal aux.caption)>13then
Canal aux.caption=””
Else

Nrocanal.caption=canal aux.caption
Canal aux.caption=””
End if
End sub

visual basic

VISUAL BASIC


Aux canal.caption=auxcanal.caption+”1”
End sub
Sub enter.click
Nro canal.caption=auxcanal.caption-“1”

Auxcanal.caption=””
End sub

Sub canal mas-click
Nro canal.caption=val(nro canal.caption)+1
End sub

Sub canal menos-click
Nro canal.caption=val(nrocanal.caption)-1
End sub

Apunte,visual basic,control

Indicaciones para programar cada botón del control ( algunos ):
_Sub tv on_"click" on-off.backcolor = vbred
end sub.
_Sub tv off_click
on-off.backcolor = "black"
end sub.
_Sub brillo más
pantalla.top=pantalla.top -100
end sub
_Sub brillo menos
pantalla.top=pantalla.top+100
end sub
_Sub tv.click
tv-catv.caption="tv"
end sub
_Sub uno_click
aux canal.caption=auxcanal.caption+"1"
end sub
(igual para los demas números)
_sub enter_click
nrocanal.caption=auxcanal.caption
auxcanal.caption=" "
end sub
_sub más_click
nrocanal.caption=val(nrocanal.caption)+1
end sub
_sub menos_click
nrocanal.caption=val(nrocanal.caption) -1
end sub
Indicaciones para las distintas propiedades:
Mover derecha o izquierda=
propiedad-------------left

Ancho=
propiedad-------------width

Labels=
propiedad-------------caption

Mover hacia arriba o abajo=
propiedad-------------top

Color=
propiedad-------------backcolor