Hola, soy nuevo en visual basic y necesito ayuda. el programa que tengo que hacer es el siguiente, que me permita abrir un archivo de texto ".txt" y mediante un boton que cree otro archivo con cada codigo ascii del mismo transformado a otro codigo pre seteado de menos bits(6) para luego enviar este codigo por puerto paralelo a un microcontrolador. La ultima parte ya lo solucione, me baje un codigo fuente para controlar puerto paralelo por vb y para enviar datos. Lo que no se como hacer es lo primero, ya que no estoy muy interiorizado con el programa. Alguien sabe si esto se puede hacer? y de así serlo, alguien sabe como? muchas gracias.

Para leer pues... mirate esto.

Private Sub Abir_Click()
Dim nLen, nCanal As Integer
Dim Filename
On Error GoTo error
CommonDialog1.DialogTitle = "Abrir archivo"
CommonDialog1.Filter = "Archivos XTX|*.xtx|Archivos TXT|*.txt|Archivos RTF|*.rtf|Archivos MRC|*.mrc|Archivos ME|*.me|Archivos WRI|*.wri|Archivos BBS|*.bbs|Archivos DOC|*.doc|Archivos de Texto (*.txt;*.wri;*.me;*.bbs)|*.txt;*.wri;*.me;*.bbs|To dos los ficheros(*.*)|*.*"
CommonDialog1.ShowOpen
nCanal = FreeFile
Open CommonDialog1.Filename For Binary As #nCanal
nLen = LOF(nCanal)
Texto$ = Space$(nLen)
Get #nCanal, , Texto$
Text1.Text = RTrim$(Texto$)
Close #nCanal
Form1.Caption = "Multi Text Editor - " & CommonDialog1.Filename & ""
Exit Sub
error:
Exit Sub
End Sub

Esto lo hice para un editor de texto mio, asi ke lo puedes modificar par ahacerlo a tu gusto, salu2, lo de convertir... ya lo tienes ke ir viendo tu, no se te va a dar to el trabajo echo xd

Salu2

Pero resulta que con 6 bits solamente puedes representar los primeros 64 caracteres de la trama ASCII, con lo que no te será posible enviar un carácter 'A' por ejemplo, ni todos los que se encuentran tras él en la escala de valores.

Además VB no puede enviar representar cosas más pequeñas de 8 bits ya que su Byte mínimo pertenece al rango 0 a 255 (00000000b a 11111111b) y salvo que el controlador de puerto paralelo sea capaz de aceptar dichos datos, no podrás realizarlo.

Si que te puedes crear una función que reste al carácter 'A' el valor 65, con lo cual 'A' pasaría a ser 000000b 'B'=000001b 'C'=000010b....etcétera., pero insisto en que es necesario que el controlador disponga de un sistema capaz de trabajar con datos de 6 bits.


No sé si me explico con claridad.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion