ISO 8859-1
PROCEDURE Main()
SETMODE( 51,80 )
SETCOLOR( 'N/W*' )
CLS
x := 10
i := 1
DO WHILE i <= 255
FOR j := 0 TO 50
@ j,x SAY RIGHT( STR( i ), 3 ) + SPACE(1) + CHR( i++ )
IF i > 255
EXIT
ENDIF
NEXT j
x += 10
ENDDO
INKEY(0)
RETURN

Moderador: Moderadores
PROCEDURE Main()
SETMODE( 51,80 )
SETCOLOR( 'N/W*' )
CLS
x := 10
i := 1
DO WHILE i <= 255
FOR j := 0 TO 50
@ j,x SAY RIGHT( STR( i ), 3 ) + SPACE(1) + CHR( i++ )
IF i > 255
EXIT
ENDIF
NEXT j
x += 10
ENDDO
INKEY(0)
RETURN
//-> C:\FWH..\SAMPLES\TABISO.PRG - Tabela: ISO 8859-1 - 24/01/2020
#Include "FiveWin.ch"
STATIC oWnd
FUNCTION Main()
LOCAL oBar
DEFINE WINDOW oWnd TITLE "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br"
DEFINE BUTTONBAR oBar _3D OF oWnd
DEFINE BUTTON OF oBar ACTION TABISO()
SET MESSAGE OF oWnd TO "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br" ;
NOINSET CLOCK DATE KEYBOARD
ACTIVATE WINDOW oWnd MAXIMIZED
RETURN NIL
FUNCTION TABISO()
LOCAL x, i, j
x := 10
i := 1
WHILE i <= 255
SYSREFRESH()
FOR j := 3 TO 42
@ j, x SAY RIGHT( STR( i ), 3 ) + SPACE(1) + CHR( i++ ) OF oWnd
IF i > 255
EXIT
ENDIF
NEXT j
x += 10
ENDDO
RETURN NIL
// FIM - Modificado by kapiaba - kapiabafwh@gmail.com - 24/01/2020.
PROCEDURE PToolTabAscii
LOCAL nCont, nRow, nCol
nRow := 3
nCol := 5
FOR nCont = 1 TO 255
@ nRow, nCol SAY StrZero( nCont, 3 ) + " " + Chr( nCont )
nRow += 1
IF nRow > MaxRow() - 5
nCol += 10
nRow := 3
ENDIF
NEXT
MsgExclamation( "Ok" )
Usuários vendo este fórum: Google [Bot] e 6 visitantes