TALLER DE PROGRAMACION I Ao de la Integracin Nacional y el Reconocimiento de Nuestra Diversidad

"RA%TI%A N3 14

ASIGNATURA: D#%!NT!: A U$N#: %#DIG#: S!$!STR!:

TA

!R D! "R#GRA$A%I#N I Ing& $anuel 'e(

!velyn )iorella %anc*ari 'e( A+,,--G .to

/0120/

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I

Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ artial Class !orm" #n$erits S%stem.&indo's.!orms.!orm (!orm reempla)a a Dispose para limpiar la lista de componentes. *S%stem.Diagnostics.Debugger+on,serCode()> _ rotected -verrides Sub Dispose(B%Val disposing .s Boolean) /r% #f disposing .nd.lso components #s+ot +ot$ing /$en components.Dispose() 0nd #f !inall% M%Base.Dispose(disposing) 0nd /r% 0nd Sub (1e2uerido por el Dise3ador de &indo's !orms rivate components .s S%stem.ComponentModel.#Container (+-/.4 el Dise3ador de &indo's !orms necesita el siguiente procedimiento (Se puede modificar usando el Dise3ador de &indo's !orms. (+o lo modifi2ue con el editor de c5digo. *S%stem.Diagnostics.DebuggerStep/$roug$()> _ rivate Sub #nitiali)eComponent()

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
Me.6abel" 7 +e' S%stem.&indo's.!orms.6abel Me.t8tMensa9e 7 +e' S%stem.&indo's.!orms./e8tBo8 Me.6abel: 7 +e' S%stem.&indo's.!orms.6abel Me.Color 7 +e' S%stem.&indo's.!orms.6istBo8 Me./ama3o 7 +e' S%stem.&indo's.!orms.6istBo8 Me.Cobo!uente 7 +e' S%stem.&indo's.!orms.ComboBo8 Me.1o9o 7 +e' S%stem.&indo's.!orms.1adioButton Me.Verde 7 +e' S%stem.&indo's.!orms.1adioButton Me.rbt.)ul 7 +e' S%stem.&indo's.!orms.1adioButton Me.6abel; 7 +e' S%stem.&indo's.!orms.6abel Me.Button" 7 +e' S%stem.&indo's.!orms.Button Me..marillo 7 +e' S%stem.&indo's.!orms.1adioButton Me.1adioButton" 7 +e' S%stem.&indo's.!orms.1adioButton Me.0stilo 7 +e' S%stem.&indo's.!orms.6istBo8 Me.C$ec<Bo8" 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.C$ec<Bo8: 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.C$ec<Bo8; 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.C$ec<Bo8= 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.C$ec<Bo8> 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.Suspend6a%out() ( (6abel" ( Me.6abel"..utoSi)e 7 /rue Me.6abel".6ocation 7 +e' S%stem.Dra'ing. oint("?@ :") Me.6abel".+ame 7 A6abel"A Me.6abel".Si)e 7 +e' S%stem.Dra'ing.Si)e(;=@ ";) Me.6abel"./ab#nde8 7 B Me.6abel"./e8t 7 A/e8toA ( (t8tMensa9e ( Me.t8tMensa9e.!ont 7 +e' S%stem.Dra'ing.!ont(A.rial +arro'A@ :B.:>C@ S%stem.Dra'ing.!ontSt%le.Bold@ S%stem.Dra'ing.Grap$ics,nit. oint@ C/%pe(B@ B%te)) Me.t8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color.Dello' Me.t8tMensa9e.6ocation 7 +e' S%stem.Dra'ing. oint(EF@ :?) Me.t8tMensa9e.Multiline 7 /rue Me.t8tMensa9e.+ame 7 At8tMensa9eA Me.t8tMensa9e.Si)e 7 +e' S%stem.Dra'ing.Si)e(=:>@ ;>) Me.t8tMensa9e./ab#nde8 7 " Me.t8tMensa9e./e8t 7 A/.6601 D0 1-G1M.C#-+A ( (6abel: ( Me.6abel:..utoSi)e 7 /rue Me.6abel:.6ocation 7 +e' S%stem.Dra'ing. oint(F@ E?) Me.6abel:.+ame 7 A6abel:A Me.6abel:.Si)e 7 +e' S%stem.Dra'ing.Si)e(=B@ ";) Me.6abel:./ab#nde8 7 : Me.6abel:./e8t 7 A!uenteA ( (Color ( Me.Color.!ormatting0nabled 7 /rue Me.Color.6ocation 7 +e' S%stem.Dra'ing. oint("FG@ ">") Me.Color.+ame 7 AColorA

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
Me.Color.Si)e 7 +e' S%stem.Dra'ing.Si)e(":B@ "=F) Me.Color./ab#nde8 7 = ( (/ama3o ( Me./ama3o.!ormatting0nabled 7 /rue Me./ama3o.#tems..dd1ange(+e' -b9ect() HAEA@ A"BA@ A":A@ A"=A@ A"?A@ A:BA@ A:=A@ A;BA@ A;?A@ A=BA@ A=:A@ A=?A@ A>BAI) Me./ama3o.6ocation 7 +e' S%stem.Dra'ing. oint(;"E@ ">") Me./ama3o.+ame 7 A/ama3oA Me./ama3o.Si)e 7 +e' S%stem.Dra'ing.Si)e(":B@ "=F) Me./ama3o./ab#nde8 7 > ( (Cobo!uente ( Me.Cobo!uente.!ormatting0nabled 7 /rue Me.Cobo!uente.6ocation 7 +e' S%stem.Dra'ing. oint(EF@ E;) Me.Cobo!uente.+ame 7 ACobo!uenteA Me.Cobo!uente.Si)e 7 +e' S%stem.Dra'ing.Si)e("E>@ :") Me.Cobo!uente./ab#nde8 7 ? ( (1o9o ( Me.1o9o..utoSi)e 7 /rue Me.1o9o.6ocation 7 +e' S%stem.Dra'ing. oint("E:@ "F>) Me.1o9o.+ame 7 A1o9oA Me.1o9o.Si)e 7 +e' S%stem.Dra'ing.Si)e(=F@ "F) Me.1o9o./ab#nde8 7 "B Me.1o9o./abStop 7 /rue Me.1o9o./e8t 7 A1o9oA Me.1o9o.,seVisualSt%leBac<Color 7 /rue ( (Verde ( Me.Verde..utoSi)e 7 /rue Me.Verde.6ocation 7 +e' S%stem.Dra'ing. oint("E:@ "GE) Me.Verde.+ame 7 AVerdeA Me.Verde.Si)e 7 +e' S%stem.Dra'ing.Si)e(>;@ "F) Me.Verde./ab#nde8 7 "" Me.Verde./abStop 7 /rue Me.Verde./e8t 7 AVerdeA Me.Verde.,seVisualSt%leBac<Color 7 /rue ( (rbt.)ul ( Me.rbt.)ul..utoSi)e 7 /rue Me.rbt.)ul.6ocation 7 +e' S%stem.Dra'ing. oint("E:@ ::") Me.rbt.)ul.+ame 7 Arbt.)ulA Me.rbt.)ul.Si)e 7 +e' S%stem.Dra'ing.Si)e(=>@ "F) Me.rbt.)ul./ab#nde8 7 ": Me.rbt.)ul./abStop 7 /rue Me.rbt.)ul./e8t 7 A.)ulA Me.rbt.)ul.,seVisualSt%leBac<Color 7 /rue ( (6abel; ( Me.6abel;..utoSi)e 7 /rue

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
Me.6abel;.6ocation 7 +e' S%stem.Dra'ing. oint(;>>@ ";>) Me.6abel;.+ame 7 A6abel;A Me.6abel;.Si)e 7 +e' S%stem.Dra'ing.Si)e(=?@ ";) Me.6abel;./ab#nde8 7 "; Me.6abel;./e8t 7 A/ama3oA ( (Button" ( Me.Button".6ocation 7 +e' S%stem.Dra'ing. oint(:";@ ;=:) Me.Button".+ame 7 AButton"A Me.Button".Si)e 7 +e' S%stem.Dra'ing.Si)e(F:@ :E) Me.Button"./ab#nde8 7 "= Me.Button"./e8t 7 ASalirA Me.Button".,seVisualSt%leBac<Color 7 /rue ( (.marillo ( Me..marillo..utoSi)e 7 /rue Me..marillo.6ocation 7 +e' S%stem.Dra'ing. oint("E:@ :=?) Me..marillo.+ame 7 A.marilloA Me..marillo.Si)e 7 +e' S%stem.Dra'ing.Si)e(?"@ "F) Me..marillo./ab#nde8 7 "F Me..marillo./abStop 7 /rue Me..marillo./e8t 7 A.marilloA Me..marillo.,seVisualSt%leBac<Color 7 /rue ( (1adioButton" ( Me.1adioButton"..utoSi)e 7 /rue Me.1adioButton".6ocation 7 +e' S%stem.Dra'ing. oint("E:@ :F") Me.1adioButton".+ame 7 A1adioButton"A Me.1adioButton".Si)e 7 +e' S%stem.Dra'ing.Si)e(=F@ "F) Me.1adioButton"./ab#nde8 7 "E Me.1adioButton"./abStop 7 /rue Me.1adioButton"./e8t 7 A1o9oA Me.1adioButton".,seVisualSt%leBac<Color 7 /rue ( (0stilo ( Me.0stilo.!ormatting0nabled 7 /rue Me.0stilo.6ocation 7 +e' S%stem.Dra'ing. oint(;"@ ">") Me.0stilo.+ame 7 A0stiloA Me.0stilo.Si)e 7 +e' S%stem.Dra'ing.Si)e(":B@ "=F) Me.0stilo./ab#nde8 7 ; ( (C$ec<Bo8" ( Me.C$ec<Bo8"..utoSi)e 7 /rue Me.C$ec<Bo8".6ocation 7 +e' S%stem.Dra'ing. oint(=:@ "F>) Me.C$ec<Bo8".+ame 7 AC$ec<Bo8"A Me.C$ec<Bo8".Si)e 7 +e' S%stem.Dra'ing.Si)e(?B@ "F) Me.C$ec<Bo8"./ab#nde8 7 "G Me.C$ec<Bo8"./e8t 7 A+egritaA Me.C$ec<Bo8".,seVisualSt%leBac<Color 7 /rue ( (C$ec<Bo8: (

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
Me.C$ec<Bo8:..utoSi)e 7 /rue Me.C$ec<Bo8:.6ocation 7 +e' S%stem.Dra'ing. oint(=:@ "G?) Me.C$ec<Bo8:.+ame 7 AC$ec<Bo8:A Me.C$ec<Bo8:.Si)e 7 +e' S%stem.Dra'ing.Si)e(?"@ "F) Me.C$ec<Bo8:./ab#nde8 7 :B Me.C$ec<Bo8:./e8t 7 ACursivaA Me.C$ec<Bo8:.,seVisualSt%leBac<Color 7 /rue ( (C$ec<Bo8; ( Me.C$ec<Bo8;..utoSi)e 7 /rue Me.C$ec<Bo8;.6ocation 7 +e' S%stem.Dra'ing. oint(=:@ :"G) Me.C$ec<Bo8;.+ame 7 AC$ec<Bo8;A Me.C$ec<Bo8;.Si)e 7 +e' S%stem.Dra'ing.Si)e(FF@ "F) Me.C$ec<Bo8;./ab#nde8 7 :" Me.C$ec<Bo8;./e8t 7 ASubra%adoA Me.C$ec<Bo8;.,seVisualSt%leBac<Color 7 /rue ( (C$ec<Bo8= ( Me.C$ec<Bo8=..utoSi)e 7 /rue Me.C$ec<Bo8=.6ocation 7 +e' S%stem.Dra'ing. oint(=:@ :=?) Me.C$ec<Bo8=.+ame 7 AC$ec<Bo8=A Me.C$ec<Bo8=.Si)e 7 +e' S%stem.Dra'ing.Si)e(=?@ "F) Me.C$ec<Bo8=./ab#nde8 7 :: Me.C$ec<Bo8=./e8t 7 A.rialA Me.C$ec<Bo8=.,seVisualSt%leBac<Color 7 /rue ( (C$ec<Bo8> ( Me.C$ec<Bo8>..utoSi)e 7 /rue Me.C$ec<Bo8>.6ocation 7 +e' S%stem.Dra'ing. oint(=:@ :F:) Me.C$ec<Bo8>.+ame 7 AC$ec<Bo8>A Me.C$ec<Bo8>.Si)e 7 +e' S%stem.Dra'ing.Si)e(?G@ "F) Me.C$ec<Bo8>./ab#nde8 7 :; Me.C$ec<Bo8>./e8t 7 A/ac$adoA Me.C$ec<Bo8>.,seVisualSt%leBac<Color 7 /rue ( (!orm" ( Me..utoScaleDimensions 7 +e' S%stem.Dra'ing.Si)e!(?.BC@ ";.BC) Me..utoScaleMode 7 S%stem.&indo's.!orms..utoScaleMode.!ont Me.ClientSi)e 7 +e' S%stem.Dra'ing.Si)e(>="@ ;G?) Me.Controls..dd(Me.C$ec<Bo8>) Me.Controls..dd(Me.C$ec<Bo8=) Me.Controls..dd(Me.C$ec<Bo8;) Me.Controls..dd(Me.C$ec<Bo8:) Me.Controls..dd(Me.C$ec<Bo8") Me.Controls..dd(Me.1adioButton") Me.Controls..dd(Me..marillo) Me.Controls..dd(Me.Button") Me.Controls..dd(Me.6abel;) Me.Controls..dd(Me.rbt.)ul) Me.Controls..dd(Me.Verde) Me.Controls..dd(Me.1o9o) Me.Controls..dd(Me.Cobo!uente) Me.Controls..dd(Me./ama3o)

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
Me.Controls..dd(Me.Color) Me.Controls..dd(Me.6abel:) Me.Controls..dd(Me.t8tMensa9e) Me.Controls..dd(Me.6abel") Me.Controls..dd(Me.0stilo) Me.+ame 7 A!orm"A Me./e8t 7 A!orm"A Me.1esume6a%out(!alse) Me. erform6a%out() 0nd Sub !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents 6abel" .s S%stem.&indo's.!orms.6abel t8tMensa9e .s S%stem.&indo's.!orms./e8tBo8 6abel: .s S%stem.&indo's.!orms.6abel Color .s S%stem.&indo's.!orms.6istBo8 /ama3o .s S%stem.&indo's.!orms.6istBo8 Cobo!uente .s S%stem.&indo's.!orms.ComboBo8 1o9o .s S%stem.&indo's.!orms.1adioButton Verde .s S%stem.&indo's.!orms.1adioButton rbt.)ul .s S%stem.&indo's.!orms.1adioButton 6abel; .s S%stem.&indo's.!orms.6abel Button" .s S%stem.&indo's.!orms.Button .marillo .s S%stem.&indo's.!orms.1adioButton 1adioButton" .s S%stem.&indo's.!orms.1adioButton 0stilo .s S%stem.&indo's.!orms.6istBo8 C$ec<Bo8" .s S%stem.&indo's.!orms.C$ec<Bo8

rivate Sub +egrita_Selected#nde8C$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) 0nd Sub !riend &it$0vents C$ec<Bo8: .s S%stem.&indo's.!orms.C$ec<Bo8 !riend &it$0vents C$ec<Bo8; .s S%stem.&indo's.!orms.C$ec<Bo8 !riend &it$0vents C$ec<Bo8= .s S%stem.&indo's.!orms.C$ec<Bo8 !riend &it$0vents C$ec<Bo8> .s S%stem.&indo's.!orms.C$ec<Bo8 rivate Sub Cursiva_Selected#nde8C$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) 0nd Sub rivate Sub Subra%ado_Selected#nde8C$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) 0nd Sub rivate Sub t8tMensa9e_/e8tC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles t8tMensa9e./e8tC$anged /8tMensa9e.!ont 7 VB?.!ontC$ange+ame(/8tMensa9e.!ont@ Cbo!uente./e8t) 0nd Sub der 0nd Sub rivate Sub C$ec<Bo8:_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles C$ec<Bo8:.C$ec<edC$anged #f C$<Cursiva.C$ec<State /$en /8tMensa9e.!ont 7 VB?.!ontC$ange#talic(/8tMensa9e.!ont@ /rue) 0lse ontC$ange#talic(/8tMensa9e.!ont@ !alse)/8tMensa9e.!ont 7 VB?.! 0nd #f 0nd Sub

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
rivate Sub C$ec<Bo8;_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles C$ec<Bo8;.C$ec<edC$anged #f C$<+egrita.C$ec<State /$en /8tMensa9e.!ont 7 VB?.!ontC$angeBold(/8tMensa9e.!ont@ /rue) 0lse /8tMensa9e.!ont 7 VB?.!ontC$angeBold(/8tMensa9e.!ont@ !alse) 0nd #f 0nd Sub rivate Sub C$ec<Bo8=_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles C$ec<Bo8=.C$ec<edC$anged #f C$<Subra%ado.C$ec<State /$en /8tMensa9e.!ont 7 VB?.!ontC$ange,nderline(/8tMensa9e.!ont@ /rue) 0lse rline(/8tMensa9e.!ont@ !alse)/8tMensa9e.!ont 7 VB?.!ontC$ange,nde 0nd #f 0nd Sub rivate Sub Cobo!uente_Selected#nde8C$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles Cobo!uente.Selected#nde8C$anged 0nd Sub rivate Sub 6abel;_Clic<(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles 6abel;.Clic< 8tMensa9e.!ont@ CDec(6st/ama3o./e8t))/8tMensa9e.!ont 7 VB?.!ontC$angeSi)e(/ 0nd Sub rivate Sub rbt.)ul_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles rbt.)ul.C$ec<edC$anged #f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f 0nd Sub rivate Sub Verde_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles Verde.C$ec<edC$anged #f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f 0nd Sub rivate Sub 1o9o_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles 1o9o.C$ec<edC$anged #f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f 0nd Sub rivate Sub .marillo_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles .marillo.C$ec<edC$anged #f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f 0nd Sub rivate Sub 1adioButton"_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles 1adioButton".C$ec<edC$anged

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
#f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f 0nd Sub rivate Sub Button"_Clic<(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles Button".Clic< Me.Close() 0nd Sub 0nd Class

0K01C#C#- +L B:

*Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ artial Class !orm" #n$erits S%stem.&indo's.!orms.!orm (!orm reempla)a a Dispose para limpiar la lista de componentes. *S%stem.Diagnostics.Debugger+on,serCode()> _ rotected -verrides Sub Dispose(B%Val disposing .s Boolean) /r% #f disposing .nd.lso components #s+ot +ot$ing /$en components.Dispose() 0nd #f !inall% M%Base.Dispose(disposing) 0nd /r% 0nd Sub (1e2uerido por el Dise3ador de &indo's !orms rivate components .s S%stem.ComponentModel.#Container (+-/.4 el Dise3ador de &indo's !orms necesita el siguiente procedimiento (Se puede modificar usando el Dise3ador de &indo's !orms.

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
(+o lo modifi2ue con el editor de c5digo. *S%stem.Diagnostics.DebuggerStep/$roug$()> _ rivate Sub #nitiali)eComponent() Me.6abel" 7 +e' S%stem.&indo's.!orms.6abel Me.t8tMensa9e 7 +e' S%stem.&indo's.!orms./e8tBo8 Me.6abel: 7 +e' S%stem.&indo's.!orms.6abel Me.Color 7 +e' S%stem.&indo's.!orms.6istBo8 Me./ama3o 7 +e' S%stem.&indo's.!orms.6istBo8 Me.Cobo!uente 7 +e' S%stem.&indo's.!orms.ComboBo8 Me.1o9o 7 +e' S%stem.&indo's.!orms.1adioButton Me.Verde 7 +e' S%stem.&indo's.!orms.1adioButton Me.rbt.)ul 7 +e' S%stem.&indo's.!orms.1adioButton Me.6abel; 7 +e' S%stem.&indo's.!orms.6abel Me.Button" 7 +e' S%stem.&indo's.!orms.Button Me..marillo 7 +e' S%stem.&indo's.!orms.1adioButton Me.1adioButton" 7 +e' S%stem.&indo's.!orms.1adioButton Me.0stilo 7 +e' S%stem.&indo's.!orms.6istBo8 Me.C$ec<Bo8" 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.C$ec<Bo8: 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.C$ec<Bo8; 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.C$ec<Bo8= 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.C$ec<Bo8> 7 +e' S%stem.&indo's.!orms.C$ec<Bo8 Me.Suspend6a%out() ( (6abel" ( Me.6abel"..utoSi)e 7 /rue Me.6abel".6ocation 7 +e' S%stem.Dra'ing. oint("?@ :") Me.6abel".+ame 7 A6abel"A Me.6abel".Si)e 7 +e' S%stem.Dra'ing.Si)e(;=@ ";) Me.6abel"./ab#nde8 7 B Me.6abel"./e8t 7 A/e8toA ( (t8tMensa9e ( Me.t8tMensa9e.!ont 7 +e' S%stem.Dra'ing.!ont(A.rial +arro'A@ :B.:>C@ S%stem.Dra'ing.!ontSt%le.Bold@ S%stem.Dra'ing.Grap$ics,nit. oint@ C/%pe(B@ B%te)) Me.t8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color.Dello' Me.t8tMensa9e.6ocation 7 +e' S%stem.Dra'ing. oint(EF@ :?) Me.t8tMensa9e.Multiline 7 /rue Me.t8tMensa9e.+ame 7 At8tMensa9eA Me.t8tMensa9e.Si)e 7 +e' S%stem.Dra'ing.Si)e(=:>@ ;>) Me.t8tMensa9e./ab#nde8 7 " Me.t8tMensa9e./e8t 7 A/.6601 D0 1-G1M.C#-+A ( (6abel: ( Me.6abel:..utoSi)e 7 /rue Me.6abel:.6ocation 7 +e' S%stem.Dra'ing. oint(F@ E?) Me.6abel:.+ame 7 A6abel:A Me.6abel:.Si)e 7 +e' S%stem.Dra'ing.Si)e(=B@ ";) Me.6abel:./ab#nde8 7 : Me.6abel:./e8t 7 A!uenteA ( (Color (

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
Me.Color.!ormatting0nabled 7 /rue Me.Color.6ocation 7 +e' S%stem.Dra'ing. oint("FG@ ">") Me.Color.+ame 7 AColorA Me.Color.Si)e 7 +e' S%stem.Dra'ing.Si)e(":B@ "=F) Me.Color./ab#nde8 7 = ( (/ama3o ( Me./ama3o.!ormatting0nabled 7 /rue Me./ama3o.#tems..dd1ange(+e' -b9ect() HAEA@ A"BA@ A":A@ A"=A@ A"?A@ A:BA@ A:=A@ A;BA@ A;?A@ A=BA@ A=:A@ A=?A@ A>BAI) Me./ama3o.6ocation 7 +e' S%stem.Dra'ing. oint(;"E@ ">") Me./ama3o.+ame 7 A/ama3oA Me./ama3o.Si)e 7 +e' S%stem.Dra'ing.Si)e(":B@ "=F) Me./ama3o./ab#nde8 7 > ( (Cobo!uente ( Me.Cobo!uente.!ormatting0nabled 7 /rue Me.Cobo!uente.6ocation 7 +e' S%stem.Dra'ing. oint(EF@ E;) Me.Cobo!uente.+ame 7 ACobo!uenteA Me.Cobo!uente.Si)e 7 +e' S%stem.Dra'ing.Si)e("E>@ :") Me.Cobo!uente./ab#nde8 7 ? ( (1o9o ( Me.1o9o..utoSi)e 7 /rue Me.1o9o.6ocation 7 +e' S%stem.Dra'ing. oint("E:@ "F>) Me.1o9o.+ame 7 A1o9oA Me.1o9o.Si)e 7 +e' S%stem.Dra'ing.Si)e(=F@ "F) Me.1o9o./ab#nde8 7 "B Me.1o9o./abStop 7 /rue Me.1o9o./e8t 7 A1o9oA Me.1o9o.,seVisualSt%leBac<Color 7 /rue ( (Verde ( Me.Verde..utoSi)e 7 /rue Me.Verde.6ocation 7 +e' S%stem.Dra'ing. oint("E:@ "GE) Me.Verde.+ame 7 AVerdeA Me.Verde.Si)e 7 +e' S%stem.Dra'ing.Si)e(>;@ "F) Me.Verde./ab#nde8 7 "" Me.Verde./abStop 7 /rue Me.Verde./e8t 7 AVerdeA Me.Verde.,seVisualSt%leBac<Color 7 /rue ( (rbt.)ul ( Me.rbt.)ul..utoSi)e 7 /rue Me.rbt.)ul.6ocation 7 +e' S%stem.Dra'ing. oint("E:@ ::") Me.rbt.)ul.+ame 7 Arbt.)ulA Me.rbt.)ul.Si)e 7 +e' S%stem.Dra'ing.Si)e(=>@ "F) Me.rbt.)ul./ab#nde8 7 ": Me.rbt.)ul./abStop 7 /rue Me.rbt.)ul./e8t 7 A.)ulA Me.rbt.)ul.,seVisualSt%leBac<Color 7 /rue (

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
(6abel; ( Me.6abel;..utoSi)e 7 /rue Me.6abel;.6ocation 7 +e' S%stem.Dra'ing. oint(;>>@ ";>) Me.6abel;.+ame 7 A6abel;A Me.6abel;.Si)e 7 +e' S%stem.Dra'ing.Si)e(=?@ ";) Me.6abel;./ab#nde8 7 "; Me.6abel;./e8t 7 A/ama3oA ( (Button" ( Me.Button".6ocation 7 +e' S%stem.Dra'ing. oint(:";@ ;=:) Me.Button".+ame 7 AButton"A Me.Button".Si)e 7 +e' S%stem.Dra'ing.Si)e(F:@ :E) Me.Button"./ab#nde8 7 "= Me.Button"./e8t 7 ASalirA Me.Button".,seVisualSt%leBac<Color 7 /rue ( (.marillo ( Me..marillo..utoSi)e 7 /rue Me..marillo.6ocation 7 +e' S%stem.Dra'ing. oint("E:@ :=?) Me..marillo.+ame 7 A.marilloA Me..marillo.Si)e 7 +e' S%stem.Dra'ing.Si)e(?"@ "F) Me..marillo./ab#nde8 7 "F Me..marillo./abStop 7 /rue Me..marillo./e8t 7 A.marilloA Me..marillo.,seVisualSt%leBac<Color 7 /rue ( (1adioButton" ( Me.1adioButton"..utoSi)e 7 /rue Me.1adioButton".6ocation 7 +e' S%stem.Dra'ing. oint("E:@ :F") Me.1adioButton".+ame 7 A1adioButton"A Me.1adioButton".Si)e 7 +e' S%stem.Dra'ing.Si)e(=F@ "F) Me.1adioButton"./ab#nde8 7 "E Me.1adioButton"./abStop 7 /rue Me.1adioButton"./e8t 7 A1o9oA Me.1adioButton".,seVisualSt%leBac<Color 7 /rue ( (0stilo ( Me.0stilo.!ormatting0nabled 7 /rue Me.0stilo.6ocation 7 +e' S%stem.Dra'ing. oint(;"@ ">") Me.0stilo.+ame 7 A0stiloA Me.0stilo.Si)e 7 +e' S%stem.Dra'ing.Si)e(":B@ "=F) Me.0stilo./ab#nde8 7 ; ( (C$ec<Bo8" ( Me.C$ec<Bo8"..utoSi)e 7 /rue Me.C$ec<Bo8".6ocation 7 +e' S%stem.Dra'ing. oint(=:@ "F>) Me.C$ec<Bo8".+ame 7 AC$ec<Bo8"A Me.C$ec<Bo8".Si)e 7 +e' S%stem.Dra'ing.Si)e(?B@ "F) Me.C$ec<Bo8"./ab#nde8 7 "G Me.C$ec<Bo8"./e8t 7 A+egritaA Me.C$ec<Bo8".,seVisualSt%leBac<Color 7 /rue

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
( (C$ec<Bo8: ( Me.C$ec<Bo8:..utoSi)e 7 /rue Me.C$ec<Bo8:.6ocation 7 +e' S%stem.Dra'ing. oint(=:@ "G?) Me.C$ec<Bo8:.+ame 7 AC$ec<Bo8:A Me.C$ec<Bo8:.Si)e 7 +e' S%stem.Dra'ing.Si)e(?"@ "F) Me.C$ec<Bo8:./ab#nde8 7 :B Me.C$ec<Bo8:./e8t 7 ACursivaA Me.C$ec<Bo8:.,seVisualSt%leBac<Color 7 /rue ( (C$ec<Bo8; ( Me.C$ec<Bo8;..utoSi)e 7 /rue Me.C$ec<Bo8;.6ocation 7 +e' S%stem.Dra'ing. oint(=:@ :"G) Me.C$ec<Bo8;.+ame 7 AC$ec<Bo8;A Me.C$ec<Bo8;.Si)e 7 +e' S%stem.Dra'ing.Si)e(FF@ "F) Me.C$ec<Bo8;./ab#nde8 7 :" Me.C$ec<Bo8;./e8t 7 ASubra%adoA Me.C$ec<Bo8;.,seVisualSt%leBac<Color 7 /rue ( (C$ec<Bo8= ( Me.C$ec<Bo8=..utoSi)e 7 /rue Me.C$ec<Bo8=.6ocation 7 +e' S%stem.Dra'ing. oint(=:@ :=?) Me.C$ec<Bo8=.+ame 7 AC$ec<Bo8=A Me.C$ec<Bo8=.Si)e 7 +e' S%stem.Dra'ing.Si)e(=?@ "F) Me.C$ec<Bo8=./ab#nde8 7 :: Me.C$ec<Bo8=./e8t 7 A.rialA Me.C$ec<Bo8=.,seVisualSt%leBac<Color 7 /rue ( (C$ec<Bo8> ( Me.C$ec<Bo8>..utoSi)e 7 /rue Me.C$ec<Bo8>.6ocation 7 +e' S%stem.Dra'ing. oint(=:@ :F:) Me.C$ec<Bo8>.+ame 7 AC$ec<Bo8>A Me.C$ec<Bo8>.Si)e 7 +e' S%stem.Dra'ing.Si)e(?G@ "F) Me.C$ec<Bo8>./ab#nde8 7 :; Me.C$ec<Bo8>./e8t 7 A/ac$adoA Me.C$ec<Bo8>.,seVisualSt%leBac<Color 7 /rue ( (!orm" ( Me..utoScaleDimensions 7 +e' S%stem.Dra'ing.Si)e!(?.BC@ ";.BC) Me..utoScaleMode 7 S%stem.&indo's.!orms..utoScaleMode.!ont Me.ClientSi)e 7 +e' S%stem.Dra'ing.Si)e(>="@ ;G?) Me.Controls..dd(Me.C$ec<Bo8>) Me.Controls..dd(Me.C$ec<Bo8=) Me.Controls..dd(Me.C$ec<Bo8;) Me.Controls..dd(Me.C$ec<Bo8:) Me.Controls..dd(Me.C$ec<Bo8") Me.Controls..dd(Me.1adioButton") Me.Controls..dd(Me..marillo) Me.Controls..dd(Me.Button") Me.Controls..dd(Me.6abel;) Me.Controls..dd(Me.rbt.)ul) Me.Controls..dd(Me.Verde)

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
Me.Controls..dd(Me.1o9o) Me.Controls..dd(Me.Cobo!uente) Me.Controls..dd(Me./ama3o) Me.Controls..dd(Me.Color) Me.Controls..dd(Me.6abel:) Me.Controls..dd(Me.t8tMensa9e) Me.Controls..dd(Me.6abel") Me.Controls..dd(Me.0stilo) Me.+ame 7 A!orm"A Me./e8t 7 A!orm"A Me.1esume6a%out(!alse) Me. erform6a%out() 0nd Sub !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents !riend &it$0vents 6abel" .s S%stem.&indo's.!orms.6abel t8tMensa9e .s S%stem.&indo's.!orms./e8tBo8 6abel: .s S%stem.&indo's.!orms.6abel Color .s S%stem.&indo's.!orms.6istBo8 /ama3o .s S%stem.&indo's.!orms.6istBo8 Cobo!uente .s S%stem.&indo's.!orms.ComboBo8 1o9o .s S%stem.&indo's.!orms.1adioButton Verde .s S%stem.&indo's.!orms.1adioButton rbt.)ul .s S%stem.&indo's.!orms.1adioButton 6abel; .s S%stem.&indo's.!orms.6abel Button" .s S%stem.&indo's.!orms.Button .marillo .s S%stem.&indo's.!orms.1adioButton 1adioButton" .s S%stem.&indo's.!orms.1adioButton 0stilo .s S%stem.&indo's.!orms.6istBo8 C$ec<Bo8" .s S%stem.&indo's.!orms.C$ec<Bo8

rivate Sub +egrita_Selected#nde8C$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) 0nd Sub !riend &it$0vents C$ec<Bo8: .s S%stem.&indo's.!orms.C$ec<Bo8 !riend &it$0vents C$ec<Bo8; .s S%stem.&indo's.!orms.C$ec<Bo8 !riend &it$0vents C$ec<Bo8= .s S%stem.&indo's.!orms.C$ec<Bo8 !riend &it$0vents C$ec<Bo8> .s S%stem.&indo's.!orms.C$ec<Bo8 rivate Sub Cursiva_Selected#nde8C$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) 0nd Sub rivate Sub Subra%ado_Selected#nde8C$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) 0nd Sub rivate Sub t8tMensa9e_/e8tC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles t8tMensa9e./e8tC$anged /8tMensa9e.!ont 7 VB?.!ontC$ange+ame(/8tMensa9e.!ont@ Cbo!uente./e8t) 0nd Sub der 0nd Sub rivate Sub C$ec<Bo8:_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles C$ec<Bo8:.C$ec<edC$anged

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
#f C$<Cursiva.C$ec<State /$en /8tMensa9e.!ont 7 VB?.!ontC$ange#talic(/8tMensa9e.!ont@ /rue) 0lse ontC$ange#talic(/8tMensa9e.!ont@ !alse)/8tMensa9e.!ont 7 VB?.! 0nd #f 0nd Sub rivate Sub C$ec<Bo8;_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles C$ec<Bo8;.C$ec<edC$anged #f C$<+egrita.C$ec<State /$en /8tMensa9e.!ont 7 VB?.!ontC$angeBold(/8tMensa9e.!ont@ /rue) 0lse /8tMensa9e.!ont 7 VB?.!ontC$angeBold(/8tMensa9e.!ont@ !alse) 0nd #f 0nd Sub rivate Sub C$ec<Bo8=_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles C$ec<Bo8=.C$ec<edC$anged #f C$<Subra%ado.C$ec<State /$en /8tMensa9e.!ont 7 VB?.!ontC$ange,nderline(/8tMensa9e.!ont@ /rue) 0lse rline(/8tMensa9e.!ont@ !alse)/8tMensa9e.!ont 7 VB?.!ontC$ange,nde 0nd #f 0nd Sub rivate Sub Cobo!uente_Selected#nde8C$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles Cobo!uente.Selected#nde8C$anged 0nd Sub rivate Sub 6abel;_Clic<(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles 6abel;.Clic< 8tMensa9e.!ont@ CDec(6st/ama3o./e8t))/8tMensa9e.!ont 7 VB?.!ontC$angeSi)e(/ 0nd Sub rivate Sub rbt.)ul_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles rbt.)ul.C$ec<edC$anged #f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f 0nd Sub rivate Sub Verde_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles Verde.C$ec<edC$anged #f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f 0nd Sub rivate Sub 1o9o_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles 1o9o.C$ec<edC$anged #f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f 0nd Sub rivate Sub .marillo_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles .marillo.C$ec<edC$anged #f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f

Evelyn Fiorella Canchari Lpez

TALLER DE PROGRAMACION I
0nd Sub rivate Sub 1adioButton"_C$ec<edC$anged(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles 1adioButton".C$ec<edC$anged #f eventSender.C$ec<ed /$en #f -pt.)ul.C$ec<ed /$en /8tMensa9e.!oreColor 7 S%stem.Dra'ing.Color/ranslator.!rom-le(1GB(B@ B@ :>>)) 0nd #f 0nd #f 0nd Sub rivate Sub Button"_Clic<(B%Val sender .s S%stem.-b9ect@ B%Val e .s S%stem.0vent.rgs) Jandles Button".Clic< Me.Close() 0nd Sub 0nd Class rivate Sub Cmda3adir_Clic<(B%Val eventSender .s S%stem.-b9ect@ B%Val event.rgs .s 0vent.rgs) J

Evelyn Fiorella Canchari Lpez