Control, por Bren

Codigo de calculadora, por Bren y Joy

Private Sub borrador_Click()
visor.Caption = " "
End Sub

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

Private Sub cuatro_Click()
visor.Caption = visor.Caption + "4"
End Sub

Private Sub dividido_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "/"
visor.Caption = " "
End Sub

Private Sub dos_Click()
visor.Caption = visor.Caption + "2"
End Sub

Private Sub igual_Click()
If auxiliardos.Caption = "+" Then
visor.Caption = Val(auxiliaruno.Caption) + Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "-" Then
visor.Caption = Val(auxiliaruno.Caption) - Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "/" Then
visor.Caption = Val(auxiliaruno.Caption) / Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "*" Then
visor.Caption = Val(auxiliaruno.Caption) * Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
End Sub


Private Sub mas_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "+"
visor.Caption = " "
End Sub

Private Sub menos_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "-"
visor.Caption = " "
End Sub

Private Sub multiplicar_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "*"
visor.Caption = " "
End Sub

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

Private Sub ocho_Click()
visor.Caption = visor.Caption + "8"
End Sub

Private Sub punto_Click()
visor.Caption = visor.Caption + "."
End Sub

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

Private Sub siete_Click()
visor.Caption = visor.Caption + "7"
End Sub

Private Sub tres_Click()
visor.Caption = visor.Caption + "3"
End Sub

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

Private Sub zero_Click()
visor.Caption = visor.Caption + "0"
End Sub

Captura del control:

avance de la clase (por brian)16/8

hasta ahora hice el anterior enter,canalmas y canal menos.

avance de la clase 16/8, (Juan Ignacio),

en la clase vimos como programar "canal mas"
el nuevo boton "canal ant"(anterior)
y el boton "enter"

avance de la clase del 16/8( por daiana)

vimos como programar el nuevo boton " canal ant" , para
volver al canal anterior.Para esto vimos como programar enter,
y este nuevo boton.

avance de la clase (por denu-emi)

Hasta ahora hice:
Modificar ONOFF
Modificar Sub_canalmas y Sub_canalmenos
Modificar Enter

Avance por veronica

daiana y yo no llegamos a hacer ningun boton por que aviamos copiado mal

SERIA BUENO QUE SE PONGAN AL DÍA, REVISADO LOS BLOGS DE LOS COMPAÑEROS

GUILLE

PD: AVISAR EL ERROR NO INVALIDA EL ERROR (MENOS CON FALTAS DE ORTOGRAFÍA)

daiana( avance de la clase 19/7)

hasta el momento; con mi compañera, hemos llegado a programar y a diseñar.( pero modificamos)

Programamos:
-contraste más y contraste menos
-catv
- tv
-onoff para cuando este apagada la television, todos los botones se desactiven
-numero de canal
-auxcanal
-canal más y canal menos para catv y asi cuando se llegue a 120 volver a 1.
-volumen más y volumen
-menosbrillo más y brillo menos
-tv on y tv off
-los nuemeros: (uno , dos , tres , cuatro , cinco , seis , siete , ocho , nueve y cero)
-enter
-tvcatv
-onoff.

Diseñamos:
- el modelo del control.
- el modelo de la pantalla.

Modificamos:
-onoff
- Sub_canalmas y Sub_canalmenos
-Enter.

avance de la clase (por brian) 19/7

Hasta ahora hice:
Modificar ONOFF
Modificar Sub_canalmas y Sub_canalmenos
Modificar Enter

visuial basic

Visual BasicSub

canal mas-clickIfval(nro canal.caption)<13then caption="val(nrocanal.caption)+1" caption="1">1 thenNrocanal.caption=val(nrocanal.caption)-1ElseNro canal.caption=13

End if

End subSub bot tv catv.clickIf tv catv.caption=”tv”thenTvg catv.caption=”catv”ElseTvcatv.caption=”tv”End if

End sub

Sub enter-clickIf val(canal aux.caption)>13thenCanal aux.caption=””ElseNrocanal.caption=canal aux.captionCanal aux.caption=””

End if

End sub

visual basic

VISUAL BASIC
Aux canal.caption=auxcanal.caption+”1”
End sub
Sub enter.clickNro canal.caption=auxcanal.caption-“1”
Auxcanal.caption=””
End sub
Sub canal mas-clickNro canal.caption=val(nro canal.caption)+1
End sub
Sub canal menos-clickNro canal.caption=val(nrocanal.caption)-1
End sub

visual basic

Indicaciones para programar cada botón del control ( algunos ):

_Sub tv on_"click" on-off.backcolor = vbredend sub.

_Sub tv off_clickon-off.backcolor = "black"end sub.

_Sub brillo máspantalla.top=pantalla.top -100end sub

_Sub brillo menospantalla.top=pantalla.top+100end sub

_Sub tv.clicktv-catv.caption="tv"end sub

_Sub uno_clickaux canal.caption=auxcanal.caption+"1"end sub(igual para los demas números)_sub enter_clicknrocanal.caption=auxcanal.captionauxcanal.caption=" "end sub_sub más_clicknrocanal.caption=val(nrocanal.caption)+1end sub_sub menos_clicknrocanal.caption=val(nrocanal.caption) -1end subIndicaciones para las distintas propiedades:Mover derecha o izquierda=propiedad-------------leftAncho=propiedad-------------widthLabels=propiedad-------------captionMover hacia arriba o abajo=propiedad-------------topColor=propiedad-------------backcolor

Avance de la clace 19/7, por Juan Ignacio

AUSENTE

Avance de la clase del 19/7 por Ary y Ezequiel

En la clase del 19 de julio programamos:
-canal mas y canal menos para catv para que lleguen a 120 y luego vuelvan a 1
-onoff para que cuando la tele este apagada se desactiven todos los botones de numeros , canal mas , canal menos y enter por medio de enabled.

control de avance(santiagon-gonza)

PRogramamos:
onoff en un boton que los botones no se puedan usar cuando estan apagados
tvcatv

Avance de Trabajo 19/7/07 (Por Robinson)

Hasta ahora hice:
Modificar ONOFF
Modificar Sub_canalmas y Sub_canalmenos
Modificar Enter

avance (por denu)

Hasta ahora con mi compañera de t.i.c,Emilia,hicimos:
-programamos los numeros del 0 al 9
-Enter
-On/Off (Del control remoto)
-Tv/Catv (Del control remoto)
-Contraste+
-Contraste-
-Brillo+
-Brillo-
-Volumen+
-Volumen-
-Canal+
-Canal-
- Aux canal
-On/Off (Del control remoto)
-Tv/ Catv (Del control remoto)
-Nº canal-La condicion de >13 (Para que cuando uno ponga un canal mayor que trece no se ponda en al Nº canal)
-La condicion de < 1 (Para que cuando uno ponga un cnal menor que uno no se ponga en el Nº canal)

Avance del trabajo por Ary y Ezequiel

En la clase del 12 de julio con mi compañero hemos logrado:
programe para que al apretar enter si en auxcanal es > que 13 se borre, de lo contrario que se ponga en numerocanal.
Programe un boton solo de onoff, un numero solo de catvtv , numero de canal mas y menos , el enter lo programe y tambien el 0 .

avanced de clase 12/7(por brian)

hasta ahora lo que hice fue:
_programe para que al apretar enter si en auxcanal es > que 13 se borre, de lo contrario que se ponga en numerocanal.
_Hice un solo boton para onoff.
_hice un solo boton para tvcatv.
_modifique canalmas y canalmenos.

Avance por veronica

Daiu y yo terminamos todos los botones menos "ENTER". Los que hicimos ya nos fijamos que anden bien, y lo hacen.

por daiana- avance de la clase 12/7

hasta el momento; con mi compañera, hemos llegado a programar y a diseñar.

Programamos:

-contraste más y contraste menos
-catv
- tv
-onoff
-numero de canal
-auxcanal
-canal más y canal menos
-volumen más y volumen
-menosbrillo más y brillo menos
-tv on y tv off-los nuemeros: (uno , dos , tres , cuatro , cinco , seis , siete , ocho , nueve y cero)
-enter
-tvcatv
-onoff.

Diseñamos:
- el modelo del control.
- el modelo de la pantalla.