Procedimientos de usuario

 

Click en la imagen para ver la clase

Funciones de usuario

 

Click en la imagen para ver el tema

ejemplo de funciones de usuarios

Function Porcentaje(arg1_Valor As Currency, arg2_Porcentaje As Currency) As Currency

    Porcentaje = arg1_Valor * arg2_Porcentaje / 100

End Function

 

Function ValiCodigo(Codigo As String) As Boolean

  Dim Zona As String, CalendarioE As String, NroMatricula As Integer

  Dim Descuento As Currency, VlrMatricula As Currency, NetoP As Currency

 

  If Not Len(Codigo) = 5 Then

    MsgBox "El código debe ser de 5 caracteres", vbInformation, "Error"

    ValiCodigo = False

    Exit Function

  End If

 

  Zona = UCase(Left(Codigo, 1))

 

  Select Case Zona

    Case "N", "C", "S"

       MsgBox "LA ES zona CORRECTA!", vbInformation, "OK"

    Case Else

      MsgBox "Primer caracter debe ser N, C ó S", vbInformation, "Error"

      ValiCodigo = False

      Exit Function

  End Select

 

 

  CalendarioE = UCase(Mid(Codigo, 2, 1))

  Select Case CalendarioE

    Case "A", "B"

       MsgBox "Estudiante de calendario A Ó B", vbInformation, "OK"

    Case Else

      MsgBox "EL segundo caracter debe ser A ó B", vbInformation, "Error"

      ValiCodigo = False

      Exit Function

  End Select

 

  If IsNumeric(Right(Codigo, 3)) Then

    ValiCodigo = True

  Else

    MsgBox "Los 3 ultimos caracteres deben ser nros", vbInformation, "Error"

    ValiCodigo = False

    Exit Function

  End If

End Function

 

Private Sub CommandButton1_Click()

  TextBox3 = Porcentaje(Val(TextBox1), Val(TextBox2))

  If ValiCodigo(TextBox4) Then

    MsgBox "Código Correcto!!", vbExclamation, "OK"

  Else

    MsgBox "Error en el Código !!", vbCritical, "ERROR"

  End If

End Sub

Funciones de Visual Basic - Taller

Click en la imagen para ver el tema y el taller

Código del Botón Aceptar

Private Sub CommandButton1_Click()

  Dim Zona As String, CalendarioE As String, NroMatricula As Integer

  Dim Descuento As Currency, VlrMatricula As Currency, NetoP As Currency

  

  If Not Len(TextBox1) = 5 Then

    MsgBox "El código debe ser de 5 caracteres", vbInformation, "Error"

    Exit Sub

  End If

  

  Zona = UCase(Left(TextBox1, 1))

  

  Select Case Zona

    Case "N"

       MsgBox "Estudiante de zona Norte!", vbInformation, "OK"

    Case "C"

       MsgBox "Estudiante de Centro Norte!", vbInformation, "OK"

    Case "S"

       MsgBox "Estudiante de Sur Norte!", vbInformation, "OK"

    Case Else

      MsgBox "Primer caracter debe ser N, C ó S", vbInformation, "Error"

      Exit Sub

  End Select

  

  CalendarioE = UCase(Mid(TextBox1, 2, 1))

  

  Select Case CalendarioE

    Case "A"

       MsgBox "Estudiante de calendario A!", vbInformation, "OK"

    Case "B"

       MsgBox "Estudiante de Calendario B!", vbInformation, "OK"

    Case Else

      MsgBox "EL segundo caracter debe ser A ó B", vbInformation, "Error"

      Exit Sub

  End Select

  

  If IsNumeric(Right(TextBox1, 3)) Then

    NroMatricula = Right(TextBox1, 3)

  Else

    MsgBox "Los 3 ultimos caracteres deben ser nros", vbInformation, "Error"

    Exit Sub

  End If

  

  If Not IsNumeric(TextBox3) Then

    MsgBox "El valor matricula debe ser un numero", vbExclamation, "ERROR"

    Exit Sub

  End If

  

  '==================================================

  'programar descuento y el neto a pagar

 '==================================================

  

  

  

End Sub

Plan de trabajo III Periiodo

Funciones de Visual Basic

Click en la imagen para ver el tema

Ciclos o Bucles

Click en la imagen para ver el tema

Trabajar con Vídeo

Click en la imagen para ver el tema