Taller de Visual Basic Basico desde cero.pptx

Es una presentación para un taller de visual basic desde cero

1. Visual Basic Victor Llerena Caballero

2. Tipos de Dato en VB Byte : puede almacenar números enteros dentro del rango desde 0 a 255 Integer : puede almacenar números enteros dentro del rango -32.768 a 32.767 Long: puede almacenar números enteros dentro del rango -2.147.483.648 hasta 2.147.483.648 Single: almacena números decimales en el rango +/- 1e-45 hasta 3e38 Double : desde +/- 5e-324 hasta 1.8e308 Cadenas de caracteres: las cadenas de caracteres se definen con la palabra String y tienen un rango de hasta 2 billones de caracteres. Tipos de valores lógicos: para almacenar tipos de valores lógicos como verdadero o falso, se utiliza la palabra Boolean y sus 2 posibles valores son True (verdadero) y False (falso). Fechas y horas: Para almacenar fechas y horas se utiliza la palabra Date Tipo variant : Las variables de este tipo pueden almacenar cualquier tipo de valor, pero ocupan mas memoria .

3. Constantes en VB Const numero = 53

4. Command Button – If Then Else Private Sub CommandButton1_Click () If TextBox1.Text = "50" Then MsgBox “Mi TextBox tiene un valor de 50" Else MsgBox “Mi TextBox no tiene un valor de 50" End If End Sub

5. Command Button – While Wend Private Sub CommandButton1_Click () Dim Counter Counter = 0 While Counter < 20 Counter = Counter + 1 MsgBox (Counter) Wend End Sub

6. Command Button – Select Case Private Sub CommandButton1_Click () Dim Nombre As String Nombre = Text1.Text Select Case Nombre Case "Jorge " MsgBox (" Se ejecutó la cláusula case: " ) & Nombre Case "Pedro " MsgBox (" Se ejecutó la cláusula case: " ) & Nombre Case "Carolina " MsgBox (" Se ejecutó la cláusula case: " ) & Nombre End Select End Sub

7. Command Button – Select Case Private Sub CommandButton1_Click () If (x = 10) And (nombre = "maría")  Then 'solo se ejecutará el código dentro de este bloque IF si la variable 'x vale 10 y la variable nombre es igual a maría End  If If (m = 10)  Or  (nombre = "pedro")  Then 'el código se ejecutará si por lo menos una variable es correcta 'es decir si por lo menos se cumple una condición End  If End Sub

8. Command Button – For To Private Sub CommandButton1_Click () For i = 1 To 10 MsgBox (i ) Next i End Sub

9. Command Button – For To Step Private Sub CommandButton1_Click () For i = 1 To 10 Step 2 MsgBox (i) Next i End Sub

10. Command Button – Do While Loop Private Sub CommandButton1_Click () Dim i As Integer i = 0 Do While (i <= 10) MsgBox (i) i = i + 1 Loop End Sub

11. Command Button – Do Loop While Private Sub CommandButton1_Click () Dim i As Integer i = 0 Do MsgBox (i) i = i + 1 Loop While (i <= 10 ) End Sub

12. Command Button – Rnd Private Sub CommandButton1_Click () N = Int ((b - a + 1) * Rnd + a) MsgBox (N ) End Sub DONDE: “a” es el valor inicial y “b” es el valor final

13. EXAMEN FINAL

14. Ejercicio 1) Sentencia IF THEN ELSE

15. Ejercicio 2) Sentencia RND y SELECT CASE

16. Ejercicio 3) Sentencia SELECT CASE

17. Ejercicio 4) Sentencia DO WHILE / FOR (Ambos)