Scribd
Cargar
17 vistas7 páginas

Campo Registro File BD

Este documento presenta un programa en Visual Basic para el manejo de archivos de texto que permite crear, escribir y guardar datos de volumen, temperatura y presión en tres archivos de texto diferentes. El programa solicita al usuario ingresar la cantidad de datos y luego solicita los valores de volumen y temperatura que se almacenan en listas y en los archivos correspondientes. Posteriormente calcula los valores de presión a partir de la ley de los gases ideales y los guarda en el tercer archivo y también los muestra en un label.

Cargado por

Jose Luis Huincho Escalante
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
17 vistas7 páginas

Campo Registro File BD

Este documento presenta un programa en Visual Basic para el manejo de archivos de texto que permite crear, escribir y guardar datos de volumen, temperatura y presión en tres archivos de texto diferentes. El programa solicita al usuario ingresar la cantidad de datos y luego solicita los valores de volumen y temperatura que se almacenan en listas y en los archivos correspondientes. Posteriormente calcula los valores de presión a partir de la ley de los gases ideales y los guarda en el tercer archivo y también los muestra en un label.

Cargado por

Jose Luis Huincho Escalante
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
Está en la página 1/ 7

UNIVERSIDAD NACIONAL DE SAN CRISTÓBAL DE HUAMANGA

FACULTAD DE INGENIERÍA QUÍMICA Y METALURGIA

Departamento Académico de Ingeniería Química

ESCUELA PROFESIONAL DE INGENIERÍA QUÍMICA

PROGRAMACIÒN EN INGENERIA QUIMICA IQ-246

CAMPO-REGISTRO-FILE-BD

PROFESOR DE TEORÍA: Ing. Abel Nilo JUSCAMAYTA TOMASEVICH

PROFESOR DE PRÁCTICA: Ing. Abel Nilo JUSCAMAYTA TOMASEVICH

ALUMNO:

 HUINCHO ESCALANTE, Jose Luis

Ayacucho - Perú

2023
CAMPO-REGISTRO-FILE-BD

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


Button1.Click
Dim nombreArchivo As String = "D:\documento.txt"
Dim archivoEscritura As New IO.StreamWriter(nombreArchivo)
archivoEscritura.Close()
MsgBox("Ya esta creado el archivo en: " & nombreArchivo)
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click
Dim nombreArchivo As String = "D:\documento.txt"
Dim archivoLectura As New IO.StreamReader(nombreArchivo)
TextBox1.Text = archivoLectura.ReadToEnd()
archivoLectura.Close()
MsgBox("Ya está escrito el contenido del archivo en TextBox")
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles


Button3.Click
Dim nombreArchivo As String = "D:\documento.txt"
Dim archivoEscritura As New IO.StreamWriter(nombreArchivo)
archivoEscritura.Write(TextBox1.Text)
archivoEscritura.Flush()
archivoEscritura.Close()
MsgBox("ya esta guardado en: " & nombreArchivo)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles


MyBase.Load

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles


Button4.Click
End
End Sub
End Class
PROGRAMA 7B.- MANEJO DE ARCHIVOS TEXTO. - CREAR, ESCRIBIR Y GUARDAR
Public Class Form1
Dim EncabezadoV As String
Dim EncabezadoT As String
Dim EncabezadoP As String
Dim DatoV(100) As Single
Dim DatoT(100) As Single
Dim DatoP(100) As Single
Dim Textoextraido As String
Dim nd As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Dim fDatosV As New System.IO.StreamWriter("C:\Users\User\
Documents\misdatosV.dat", False)
Dim fDatosT As New System.IO.StreamWriter("C:\Users\User\
Documents\misdatosT.dat", False)
EncabezadoV = "Datos de Volumen en litros"
EncabezadoT = "Datos de Temperatura en kelvin"
EncabezadoP = "Datos de Presión en atmósferas"
nd = Val(TextBox1.Text)
For i = 1 To nd
DatoV(i) = Val(InputBox("ingrese Volumen en litros = " & i))
ListBox1.Items.Add(DatoV(i))
DatoT(i) = Val(InputBox("ingrese Temperatura en kelvin = " &
i))
ListBox2.Items.Add(DatoT(i))
Next i
fDatosV.WriteLine(EncabezadoV & " (Ejemplo de operación con
ficheros)")
fDatosT.WriteLine(EncabezadoT & " (Ejemplo de operación
conficheros)")
For i = 1 To nd
fDatosV.WriteLine(DatoV(i))
fDatosT.WriteLine(DatoT(i))
Next i
fDatosV.Close()
fDatosT.Close()
Dim fDatosP As New System.IO.StreamWriter("C:\Users\User\
Documents\misdatosP.dat", False)
fDatosP.WriteLine(EncabezadoP)
For i = 1 To nd
DatoP(i) = 0.08205 * DatoT(i) / DatoV(i)
fDatosP.WriteLine(DatoP(i))
Next i
Label2.Font = New Font("Arial", 10, FontStyle.Bold)
Label2.TextAlign = ContentAlignment.MiddleCenter
Label2.Text = vbCrLf & EncabezadoP & vbCrLf & vbCrLf

For i = 1 To nd
Label2.Text = Label2.Text & DatoP(i) & vbCrLf
Next i
fDatosP.Close()
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


Button2.Click
Label2.Text = ""
TextBox1.Text = ""
ListBox1.Items.Clear()
ListBox2.Items.Clear()
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles


Button3.Click
End
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles


MyBase.Load

End Sub
End Class

También podría gustarte