EJERCICIO DE LA CALCULADORA
El botón Nuevo Cálculo
Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
[Link]
End Sub
El botón Sumar
Private Sub Command1_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub
El botón Restar
Private Sub Command2_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub
El botón Multiplicar
Private Sub Command3_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub
El botón Dividir
Private Sub Command4_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub
El botón Salir
Private Sub Command6_Click()
Unload Me
End
End Sub
EJERCICIO CALCULADORA 2
El botón Calcular
Private Sub Command1_Click()
If Option1 = True Then
Text3 = Val(Text1) / Val(Text2)
ElseIf Option2 = True Then
Text3 = Val(Text1) * Val(Text2)
ElseIf Option3 = True Then
Text3 = Val(Text1) - Val(Text2)
ElseIf Option4 = True Then
Text3 = Val(Text1) + Val(Text2)
End If
End Sub
El botón Otra Operación
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
[Link]
End Sub
EJERCICIO CONVERSIONES
El botón Convertir
Private Sub Command1_Click()
If Option1 = True Then
Text2 = Val(Text1) * 1000
ElseIf Option2 = True Then
Text2 = Val(Text1) * 100
ElseIf Option3 = True Then
Text2 = Val(Text1) * 10
ElseIf Option4 = True Then
Text2 = Val(Text1) / 1000
End If
End Sub
EJERCICIO TABLAS
El botón Ver Tabla
Private Sub Command1_Click()
Dim res As Long, retorno
For n = 1 To 10
res = Text1 * n
retorno = Chr(13) & Chr(10)
Text2 = Text2 & Text1 & " x " & n & " = " & res & retorno
Next n
End Sub
El botón Salir
If MsgBox("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "¿Qué Ya Te Quieres Ir?"
= vbYes Then
End
Else
Cancel = 1
End If
EJERCICIO TERMÓMETRO
Boton salir
Private Sub cmbSalir_Click()
Beep
End
End Sub
Private Sub mnuFileExit_Click()
End
End Sub
Barra
Private Sub vsbTemp_Change()
[Link] = [Link]
[Link] = 32 + 1.8 * [Link]
End Sub
Todavía estaba él hablando con ellos, cuando llegó Raquel con las ovejas de su padre,
pues ella era pastora. genesis 29:9 Tenía el sacerdote de Madián siete hijas, las cuales
vinieron á sacar agua, para llenar las pilas y dar de beber á las ovejas de su padre. exodo
2:16 creo que ejercian funciones de pastor. Y ellas respondieron: Un varón Egipcio nos
defendió de mano de los pastores, y también nos sacó el agua, y abrevó las ovejas. exodo
2:19 sefora era pastora. Y David respondió a Saúl: Tu siervo era pastor de las ovejas de su
padre, y cuando venía un león, o un oso, y tomaba algún cordero del rebaño 1 Samuel
17:34 Pedro se entristeció de que le dijese la tercera vez: ¿Me amas? y le respondió:
Señor, tú lo sabes todo; tú sabes que te amo. Jesús le dijo: Apacienta mis ovejas juan 21:
12 - 15 SEGUN GALATAS 3:26 AL 28 LOS TEXTOS SON MUY EXPLÍCITOS PERO
EXACTAMENTE EL VERSO 28 "No hay Judío, ni Griego; no hay siervo, ni libre; no hay
varón, ni hembra: porque todos vosotros sois uno en Cristo Jesús." LA PREGUNTA: SI
JESUS LE PREGUNTA A UN HOMBRE ME AMAS??? COMO LE PREGUNTO A PEDRO.
CUAL SERIA LA RESPUESTA.? YO DIRÍA SENCILLO. LA QUE DIJO JESUS
APACIENTAS MIS OVEJAS. Y SI JESUS LE PREGUNTA A UNA MUJER ME AMAS???
CUAL SERIA LA RESPUESTA????? NO SERIA LA MISMA??? porque todos vosotros
sois uno en Cristo Jesús. A VECES DIGO QUE HAY QUE LEVANTARSE COMO MOISÉS
Y REÑIR CON LOS PASTORES QUE NO DEJAN A ESA GENERACIÓN DE MUJERES
QUE QUIEREN DARLE DE BEBER A LAS OVEJAS Y MUCHOS HOMBRES QUIEREN
PRIVARLO. SOMOS UN EN CRISTO JESÚS.
