Actividad2Unidad1G8

8/18/2019 Actividad2Unidad1G8

1/35

UNIVERSIDAD NACIONAL ABIERTA Y A DISTANCIA – UNADTRABAJO COLABORATIVO MOMENTO 1PSICOLOGIA

ACTIVIDAD 3 UNIDAD 1

INTERVENCION GRUPAL

JUAN RAFAEL POLO

SANTIAGO ALEJANDRO FRANCO

HUIL SEBASTIAN CAMACHO

YON IVAN MÁRQUEZ BUITRAGO.

TUTOR:

JORGE EDUARDO PEREZ GARCIA

Uni!"#i$%$ N%&i'n%( A)i!"*% + % Di#*%n&i% UNAD C!%$ A")!(,!-.

In!ni!"/% $! Si#*!0%#.

Vi#%( B%#i& A%n-%$'

G"2' 4

1


2/35


INTRODUCCIÓN

S! )#&% !n !#*% %&*ii$%$ 5%&!" (% "!#2!&*i% "!i#i6n $!( 0%*!"i%( $! !#*$i' "!7!"!n&i%$'!n !( !n*'"n' $! &'n'&i0i!n*' &'""!#2'n$i!n*! % (% ni$%$ n'8 "!#'(!" (% A&*ii$%$

C"&i"%0% + 5%&!" (% #!(!&&i6n + #'(&i6n $! 9 $! ('# &%#'# 2"'2!#*'# 2%"% (%%2"'2i%&i6n $'n$! #! "!&'n'&!n ('# !(!0!n*'# ),#i&'# $! (% 2"'"%0%&i6n !n %0)i!n*!i#%(8

L%# *!0,*i&%# % "!i#%" #'n:

In*"'$&&i6n % (% 2(%*%7'"0% .NET

F%#!# !n !( $!#%""'((' $! n 2"'"%0%

U*i(i-%&i6n $! Vi#%( B%#i&. N!*

2


3/35


OBJETIVOS

R!i#i6n $!( 0%*!"i%( $! !#*$i' "!7!"!n&i%$' !n !( !n*'"n' $! &'n'&i0i!n*'&'""!#2'n$i!n*! % (% ni$%$ n'.

S!(!&&i6n + #'(&i6n $! 9 $! ('# &%#'# 2"'2!#*'# 2%"% (% %2"'2i%&i6n $'n$! #!"!&'n'&!n ('# !(!0!n*'# ),#i&'# $! (% 2"'"%0%&i6n !n %0)i!n*! i#%(8

A2(i&%" ('# &'n&!2*'# $! %"i%)(!#8 !2"!#i'n!# 0%*!0,*i&%#8 &'n$i&i'n%(!#8 0%n!;'$! &'n*"'(!# + 7'"0(%"i'#.

3


4/35


EJERCICIOS

S! *i(i-%n 2"'&!$i0i!n*'# 0+ #!n&i(('# 2%"% (% ')*!n&i6n $! ('# "!#(*%$'#8 &'n %(*%7n&i'n%(i$%$ + n% &"% $! %2"!n$i-%;! n' !(!%$%8 2%"% n ",2i$' 0%n!;' $! (% %2(i&%&i6n

P%"% (% %2(i&%&i6n $! ('# !;!"&i&i'#8 #! %2(i&6 n% 2"!#!n*%&i6n 2"in&i2%( &'n n 0!n


5/35


! eKey#%ar - Se*arador.ec $%en

! e$e/t#ontains(Se*arador.ec) $%en

e0andled - $rue

Return

Else

Return

End !

End !

'Si no es un dgito y ta*oco caracter de control, ue retorne

! ot (#%ar!s.igit(eKey#%ar)) And ot (#%ar!s#ontrol(eKey#%ar)) $%en

e0andled - $rue

Return

End !

! #%ar!s.igit(eKey#%ar) AndAlso 0ay.esborde(eKey#%ar) $%en

uestraensae.esbordaiento()

e0andled - $rue

Return

End !

'Si el e est4 vaco y se escribe 5, ace*telo y retorne enseguida

! eKey#%ar - "5" AndAlso e$e/t6engt% - 5 $%en

Return

End !

'Si se tecle7 5 y el tb no est4 vaco y el indicador est4 al inicio del nu

! eKey#%ar - "5" AndAlso e$e/t6engt% 8 5 AndAlso eSelectionStart - 5 $%en

'Si se cu*le lo anterior y ade4s el n9 es entero, ent inserte un 5, al inicio

! ot e$e/t#ontains(Se*arador.ec) $%en

e$e/t - e$e/t!nsert(5, "5,")

eSelectionStart - 2

e0andled - $rue

Return

End !

End !

.i PosAct As !nteger 'Pos actual del indicador en el e

.i su!: As String 'String a la i:uierda de el indicador

.i su.er As String 'String a la derec%a de el indicador

.i iu!: As .ecial 'Entero ue ueda ala i:uierda del indicador

;


6/35


PosAct - eSelectionStart

su!: - e$e/tSubstring(5, PosAct)

su.er - e$e/tSubstring(PosAct)

'Si lo ue est4 a la i: contiene dec no %aga nada y si es entero %aga

! ot su!:#ontains(Se*arador.ec) $%en

'Si su!: - ot%ing, tabi


7/35


'Si se tecle7 5 y el tb est4 vaco

! eKey#%ar - "5" AndAlso e$e/t6engt% - 5 $%en

Return

End !

'Si se tecle7 5 y el tb no est4 vaco y el indicador de inserci7n est4 al inicio

! eKey#%ar - "5" AndAlso e$e/t6engt% 8 5 AndAlso eSelectionStart - 5 $%en

e0andled - $rue

Return

End !

.i PosAct As !nteger 'Pos actual del indicador en el e

.i su!: As String 'String a la i:uierda de el indicador

.i su.er As String 'String a la derec%a de el indicador

.i iu!: As .ecial 'Entero ue ueda ala i:uierda del indicador

PosAct - eSelectionStart

su!: - e$e/tSubstring(5, PosAct)

su.er - e$e/tSubstring(PosAct)

'Si su!: - ot%ing, tabi


8/35


Caso!. Calcular distancia, se digita tiempo y velocidad se calcula distancia en km.

Caso". Calcular tiempo, se digita velocidad y distancia se calcula tiempo en minutos.

1) Planificación

#mbito• D!#%""'((%0'# n 2"'"%0% =! &%(&(% (% !('&i$%$8 !( !#2%&i' + !( *i!02' #!in$'# 1 P"'

P"'"%0% Mi&"'#'7* Vi#%( S*$i' 1 P"'7!##i'n%(

Re!rso "#ano.

C%*"' 2"'"%0%$'"!# *"%)%;%n$' !n Vi#%( S*$i'.

Dra!i$n

S! !#*i0% =! #! "!%(i-%"% !n 3 $/%#

N' #! *"%)%;% 0'$!('# 2%"% !#*i0%&i6n $! &'#*'# ni *i!02'.

2) Diseño

• P"'"%0% =! !%(


9/35


A=/ #! )i&%n ('# 2%n*%((%-'# $!( 7'"08 (% !n*"%$% + #%(i$% $! $%*'#KK

P%"% 5%((%" (% V!('&i$%$: V @ $i#*%n&i%*i!02'E( %('" $! Di#*%n&i% + $! *i!02' #! (!!n $!#$! n T!*B' 2%"% &%$% n'.

L% !%(%&i6n $! (% !2"!#i6n #! "!%(i-% !n n 0*'$' ?E%(%E2 =! "!&i)! n2%",0!*"' C5%" =! 2!$! #!" V ' 8 D ' $8 T8 *8 2%"% $!*!"0in%" #i #!$!)! 5%((%" V!('&i$%$8 Di#*%n&i% ' *i!02'.S! i02(!0!n*% !#*' !n n S!(!&* C%#!. E;!02(i7i&%0'# n' $! ('# &%#'#?Di#*%n&i%8 %#/:

C%#! D8 $

n01 @ *)2DV!('&i$%$.V%('"D!& E*"%! $!( T!*B' 2!"#'n%(i-%$'8 !( %('" n0"i&'

n0 @ *)2DTi!02'.V%('"D!& E*"%! $!( T!*B' 2!"#'n%(i-%$'8 !( %('" n0"i&'

T"+

" @ n01 n0

M!##%!B'.S5'?L% Di#*%n&i% !#: ".T'S*"in? 0*8 Di#*%n&i%8

M!##%!B'B**'n#.O8 M!##%!B'I&'n.In7'"0%*i'n

C%*&5 ! A# E&!2*i'n

M!##%!B'.S5'?E( "!#(*%$' "!)%#% ('# (/0i*!# %&!2*%$'# )C"L7

P!$! '(!" % in*!n*%" &'n '*"'# %('"!#8 D!#)'"$%0i!n*'8

M!##%!B'B**'n#.O8 M!##%!B'I&'n.E&(%0%*i'n

En$ T"+

• S! i02(!0!n*% n T!*B' 2!"#'n%(i-%$'8 !n n% DLL ((%0%$% T)P(#8 2%"% !(in"!#' !&(#i' $! n


10/35


tb*&.istanciaocus() End Sub Private Sub tabPrinci*alB.ra!te(sender As Cbect, e As .ra!teEventArgs) 0andles tabPrinci*al.ra!te .i g As Gra*%ics - eGra*%ics .i t* As $abPage - tabPrinci*al$abPages(e!nde/) '.i brDacH#olor As Drus% .i brore#olor As Drus% .i s As e Stringorat .i ont!te As ont .i $itulo!te As String .i Rectangulo As e Rectangle(eDoundsI J 2, eDounds J +, eDoundsLidt%, eDounds0eig%t) $itulo!te - t*$e/t 'brDacH#olor - e SolidDrus%(t*DacH#olor) 'Set $ab Page DacHground brore#olor - e SolidDrus%(t*ore#olor) 'Set title oreground 'sAlignent - StringAlignent#enter ! tabPrinci*alSelected!nde/ - e!nde/ $%en ont!te - e ont(tabPrinci*alont, ontStyleDold) 'set ont Else ont!te - e ont(tabPrinci*alont, ontStyleRegular) 'set ont End ! 'g.raString($itulo!te, ont!te, brore#olor, Rectangulo, s) g.raString($itulo!te, ont!te, brore#olor, Rectangulo) End Sub Private Sub tabPrinci*alBSelected!nde/#%anged(sender As Cbect, e As EventArgs) 0andles tabPrinci*alSelected!nde/#%anged Select #ase tabPrinci*alSelected!nde/ #ase 5 tb*&.istanciaocus()

#ase 1 tb*.&elocidadocus() #ase 2 tb*$.istanciaocus() End Select End Sub 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBEventos btn $ab5 Private Sub btnEvaluar&B#licH(sender As Cbect, e As EventArgs) 0andles btnEvaluar&#licH btnEvaluar&!age - yResourcesDeetleBAvocadoBiconB&erde>+ EvaluaE/*("&") End Sub Private Sub btnEvaluar&Bouseove(sender As Cbect, e As ouseEventArgs) 0andles btnEvaluar&ouseove btnEvaluar&!age - yResourcesDeetleB#anaryBiconBAarillo>+ End Sub Private Sub btnEvaluar&Bouse6eave(sender As Cbect, e As EventArgs) 0andles btnEvaluar&ouse6eave btnEvaluar&!age - yResourcesDeetleBAvocadoBiconB&erde>+ End Sub

Private Sub btnEvaluar&BEnter(sender As Cbect, e As EventArgs) 0andles btnEvaluar&Enter

btnEvaluar&!age - yResourcesDeetleB#anaryBiconBAarillo>+ End Sub Private Sub btnEvaluar&B6eave(sender As Cbect, e As EventArgs) 0andles btnEvaluar&6eave btnEvaluar&!age - yResourcesDeetleBAvocadoBiconB&erde>+ End Sub 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBEventos btn $ab1 Private Sub btnEvaluar.B#licH(sender As Cbect, e As EventArgs) 0andles btnEvaluar.#licH btnEvaluar.!age - yResourcesDeetleBAvocadoBiconB&erde>+ EvaluaE/*(".") End Sub Private Sub btnEvaluar.Bouseove(sender As Cbect, e As ouseEventArgs) 0andles btnEvaluar.ouseove btnEvaluar.!age - yResourcesDeetleB#anaryBiconBAarillo>+ End Sub Private Sub btnEvaluar.Bouse6eave(sender As Cbect, e As EventArgs) 0andles btnEvaluar.ouse6eave btnEvaluar.!age - yResourcesDeetleBAvocadoBiconB&erde>+ End Sub Private Sub btnEvaluar.BEnter(sender As Cbect, e As EventArgs) 0andles btnEvaluar.Enter btnEvaluar.!age - yResourcesDeetleB#anaryBiconBAarillo>+ End Sub

Private Sub btnEvaluar.B6eave(sender As Cbect, e As EventArgs) 0andles btnEvaluar.6eave btnEvaluar.!age - yResourcesDeetleBAvocadoBiconB&erde>+ End Sub 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBEventos btn $ab2

Private Sub btnEvaluar$B#licH(sender As Cbect, e As EventArgs) 0andles btnEvaluar$#licH btnEvaluar$!age - yResourcesDeetleBAvocadoBiconB&erde>+ EvaluaE/*("$") End Sub Private Sub btnEvaluar$Bouseove(sender As Cbect, e As ouseEventArgs) 0andles btnEvaluar$ouseove btnEvaluar$!age - yResourcesDeetleB#anaryBiconBAarillo>+ End Sub Private Sub btnEvaluar$Bouse6eave(sender As Cbect, e As EventArgs) 0andles btnEvaluar$ouse6eave btnEvaluar$!age - yResourcesDeetleBAvocadoBiconB&erde>+

15


11/35


End Sub Private Sub btnEvaluar$BEnter(sender As Cbect, e As EventArgs) 0andles btnEvaluar$Enter btnEvaluar$!age - yResourcesDeetleB#anaryBiconBAarillo>+ End Sub Private Sub btnEvaluar$B6eave(sender As Cbect, e As EventArgs) 0andles btnEvaluar$6eave btnEvaluar$!age - yResourcesDeetleBAvocadoBiconB&erde>+ End SubMRegion "etodos" Private Sub EvaluaE/*( As #%ar) .i nu1, nu2 As .ecial .i r As .ecial Select #ase #ase "&", "v" nu1 - tb*&.istancia&alor.ec nu2 - tb*&$ie*o&alor.ec ! nu2 - 5 $%en essageDo/S%o("El $ie*o (t) C *uede ser cero", ".ivisi7n no v4lida", essageDo/DuttonsCK, essageDo/!conE/claation) Return End ! $ry r - nu1 N nu2 essageDo/S%o("6a &elocidad esO " J r$oString() J " KtN%", "&elocidad", essageDo/DuttonsCK, essageDo/!con!noration) #atc% e/ As E/ce*tion essageDo/S%o("El resultado rebasa los lites ace*tados" J vb#r6 J "Puede volver a intentar con otros valores", ".esbordaiento", essageDo/DuttonsCK, essageDo/!conE/claation)

End $ry #ase ".", "d" nu1 - tb*.&elocidad&alor.ec nu2 - tb*.$ie*o&alor.ec $ry r - nu1 Q nu2 essageDo/S%o("6a .istancia esO " J r$oString() J " Kt", ".istancia", essageDo/DuttonsCK, essageDo/!con!noration) #atc% e/ As E/ce*tion essageDo/S%o("El resultado rebasa los lites ace*tados" J vb#r6 J "Puede volver a intentar con otros valores", ".esbordaiento", essageDo/DuttonsCK, essageDo/!conE/claation) End $ry #ase "$", "t" nu1 - tb*$.istancia&alor.ec nu2 - tb*$&elocidad&alor.ec

! nu2 - 5 $%en essageDo/S%o("6a &elocidad (v) C *uede ser cero", ".ivisi7n no v4lida",

essageDo/DuttonsCK, essageDo/!conE/claation) Return End ! $ry r - (nu1 N nu2) Q >5 essageDo/S%o("El $ie*o esO " J r$oString() J " in", "$ie*o", essageDo/DuttonsCK, essageDo/!con!noration) #atc% e/ As E/ce*tion essageDo/S%o("El resultado rebasa los lites ace*tados" J vb#r6 J "Puede volver a intentar con otros valores", ".esbordaiento", essageDo/DuttonsCK, essageDo/!conE/claation) End $ry #ase Else essageDo/S%o("El *ar4etro del


12/35


C%(&(' $! Di#*%n&i% &'n !( "!#(*%$'

C%(&(' $! Ti!02' &'n !( "!#(*%$'

!. (ngresar las notas de un curso de 1) estudiantes de la universidad, indicar cuantos pasan o pierden el curso según la siguiente información.

Caso 1. *prueba e+celente si puntos mayor a )).

Caso !. *prueba *ceptable si sus puntos est-n entre ") y )).

Caso ". *prueba Regular si sus puntos est-n entre ")) y "/.

Caso . 0ierde ajo alto si sus puntos est-n entre !) y !//.12


13/35


Caso . 0ierde ajo 2edio si sus puntos est-n entre !)) y !/.

Caso 3. 0ierde ajo ajo si sus puntos est-n entre ) y 1//.

1) Planificación

#mbito

• D!#%""'((%0'# n 2"'"%0% 2%"% &%(&(%" (%# $'# "%/&!# $! n% !&%&i6n&%$",*i&%8 "!&i)i!n$' ('# %('"!# n!&!#%"i'# % *"%# $!( *!&(%$'.U*i(i-%0'# *"!# T!*B' 2%"% ')*!n!" ('# %('"!# ?%8)8& i02(i&%$'# !n (% !2"!#i6n8*!ni!n$' !n &!n*% (%# $i7!"!n*!# %(i$%&i'n!# 0%*!0,*i&%#8 % #%)!"8 n' $ii$i"#')"! &!"'8 =! n' #! %2(i=! "%$i&%( % &%n*i$%$!# n!%*i%#8 (' &%( #! #%(! $! ('#"!%(!# 5%&i% !( &%02' $! ('# nin$'# 1.

P"'"%0% Mi&"'#'7* Vi#%( S*$i' C'00ni*+ 19'ntorno !

C'02*%$'": 2"'&!#%$'" P!n*i0 D%( C'"! CPU T .G5- $i#&' $"' $!9 Gi%)+*! M!0'"i% $! G)

Si#*!0% O2!"%*i': >in$'# 1 P"'

P"'"%0% Mi&"'#'7* Vi#%( S*$i' 1 P"'7!##i'n%(

Re!rso "#ano.

C%*"' 2"'"%0%$'"!# *"%)%;%n$' !n Vi#%( S*$i'.

Dra!i$n

S! !#*i0% =! #! "!%(i-%"% !n 3 $/%#

N' #! *"%)%;% 0'$!('# 2%"% !#*i0%&i6n $! &'#*'# ni *i!02'.

2) Diseño

13


14/35


F'"0(%"i' 2%"% in"!#' $! $%*'#

En !( 0!n< %0'# % E#*$i%n*!# Li#*% $! !#*$i%n*!#

L% !n*"%$% + #%(i$% $! $%*'# !#*,n !( 0i#0' 7'"0(%"i'8 #%n$' n D%*%G"i$Vi!

3. Coificación

A"&5i' Frm#s$uian$es.vb

!*orts Syste#o*onentodelPublic #lass rEstudiantes Private Lit%Events t/t#ali=cacion As $e/tDo/ - ot%ing Private Sub rEstudiantesB6oad(sender As Cbect, e As EventArgs) 0andles yDase6oad dgvEstudiantesAl loser$oAddRos - alse dgvEstudiantesAl loser$o.eleteRos - alse dgvEstudiantesAlloser$oCrder#oluns - alse dgvEstudiantesRo#ount - 15 dgvEstudiantes#oluns(1).eault#ellStyleAlignent - .ataGrid&ie#ontentAlignentDottoRig%t End Sub Private Sub btnSalirB#licH(sender As Cbect, e As EventArgs) 0andles btnSalir#licH e#lose() End Sub

Private Sub dgvEstudiantesB#urrent#ell#%anged(sender As Cbect, e As EventArgs) 0andles dgvEstudiantes#urrent#ell#%anged ! dgvEstudiantes#urrent#ell !s ot%ing $%en Return ! dgvEstudiantes#urrentRo#ells(5)&alue !s ot%ing $%en lblEstudiante$e/t - "" lblResultado$e/t - "" Return End ! .i Estudiante As String - dgvEstudiantes#urrentRo#ells(5)&alue$oString() Estudiante - Estudiante$ri() ! String!sullCrE*ty(Estudiante) $%en Return End ! ! dgvEstudiantes#urrentRo#ells(1)&alue !s ot%ing $%en

1+


15/35


lblEstudiante$e/t - "" lblResultado$e/t - "" Return End ! .i Resultado As String - "" .i u&alor As .ouble .i Str&alor As String Str&alor - dgvEstudiantes#urrentRo#ells(1)&alue$oString()$ri() ! String!sullCrE*ty(Str&alor) $%en Return End ! .ouble$ryParse(Str&alor, u&alor) ! u&alor 8- 5 And u&alor 255 $%en Resultado - "Pierde Dao Dao" Else! u&alor 8- 255 And u&alor 2;5 $%en Resultado - "Pierde Dao edio" Else! u&alor 8- 2;5 And u&alor 355 $%en Resultado - "Pierde Dao Alto" Else! u&alor 8- 355 And u&alor 3;5 $%en Resultado - "A*rueba Regular" Else! u&alor 8- 3;5 And u&alor +55 $%en Resultado - "A*rueba Ace*table" Else! u&alor 8- +55 And u&alor - ;55 $%en Resultado - "A*rueba E/celente" Else lblEstudiante$e/t - StringE*ty lblResultado$e/t - StringE*ty Return

End ! lblEstudiante$e/t - "EstudianteO " J Estudiante lblResultado$e/t - "ResultadoO " J Resultado End Sub Private Sub dgvEstudiantesBEditing#ontrolS%oing(sender As Cbect, e As .ataGrid&ieEditing#ontrolS%oingEventArgs) 0andles dgvEstudiantesEditing#ontrolS%oing ! dgvEstudiantes#urrent#ell#olun!nde/ 8 1 $%en Return t/t#ali=cacion - $ry#ast(e#ontrol, $e/tDo/) End Sub Private Sub t/t#ali=cacionBKeyPress(sender As Cbect, e As KeyPressEventArgs) 0andles t/t#ali=cacionKeyPress ! dgvEstudiantes#urrent#ell#olun!nde/ 8 1 $%en Return ! eKey#%ar - "" $%en e0andled - $rue Return End ! #elluericSoloReales#onSigno(t/t#ali=cacion, e) End Sub Private Sub t/t#ali=cacionB&alidating(sender As Cbect, e As #ancelEventArgs) 0andles t/t#ali=cacion&alidating ! dgvEstudiantes#urrent#ell#olun!nde/ 8 1 $%en Return

.i u&alor As .ouble .i Str&alor As String Str&alor - t/t#ali=cacion$e/t$ri() .ouble$ryParse(t/t#ali=cacion$e/t, u&alor) ! String!sullCrE*ty(Str&alor) CrElse u&alor 5 Cr u&alor 8 ;55 $%en essageDo/S%o("&alor no *eritido", "#ali=caci7n", essageDo/DuttonsCK, essageDo/!conE/claation) dgvEstudiantes#urrent#ell&alue - "5" End ! End Sub Private Sub dgvEstudiantesBKey.on(sender As Cbect, e As KeyEventArgs) 0andles dgvEstudiantesKey.on ! eKey#ode - KeysEnter $%en SendKeysSend("T$ADU") eSu**ressKeyPress - $rue End ! End Sub Protected Cverrides unction Process#dKey(DyRe sg As SysteLindosorsessage, Dy&al Hey.ata As SysteLindosors Keys) As Doolean Select #ase Hey.ata #ase KeysEnter

! dgvEstudiantes!s#urrent#ell!nEditode $%en SendKeysSend("T$ADU") Return $rue End ! End Select Return yDaseProcess#dKey(sg, Hey.ata) End unction Private Sub dgvEstudiantesB#ell#ontent#licH(sender As Cbect, e As .ataGrid&ie#ellEventArgs) 0andles dgvEstudiantes#ell#ontent#licH End SubEnd #lass

". Prueba

1;


16/35


". &olucionar la ecuación cuadr-tica, validando los datos de entrada que informen onotifiquen cuando no es viable la operación o el caso cuando no se puede realizar.

&e usa 4 para indicar las dos soluciones5

1) Planificación

#mbito

• D!#%""'((%0'# n 2"'"%0% 2%"% &%(&(%" (%# $'# "%/&!# $! n% !&%&i6n&%$",*i&%8 "!&i)i!n$' ('# %('"!# n!&!#%"i'# % *"%# $!( *!&(%$'.

U*i(i-%0'# *"!# T!*B' 2%"% ')*!n!" ('# %('"!# ?%8)8& i02(i&%$'# !n (% !2"!#i6n8*!ni!n$' !n &!n*% (%# $i7!"!n*!# %(i$%&i'n!# 0%*!0,*i&%#8 % #%)!"8 n' $ii$i"#')"! &!"'8 =! n' #! %2(i=! "%$i&%( % &%n*i$%$!# n!%*i%#8 (' &%( #! #%(! $! ('#"!%(!# 5%&i% !( &%02' $! ('# n


17/35


N' *i!n! n%!%)i(i$%$..

Recursos del entorno $ard%are y &oft%are

'ntorno 1

C'02*%$'" A## C'"! i98 1 T) !n Di#&' D"' + G) $! 0!0'"i% R%0.>in$'# 1.P"'"%0% Mi&"'#'7* Vi#%( S*$i' C'00ni*+ 19'ntorno !


Si#*!0% O2!"%*i': >in$'# 1 P"'

P"'"%0% Mi&"'#'7* Vi#%( S*$i' 1 P"'7!##i'n%(

Re!rso "#ano.

C%*"' 2"'"%0%$'"!# *"%)%;%n$' !n Vi#%( S*$i'.

Dra!i$n

S! !#*i0% =! #! "!%(i-%"% !n 3 $/%#

N' #! *"%)%;% 0'$!('# 2%"% !#*i0%&i6n $! &'#*'# ni *i!02'.

2) Diseño

P%"% (% !n*"%$% $! $%*'# #! *i(i-% n 7'"0(%"i' =! &'n*i!n! 3 T)P(# + n B'*'n 2%"%&%(&(%"8 ('# "!#(*%$'# #! 0!#*"%n !n n %essa&e'o(

3. Coificación

A"&5i' FrmCuara$ica.vb

1?


18/35


Public #lass r#uadratica Private Sub r#uadraticaB6oad(sender As Cbect, e As EventArgs) 0andles yDase6oad tb*ADacHgroundEnter - #olor6ig%tello tb*DDacHgroundEnter - #olor6ig%tello tb*#DacHgroundEnter - #olor6ig%tello tb*AReal#onSigno - $rue tb*DReal#onSigno - $rue tb*#Real#onSigno - $rue End Sub Private Sub btn0allarB#licH(sender As Cbect, e As EventArgs) 0andles btn0allar#licH 0allarRaices() End Sub Private Sub btn0allarBouseove(sender As Cbect, e As ouseEventArgs) 0andles btn0allarouseove btn0allar!age - yResourcesCtroBcalculatorBicon+@ End Sub Private Sub btn0allarBouse6eave(sender As Cbect, e As EventArgs) 0andles btn0allarouse6eave btn0allar!age - yResourcescalculatorBicon+@ End Sub Private Sub btn0allarBEnter(sender As Cbect, e As EventArgs) 0andles btn0allarEnter btn0allar!age - yResourcesCtroBcalculatorBicon+@ End Sub Private Sub btn0allarB6eave(sender As Cbect, e As EventArgs) 0andles btn0allar6eave btn0allar!age - yResourcescalculatorBicon+@ End SubMRegion "


19/35


". Prueba

. *divinar un número de una serie de opciones, si es novato 1 opciones y si esavanzado 6 opciones de acertar, debe enviar un mensaje si est- por debajo o encimadel número que se quiere adivinar. 'l rango de números es de 1 a 1)), el número quese piensa adivinar es al azar que lo selecciona el sistema.

En !#*! !;!"&i&i' n' #! *"%)%;68 2!"' #! !#2!"% =! #! "!%(i&! &'0' %&*ii$%$ &'02(!0!n*%"i%% ('# &'n'&i0i!n*'# =! #! !#*,n %$=i"i!n$'

. Realice un programa que calcule5

7a serie de 8ibonacci.

'l m-+imo común divisor.


3. Convertir unidades de medida en un formulario5

9e cent:metros a5

0ulgadas

2etros

2il:metros

;ilómetros

9e kilómetros a5

2etros

Cent:metros

2illas


20/35


0ies

0ulgadas.

1) Planificación

#mbito

• O*"' 06$(' $! 2"'"%0% !# !( =! &'ni!"*! ni$%$!# $! 0!$i$% $! ('ni*$8 $!&!n*/0!*"'# % 2(%$%#8 0!*"'#8 0i(/0!*"'# + '(60!*"'#. T%0)in $! i(60!*"'# %0!*"'#8 &!n*/0!*"'#8 0i((%#8 +%"$%#8 2i!#8 2(%$%#.P%"% !((' *i(i-%0'# n 7'"0(%"i' =! ),#i&%0!n*! &!n*% &'n $'# T!*B' 2%"%!#&"i)i" !( %('" $! (%# ni$%$!# % &'n!"*i"8 n' 2%"% &!n*/0!*"'# + '*"' 2%"%i(60!*"'#.T!n!0'# $'# C'0)'B'8 2%"% !(!i" !n*"! n% (i#*%8 (% ni$%$ $! $!#*in' $! (%

&'n!"#i6n. Un' 2%"% (% &'n!"#i6n $! C!n*/0!*"'# + '*"' 2%"% (% $! i(60!*"'#.U*i(i-%0'# $'# T!*B' %$i&i'n%(!#8 &'n 2"'2i!$%$ $! R!%$On(+ 7i;%$% !n T"!8#'(' 2%"% 0'#*"%" !( %('" $! (% &'n!"#i6n + 2'$!"#! $!#2(%-%" $!n*"' $! (8 2!"'#in 2'$!" 0'$i7i&%"(' ?$! #6(' (!&*"%.Un )'*6n $! Salir n'# 2!"0i*! *!"0in%" (% !;!&&i6n $! !#*! 06$('..

Recursos del entorno $ard%are y &oft%are

'ntorno 1

C'02*%$'" A## C'"! i98 1 T) !n Di#&' D"' + G) $! 0!0'"i% R%0.>in$'# 1.P"'"%0% Mi&"'#'7* Vi#%( S*$i' C'00ni*+ 19'ntorno !


Si#*!0% O2!"%*i': >in$'# 1 P"'

P"'"%0% Mi&"'#'7* Vi#%( S*$i' 1 P"'7!##i'n%(

Re!rso "#ano.

C%*"' 2"'"%0%$'"!# *"%)%;%n$' !n Vi#%( S*$i'.

Dra!i$n

S! !#*i0% =! #! "!%(i-%"% !n 3 $/%#

N' #! *"%)%;% 0'$!('# 2%"% !#*i0%&i6n $! &'#*'# ni *i!02'.

2) Diseño

25


21/35


3. Coificación

A"&5i' FrmConversorn.vb

Public #lass r#onversorn Private Sub btnSalirB#licH(sender As Cbect, e As EventArgs) e#lose() End Sub Private Sub r#onversornB6oad(sender As Cbect, e As EventArgs) 0andles yDase6oad tb*#sRealSinSigno - $rue tb*KtsRealSinSigno - $rue cbo#s!tesAdd("Pulgadas") cbo#s!tesAdd("etros") cbo#s!tesAdd("iletros") cbo#s!tesAdd("Kil7etros") cbo#sSelected!nde/ - 5 cbo#s.ro*.onStyle - #oboDo/Style.ro*.on6ist cboKts!tesAdd("etros") cboKts!tesAdd("#entetros") cboKts!tesAdd("illas") cboKts!tesAdd("ardas") cboKts!tesAdd("Pies") cboKts!tesAdd("Pulgadas") cboKtsSelected!nde/ - 5 cboKts.ro*.onStyle - #oboDo/Style .ro*.on6ist t/t#s#lear() t/t#s$e/t - "5" t/t#sReadCnly - $rue t/tKts#lear() t/tKts$e/t - "5" t/tKtsReadCnly - $rue End Sub Private Sub tb*#sBKey*(sender As Cbect, e As KeyEventArgs) 0andles tb*#sKey*

#onvertir#s() End Sub Private Sub cbo#sBSelected!nde/#%anged(sender As Cbect, e As EventArgs) 0andles cbo#sSelected!nde/#%anged #onvertir#s() End Sub Private Sub cboKtsBSelected!nde/#%anged(sender As Cbect, e As EventArgs) 0andles cboKtsSelected!nde/#%anged #onvertirKts() End Sub Private Sub tb*KtsBKey*(sender As Cbect, e As KeyEventArgs) 0andles tb*KtsKey* #onvertirKts() End Sub Private Sub #onvertir#s() Select #ase cbo#sSelected!nde/

21


22/35


#ase 5 'Pulgadas .i Pulgadas As .ouble .ouble$ryParse(tb*#s$e/t, Pulgadas) $ry Pulgadas - Pulgadas Q 53F3? #atc% e/ As E/ce*tion essageDo/S%o("El resultado rebasa los lites ace*tados" J vb#r6 J "Puede volver a intentar con otros valores", ".esbordaiento", essageDo/DuttonsCK, essageDo/!conE/claation) Return End $ry t/t#s$e/t - Pulgadas$oString() #ase 1 'etros .i etros As .ouble .ouble$ryParse(tb*#s$e/t, etros) $ry etros - etros Q 551 #atc% e/ As E/ce*tion essageDo/S%o("El resultado rebasa los lites ace*tados" J vb#r6 J "Puede volver a intentar con otros valores", ".esbordaiento", essageDo/DuttonsCK, essageDo/!conE/claation) Return End $ry t/t#s$e/t - etros$oString() #ase 2 'iletros .i ilietros As .ouble .ouble$ryParse(tb*#s$e/t, ilietros) $ry

ilietros - ilietros Q 15 #atc% e/ As E/ce*tion essageDo/S%o("El resultado rebasa los lites ace*tados" J vb#r6 J "Puede volver a intentar con otros valores", ".esbordaiento", essageDo/DuttonsCK, essageDo/!conE/claation) Return End $ry t/t#s$e/t - ilietros$oString() #ase 3 'Kil7etros .i Kiloetros As .ouble .ouble$ryParse(tb*#s$e/t, Kiloetros) $ry Kiloetros - Kiloetros Q 555551 #atc% e/ As E/ce*tion essageDo/S%o("El resultado rebasa los lites ace*tados" J vb#r6 J "Puede volver a intentar con otros valores", ".esbordaiento", essageDo/DuttonsCK, essageDo/!conE/claation) Return End $ry

t/t#s$e/t - Kiloetros$oString() End Select End Sub Private Sub #onvertirKts() Select #ase cboKtsSelected!nde/ #ase 5 'etros .i etros As .ouble .ouble$ryParse(tb*Kts$e/t, etros) etros - etros Q 1555 t/tKts$e/t - etros$oString() #ase 1 '#entetros .i #entietros As .ouble .ouble$ryParse(tb*Kts$e/t, #entietros) #entietros - #entietros Q 155555 t/tKts$e/t - #entietros$oString() #ase 2 'illas .i illas As .ouble .ouble$ryParse(tb*Kts$e/t, illas) illas - illas Q 5>213?1

t/tKts$e/t - illas$oString() #ase 3 'ardas .i ardas As .ouble .ouble$ryParse(tb*Kts$e/t, ardas) ardas - ardas Q 15F3>1 t/tKts$e/t - ardas$oString() #ase + 'Pies .i Pies As .ouble .ouble$ryParse(tb*Kts$e/t, Pies) Pies - Pies Q 32@5@+ t/tKts$e/t - Pies$oString() #ase ; 'Pulgadas .i Pulgadas As .ouble .ouble$ryParse(tb*Kts$e/t, Pulgadas)

22


23/35


Pulgadas - Pulgadas Q 3F3?51 t/tKts$e/t - Pulgadas$oString() End Select End Sub Private Sub btnSalirB#licHB1(sender As Cbect, e As EventArgs) 0andles btnSalir#licH e#lose() End SubEnd #lass

". Prueba

De Cen$*me$ros a o$ras niaes

D! i('0!*"'# % '*"%# ni$%$!#

6. Calcular la conversión de moneda de peso colombiano a su equivalente en algunasmonedas e+tranjeras.

9ólar ''.==

'uro

apon?s

8ranco &uizo9ólar australiano

Rublo R=&@.


23


24/35


A. 0rograma que calcule la multiplicación de matrices tomando los datos dese elteclado, debe adem-s calcular la sumatoria del contenido de las matrices, allar elnúmero mayor y el número menor digitado.

1) Planificación

#mbito

• O*"' 06$(' !# !( $! '2!"%&i6n $! 0%*"i&!#. H%((% (% 0(*i2(i&%&i6n $! $'#0%*"i&!#8 &%(&(% (% #0%*'"i% $! ('# %('"!# $! &%$% n%8 !( %('" 0%+'" + !(0!n'" $ii*%$'.L'# %('"!# 2%"% !( ((!n%$' $! (% 0%*"i- in"!#%n 2'" *!&(%$'8 2%"% (' &%( #!*i(i-%n $'# &'n*"'(!# D%*%G"i$Vi!8 2%"% *!n!" n% "!2"!#!n*%&i6n i#%( $! (%0%*"i-8 2"'2i&i%.T"!# &'n*"'(!# N0!"i&U2D'n. E( 2"i0!"' 2%"% 7i;%" (% &%n*i$%$ $! 7i(%# $! (%0%*"i- A !( #!n$' 2%"% 7i;%" (% &%n*i$%$ $! &'(0n%# $! A =! #'n (% &%n*i$%$ $!7i(%# $! B8 (' &%( !# n "!=i#i*' 0%*!0,*i&' 2%"% 5%&!" 2'#i)(! (% 0(*i2(i&%&i6n $!$'# 0%*"i&!#. E( *!"&!"' !# 2%"% 7i;%" (% &%n*i$%$ $! &'(0n%# $! B. L'# %('"!#2'#i)(!# $!( &'n*"'( N0!"i&U2D'n %n $!#$! 5%#*% W.'o$ón +lenar . H%&! %2%"!&!" !( D%*%G"i$Vi! $! &%$% 0%*"i- !n !( 7'"0(%"i'8 2%"%2"'&!$!" % # ((!n%$'8 )%#%$'# !n (%# $i0!n#i'n!# 7i;%$%# !n ('# &'n*"'(!#N0!"i&U2D'n.'o$ón %ul$iplicar . E#*! !7!&*in$'# 1 P"'

2+


25/35


P"'"%0% Mi&"'#'7* Vi#%( S*$i' 1 P"'7!##i'n%(

Re!rso "#ano.

C%*"' 2"'"%0%$'"!# *"%)%;%n$' !n Vi#%( S*$i'.

Dra!i$n

S! !#*i0% =! #! "!%(i-%"% !n 3 $/%#

N' #! *"%)%;% 0'$!('# 2%"% !#*i0%&i6n $! &'#*'# ni *i!02'.

2) Diseño

2;


26/35


3. Coificación

A"&5i' Frm%ul$iplicar%.vb

Public #lass rulti*licar Private #(,) As .ecial Private Punto.ec As String - Globali:ation#ulture!no#urrent#ultureuberoratuber.ecialSe*arator 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB&ariables controladoras de celdas Private Lit%Events #eldaA As .ataGrid&ie$e/tDo/Editing#ontrol - ot%ing Private Lit%Events #eldaD As .ataGrid&ie$e/tDo/Editing#ontrol - ot%ing 'Private Lit%Events #eldaA As $e/tDo/ - ot%ing 'Private Lit%Events #eldaD As $e/tDo/ - ot%ing

Private Sub rulti*licarB6oad(sender As Cbect, e As EventArgs) 0andles yDase6oad btnulti*licarEnabled - alse nuiniu - 2 nua/iu - F nuiniu - 2 nua/iu - F nuPiniu - 2 nuPa/iu - F 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBatri: A lblA&isible - alse #on=g.gv(dgvA) 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBatri: D lblD&isible - alse #on=g.gv(dgvD) End Sub Public Sub #on=g.gv(DyRe dgv As .ataGrid&ie) Lit% dgv .i ontae As String - Ro0eaders.eault#ellStyleontae .i ontSi:e As Single - Ro0eaders.eault#ellStyleontSi:e

&isible - alse DorderStyle - DorderStyleone #olun0eaders.eault#ellStyleAlignent - .ataGrid&ie#ontentAlignentDotto#enter #olun0eaders.eault#ellStyleont - e ont(ontae, ontSi:e, ontStyleDold) Ro0eaders.eault#ellStyleont - e ont(ontae, ontSi:e, ontStyleDold) Ro0eadersLidt% - +; Ro0eadersLidt%Si:eode - .ataGrid&ieRo0eadersLidt%Si:eode.isableResi:ing Alloser$oAddRos - alse Alloser$o.eleteRos - alse Alloser$oCrder#oluns - alse Alloser$oResi:e#oluns - alse Alloser$oResi:eRos - alse End Lit% End Sub

2>


27/35


Private Sub rulti*licarBS%on(sender As Cbect, e As EventArgs) 0andles yDaseS%on nu&alue - 2 nu&alue - 2 nuP&alue - 2 nuocus() End Sub Private Sub btn6lenarB#licH(sender As Cbect, e As EventArgs) 0andles btn6lenar#licH dgvARo#ount - nu&alue dgvA#olun#ount - nu&alue dgvDRo#ount - nu&alue dgvD#olun#ount - nuP&alue &alores!niciales.gv(dgvA) &alores!niciales.gv(dgvD) btnulti*licarEnabled - $rue lblA&isible - $rue dgvA&isible - $rue lblD&isible - $rue dgvD&isible - $rue dgvAocus() End Sub Public Sub &alores!niciales.gv(DyRe dgv As .ataGrid&ie) .i i As !nteger .i As !nteger .i As !nteger - dgvRos#ount .i n As !nteger - dgv#oluns#ount Lit% dgv or i - 5 $o 1 or - 5 $o n 1

! i - 5 $%en #oluns()0eader$e/t - ( J 1)$oString #oluns()Lidt% - 35 #oluns().eault#ellStyleAlignent - .ataGrid&ie#ontentAlignentiddle#enter End ! !te(, i)&alue - 5 e/t Ros(i)0eader#ell&alue - (i J 1)$oString e/t #learSelection() End Lit% End Sub Private Sub btnulti*licarB#licH(sender As Cbect, e As EventArgs) 0andles btnulti*licar#licH .i As !nteger - nu&alue .i n As !nteger - nu&alue .i * As !nteger - nuP&alue .i A(, n) As .ecial .i D(n, *) As .ecial Re.i #(, *)

.i i As !nteger .i As !nteger .i H As !nteger .i Au/ As .ecial - 5 '6lenado de atri: A or i - 5 $o 1 or - 5 $o n 1 A(i, ) - dgvA(, i)&alue e/t e/t '6lenado de atri: D or i - 5 $o n 1 or H - 5 $o * 1 D(i, H) - dgvD(H, i)&alue e/t e/t or i - 5 $o 1 or H - 5 $o * 1 or - 5 $o n 1

Au/ J- A(i, ) Q D(, H) e/t #(i, H) - Au/ Au/ - 5 e/t e/t .i ratri:# As ratri:# - e ratri:#(#) ratri:#S%o.ialog() End Sub Private Sub btnSalirB#licH(sender As Cbect, e As EventArgs) 0andles btnSalir#licH e#lose() End Sub 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB #C$RC6 ueric*.n nu Private Sub nuBEnter(sender As Cbect, e As EventArgs) 0andles nuEnter

2?


28/35


nuSelect(5, nu&alue$oString6engt%) End Sub Private Sub nuBGotocus(sender As Cbect, e As EventArgs) 0andles nuGotocus nuDacH#olor - #olor6ig%t#yan End Sub Private Sub nuB6ostocus(sender As Cbect, e As EventArgs) 0andles nu6ostocus nuDacH#olor - #olorL%ite End Sub Private Sub nuBPrevieKey.on(sender As Cbect, e As PrevieKey.onEventArgs ) 0andles nuPrevieKey.on ! eKey#ode - KeysEnter $%en e!s!n*utKey - $rue End ! End Sub Private Sub nuBKey.on(sender As Cbect, e As KeyEventArgs) 0andles nuKey.on 'Si la tecla *resionada es Enter8 ! eKey#ode - KeysEnter $%en SendKeysSend("T$ADU") eSu**ressKeyPress - $rue 'Su*rie el Enter8, *ero a de4s no suena el Din End ! 'Si utili:aos e0andled-true, ignora el Enter8, *ero suena el Din End Sub Private Sub nuBouse#licH(sender As Cbect, e As ouseEventArgs) 0andles nuouse#licH nuSelect(5, nu&alue$oString6engt%) End Sub 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB #C$RC6 ueric*.n nu Private Sub nuBEnter(sender As Cbect, e As EventArgs) 0andles nuEnter nuSelect(5, nu&alue$oString6engt%) End Sub

Private Sub nuBGotocus(sender As Cbect, e As EventArgs) 0andles nuGotocus nuDacH#olor - #olor6ig%t#yan End Sub Private Sub nuB6ostocus(sender As Cbect, e As EventArgs) 0andles nu6ostocus nuDacH#olor - #olorL%ite End Sub Private Sub nuBPrevieKey.on(sender As Cbect, e As PrevieKey.onEventArgs ) 0andles nuPrevieKey.on ! eKey#ode - KeysEnter $%en e!s!n*utKey - $rue End ! End Sub Private Sub nuBKey.on(sender As Cbect, e As KeyEventArgs) 0andles nuKey.on 'Si la tecla *resionada es Enter8 ! eKey#ode - KeysEnter $%en SendKeysSend("T$ADU") eSu**ressKeyPress - $rue 'Su*rie el Enter8, *ero a de4s no suena el Din End ! 'Si utili:aos e0andled-true, ignora el Enter8, *ero suena el Din End Sub

Private Sub nuBouse#licH(sender As Cbect, e As ouseEventArgs) 0andles nuouse#licH nuSelect(5, nu&alue$oString6engt%) End Sub 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB #C$RC6 ueric*.n nuP Private Sub nuPBEnter(sender As Cbect, e As EventArgs) 0andles nuPEnter nuPSelect(5, nuP&alue$oString6engt%) End Sub Private Sub nuPBGotocus(sender As Cbect, e As EventArgs) 0andles nuPGotocus nuPDacH#olor - #olor6ig%t#yan End Sub Private Sub nuPB6ostocus(sender As Cbect, e As EventArgs) 0andles nuP6ostocus nuPDacH#olor - #olorL%ite End Sub Private Sub nuPBPrevieKey.on(sender As Cbect, e As PrevieKey.onEventArgs ) 0andles nuPPrevieKey.on ! eKey#ode - KeysEnter $%en e!s!n*utKey - $rue End ! End Sub

Private Sub nuPBKey.on(sender As Cbect, e As KeyEventArgs) 0andles nuPKey.on 'Si la tecla *resionada es Enter8 ! eKey#ode - KeysEnter $%en SendKeysSend("T$ADU") eSu**ressKeyPress - $rue 'Su*rie el Enter8, *ero a de4s no suena el Din End ! 'Si utili:aos e0andled-true, ignora el Enter8, *ero suena el Din End Sub Private Sub nuPBouse#licH(sender As Cbect, e As ouseEventArgs) 0andles nuPouse#licH nuPSelect(5, nuP&alue$oString6engt%) End Sub BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBdgvA Private Sub dgvABEditing#ontrolS%oing(sender As Cbect, e As .ataGrid&ieEditing#ontrolS%oingEventArgs)0andles dgvAEditing#ontrolS%oing #eldaA - $ry#ast(e#ontrol, .ataGrid&ie$e/tDo/Editing#ontrol )

2@


29/35


'#eldaA - $ry#ast(e#ontrol, $e/tDo/) End Sub Private Sub dgvAB#olunAdded(sender As Cbect, e As .ataGrid&ie#olunEventArgs) 0andles dgvA#olunAdded e#olunSortode - .ataGrid&ie#olunSortodeotSortable End Sub Private Sub dgvABKey.on(sender As Cbect, e As KeyEventArgs) 0andles dgvAKey.on ! eKey#ode - KeysEnter $%en SendKeysSend("T$ADU") eSu**ressKeyPress - $rue End ! End Sub Private Sub dgvABGotocus(sender As Cbect, e As EventArgs) 0andles dgvAGotocus dgvA#urrent#ellSelected - $rue End Sub Private Sub dgvAB6ostocus(sender As Cbect, e As EventArgs) 0andles dgvA6ostocus dgvA#learSelection() End Sub 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBdgvD Private Sub dgvDBEditing#ontrolS%oing(sender As Cbect, e As .ataGrid&ieEditing#ontrolS%oingEventArgs)0andles dgvDEditing#ontrolS%oing #eldaD - $ry#ast(e#ontrol, .ataGrid&ie$e/tDo/Editing#ontrol ) '#eldaD - $ry#ast(e#ontrol, $e/tDo/) End Sub Private Sub dgvDB#olunAdded(sender As Cbect, e As .ataGrid&ie#olunEventArgs) 0andles dgvD#olunAdded e#olunSortode - .ataGrid&ie#olunSortodeotSortable End Sub Private Sub dgvDBGotocus(sender As Cbect, e As EventArgs) 0andles dgvDGotocus dgvD#urrent#ellSelected - $rue

End Sub Private Sub dgvDB6ostocus(sender As Cbect, e As EventArgs) 0andles dgvD6ostocus dgvD#learSelection() End Sub Private Sub dgvDBKey.on(sender As Cbect, e As KeyEventArgs) 0andles dgvDKey.on ! eKey#ode - KeysEnter $%en SendKeysSend("T$ADU") eSu**ressKeyPress - $rue End ! End Sub 'BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB


30/35


e/t '6lenado de atri: D or i - 5 $o n 1 or H - 5 $o * 1 ! dgvD(H, i)&alue 8 ayorD $%en ayorD - dgvD(H, i)&alue End ! ! dgvD(H, i)&alue enorD $%en enorD - dgvD(H, i)&alue End ! e/t e/t ! ayorA - enorA $%en essageDo/S%o("$odos los valores de la atri: VAW son iguales", "atri: VAW") Else essageDo/S%o("9ero ayor de AO " J ayorA$oString() J vb#r6 J "9ero enor de AO " J enorA$oString(), "atri: VAW", essageDo/DuttonsCK, essageDo/!con!noration) End ! ! ayorD - enorD $%en essageDo/S%o("$odos los valores de la atri: VDW son iguales", "atri: VDW") Else essageDo/S%o("9ero ayor de DO " J ayorD$oString() J vb#r6 J "9ero enor de DO " J enorD$oString(), "atri: VDW", essageDo/DuttonsCK, essageDo/!con!noration) End ! End Sub Protected Cverrides unction Process#dKey(DyRe sg As SysteLindosorsessage, Dy&al Hey.ata As

SysteLindosors Keys) As Doolean Select #ase Hey.ata #ase KeysEnter ! ((#eldaA !sot ot%ing) AndAlso (#eldaAocused)) $%en SendKeysSend("T$ADU") Return $rue 'Se le indica ue ya se *roces7 la tecla, ue no la *rocese el sist Else! ((#eldaD !sot ot%ing) AndAlso (#eldaDocused)) $%en ! (dgvD#urrent#ellRo!nde/ - dgvDRos#ount 1) And (dgvD#urrent#ell#olun!nde/ - dgvD#oluns#ount 1) $%en btnulti*licarocus() Else SendKeysSend("T$ADU") End ! Return $rue 'Se le indica ue ya se *roces7 la tecla, ue no la *rocese el sist End ! #ase Keys$ab ! (dgvD !sot ot%ing) AndAlso (dgvDocused) $%en ! (dgvD#urrent#ellRo!nde/ - dgvDRos#ount 1) And (dgvD#urrent#ell#olun!nde/ - dgvD#oluns#ount 1) $%en

btnulti*licarocus() Return $rue End ! End ! End Select Return yDaseProcess#dKey(sg, Hey.ata) End unction Private Sub btnSuatoriaB#licH(sender As Cbect, e As EventArgs) 0andles btnSuatoria#licH ! dgvA&isible - alse Cr dgvD&isible - alse $%en essageDo/S%o(".eben %aber dos atrices *ara ostrar estos datos", "Suatoria", essageDo/DuttonsCK, essageDo/!conE/claation) Return End ! .i As !nteger - nu&alue .i n As !nteger - nu&alue .i * As !nteger - nuP&alue .i A(, n) As .ecial .i D(n, *) As .ecial .i i As !nteger

.i As !nteger .i H As !nteger .i SuaA As .ecial - 5 .i SuaD As .ecial - 5 '6lenado de atri: A or i - 5 $o 1 or - 5 $o n 1 SuaA J- dgvA(, i)&alue e/t e/t '6lenado de atri: D or i - 5 $o n 1 or H - 5 $o * 1 SuaD J- dgvD(H, i)&alue

35


31/35


e/t e/t essageDo/S%o("6a Suatoria de VAW esO " J SuaA$oString() J vb#r6 J "6a Suatoria de VDW esO " J SuaD$oString(), "Suatoria", essageDo/DuttonsCK, essageDo/!con!noration) End Sub Private Sub dgvDB#ell#ontent#licH(sender As Cbect, e As .ataGrid&ie#ellEventArgs) 0andles dgvD#ell#ontent#licH End SubEnd #lass

Frm%a$rizC.vb

Public #lass ratri:# Private Producto(,) As .ecial Public Sub e(# As .ecial(,)) ' Esta llaada es e/igida *or el diseXador !nitiali:e#o*onent() ' Agregue cualuier iniciali:aci7n des*u


32/35


M%+'"M!n'"

S0%*'"i%

32


33/35


M(*i2(i&%&i'n

33


34/35


CONC%USIÓN

T"%# !( $!#%""'((' $! !#*% %&*ii$%$ #! ('"%n %7i%n-%" &'n'&i0i!n*'# *!6"i&'# +

2",&*i&'# "!#2!&*' % .NET8 "!&'"$%n$' + %2(i&%n$' $i7!"!n*!# *!0,*i&%# &'0' ');!*'#8!!n*'#8 7'"0%# &'n*"'(!#8 2"'2i!$%$!#8 %"i%)(!# + *i2'# $! $%*'#8 0%n!;' $! (% &%;%$! 5!""%0i!n*%#.

S! ('"% i$!n*i7i&%" =! ('# (!n%;!# $! %(*' ni!( &'0' (' !# .NET #! $!#%""'((%"'n

&'n !( ');!*i' $! #!" 0,# %&&!#i)(!# + !n*!n$i)(!# 2'" (% 0%+'"/% $! $!#%""'((%$'"!#8$! 0%n!"% =! #! 2!$% &'n&!n*"%"#! 0,# !n "!#'(!" (% *%"!% ' ('# 2"')(!0%# + n'!n !( (!n%;! =! (% 0%=in% *!n/% =! !n*!n$!".

3+


35/35


BIB%IO&R'()'

V%n!%#8 C%"('# A()!"*'8 Vi#%( B%#i& + ASP.N!* % # %(&%n&!. Ni!( B%#i&' In*!"0!$i'B''*%8 En!"' 11

S'0 8 Gi(!"0' !( Gi((!. C"#' $! ini&i%&i6n % (% 2"'"%0%&i6n &'n Vi#%( B%#i& .NET

Mi&"'#'7* Vi#%( S*$i' 1 *"%)%;% &'n !( 0%"&' $! *"%)%;' .NET F"%0! &'n %(n%# $!!#*%# &%"%&*!"/#*i&%#. T'0%$' $!:5**2#:0#$n.0i&"'#'7*.&'0!#X!#(i)"%"+0#11444@#.1W.%#2

Actividad2Unidad1G8

Documents

Transcript of Actividad2Unidad1G8