TODOPIC
Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: edomeneses en 01 de Octubre de 2010, 23:31:23
-
Hola, les cuento estoy tomando datos de un acelerometro y los muestro en un grafico (en VB6) cada eje por separado. a la vez almaceno los codigos en archivos de texto como describo a continuacion todo esto sucede al presionar el boton de inicio de transmicion de datos.
Open "datx.txt" For Output As 1 ' crea archivo de texto para grabar códigos
Open "daty.txt" For Output As 2
Open "datz.txt" For Output As 3
.
.
Print #1, X 'Almaceno datos de cada eje
Print #2, Y
Print #3, Z
La pregunta es la siguiente: ¿Como puedo hacer para que cada vez que aprete el boton de transmicion de datos pueda ca,biar el nombre del archivo guardado, por ejemplo datx01, luego, datx02, y asi consecutivamente, a cada toma de muestras identificarla con un numero?
de antemano muchas gracias ;-)
-
la forma mas fácil es con un contador, que se irá incrementando ante la creación de cada archivo y que iras guardando en otro txt para que no pierda la secuencia en caso de cerrar el programa.
-
disculpa la ignorancia, entieno lo que me dices pero no se como llebarlo a codigo?????
-
he avansado en algo ya mi from tiene botones para iniciar y detener la toma de muestras
he asociado a uno de los botones una variable k( la cual es almacenada en un archivo de esa forma saber cual fue el numero anterior del archivo guardado), reviso el archivo para saber cual fue la ultima k guardada, luego a aumento en uno, cierro el archivo numk, y lo abro esta vez con "Append" para poder escribir al fnal del archivo, luego doy el numero k al archivo de la nueva toma de muestras.
el problema es que me marca error en "Line Input #1, F"
Option Explicit ' obliga a declarar las variables
Public F As String
Public k As Long
Private Sub Command1_Click()
Open "numk.txt" For Input As #1 'en el archivo numk.txt se almacena el valor de k
Do
Line Input #1, F 'leo el archivo numk
Loop While Not EOF(1)
k = F + 1 'el ultimo valor de k aumentado en 1
Close 1
Text5.Text = Val(k)
Open "numk.txt" For Append As #2 'de esta forma se debiera de abrir nuevamente el archivo para almacenar el nuevo valor de k que da e numero del archivo
Print #2, k
Close 2
Open "datx" & k & ".txt" For Output As 3 'con esta estructura se crea el archivo datxk.txt, (datx0.txt,.......)
'
'
-
por que simplemente no agregas un textbox y que en ese textbox le vas aumentando el numero y para darle el numero a tu archivo a generar obtienes el numero del textbox