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

Restaurante

programa para hallar el total a pagar de un restaurante.

la siguente es la programacion:

Private Sub Command1_Click()
Dim a, b, c, d, e, f, g, h, i, j As Integer

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
e = Val(Text5.Text)
f = Val(Text6.Text)
g = Val(Text7.Text)
h = Val(Text8.Text)

i = (a * GrdMenu.TextArray(3)) + (b * GrdMenu.TextArray(5)) + (c * GrdMenu.TextArray(7)) + (d * GrdMenu.TextArray(9)) + (e * GrdMenu.TextArray(11)) + (f * GrdMenu.TextArray(13)) + (g * GrdMenu.TextArray(15)) + (h * GrdMenu.TextArray(17))
Text9.Text = i
j = (i * 0.18)
Text10.Text = j

Text9.Text = (i + j)

End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
GrdMenu.Cols = 2
GrdMenu.Rows = 9
GrdMenu.FixedCols = 0
GrdMenu.FixedRows = 1
GrdMenu.TextArray(0) = "Menú"
GrdMenu.TextArray(1) = "Precio"
GrdMenu.TextArray(2) = "Hamburguesa"
GrdMenu.TextArray(3) = "2500"
GrdMenu.TextArray(4) = "Cerveza"
GrdMenu.TextArray(5) = "4000"
GrdMenu.TextArray(6) = "Gaseosa"
GrdMenu.TextArray(7) = "3000"
GrdMenu.TextArray(8) = "Ensalada"
GrdMenu.TextArray(9) = "1500"
GrdMenu.TextArray(10) = "Salchichas"
GrdMenu.TextArray(11) = "2000"
GrdMenu.TextArray(12) = "Refresco"
GrdMenu.TextArray(13) = "1000"
GrdMenu.TextArray(14) = "Sopa"
GrdMenu.TextArray(15) = "1050"
GrdMenu.TextArray(16) = "Postre"
GrdMenu.TextArray(17) = "1500"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text1.Text = "" Then
    MsgBox ("digite un numero")
     Text1.SetFocus
  Else
  Text2.SetFocus
  End If
  End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text2.Text = "" Then
    MsgBox ("digite un numero")
     Text2.SetFocus
  Else
  Text3.SetFocus
  End If
  End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text3.Text = "" Then
    MsgBox ("digite un numero")
     Text3.SetFocus
  Else
  Text4.SetFocus
  End If
  End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text4.Text = "" Then
    MsgBox ("digite un numero")
     Text4.SetFocus
  Else
  Text5.SetFocus
  End If
  End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text5.Text = "" Then
    MsgBox ("digite un numero")
     Text5.SetFocus
  Else
  Text6.SetFocus
  End If
  End If
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text6.Text = "" Then
    MsgBox ("digite un numero")
     Text6.SetFocus
  Else
  Text7.SetFocus
  End If
  End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text7.Text = "" Then
    MsgBox ("digite un numero")
     Text7.SetFocus
  Else
  Text8.SetFocus
  End If
  End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text8.Text = "" Then
    MsgBox ("digite un numero")
     Text8.SetFocus
  Else
  Text8.SetFocus
  End If
  End If
End Sub



Calculo de salario neto

la siguiente es la programación:

Private Sub Command1_Click()
 Text4.Text = Text2 * Text3
 Text5.Text = Text4 * 0.2
 Text6.Text = Text4 - Text5


End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text1.Text = "" Then
    MsgBox ("digite un nombre")
     Text1.SetFocus
  Else
  Text2.SetFocus
  End If
  End If
 
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text2.Text = "" Then
    MsgBox ("digite un numero")
     Text2.SetFocus
  Else
  Text3.SetFocus
  End If
  End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Text3.Text = "" Then
    MsgBox ("digite un numero")
     Text3.SetFocus
  Else
  Text3.SetFocus
  End If
  End If
End Sub

ejemplos visual

partes de la guitarra

Esta aplicación nos muestra las partes de la guitarra.

La siguiente es la programación:

Private Sub Image1_Click()
Private Sub Command1_Click()
EndEnd SubPrivate Sub Label10_Click()
Label1.Caption = "cuerpo o caja"
End SubPrivate Sub Label11_Click()
Label1.Caption = "costados"
End SubPrivate Sub Label2_Click()
Label1.Caption = "clavijero"
End SubPrivate Sub Label3_Click()
Label1.Caption = "cejuela"
End SubPrivate Sub Label4_Click()
Label1.Caption = "trastes"
End SubPrivate Sub Label5_Click()
Label1.Caption = "mastil"
End SubPrivate Sub Label6_Click()
Label1.Caption = "diapason"
End SubEnd SubPrivate Sub Label7_Click()
Label1.Caption = "boca"
End SubPrivate Sub Label8_Click()
Label1.Caption = "cuerdas"
End SubPrivate Sub Label9_Click()
Label1.Caption = "puente"
End Sub

componentes del pc

Esta aplicacion nos muestra las partes del pc.

la siguiente es la programación:

Private Sub Command1_Click()
End

End Sub

Private Sub Form_Load()

End Sub

Private Sub Label2_Click()
Label1.Caption = "monitor"
End Sub

Private Sub Label3_Click()
Label1.Caption = "torre"
End Sub

Private Sub Label4_Click()
Label1.Caption = "parlantes"
End Sub

Private Sub Label5_Click()
Label1.Caption = "teclado"
End Sub

Private Sub Label6_Click()
Label1.Caption = "mouse"
End Sub