Visual Basic. net

1. Visual Basic. net Clase 03

2. Repaso clase 02 • El Framework le da soporte a…… • La plataforma .net esta compuesta por….. • Qué función hace el CLR? • Que es código gestionado y no gestionado ?

3. ¿qué función realizan: ?

4. Ejecución de un programa • Crear un proyecto • Genera la solución • Aplicación para Windows • Uno o varios proyectos de bibliotecas de clases • Diseñe interfaz de usuario • Escriba código • Distribuya la aplicación

5. Desarrollo de la aplicación WebBrowser1.Navigate(TextBox1.Text)

6. Programar conceptos

9. Representación de palabras, números y valores con variables • Variables • Hay tres pasos para utilizar una variable: • Declarar la variable. Indicar al programa el nombre y el tipo de variable que se desea utilizar. • Asignar la variable. Proporcionar un valor a la variable. • Utilizar la variable. Recuperar el valor contenido en la variable y utilizarlo en el programa.

10. Declarar una variable • Cuando declara una variable, tiene que decidir cómo llamarla y qué tipo de datos asignarle. Se declara una variable utilizando las palabras clave Dim y As, como se muestra a continuación. • DimaNumber As Integer

11. La variable aNumber es unInteger, sólo puede almacenar números enteros. La variable a almacenar almacenar es 42,5 utilizará el tipo de datos Double. Y si desea almacenar una palabra, utilizará un tipo de datos String. Otro tipo de datos que vale la pena mencionar en este punto esBoolean, que puede almacenar un valor True o False. • Ejemplos • DimaDouble As Double • DimaName As String • DimYesOrNo As Boolean

12. Asignar variables • Asigna un valor a la variable con el signo =, que a veces se denomina operador de asignación, como se muestra en el ejemplo siguiente • aNumber = 42

13. Declarar y asignar variables con un valor predeterminado DimaDouble As Double = 0 Dim aName As String = "default string" Dim YesOrNo As Boolean = True

14. Desarrollo de la aplicaciòn PublicClass Form1 Private Sub Form1_Load(ByValsender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load DimanInteger As Integer = 42 DimaSingle As Single = 39.345677653 DimaString As String = “A mi me gusta Programación Visual Basic " Dim aBoolean As Boolean = True MsgBox(anInteger) MsgBox(aSingle) MsgBox(aString) MsgBox(aBoolean) End End Sub EndClass

15. Tipos de datos numericos • Integer (un número sin parte fraccionaria). Cuando se elige un tipo de datos para representar números enteros, hay que utilizar el tipo de datos • Long mayores que dos mil millones; de lo contrario • Doublese utiliza para representar números que tienen una parte fraccionaria.

16. Tipos de datos para texto • String, que puede contener una serie de letras, números, espacios y otros caracteres, puede tener cualquier longitud, desde una frase o un párrafo a sólo un carácter o nada en absoluto (cadena nula). • Char. Si sólo necesita contener un carácter en una única variable.

17. otros tipos de datos • Boolean puede contener uno de dos valores posibles: True o False • Date facilita la tarea de calcular fechas u horas • Si necesita almacenar más de un tipo de datos en una única variable, puede utilizar un tipo de datos compuesto. Los tipos de datos compuestos incluyen matrices, estructuras y clases. • Objectpermite declarar una variable y a continuación definir después su tipo de datos

18. Que es una cadena • Una cadena es cualquier serie de caracteres de texto, como letras, números, caracteres especiales y espacios. Las cadenas pueden ser frases y oraciones legibles • Dim aString As String = "This is a string“ • DimbString As String = ""

19. Concatenar • Puede utilizar el carácter & para combinar dos o más cadenas • Dim aString As String = "Across the Wide" • Dim bString As String = "Missouri" • DimcString As String = "" • cString = aString & " " & bString AcrosstheWide Missouri

20. Desarrollo de aplicación PublicClass Form1 Private Sub Form1_Load(ByValsender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Dim aString As String = "Concatenaciòn" Dim bString As String = "Sin" Dim cString As String = "con " DimdString As String = "Espacios " MsgBox(aString & bString & dString) MsgBox(aString & " " & cString & " " & dString) End End Sub EndClass

21. Matrices • Variables que representan más de un valor • Dimplayers() As String • Dimplayers(8) As String contiene 9 elementos • Asignar valores a las matrices • players(0) = "John" • players(3) = "Bart" • Declarar y asignar los valores a una matriz en una línea única • Dim players() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9} • Recuperar valores de las matrices • DimAtBat As String • AtBat = players(3)

22. Desarrollo de aplicación PublicClass Form1 Private Sub Button1_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dimplayers() As String = {"Dan", "Fred", "Bart", "Carlos", "Ty", "Juan", "Jay", "Sam", "Pedro"} Dim i As Integer = CInt(TextBox1.Text) MsgBox(players(i) & " esta en la primera base.") End Sub EndClass

23. Aritmética: crear expresiones con variables y operadores • Utilizar valores devueltos por expresiones • DimanInteger As Integer = 5 + 4 • Para que una expresión sea útil, se debe realizar una acción con el valor que se devuelve.

24. Operadores Aritméticos Al realizar la división, se debe utilizar una variable Double para almacenar el valor devuelto

25. Desarrollo de aplicación PublicClass Form1 Private Sub Button1_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim A As Double = TextBox1.Text Dim B As Double = TextBox2.Text MsgBox(A + B) MsgBox(A - B) MsgBox(A * B) MsgBox(A / B) End Sub EndClass

26. convertir un tipo de variable en otro • ¿Qué pasa cuándo desea mostrar un valor Integer en un control TextBox que requiere una variable de tipo String? R/ Puede convertir en texto utilizando una función especial llamada CStr (que viene de abreviar ConverttoString). Esta función, como el nombre implica, devuelve los datos representados por la variable como de tipo String.

27. Desarrollo de aplicación PublicClass Form1 Private Sub Form1_Load(ByValsender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load DimanInteger As Integer = 54 MsgBox(anInteger) MsgBox(CStr(anInteger)) End End Sub EndClass • la conversión de variables Integer en texto, se puede utilizar la función CStr en cualquier tipo de dato numérico, como Double o Long. • También se puede utilizar para convertir la información de Date y tipos de datosBooleanen texto

28. función CDbl • En una operación aritmética para devolver un número fraccionario al trabajar con variables de tipo Integer • Para convertir tipos de datos numéricos PublicClass Form1 Private Sub Form1_Load(ByValsender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Dim A As Integer = 1 Dim B As Integer = 2 MsgBox(CDbl(A / B)) End End Sub EndClass • Otras funciones de conversión numéricas son CByte, CDec, CLng y CShort.

29. Comparaciones: Utilizar expresiones para comparar valores • Los operadores de comparación, para comparar valores numéricos y devolver valores Boolean (True o False). • Instrucción If...Then. Para elegir alguno de los dos valores

31. Procedimientos • MsgBox tiene un procedimiento integrado que realiza la acción de mostrar un cuadro de diálogo • Un procedimiento es un bloque de código independiente que se puede ejecutar desde otros bloques de código. • Puede llamar a tantos procedimientos como desee. Los procedimientos se ejecutan en el orden de llamada.

32. Funciones y Subs • Existen dos tipos de procedimientos: funciones y subrutinas (llamadas a veces sub). Una función devuelve un valor al procedimiento que la llamó, mientras que una subrutina simplemente ejecuta código • DimToday As Integer • Today = GetDayOfWeek • En este ejemplo, el valor devuelto por la función se copia a la variable denominada Today y se almacena para un uso posterior.

33. Escribir procedimientos • Coloca primero una declaración de procedimiento • indica si el procedimiento es una función o una subrutina • Si es procedimiento se detallan los parámetros • Sub MyFirstSub() indica que es un subrutina no devuelve ningún valor • End Sub indica el fin de la subrutina

34. Escribir funciones • especificar el tipo de valor devuelto FunctionMyFirstFunction() As Integer indica que devuelve un integer EndFunction FunctionGetTheNumberOne() As Integer Return 1 Para devolver el valor desde una función EndFunction

35. Desarrollo de aplicación PublicClass Form1 Private Sub Form1_Load(ByValsender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load DisplayTime() End Sub FunctionGetTime() As String ReturnCStr(Now) EndFunction Sub DisplayTime() MsgBox(GetTime) End End Sub EndClass

36. Parámetros en funciones y subrutinas • Los parámetros se parecen mucho a las variables. Tienen un tipo y un nombre y almacenan información al igual que las variables. Se pueden utilizar como variables en un procedimiento. • Diferencias • 1. Los parámetros se declaran en la declaración de procedimiento, no en líneas individuales de código. • 2- Sólo se pueden utilizar los parámetros en el procedimiento en el que se declaran.

37. La palabra clave As se utiliza para declarar el tipo y la palabra clave ByVal precede generalmente a cada parám SubPlaySound(ByValSoundFile As String, ByVal Volume As Integer) My.Computer.Audio.Play(SoundFile, Volume) End Sub

38. Desarrollo de aplicación PublicClass Form1 Private Sub Button1_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click DimaNumber As Integer = CInt(TextBox1.Text) Dim bNumber As Integer = CInt(TextBox2.Text) MsgBox(AddTwoNumbers(aNumber, bNumber)) End Sub Function AddTwoNumbers(ByVal N1 As Integer, ByVal N2 As Integer) As Integer Return N1 + N2 EndFunction EndClass

39. bucles For...Next • Para repetir las acciones en el programa y para contar cuántas veces se han realizado estas Dim i As Integer = 0 For i = 1 To 10 DisplayNumber(i) Next • En este caso llamando al método DisplayNumber con un parámetro de i

40. Desarrollo de aplicación Dim i As Integer = 0 DimNumberOfRepetitions As Integer = CInt(Textbox1.Text) For i = 1 To NumberOfRepetitions MsgBox(“Estaslineas se van a repetir " & i & " tiempos") Next

41. Do...While y Do...Until • Permiten repetir un bloque de código mientras cierta condición sea True o hasta que cierta condición sea True. Dimsum As Integer = 0 Do Whilesum < 100 sum = sum + 10 Loop • En el código anterior, la línea Do Whileevalúa la variable sum para ver si es menor que 100; si lo es, se ejecuta la siguiente línea de código; si no lo es, se desplaza a la línea siguiente del código a continuación de Loop. La palabra clave Loop le dice al código que regrese a la línea DoWhile y evalúe el nuevo valor de sum.

42. Desarrollo de aplicación PublicClass Form1 Private Sub Button1_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dimsum As Integer = 0 Dimcounter As Integer = 0 Do Whilesum < 100 sum = sum + CInt(TextBox1.Text) counter = counter + 1 Loop MsgBox("El bucle se ha ejecutado " & CStr(counter) & " tiempos!") End Sub EndClass

43. la instrucción If...Then • permite evaluar una condición y ejecutar las diferentes secciones de código basándose en los resultados de esa condición IfMy.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.MondayThen MsgBox("TodayisMonday!") EndIf • Cuando se ejecuta este código, se evalúa la condición (la parte entre If y Then). Si la condición es true, se ejecuta la siguiente línea de código y se muestra un cuadro de mensaje; si es false, el código pasa a la línea EndIf. En otras palabras, el código estipula "Si hoy es lunes, muestre el mensaje".

44. Desarrollo de aplicación PublicClass Form1 Private Sub Form1_Load(ByValsender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load IfMy.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.SaturdayOr _ My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.SundayThen MsgBox("Feliz fin de Semana ") End EndIf End Sub EndClass

45. IfElseThe PublicClassIfElseThe Private Sub IfElseThe_Load(ByValsender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load IfMy.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.SaturdayOrMy.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.SundayThen MsgBox("Feliz fin de Semana ") End Else MsgBox("Feliz semana!En tu duro trabajo !") End EndIf End Sub EndClass

46. Select Case • Proporciona una manera mucho mejor de evaluar varias condiciones. • Permite utilizar tantas condiciones (o casos) como sea necesario, y conviene escribir el código para situaciones en las que hay muchas opciones. Select Case Color Case "red" MsgBox("Youselected red") Case "blue" MsgBox("Youselectedblue") Case "green" MsgBox("Youselectedgreen") Case Else MsgBox("Please choose red, blue, or green") EndSelect

47. Desarrollo de Programa PublicClass Form1 Private Sub Button1_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click DimNumber As Integer = CInt(TextBox1.Text) Select Case Number Case 1 MsgBox(“Menos de 2") Case 2 To 5 MsgBox(“Dentro 2 and 5") Case 6, 7, 8 MsgBox(“Dentro 6 and 8") Case 9 To 10 MsgBox(“Mayor que 8") Case Else MsgBox("Not between 1 and 10") EndSelect End Sub EndClass

48. Muchas gracias • 1- Repaso práctico • 2- Tarea 1