MAPA MENTAL; MANTENIMIENTO PREVENTIVO

EVALUACION 4 PERIODO

Programa para calcular si es mayor o menor de edad . 

la siguiente es la programacion:

Private Sub Command1_Click()
Dim a As Integer
 a = Text2.Text

If a < 17 Then
Label3 = "MENOR DE EDAD"
    End If
If a >= 18 Then
Label3 = "MAYOR DE EDAD"
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Label3 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 
    Text2.SetFocus
    End If
End Sub

Programa para calcular el descuento segun su consumo.

la siquiente es la programacion:

Private Sub Command1_Click()

If Text1.Text < 500000 Or Text1.Text > 300000 Then
    Text2.Text = Text1.Text * 0.1
    Text3.Text = Text1.Text - Text2.Text
Else
Text2.Text = 0
Text3.Text = Text1.Text - Text2.Text
 End If

 If Text1.Text > 1000000 Then
 Text2.Text = Text1.Text * 0.2
    Text3.Text = Text1.Text - Text2.Text
  Else
Text2.Text = 0
Text3.Text = Text1.Text - Text2.Text


End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

Private Sub Command3_Click()
End
End Sub

ENCUESTA

para ver encuesta:click aqui

Fecha

Programa para cambiar la fecha a letras .

La siguiente es la programación:

Private Sub Command1_Click()

If Text2.Text = "2" Then

    Label4 = Text1.Text + " de febrero de " + Text3.Text

End If

If Text2.Text = "1" Then

    Label4 = Text1.Text + " de enero de " + Text3.Text

End If

If Text2.Text = "3" Then

    Label4 = Text1.Text + " de marzo de " + Text3.Text

End If

If Text2.Text = "4" Then

    Label4 = Text1.Text + " de abril de " + Text3.Text

End If

If Text2.Text = "5" Then

    Label4 = Text1.Text + " de mayo de " + Text3.Text

End If

If Text2.Text = "6" Then

    Label4 = Text1.Text + " de junio de " + Text3.Text

End If

If Text2.Text = "7" Then

   Label4 = Text1.Text + " de julio de " + Text3.Text

End If

 If Text2.Text = "8" Then

    Label4 = Text1.Text + " de agosto de " + Text3.Text

End If

If Text2.Text = "9" Then

    Label4 = Text1.Text + " de septiembre de " + Text3.Text

End If

If Text2.Text = "10" Then

    Label4 = Text1.Text + " de octubre de " + Text3.Text

End If

If Text2.Text = "11" Then

    Label4 = Text1.Text + " de noviembre de " + Text3.Text

End If

If Text2.Text = "12" Then

    Label4 = Text1.Text + " de diciembre de " + Text3.Text

End If

  

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Label4 = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Calcular salario de una persona:

Programa para hallar sueldo neto de una persona.

La siguiente es la programación :

Private Sub Check1_Click()

Text5.Text = Text2 * 0.03

End Sub

Private Sub Check2_Click()

Text6.Text = Text2 * 0.07

End Sub

Private Sub Check3_Click()

Text7.Text = Text2 * 0.01

End Sub

Private Sub Command1_Click()

Dim a, b, c As Integer

a = Text2.Text

b = Text3.Text

c = Text4.Text

Text8.Text = (((a + (b * c)) - (Text5.Text)) - Text6.Text) - Text7.Text

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = 0

Text6.Text = 0

Text7.Text = 0

Text8.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Text5.Text = 0

Text6.Text = 0

Text7.Text = 0

End Sub

Private Sub Option1_Click()

Text4.Text = 10000

End Sub

Private Sub Option2_Click()

Text4.Text = 15000

End Sub

Calculo de la edad de una persona

La siguiente es la programacion: 

Private Sub Command1_Click()
Dim a As Date, b As Integer
a = CDate(Text1.Text)

b = CInt((Date - a) / 365)
Text2.Text = Str(b) & "años"
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub