Pregunta: | 3299 - HAY FUNCIONES EN VB QUE HAGAN LO MISMO QUE MKD, MKI,MKS |
Autor: | Martin |
Tengo unos problemas porque necesito encontrar o saber si hay funciones que hagan lo mismo que MKI, MKD y MKS de Qbasic, o si fuera posible hacer una interface de VB con Qbasic para poder utilizar esas funciones, o quizas haya otra manera, espero que me ayuden porque me urge resolver ese problema. |
Respuesta: | Fernando Ise |
La solucion a tu problema consiste en lo siguiente en un Modulo Bas en Declaraciones Public Reg1 as Archivo Type Archivo Cod as Integer ´ MKI Precio as Single ´ MKS Descripcion as String * 30 CodBarra as Double ´ MKD resto as string * 20 end type En una sub Sub Abrir() Open "C:\Archivo.dat" for random access read write shared as #1 len = len(Reg1) H1& = lof(1) / 64 end sub Para leer lock 1,NumRegistro get 1, NumRegistro, Reg1 unlock 1,NumRegistro Variable = reg1.Precio Para Grabar reg1.Precio = Variable lock 1,NumRegistro put 1, NumRegistro, Reg1 unlock 1,NumRegistro Si dudas no dudes en consultarme via mail, yo estuve varios meses probando hasta entenderlo y se la frustracion que se siente Espero te sirva. Suerte |