Clipper On Line • Ver Tópico - Tabela ASCII e ISO8859-1

Tabela ASCII e ISO8859-1

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Tabela ASCII e ISO8859-1

Mensagempor Marcos Kieron » 23 Jan 2020 17:11

ASCII
ASCII.jpg


ISO 8859-1
ISO8859-1.jpg


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
Marcos Kieron
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 66
Data de registro: 14 Jan 2020 10:29
Cidade/Estado: São Paulo/SP
Curtiu: 0 vez
Mens.Curtidas: 5 vezes

Tabela ASCII e ISO8859-1

Mensagempor Kapiaba » 24 Jan 2020 09:26

tabiso.png
Tabela Iso


Em FiveWin ficou show(), many thanks Marcos.

//-> 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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Tabela ASCII e ISO8859-1

Mensagempor Marcos Kieron » 24 Jan 2020 10:20

Ficou muito bom Kapiaba
Marcos Kieron
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 66
Data de registro: 14 Jan 2020 10:29
Cidade/Estado: São Paulo/SP
Curtiu: 0 vez
Mens.Curtidas: 5 vezes

Tabela ASCII e ISO8859-1

Mensagempor JoséQuintas » 24 Jan 2020 10:29

Não entendi o propósito do post.
Uma vez selecionada a codepage, só usar.
Lógico.... em console dependeria de também ajustar a janela de console do Windows pra ficar compatível.

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" )


ascii.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro