Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

problemas con print

16/01/2006 - 05:48 por jorge | Informe spam
Ayuda Hacer una pregunta
serie de errores al generar el proyecto:

por el punto y coma que esta despues de la "J" manifiesta que "El carácter
no es válido."

por "print()" manifiesta que No se ha especificado ningún argumento para el
parámetro 'FileNumber' de 'Public Sub Print(FileNumber As Integer, ParamArray
Output() As Object)'.

por la "I" manifiesta que Los argumentos de método se deben incluir entre
paréntesis.


Private Sub ButtonTabla_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonTabla.Click
Dim I As Byte, J As Byte
For I = 4 To 31 'desde el 2 al 255
For J = 0 To 7
Print I * 8 + J; " = "; chr(I*8+J),
Next
Print()
Next
End Sub
End Class


por favor haber si me corrigen este codigo, es para crear un programa que
muestre la tabla caracteres disponibles del codigo ASCII, gracias
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Lluís Franco
16/01/2006 - 13:01 | Informe spam
Hola Jorge,
No entiendo muy bien lo que pretendes con este código... pero si quieres
imprimir una tabla con el código ASCII, prueba con el siguiente código:

Private Sub PrintAsciiTable()
Dim lCharsPerRow = 10, lNumChars As Long, lChar As Long, sTmp As
String
For lChar = 32 To 255
lNumChars = lNumChars + 1
sTmp = sTmp & Chr(lChar) & " = " & lChar & vbTab
If lNumChars = lCharsPerRow Then
Console.WriteLine(sTmp)
sTmp = ""
lNumChars = 0
End If
Next
If sTmp.Length > 0 Then Console.WriteLine(sTmp)
End Sub

Y en el evento "Load" del form llamas a la rutina "PrintAsciiTable".
Saludos,

Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]

This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho

(Guía de netiquette del foro)
http://www.uyssoft.com/MSNews.aspx?sm
FIMARGE, S.A.
Principat d'Andorra

Tel.: +376 805 100
Fax: +376 824 500
Mi Perfil MVP en:
https://mvp.support.microsoft.com/profileaa1615-1a2f-4202-bc3f-aec297d967d2

Preguntas similares

 

Busqueda sugerida :