Private sub limpiar

Enviado por Programa Chuletas y clasificado en Física

Escrito el en español con un tamaño de 8,22 KB

 
Dim datos(0 To 3, 0 To 11) 'se define el arreglo de sta forma'
Dim sexo As String
'pa determinar el sexo'
Dim mensaje, titulo, valorpred, valor
'stas variables son para la conversion'
Dim d, m, a, i, trab, prof, prof2, vsa, fen As Integer

Private Sub Command1_Click()
If i > 3 Then 'la
variable i se usa para ordenar los datos en el arreglo'
MsgBox " el arreglo asta lleno", vbCritical, "programacion" 'pa q m avise q el arreglo sta lleno'
Else
datos(i, 0) = Text1.Text 'pa agregar los datos al arreglo'
datos(i, 1) = Text2.Text
datos(i, 2) = Text3.Text
datos(i, 3) = Text4.Text
datos(i, 4) = Text5.Text
datos(i, 5) = Text6.Text
datos(i, 6) = Combo1.Text
datos(i, 7) = Combo2.Text
datos(i, 8) = Combo3.Text
datos(i, 9) = sexo 'sta la variable del sexo de specifica en los option'
datos(i, 10) = Combo4.Text
datos(i, 11) = Text7.Text
i = i + 1
End If
End Sub

Private Sub Command2_Click()
Call limpiar 'secuencis'
End Sub

Private Sub Command3_Click()
If Command3.Value = True Then
If trab <= 3 Then
'para q avise q sta lleno el arreglo'
MSFlexGrid1.TextMatrix(trab2 + 1, 0) = datos(trab + 0, 0) & " " & datos(trab + 0, 1) 'para mostrar los datos en el grid'
MSFlexGrid1.TextMatrix(trab2 + 1, 1) = datos(trab + 0, 2) & " " & datos(trab + 0, 3)
MSFlexGrid1.TextMatrix(trab2 + 1, 2) = datos(trab + 0, 4) & " " & datos(trab + 0, 5)
MSFlexGrid1.TextMatrix(trab2 + 1, 3) = neto '
trab y trab2 son variables para que cambie la informacion'
MSFlexGrid1.TextMatrix(1, 4) = datos(0, 9)
Combo2.AddItem datos(0, 0) & "-" & datos(0, 1)
Combo2.AddItem datos(1, 0) & "-" & datos(1, 1)
Combo2.AddItem datos(2, 0) & "-" & datos(2, 1)
Combo2.AddItem datos(3, 0) & "-" & datos(3, 1)
trab = trab + 1
'hay q incrementar la variable para q los datos vajen'
trab2 = trab2 + 1
'If Command3.Value = True Then
For k = 0 To i
Combo1.AddItem datos(k, 0)
'agrega los nombres almacenados en el arreglo nombre'
Next k '
a la lista del combo'
End If
End If
'Combo5.AddItem Text1.Text & "-" & Text2.Text
End Sub

Private Sub Command4_Click()

If Command4.Value = True Then
If prof < 4 Then '
pa evitar q el arreglo se llene'
If prof2 <= 5 Then
MSFlexGrid2.TextMatrix(prof + 1, 0) = datos(prof2 + 0, 0) & " " & datos(0, 1)
'pa qgregar los datos al grid 2'
'MSFlexGrid2.TextMatrix (1,1)= ""' 'prof y prof2 son varibles pa q los datos vajen'
MSFlexGrid2.TextMatrix(prof + 1, 2) = datos(prof2 + 0, 10)
MSFlexGrid2.TextMatrix(prof + 1, 3) = datos(prof2 + 0, 11)
'MSFlexGrid2.TextMatrix(prof + 1, 4) =
prof = prof + 1
'incrementacion de los datos'
prof2 = prof2 + 1
Else
MsgBox "nose ingresan mas datos", vbCritical, "programa"
End If
End If
End If
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Form_Load()
fen = 0
vsa = 0
trab = 0
prof = 0
prof2 = 0
For d = 1 To 31
Combo1.AddItem (d)
Next d
Combo1.Text = Combo1.List(0)
For m = 1 To 12
Combo2.AddItem (m)
Next m
Combo2.Text = Combo2.List(0)
For a = 1960 To 1986
Combo3.AddItem (a)
Next a
Combo3.Text = Combo3.List(0)
Combo4.AddItem "ingieneria informatica"
Combo4.AddItem "ingieneria en minas"
Combo4.AddItem "ingeniero civil"
Combo4.AddItem "ingeniero agronomo"
'------------------------------------------------------------------
MSFlexGrid1.FixedCols = 0
'detalla las columnas fijas'
MSFlexGrid1.Cols = 5 '
detalla las columnas totales del grid'
MSFlexGrid1.FixedRows = 1 '
detalla las filas fijas'
MSFlexGrid1.Rows = 2 'detalla las filas totales del grid
MSFlexGrid1.TextMatrix(0, 0) = "rut"
MSFlexGrid1.TextMatrix(0, 1) = "nombre"
MSFlexGrid1.TextMatrix(0, 2) = "apellido"
MSFlexGrid1.TextMatrix(0, 3) = "edad"
MSFlexGrid1.TextMatrix(0, 4) = "sexo"
'------------------------------------------------------------------
MSFlexGrid2.FixedCols = 0
MSFlexGrid2.Cols = 5
MSFlexGrid2.FixedRows = 1
MSFlexGrid2.Rows = 5
MSFlexGrid2.TextMatrix(0, 0) = "rut"
MSFlexGrid2.TextMatrix(0, 1) = "edad"
MSFlexGrid2.TextMatrix(0, 2) = "profesion"
MSFlexGrid2.TextMatrix(0, 3) = "sueldo bruto"
MSFlexGrid2.TextMatrix(0, 4) = "sueldo neto"
'------------------------------------------------------------------
MSFlexGrid1.ColWidth(0) = 1500
MSFlexGrid1.ColWidth(1) = 1500
MSFlexGrid1.ColWidth(2) = 1500
MSFlexGrid1.ColWidth(3) = 1500
MSFlexGrid1.ColWidth(4) = 1000

MSFlexGrid2.ColWidth(0) = 1500
MSFlexGrid2.ColWidth(1) = 1500
MSFlexGrid2.ColWidth(2) = 1500
MSFlexGrid2.ColWidth(3) = 1500
MSFlexGrid2.ColWidth(4) = 1500

End Sub

Private Sub MSFlexGrid1_Click()

End Sub

Private Sub Option1_Click()
sexo = "masculino"
End Sub

Private Sub Option2_Click()
sexo = "femenino"
End Sub

Private Sub Option3_Click()
If vsa <= 4 Then
mensaje = "Conversion de pesos a dolares"
titulo = "ingrese el valor del dolar"
valorpred = "590"
valor = InputBox(mensaje, titulo, valorpred, 6000, 5000)
MSFlexGrid2.TextMatrix(vsa + 1, 4) = MSFlexGrid2.TextMatrix(vsa + 1, 3) / valor
vsa = vsa + 1
End If
End Sub

Private Sub Option4_Click()
If fen < 4 Then
'Call colorin
mensaje = "Conversion de pesos a euros"
titulo = "ingrese el valor del euro"
valorpred = "690"
valor = InputBox(mensaje, titulo, valorpred, 6000, 5000)
MSFlexGrid2.TextMatrix(fen + 1, 4) = MSFlexGrid2.TextMatrix(fen + 1, 3) / valor
fen = fen + 1
End If
End Sub

Private Sub Text1_Change()
'If IsNumeric(Text1.Text) = False Then
'msgBox "inbrese numeros", vbDefaultButton2, "error"
'Text1.Text = ""
'Text1.SetFocus
'End If
End Sub

Private Sub Text1_Keypress(Keyascci As Integer)
'If Keyascci = 13 Then
'If IsNumeric(Text1.Text) = False Then
'MsgBox "ingrese valores numericos en la tabla rut", vbCritical, "progrma"
'Text1.Text = ""
'Else
'Text2.SetFocus
'End If
'End If
End Sub

Private Sub Text2_Change()

'If IsNumeric(Text2.Text) = True Then
'MsgBox " no se ingresan numeros en esta tabla", vbAbortRetryIgnore, "error"
'Text2.Text = ""
'Text2.SetFocus
'End If
End Sub

Private Sub Text2_Keypress(Keyascci As Integer)
'If Keyascci = 13 Then
'If IsNumeric(Text2.Text) = True Then
'MsgBox "No se pueden ingresar numeros en la tabla 2", vbCritical, "error"
'Text2.Text = ""
'Text2.SetFocus

'End If
'End If
End Sub
Private Sub limpiar()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo1.Text = Combo1.List(0)
Combo2.Text = Combo2.List(0)
Combo3.Text = Combo3.List(0)
'Option1.Value = 0
'Option2.Value = 0
Combo4.Text = Combo4.List(0)
Text7.Text = ""
Text1.SetFocus
End Sub
Function edad()
edad = (2006 - Combo3.Text)

End Function

Entradas relacionadas: