Programas Visual Basic

ALEJANDRA ECHEVERRIA
Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub

Private Sub Combo2_Click()
Text1.FontSize = Combo2.Text
End Sub

Private Sub Form_Load()
Dim i
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
Combo1.ListIndex = 0
For i = 8 To 100
Combo2.AddItem i
Combo1.ListIndex = 0
Next
End Sub
En este programa se utilizó el combobox, es una lista la cual nos permite tener varias opciones a elegir.
En este caso se agregó fontname, propiedad para cambiar el tipo de letra y se agregó el fontsize propiedad para cambiar el tamaño de la letra.
Este programa es como un pequeño diseño de Word el cual en un textbox nos permite cambiar el tipo y tamaño de lo que está escrito.

JORGE ROCA
Private Sub Check1_Click()
Text2 =Val(Text1) * 10
End Sub

Private Sub Check2_Click()
Text2 = Val(Text1) * 100
End Sub

Private Sub Check3_Click()
Text2 = Val(Text1) * 1000
End Sub

Private Sub Check4_Click()
Text2 = Val(Text1) / 1000
End Sub
En este programa se utilizó el Checkbox, el cual sirve comoun optionbox, para elegir distintas opciones.
Lo que realiza es que al seleccionar el checkbox convierte un número a losprogramado.
En este caso lo multiplica por 10, 100, 1000 y lo divide entro de 1000.

JHONATAN BARRIENTOS
Private Sub Command1_Click()
Text1.Text = Now
End Sub
La propiedad NOW es para indicar o adquirir la fecha y la hora exacta al momento que se activa.
En este caso al darle click al botón el texto del text1 adquiere la fecha y hora exacta en que se le dio click al botton de comando.JORGE BOCALETTI
Private Sub Command1_Click()
If Text1 = "raul" And Text2 = "xxx" Then
Form2.ShowForm1.Hide
Else
MsgBox "su clave es incorrecta", 36, "ERROR"
End If
End Sub
Aqui se usó la propiedad PASSWORD CHAR la cual cambia los caracteres del textbox por el símbolo indicado.
Se creó otro form indicando que si en el text1.text estaba la palabra raul y en el text2.text estaba la contraseñaxxx luego abriera el form 2.
Es un estilo contraseña para los programas.
En este programa es un form que al ingresar la contraseña correcta cambia a otro form y se cierra el de la contraseña.
JUAN PABLO CALDERON
Private Sub Timer1_Timer()
Shape1.BackColor = vbGreen
Shape2.BackColor = vbBlack
Shape3.BackColor = vbBlack
End Sub

Private Sub Timer2_Timer()
Shape1.BackColor = vbBlackShape2.BackColor = vbYellow
Shape3.BackColor = vbBlack
End Sub

Private Sub Timer3_Timer()
Shape1.BackColor = vbBlack
Shape2.BackColor = vbBlack
Shape3.BackColor = vbRed
End Sub
Se utilizó SHAPE el cual permite crear distintas figuras, además se utilizaron 3 timer para indicar que cada x tiempo el backcolor o el fondo del color del shape cambiara rependinamente.
Los comandos vbBlack, vbRed,vbGreen, vbYellow indica los colores deseados a introducirse cada cierto tiempo.

DAVID LOPEZ
Dim i As Integer
Dim a(10) As String
Private Sub introducir_Click()
For i = 1 To 10
a(i) = InputBox(" Teclee el Nombre ")
Next i
End Sub

Private Sub mostrar_Click()
For i = 1 To 10
Form2.List1.AddItem a(i)
Next i
Form2.Show
Form1.Hide
End Sub

Private Sub salir_Click()
End
End Sub
Nose utilizó ningún comando nuevo, pero se creó un MENU, el cual nos ahorra la creación de botones de comandos
Lo que realiza es que con el inputbox pide 10 nombres al estar los 10 muestra una list con los 10 nombres, y en el botón mostrar del menú muestra los nombres tecleados.

DEAN ORTIZ
Dim drawing As Boolean
Private Sub Form_Load()
drawing = False
End Sub
Private SubPicture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
drawing = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If drawing = True Then
Picture1.PSet (X, Y)
End If
Picture1.DrawWidth = 100
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
drawing = False
End Sub
Se...