Tecnologias de la Informacion: septiembre 2009

Genera Numeros Aleatorios

Breve Descripción del Programa:

"Genera numeros aleatorios, segun los deseados"

Private Sub generar_Click()
Dim List As String
For i = 1 To Val(num)
num = Int((100 * Rnd) + 1)
List = Format(num, "0000")
List1.AddItem (List)
Next
End Sub

Private Sub clean_Click()
num = ""
List1.Clear
num.SetFocus
End Sub

Numeros Aleatorios "Filas de 10"

Breve Descripción del Programa:

"Captura, ordena ascendente y descendente mente numeros aleatorios"

Dim arreglo(99) As Integer
Dim I As Integer

Private Sub generar_Click()
For I = 0 To 99
arreglo(I) = CInt(Rnd(100) * 100)
lista.AddItem arreglo(I)
Next I
End Sub
Private Sub mascendente_Click()
lista.Clear
For I = 0 To 99 Step 1
lista.AddItem arreglo(99 - I)
Next I
End Sub
Private Sub mdescendente_Click()
lista.Clear
For I = 0 To 99
lista.AddItem arreglo(I)
Next I
End Sub

Promedio De 3°C Informatica

Breve Descripción del Programa:

"Este programa realiza el promedio individual de cada alumno, y lo almacena en una lista"

Private Sub clean_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text8 = ""
nombre = ""
Label3 = ""
clean.SetFocus
End Sub

Private Sub p1_Click(Index As Integer)
Dim n1 As Double, n2 As Double, n3 As Double, n4 As Double, n5 As Double, n6 As Double
Dim promedio As Integer
n1 = Val(Text1)
n2 = Val(Text2)
n3 = Val(Text3)
n4 = Val(Text4)
n5 = Val(Text5)
n6 = Val(Text6)
promedio = ((n1 + n2 + n3 + n4 + n5 + n6) / 6)
Label3 = (promedio)
If promedio > 9.5 Then
Text8 = "Exelente"
End If
If promedio > 9 And promedio < 9.5 Then
Text8 = "Muy Bien"
End If
If promedio > 8.5 And promedio < 9 Then
Text8 = "Bien"
End If
If promedio >= 8 And promedio < 8.5 Then
Text8 = "Regular"
End If
If promedio < 8 Then
Text8 = "Mal"
End If
End Sub

Private Sub salir_Click()
Unload Me
End
End Sub
Private Sub save_Click()
Dim item As String
Dim item2 As Integer
item = UCase(nombre)
item2 = UCase(Label3)
List1.AddItem (nombre)
List2.AddItem (Label3)
End Sub

Temperatura "Celcius a Farenheit"

Breve Descripción del Programa:

"Convierte temperaturas de Grados Centigrados °C > Grados Farenheit °F"

Private Sub convert_Click()
cent = (9 / 5) * (Text1)
po = cent + 32
Label1 = po
Text1 = ""
Text1.SetFocus
End Sub

Private Sub exit_Click()
End
End Sub

Muestra la Hora Actual

Breve Descripción del Programa:

"Muestra la hora actual del sistema"

Private Sub Timer1_Timer()
hora = time
End Sub

Calculadora

Breve Descripción del Programa:

"Este programa es una tipica calculadora estandar que realiza operaciones simples; suma, resta, multiplicación y división.

Dim op As String
Dim num1 As Integer
Dim num2 As Integer

Private Sub cmd0_Click()
screen.Text = screen.Text & "0"
End Sub

Private Sub cmd1_Click()
screen.Text = screen.Text & "1"
End Sub

Private Sub cmd2_Click()
screen.Text = screen.Text & "2"
End Sub

Private Sub cmd3_Click()
screen.Text = screen.Text & "3"
End Sub

Private Sub cmd4_Click()
screen.Text = screen.Text & "4"
End Sub

Private Sub cmd5_Click()
screen.Text = screen.Text & "5"
End Sub

Private Sub cmd6_Click()
screen.Text = screen.Text & "6"
End Sub

Private Sub cmd7_Click()
screen.Text = screen.Text & "7"
End Sub

Private Sub cmd8_Click()
screen.Text = screen.Text & "8"
End Sub

Private Sub cmd9_Click()
screen.Text = screen.Text & "9"
End Sub

Private Sub cmddivision_Click()
num1 = screen.Text
screen.Text = ""
op = "/"
End Sub

Private Sub cmdmulti_Click()
num1 = screen.Text
screen.Text = ""
op = "x"
End Sub

Private Sub cmdresta_Click()
num1 = screen.Text
screen.Text = ""
op = "-"
End Sub

Private Sub cmdresultado_Click()
num2 = screen.Text
If op = "+" Then
screen.Text = num1 + num2
ElseIf op = "-" Then
screen.Text = num1 - num2
ElseIf op = "-" Then
screen.Text = num1 - num2
ElseIf op = "x" Then
screen.Text = num1 * num2
ElseIf op = "/" Then
screen.Text = num1 / num2
End If

End Sub

Private Sub cmdsuma_Click()
num1 = screen.Text
screen.Text = ""
op = "+"
End Sub

Private Sub limpia_Click()
screen.Text = ""
End Sub

Captura de Datos

Breve Descripción del Programa:

"Almacena la fecha de nacimiento de un grupo de personas, y muestra el nombre, fecha de nacimiento y años en vida"

Private Sub Calendar1_Click()
calend = Format(Calendar1.Day, "00") + "/" + Format(Calendar1.Month, "00") + "/" + Format(Calendar1.Year, "0000")
End Sub

Private Sub sacar_Click()
Dim item As String
item = UCase(Text1) + Label6 + Str(Calendar1) + Label7
List1.AddItem (Text1 + Space(8) + Label6 + Space(8) + Label7)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Label7_Click()
Label6 = Calendar1
dday = Str(CDate(Label9.Caption) - CDate(Label6.Caption))
End Sub

Private Sub Label9_Click()
fecha = Date
End Sub

Combo "Lista de Nombres"

Breve Descripción del Programa:

"Escribe cualquier texto en la caja y lo almacena en una lista"

Private Sub add_Click()
Combo1.AddItem UCase(Text1)
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub new_Click()
Text1 = ""
Text1.SetFocus
End Sub

Dia, Mes y Año

Breve Descripción del Programa:

"Selecciona la fecha deseada, moviento las barras de desplazamiento"

Private Sub day_Change()
d1.Caption = day
End Sub

Private Sub mes_Change()
d2.Caption = mes
End Sub

Private Sub year_Change()
d3.Caption = year
End Sub