[go: up one dir, main page]
Scribd
Cargar
86 vistas10 páginas

Ejercicios VB

Este documento contiene una serie de ejercicios de programación en Visual Basic. Los ejercicios incluyen el uso de variables, cálculos matemáticos, manejo de eventos de botones y controles, carga y visualización de imágenes, y la creación de un formulario para la generación de albaranes. El documento proporciona los detalles de implementación para cada ejercicio propuesto.

Cargado por

Jose Juan Lagunes
Derechos de autor
© Attribution Non-Commercial (BY-NC)
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
86 vistas10 páginas

Ejercicios VB

Este documento contiene una serie de ejercicios de programación en Visual Basic. Los ejercicios incluyen el uso de variables, cálculos matemáticos, manejo de eventos de botones y controles, carga y visualización de imágenes, y la creación de un formulario para la generación de albaranes. El documento proporciona los detalles de implementación para cada ejercicio propuesto.

Cargado por

Jose Juan Lagunes
Derechos de autor
© Attribution Non-Commercial (BY-NC)
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
Está en la página 1/ 10

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

Ejercicio 1

Dim saludo As String * 10 Private Sub Command1_Click() Dim Nombre As String * 10 Nombre = "Joaquim" saludo = "HOLA" Print saludo; y; Nombre End Sub Private Sub Command2_Click() saludo = "ADIOS" Print saludo End Sub Ejercicio 2

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

Private Sub Boton_dividir_Click() Dim result As Integer result = Val(Numero_uno.Text) / Val(Numero_dos.Text) Numero_resultado.Text = Str(result) End Sub Private Sub Boton_multiplicar_Click() Dim result As Integer result = Val(Numero_uno.Text) * Val(Numero_dos.Text) Numero_resultado.Text = Str(result) End Sub Private Sub Boton_restar_Click() Dim result As Integer result = Val(Numero_uno.Text) - Val(Numero_dos.Text) Numero_resultado.Text = Str(result) End Sub Private Sub Boton_salir_Click() End End Sub Private Sub Boton_Sumar_Click() Dim result As Integer result = Val(Numero_uno.Text) + Val(Numero_dos.Text) Numero_resultado.Text = Str(result) End Sub Ejercicio 3

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

Private Sub Command1_Click() Dim result, resulta As Double result = Val(Text1.Text) * (60) Text2.Text = Str(result) resulta = Val(Text2.Text) * (60) Text3.Text = Str(resulta) End Sub Private Sub Command2_Click() End End Sub Ejercicio 4

Private Sub Azul_Click() Texto.ForeColor = &HFF0000 End Sub Private Sub Command1_Click() End End Sub Private Sub Cursiva_Click() Texto.FontItalic = True Texto.FontBold = False End Sub Private Sub Form_Load() Normal.Value = True Azul.Value = True Texto.FontBold = False Texto.FontItalic = False Texto.ForeColor = &HFF0000 End Sub 3

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

Private Sub Negrilla_Click() Texto.FontBold = True Texto.FontItalic = False End Sub Private Sub Normal_Click() Texto.FontBold = False Texto.FontItalic = False End Sub Private Sub Verde_Click() Texto.ForeColor = &HFF00& End Sub Ejercicio 5

Private Sub Ape_GotFocus() Ape.SelStart = 0 Ape.SelLength = Len(Ape.Text) End Sub Private Sub Boton_aadir_Click() totalregistros = totalregistros + 1 If totalregistros > 50 Then MsgBox "losta completa", 16, "error" Else agenda(totalregistros).Nombre = Nom.Text agenda(totalregistros).apellidos = Ape.Text agenda(totalregistros).telefono = Tel.Text agenda(totalregistros).Edad = Val(Edad.Text) Lista_1.AddItem Nom.Text Lista_2.AddItem Nom.Text End If Nom.SetFocus End Sub 4

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

Private Sub Boton_eliminar_Click(Index As Integer) Dim I, B As Integer For I = 1 To totalregistros If (RTrim$(Lista_1.Text) = RTrim$(agenda(I).Nombre)) Then Exit For End If Next I Nom.Text = agenda(I).Nombre Ape.Text = agenda(I).apellidos Tel.Text = agenda(I).telefono Edad.Text = Str(agenda(I).Edad) B = MsgBox("Eliminar Registro:" + Nom.Text, 3 + 32, "Eliminar") If B = 6 Then Lista_1.RemoveItem I - 1 totalregistros = totalregistros - 1 For j = I To totalregistros agenda(j).Nombre = agenda(j + 1).Nombre agenda(j).apellidos = agenda(j + 1).apellidos agenda(j).telefono = agenda(j + 1).telefono agenda(j).Edad = agenda(j + 1).Edad Next j Nom.Text = "" Ape.Text = "" Tel.Text = "" Edad.Text = "" End If End Sub Private Sub Boton_fin_Click(Index As Integer) End End Sub Private Sub Eda_GotFocus() Eda.SelStart = 0 Eda.SelLength = Len(Eda.Text) End Sub Private Sub Form_Load() totalregistros = 0 End Sub Private Sub Lista_2_Change() Dim n As Integer n = Lista_2.ListIndex + 1 Nom.Text = agenda(n).Nombre Ape.Text = agenda(n).apellidos Tel.Text = agenda(n).telefono Eda.Text = agenda(n).Edad End Sub 5

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

Private Sub Nom_GotFocus() Nom.SelStart = 0 Nom.SelLength = Len(Nom.Text) End Sub Private Sub Tel_GotFocus() Tel.SelStart = 0 Tel.SelLength = Len(Nom.Text) End Sub Crear un mdulo Type registro Nombre As String * 15 apellidos As String * 25 telefono As String * 15 Edad As String * 3 End Type Global agenda(1 To 50) As registro Global totalregistros As Integer Ejercicio 6

Private Sub Boton_fin_Click() End End Sub Private Sub cd_Click() Dim precio As Long Dim res As Long precio = 0 res = 0 If cd.Value = 1 Then precio = Val(suplemento.Caption) + 20000 Else precio = Val(suplemento.Caption) = -20000 End If 6

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

suplemento.Caption = precio res = Val(suplemento.Caption) + Val(Total.Caption) PVP.Caption = res End Sub Private Sub Form_Load() Total.Alignment = 1 suplemento.Alignment = 1 PVP.Alignment = 1 suplemento.Caption = "0" End Sub Private Sub kit_Click() Dim precio As Long Dim res As Long precio = 0 res = 0 If kit.Value = 1 Then precio = Val(suplemento.Caption) + 35000 Else precio = Val(suplemento.Caption) = -35000 End If suplemento.Caption = precio res = Val(suplemento.Caption) + Val(Total.Caption) PVP.Caption = res End Sub Private Sub pantalla_Click() Dim precio As Long Dim res As Long precio = 0 res = 0 If pantalla.Value = 1 Then precio = Val(suplemento.Caption) + 120000 Else precio = Val(suplemento.Caption) = -120000 End If suplemento.Caption = precio res = Val(suplemento.Caption) + Val(Total.Caption) PVP.Caption = res End Sub Private Sub Ram_Click() Dim precio As Long Dim res As Long precio = 0 res = 0 If Ram.Value = 1 Then precio = Val(suplemento.Caption) + 80000 7

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

Else precio = Val(suplemento.Caption) = -80000 End If suplemento.Caption = precio res = Val(suplemento.Caption) + Val(Total.Caption) PVP.Caption = res End Sub Ejercicio 7

Private Sub icono_1_Click() Imagen.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\computer.wmf") End Sub Private Sub icono_2_Click() Imagen.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\disk35.wmf") End Sub Private Sub icono_3_Click() Imagen.Picture = LoadPicture("C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Metafile\Business\phone.wmf") End Sub Ejercicio 8 Dim n As Integer Private Sub btnBorrar_Click() If n = 0 Then MsgBox "Minimo 1 linea", 16, "Error" Exit Sub End If 8

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

Unload txtRef(n) Unload txtDes(n) Unload txtCan(n) Unload txtPre(n) n=n-1 End Sub

Private Sub btnFin_Click() Unload Me End Sub Private Sub btnImprimir_Click() Dim i As Integer Printer.FontName = "Arial" Printer.FontSize = "10" For i = 0 To Principal.Count - 1 If TypeOf Controls(i) Is TextBox Then GoSub posicin Printer.Font .Underline = False Printer.Print Controls(i).Text End If If TypeOf Controls(i) Is Label Then GoSub posicin Printer.Font .Underline = True Printer.PrintQuality Controls(i).Caption End If Next i Printer.EndDoc Exit Sub posicin: Printer.CurrentX = Controls(i).Left 9

Ejercicios de Visual Basic

Prof.: Lic. Toledo Marcelo Alejandro e-mail: mtoledo@dgrfsa.gov.ar

Printer.CurrentY = Controls(i).Top Return End Sub Private Sub btnNueva_Click() n=1 If n > 4 Then MsgBox "Albarn completo", 16, "Error" n=4 Exit Sub End If 'Referencia Load txtRef(n) txtRef(n).Top = txtRef(n - 1).Top + 350 txtRef(n).Visible = True txtRef(n).Text = "" 'Descripcin Load txtDes(n) txtDes(n).Top = txtDes(n - 1).Top + 350 txtDes(n).Visible = True txtDes(n).Text = "" 'Precio Load txtPre(n) txtPre(n).Top = txtPre(n - 1).Top + 350 txtPre(n).Visible = True txtPre(n).Text = "" 'Cantidad Load txtCan(n) txtCan(n).Top = txtCan(n - 1).Top + 350 txtCan(n).Visible = True txtCan(n).Text = "" End Sub Private Sub Form_Load() n=0 End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim Msg Msg = "Desea salir de la aplicacin?" If MsgBox(Msg, 36, Me.Caption) = 7 Then Cancel = True End If End Sub

10

También podría gustarte