AYUDA SOBRE COMO ABRIR UN FICHERO
Publicado por LOBO (1 intervención) el 17/02/2003 09:41:47
Buenas
Necesito ayuda con la siguiente expresión de Basic
Mi intención es pasarla a Visual basic 6.0, pero tras pasarla no consigo que funcione igual y por tanto la salida del programa da resultados erróneos.
El problema esta con la apertura de archivos.
Lo que figura en basic es:
OPEN “R”,1,”QXY”,8:FIELD 1,4 AS T1$,4 AS T2$
FOR I=1 TO NNUD
LSET T1$=MKS$(XY(I,1)): LSET T2$=MKS$(XY(I,2))
PUT 1,I
NEXT I
CLOSE 1
Y lo que yo he colocado en Visual Basic 6.0 es:
OPEN “R” For Random as #1
OPEN “QXY” For Random as #8
Put #8, I , XY(I,1)
Put #8, , XY(I,1)
NEXT I
CLOSE #1
CLOSE #8
Si realmente he transcrito mal el codigo por favor estaría muy agradecido me dijerais donde esta el error, pues no logro dar con ello y solo me falta esto para terminar la trascripción.
Gracias de antemano
Un saludo
Necesito ayuda con la siguiente expresión de Basic
Mi intención es pasarla a Visual basic 6.0, pero tras pasarla no consigo que funcione igual y por tanto la salida del programa da resultados erróneos.
El problema esta con la apertura de archivos.
Lo que figura en basic es:
OPEN “R”,1,”QXY”,8:FIELD 1,4 AS T1$,4 AS T2$
FOR I=1 TO NNUD
LSET T1$=MKS$(XY(I,1)): LSET T2$=MKS$(XY(I,2))
PUT 1,I
NEXT I
CLOSE 1
Y lo que yo he colocado en Visual Basic 6.0 es:
OPEN “R” For Random as #1
OPEN “QXY” For Random as #8
Put #8, I , XY(I,1)
Put #8, , XY(I,1)
NEXT I
CLOSE #1
CLOSE #8
Si realmente he transcrito mal el codigo por favor estaría muy agradecido me dijerais donde esta el error, pues no logro dar con ello y solo me falta esto para terminar la trascripción.
Gracias de antemano
Un saludo
Valora esta pregunta
0