problemas con print

16/01/2006 - 05:48 por jorge | Informe spam

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

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

Responder a este mensaje

#2 Eduardo Alvarado Meza

16/01/2006 - 13:25 | Informe spam

Jorge, no me se si hay una equivalencia directa del Print del Vb6 al .net
que no sea a traves de Graphics, pero aqui esta tu codigo corregido, deduje
que lo querias en columnas:

Dim Texto As String = ""
Dim gr As Graphics = Me.CreateGraphics

For i As Integer = 0 To 31
For j As Integer = 1 To 7
Texto = (32 * j + i).ToString + " = " + Chr(32 * j + i)
gr.DrawString(Texto, New Drawing.Font("Verdana", 8, FontStyle.Bold),
Brushes.Black, ((j - 1) * 80) + 10, (i * 10) + 10)
Next
Next

Responder a este mensaje

#3 jorge

16/01/2006 - 15:40 | Informe spam

"Eduardo Alvarado Meza" escribió:

Jorge, no me se si hay una equivalencia directa del Print del Vb6 al .net
que no sea a traves de Graphics, pero aqui esta tu codigo corregido, deduje
que lo querias en columnas:

Dim Texto As String = ""
Dim gr As Graphics = Me.CreateGraphics

For i As Integer = 0 To 31
For j As Integer = 1 To 7
Texto = (32 * j + i).ToString + " = " + Chr(32 * j + i)
gr.DrawString(Texto, New Drawing.Font("Verdana", 8, FontStyle.Bold),
Brushes.Black, ((j - 1) * 80) + 10, (i * 10) + 10)
Next
Next

Muchas gracias Eduardo exactas otra vez tus correcciones, ahora voy a
estudiar un poco lo que es gr.Drawstring y brushes.black,. gracias otra vez ,
bye.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida