Visual Basic

APLICACIÓN Nº 1

AREAS DE FIGURAS GEOMETRICAS

Command1
X= Val (text1.text)
Z= X*X
Text4.text=Z

Command2
X= Val (text1.text)
Y= Val (text2.text)
Z= X*Y
Text4.text=Z

Command3
X= Val (text1.text)
Y= Val (text2.text)
Z= (X*Y)/2
Text4.text=Z

Command4
X= Val (text1.text)
Z= 2*3.1416*(X*X)
Text4.text=Z


Command5 y Command6 ya sabes desarrollarlo



APLICACIÓN Nº 2SUMA DE CUADRADOS

Command1
A= Val (text1.text)
B= Val (text2.text)
Z= A*A+2*A*B+B*B
X=A*A*A+3*A*A*B+3*A*B*B+B*B*B
Text3.text=Z
Text4.text=X







Command2 y Command3 ya sabes desarrollarlo
APLICACIÓN Nº 3

PAGOS DE SALARIOS

Private Sub Form_Load()
Dim nhoras, phora, básico, boni, ting, dto, tliq As Single
End Sub

COMMAND1
nhoras=0
phora=0
basico=0
boni=0ting=0
dto=0
tliq=0
nhoras=Val(text2.text)
phora=Val(text3.text)
boni=Val(text4.text)
basico=nhoras*phora
ting=basico+boni
dto=ting*5/100
tliq=ting-dto
text5.text=basico
text6.text=ting
text7.text=dto
text8.text=tliq

comand2
text1.text=””
text2.text=””
text3.text=””
text4.text=””
text5.text=””
text6.text=””
text7.text=””
text8.text=””

Command2 y Command3 ya sabesdesarrollarlo












APLICACIÓN Nº 4

SENTENCIA IF THEN ELSE ENDIF
Command1
Resp=Msgbox(“Seleccione”,vbquestion + vbYesNo, “Prueba”)
If Resp= vbYes then
Msgbox “Presiono Yes”
Else
Msgbox “Presiono No”
End if





APLICACIÓN Nº 5

PROMEDIO

Form_load
Dim N1, N2, N3, PRO,SIT AS Single

Command1
N1=0
N2=0
N3=0
PRO=0
SIT=0
N1=Val (text1.text)
N2=Val(text2.text)
N3=Val (text3.text)
If N1>20 or N120 or N220 or N310.4 then
Text5.text=”Aprobado”
Else
Text5.text=”Desaprobado”
End if
End if

Command2
text1.text=””
text2.text=””
text3.text=””
text4.text=””
text5.text=””
text1.Setfocus






APLICACIÓN Nº 6

MESES AÑO

COMMAND1
c=val(text1.text)
Select Case c
Case 1
Text2.text=”ENERO Y TIENE 31 DIAS”Case 2
Text2.text=”FEBRERO Y TIENE 28 O 29 DIAS”
Case 3
Text2.text=”MARZO Y TIENE 31 DIAS”
Case 4
Text2.text=”ABRIL Y TIENE 30 DIAS”
Case 5
Text2.text=”MAYO Y TIENE 31 DIAS”
Case 6
Text2.text=”JUNIO Y TIENE 30 DIAS”
Case 7
Text2.text=”JULIO Y TIENE 31 DIAS”
Case 8
Text2.text=”AGOSTO Y TIENE 31 DIAS”
Case 9
Text2.text=”SETIEMBRE Y TIENE 30 DIAS”
Case 10Text2.text=”OCTUBRE Y TIENE 31 DIAS”
Case 11
Text2.text=”NOVIEMBRE Y TIENE 30 DIAS”
Case 12
Text2.text=”DICIEMBRE Y TIENE 31 DIAS”
Case Else
Msgbox “DATOS MAL INGRESADOS”, vbInformation, “ERROR”
Text1.text=””
Text1.Setfocus
End select

[pic]




APLICACIÓN Nº 7

EDAD

COMMAND1
A= Val(text1.text)
EDAD=0
Select Case A
Case Is =0
Msgbox “DATOS MASL INGRESADOS”, vbInformation,“ERROR”
Text1.text=””
Text2.text=””
Text3.text=””
Text1.Setfocus
Case Is 2010
Msgbox “DATOS MASL INGRESADOS”, vbInformation, “ERROR”
Text1.text=””
Text2.text=””
Text3.text=””
Text1.Setfocus
End Select

Select Case EDAD
Case 1 to 5
Text3.text=”ERES UN NIÑO MUY PRECOZ”
Case 5 to 10
Text3.text=”ERES UN NIÑO MUY INTELIGENTE”
Case 11 to 16
Text3.text=”ERES UNADOLESCENTE CON ALMA”
Case 17 to 23
Text3.text=”ERES UN JOVEN QUE VIVE CON ALEGRIA”
Case 24 to 45
Text3.text=”ERES UN ADULTO VIVE CON PRUDENCIA”
Case Is>46
Text3.text=”ERES MADURO BRINDA EJEMPLO DE VIDA”
End Select

COMMAND2
text1.text=””
text2.text=””
text3.text=””
text1.Setfocus

[pic]
APLICACIÓN Nº 8

LISTBOX
Nota: poner el control List1 en las propiedadessiguientes
Columns 0(cero)
Sorted True

FORM_LOAD
Dim nuevo As String

List1_Click
If List1.ListIndex -1 Then
Text1.text = List1.List (List1.ListIndex)
End If

Command1
nuevo=InputBox (“Ingrese un Nuevo lugar maravilloso”, “Nuevo lugar maravilloso”)
If Len(nuevo)> 0 Then
List1.AddItem nuevo
End If

Command2
If List1.ListIndex -1 Then
List1.RemoveItem...