UCV / EECA / COMPUTACION I / PRACTICA No.2
Prof. Amarilis García
MAPA DE NAVEGACIÓN
UCV / EECA / COMPUTACION I / PRACTICA No.2
Prof. Amarilis García
Nombre de los controles que tienen asociado códigos
Txt_N
Fra_01
Cmd_Continuar1
Fra_02
Txt_NUMERO
Cmd_Continuar2
Fra_03
Txt_Sp
Txt_Si
Txt_Cp
Txt_Ci
Cmd_Continuar3
Cmd_Fin
Código en Visual Basic
Declaración de variables
Option Explicit
Public n As Integer, NUMERO As Integer, CP As Integer, CI As
Integer, I As Integer, SP As Integer
Public Si As Integer, k1 As Double, k2 As Integer
Private Sub Cmd_Continuar2_Click()
I=I+1
NUMERO = Val(Txt_NUMERO)
Debug.Print "I:", I, "numero", NUMERO
k1 = NUMERO / 2
k2 = Int(k1)
If k1 = k2 Then
CP = CP + 1
SP = SP + NUMERO
Else
CI = CI + 1
Si = Si + NUMERO
End If
If I = n Then
Cmd_Continuar2.Enabled = False
Txt_Sp = SP
Txt_Cp = CP
Txt_Si = Si
Txt_Ci = CI
Fra_03.Visible = True
End If
Txt_NUMERO = ""
End Sub
Private Sub Cmd_Fin_Click()
End
End Sub
UCV / EECA / COMPUTACION I / PRACTICA No.2
Prof. Amarilis García
Private Sub Cmd_Continuar3_Click()
Fra_01.Visible = True
Fra_02.Visible = False
Fra_03.Visible = False
Txt_N.Enabled = True
Nota: En color
Cmd_Continuar1.Enabled = True
morado se destaca
Cmd_Continuar2.Enabled = True
el nombre de los
Txt_N = ""
controles que
Txt_NUMERO = ""
tienen
asociado
Txt_Sp = ""
código.
Txt_Cp = ""
Txt_Si = ""
Txt_Ci = ""
CP = 0: CI = 0: SP = 0: Si = 0
End Sub
Private Sub Cmd_Continuar1_Click()
n = Val(Txt_N)
I=0
Cmd_Continuar1.Enabled = False
Txt_N.Enabled = False
Fra_02.Visible = True
End Sub
Private Sub Form_Load()
Fra_01.Visible = True
Fra_02.Visible = False
Fra_03.Visible = False
CP = 0: CI = 0: SP = 0: Si = 0
End Sub