Ejercicios de programación 1

Ejercicio 22









Código
Prívate SubbtnCalcualr_Click()
Dim Cantidad (10), Cuadrado (10), Cubo (10) As Single
Dim i, Cantidad As Integer
For i = 0 To 9
Cantidad (i) = ( + 2)
Cuadrado (i) = Cantidad (i) * 2
Cubo (i) = Cantidad (i) * 3
ListBOx.Items.Add (Cantidad (i))
ListBOx.Items.Add (Cantidad (i))
ListBOx.Items.Add (Cantidad (i))
End Sub

PrivateSubbtnLimpiar_Click()
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
End Sub

Private SubbtnSalir_Click()
End
End Sub




Ejercicio 27








Código
private SubbtnGuardar_Click(Sender As Object, As Event Args) Handles btn Guardar_Click
Try
FileOpen(1, “C:\Users\deny\Documents\datossecuenciales.txt “, OpenMode.Output)
PrintLine(1, txtNombre1.Text, txtxNombre2.Text,txtNombre3.Text, txtMatricula1.Text, txtMatricula2.Text, txtMatricula3.Text, txtGrupo1.Text, txtGrupo2.Text, txtGrupo3.Text)
txtNombre1.Text = “”
txtNombre2.Text = ””
txtNombre3.Text = “”
txtMatricula1.Tetx = “”
txtMatricula2.Text = “”
txtMatricula3.Text = “”
txtGrupo1.Text = “”
txtGrupo2.Text = “”
txtGrupo3.Text = “”
FileClose (1)
Catch ex as Exception
MsgBox(“No se pudo guardar elarchivo”)
End Try
End Sub

Private SubbtbAgregar_Click()
Try
FileOpen(1, “C:\Users\Deny\Documents\datossecuenciales.txt”, OpenMode.Ap end)
PrintLine(1, txtNombre1.Text, txtxNombre2.Text, txtNombre3.Text, txtMatricula1.Text, txtMatricula2.Text, txtMatricula3.Text, txtGrupo1.Text, txtGrupo2.Text, txtGrupo3.Text)
txtNombre1.Text = “”
txtNombre2.Text = ””
txtNombre3.Text = “”txtMatricula1.Tetx = “”
txtMatricula2.Text = “”
txtMatricula3.Text = “”
txtGrupo1.Text = “”
txtGrupo2.Text = “”
txtGrupo3.Text = “”
FileClose (1)
Catch ex as Exception
MsgBox(“No se pudo adicionar el archivo”)
End Try
End Sub

Private SubbtnLimpiar_Click()
Try
FileOpen(1, “C\deny\Documents\datossecuenciales.txt”, OpenMode.Input)
Dim Linea As String
Do Until (EOF(1))
Linea = Line Imput(1)txtLectura.Text = txtLectura.Text & Linea & vbcrLP
Loop
FileClose(1)
Catch ex As Exception
MsgBox(“No se pudo abrir el archivo”)
End Try
End Sub
End Class

















Ejercicio 28






Código
Private SubbtnGuardar_Click()
Try
FileOpen(1, “C\Users\deny\Documents\datosagenda.txt”, OpenMode.Output)
PrintLine(1, txtNombre.Text, txtDirección.Text, txtCorreoElectrónico.Text, txtTel.Text)
txtNombre.Text = “”
txtDirección.Text = ””
txtCorreo Electrónico.Text = “”
txtTel.Text = “”
FileClose(1)
Catch ex As Excetion
MsgBox(“No se pudo guardar el archivo”)
End Try
End Sub

Private SubbtnAgregar_Click()
Try
FileOpen(1, “C\Users\deny\Documents\datosagenda.txt”, OpenMode.Append)
PrintLine(1, txtNombre.Text, txtDirección.Text, txtCorreo Electrónico.Text,txtTel.Text)
txtNombre.Text = “”
txtDirección.Text = ””
txtCorreo Electrónico.Text = “”
txtTel.Text = “”
FileClose(1)
Catch ex As Excetion
MsgBox(“No se pudo agregar el archivo”)
End Try
End Sub





Private SubbtnLeer_Click()
Try
FileOpen(1, “C\Users\deny\Documents\datosagenda.txt, OpenMode.Input)
Dim Linea As String
Do Until (EOF(1))
Linea: LineInput(1)
txtLectura.Text =txtLectura.Text & Linea & vbcrLF
Loop
FileClose(1)
Catch ex As Exception
MsgBox(“No se pudo abrir el archivo”)
End Try
End Sub
End Class





























Ejercicio 29





Código
Private SubbtnGuardar_Click()
Try
FileOpen(1, “C:\Users\deny\Documents\datosagenciadeautos.txt”, OpenMode.Output)
PrintLine(1, txtModelo.Text,txtEquipamiento.Text, txtAccesorios.Text, txtColor.Text, txtFechadePago.Text)
txtModelo.Text = “”
txtEquipamiento.Text = “”
txtAccesorios.Text = “”
txtColor.Text = “”
txtFechadePago.Text = “”
FileClose(1)
Catch ex As Exception
MsgBox(“No se pudo guardar el archivo)
End Try
End Sub

Private SubbtnAgregar_Click()
Try
FileOpen(1, “C:\Users\deny\Documents\datosagenciadeautos.txt”, OpenMode.Append)...