Página 1 de 1
Tamanho da fonte em MODO CONSOLE
Enviado: 30 Jul 2015 20:49
por Cavalo Marinho
Boa noite pessoal
É possível mudar o tamanho da fonte em modo console? explicando melhor, em clipper eu ativava o modo 25x40 que apresentava uma letra tipo modo expandido que era utilizado no frente de loja para que o cliente tivesse uma melhor visualização, funcionava bem no xp em modo tela cheia já nos windows mais novos não, então a minha pergunta e para saber se tem um jeito de poder utilizar uma fonte maior, mais visível para o cliente, mas em modo console.
Tamanho da fonte em MODO CONSOLE
Enviado: 31 Jul 2015 09:57
por Kapiaba
Código: Selecionar todos
/********************************************************
* Test to query/set properties for graphics gts
* Under textual gts it should only properly quit
*
* $Id: gtinfo.prg 9279 2011-02-14 18:06:32Z druzus $
*/
#include "hbgtinfo.ch"
Function Main
Local nOp
// try to set anyhow the name of the console
hb_gtInfo( GTI_WINTITLE, "GT - Info functionality test" )
If hb_gtInfo(GTI_ISGRAPHIC) == 0
?
? "You are using a non graphics capable gt:"
? hb_gtVersion()
? "Press a key to end."
?
Inkey(0)
Quit
End
SetColor("w+/b,b/w")
hb_idleAdd({|| updKeys()})
While .T.
CLEAR SCREEN
// hb_gtInfo(GTI_WINTITLE, "hb_gtInfo() api demonstration program")
updKeys(.T.)
@ 3, 5 Say "Desktop Resolution: " + ;
AllTrim(Str(hb_gtInfo(GTI_DESKTOPWIDTH))) + "x" + ;
AllTrim(Str(hb_gtInfo(GTI_DESKTOPHEIGHT))) + "x" + ;
AllTrim(Str(hb_gtInfo(GTI_DESKTOPDEPTH))) + "bpp "
@ 2, 5 Say "Current GT Resolution: " + ;
AllTrim(Str(hb_gtInfo(GTI_SCREENWIDTH))) + "x" + ;
AllTrim(Str(hb_gtInfo(GTI_SCREENHEIGHT))) + "x" + ;
AllTrim(Str(hb_gtInfo(GTI_SCREENDEPTH))) + "bpp "
@ 5, ( MaxCol() / 2 ) - 9 Prompt " Change Resolution "
@ 6, ( MaxCol() / 2 ) - 9 Prompt " Change Depth "
@ 7, ( MaxCol() / 2 ) - 9 Prompt " Change Font Size "
@ 8, ( MaxCol() / 2 ) - 9 Prompt " Change Font Width "
@ 9, ( MaxCol() / 2 ) - 3 Prompt " Quit "
Menu To nOp
Do Case
Case nOp == 0 .Or. nOp == 5
Exit
Case nOp == 1
nOp := Alert("Select desired resolution;NOTE: not all resolution will work on all environments",;
{"320x200", "640x400", "640x480", "800x600", "1024x768"})
Do Case
Case nOp == 1
hb_gtInfo(GTI_SCREENWIDTH, 320)
hb_gtInfo(GTI_SCREENHEIGHT, 200)
Case nOp == 2
hb_gtInfo(GTI_SCREENWIDTH, 640)
hb_gtInfo(GTI_SCREENHEIGHT, 400)
Case nOp == 3
hb_gtInfo(GTI_SCREENWIDTH, 640)
hb_gtInfo(GTI_SCREENHEIGHT, 480)
Case nOp == 4
hb_gtInfo(GTI_SCREENWIDTH, 800)
hb_gtInfo(GTI_SCREENHEIGHT, 600)
Case nOp == 5
hb_gtInfo(GTI_SCREENWIDTH, 1024)
hb_gtInfo(GTI_SCREENHEIGHT, 768)
End
Case nOp == 2
nOp := Alert("Select desired depth", {" 8 ", " 15 ", " 16 ", " 24 ", " 32 "})
Do Case
Case nOp == 1
hb_gtInfo(GTI_SCREENDEPTH, 8)
Case nOp == 2
hb_gtInfo(GTI_SCREENDEPTH, 15)
Case nOp == 3
hb_gtInfo(GTI_SCREENDEPTH, 16)
Case nOp == 4
hb_gtInfo(GTI_SCREENDEPTH, 24)
Case nOp == 5
hb_gtInfo(GTI_SCREENDEPTH, 32)
End
Case nOp == 3
nOp := Alert("Select desired font size", {" 8 ", " 16 ", " 24 "})
Do Case
Case nOp == 1
hb_gtInfo(GTI_FONTSIZE, 8)
Case nOp == 2
hb_gtInfo(GTI_FONTSIZE, 16)
Case nOp == 3
hb_gtInfo(GTI_FONTSIZE, 24)
End
Case nOp == 4
nOp := Alert("Select desired font width", {" 4 ", " 8 ", " 16 "})
Do Case
Case nOp == 1
hb_gtInfo(GTI_FONTWIDTH, 4)
Case nOp == 2
hb_gtInfo(GTI_FONTWIDTH, 8)
Case nOp == 3
hb_gtInfo(GTI_FONTWIDTH, 16)
End
End
End
Return Nil
#define WINTIT "hb_gtInfo() API demonstration program"
Function updKeys(lPar)
Static aKeys := Nil, lInit := .F.
Static cStr := "", lDir := .T., nSec := Nil
Local i, aNewKeys, nY := Row(), nX := Col()
If !lInit .Or. !Empty(lPar)
@ MaxRow(), MaxCol() - 36 Say "SHF CTR ALT NUM CAP SCR " Color "w+/b"
aKeys := {0, 0, 0, 0, 0, 0}
lInit := .T.
cStr := ""
lDir := .T.
nSec := Seconds()
End
i := hb_gtInfo(GTI_KBDSHIFTS)
aNewKeys := {i & GTI_KBD_SHIFT,;
i & GTI_KBD_CTRL,;
i & GTI_KBD_ALT,;
i & GTI_KBD_NUMLOCK,;
i & GTI_KBD_CAPSLOCK,;
i & GTI_KBD_SCROLOCK}
For i := 1 To Len(aNewKeys)
If aNewKeys[i] != aKeys[i]
@ MaxRow(), MaxCol() - 2 - ((6 - i) * 6) Say IIf(aNewKeys[i] == 0, ' ', '*') Color "g+/b"
aKeys[i] := aNewKeys[i]
End
Next
SetPos(nY, nX)
If Seconds() - nSec > .1
nSec := Seconds()
If lDir
cStr += SubStr(WINTIT, Len(cStr) + 1, 1)
If Len(cStr) == Len(WINTIT)
lDir := .F.
nSec += 2
End
Else
cStr := Left(cStr, Len(cStr) - 1)
If Empty(cStr)
lDir := .T.
nSec += 2
End
End
hb_gtInfo(GTI_WINTITLE, cStr)
End
Return Nil
Tamanho da fonte em MODO CONSOLE
Enviado: 01 Ago 2015 12:18
por Cavalo Marinho
bom dia
caro Kapiaba, obrigado por responder a minha solicitação, mas infelizmente não obtive exito, aconteceu o seguinte ao tentar compilar e executar a rotina:
1 - Faltava hbgtinfo.ch copiei de uma pasta xharbour que tenho no meu computador
2 - erro de sintax nas linha 130, notei que tinha um espaco entre a variável i & GTI.... , retirei para compilar (passou na compilação)
3 - erro de argumento na linha 16, notei que voce compara hb_gtinfo(GTI_ISGRAPHIC) com 0, mas a função está retornando logico .T., fiz
as alterações para prosseguir nos testes
4 - Erro no operado de macro na linha 130, notei que hb_gtinfo(GTI_KBDSHIFTS) retorna um numero 512, e aí nao tem como montar a matriz
5 - minha conclusão é que a biblioteca que tenho com hg_gtinfo é diferente, lembrando que utilizo harbour 3.2 com mingw.
6 - Resultado final não funcionou
Tamanho da fonte em MODO CONSOLE
Enviado: 03 Ago 2015 09:40
por Kapiaba
Bom dia, não uso HARBOUR, mas este é o arquivo de cabeçalho do HARBOUR, veja onde esta escrito FONT, e veja se ajuda.
Código: Selecionar todos
/*
* Harbour Project source code:
* Header file for the GTINFO API
*
* Copyright 2004 Mauricio Abre <maurifull@datafull.com>
* www - http://www.xharbour.org
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING.txt. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/* NOTE: This file is also used by C code. */
#ifndef HB_GTINFO_CH_
#define HB_GTINFO_CH_
#define HB_GTI_ISGRAPHIC 0 /* 1 if GT has graphic support / pixel oriented */
#define HB_GTI_SCREENWIDTH 1 /* Get/set width of application window in pixels */
#define HB_GTI_SCREENHEIGHT 2 /* Get/set height of application window in pixels */
#define HB_GTI_SCREENDEPTH 3 /* Amount of bits used for colors in the application */
#define HB_GTI_FONTSIZE 4 /* Get/set height of application font in pixels */
#define HB_GTI_FONTWIDTH 5 /* Get/set width of application font characters */
#define HB_GTI_DESKTOPWIDTH 6 /* Get width of desktop in pixels */
#define HB_GTI_DESKTOPHEIGHT 7 /* Get height of desktop in pixels */
#define HB_GTI_DESKTOPDEPTH 8 /* Amount of bits used for colors in system */
#define HB_GTI_COMPATBUFFER 9 /* Use DOS CGA/EGA/VGA character/attribute buffer in SAVE/REST SCREEN */
#define HB_GTI_KBDSHIFTS 10 /* Keyboard shift/ctrl/alt, caps/num/scroll & winkeys state */
#define HB_GTI_KBDSPECIAL 11 /* This will get/set the status of the top row
shift state handling. Enable to correct a
documented keyboard handling bug under Win9x.
Enable if the caps-lock key affects the top
row keys. (Alternate language keys are not
handled properly by this temporary fix.
Default is disabled. */
#define HB_GTI_KBDALT 12 /* This will get/set the status of the alt-numpad
key handling.
Default is Enabled. */
#define HB_GTI_ISSCREENPOS 13 /* Is full screen cursor positioning supported by GT driver? */
#define HB_GTI_FULLSCREEN HB_GTI_ISSCREENPOS /* Compatibility. Do not use it. */
#define HB_GTI_KBDSUPPORT 14 /* Is it keyboard input supported? */
#define HB_GTI_CLIPBOARDDATA 15 /* Get/Set clipboard */
#define HB_GTI_CLIPBOARDPASTE 16 /* Paste clipboard data into keyboard buffer */
#define HB_GTI_CURSORBLINKRATE 19 /* Get/Set cursor blinking rate in milliseconds */
#define HB_GTI_DESKTOPROWS 20 /* Get Size of desktop in character rows */
#define HB_GTI_DESKTOPCOLS 21 /* Get Size of desktop in character cols */
#define HB_GTI_FONTWEIGHT 22 /* Get/set the weight of the font used in application */
#define HB_GTI_FONTQUALITY 23 /* Get/set quality of font rendering in the appl. */
#define HB_GTI_FONTNAME 24 /* Set-only font name */
#define HB_GTI_CODEPAGE 25 /* codepage */
#define HB_GTI_WINTITLE 26 /* title */
#define HB_GTI_ICONFILE 27 /* icon file */
#define HB_GTI_ICONRES 28 /* icon resource */
#define HB_GTI_MOUSESTATUS 29 /* mouse enabled = 1 mouse disabled = 0 */
#define HB_GTI_INPUTFD 30 /* Get Standard input stream of application/GT */
#define HB_GTI_OUTPUTFD 31 /* Get Standard output stream of application/GT */
#define HB_GTI_ERRORFD 32 /* Get Standard error stream of application/GT */
#define HB_GTI_ESCDELAY 33 /* Get/Set escape key delay */
/* these 2 are used for MaxCol(?) and MaxRow(?) */
#define HB_GTI_VIEWMAXHEIGHT 34 /* Maximum viewable height:for current mode */
#define HB_GTI_VIEWMAXWIDTH 35 /* Maximum viewable width:either win or full scrn */
#define HB_GTI_VIEWPORTHEIGHT 36 /* Current viewport height:for current mode */
#define HB_GTI_VIEWPORTWIDTH 37 /* Current viewport width:either win or full scrn */
#define HB_GTI_STDOUTCON 38 /* redirect STDOUT to console */
#define HB_GTI_STDERRCON 39 /* redirect STDERR to console */
#define HB_GTI_ISCTWIN 40 /* is CTWIN supported? */
#define HB_GTI_ISMULTIWIN 41 /* is multi window supported? */
#define HB_GTI_GETWIN 42 /* get current window handle or screen settings */
#define HB_GTI_SETWIN 43 /* restore window or screen settings */
#define HB_GTI_NEWWIN 44 /* create new window */
#define HB_GTI_ADDKEYMAP 45 /* add key escape sequences */
#define HB_GTI_DELKEYMAP 46 /* del key escape sequences */
#define HB_GTI_ISUNICODE 47 /* is Unicode input/output enabled? */
#define HB_GTI_SELECTCOPY 48 /* toggles screen content selection and copy to clipboard (supported by: GTWVT) */
#define HB_GTI_RESIZABLE 49 /* toggles ability to resize window (supported by: GTWVT) */
#define HB_GTI_CLOSABLE 50 /* toggles ability to close window (supported by: GTWVT) */
/* Additional constants to enhance GT */
#define HB_GTI_NOTIFIERBLOCK 51 /* Deprecated. Use HB_K_* inkey.ch events instead. */
#define HB_GTI_SCREENSIZE 52 /* Get/Set height/width of application window in pixels */
#define HB_GTI_PALETTE 53 /* Get/Set console colors 0 - 15 given an array of 16 elements containing RGB colors */
#define HB_GTI_RESIZEMODE 54 /* Get/Set console resize mode : HB_GTI_RESIZEMODE_FONT | HB_GTI_RESIZEMODE_ROWS */
#define HB_GTI_SETPOS_XY 55 /* Get/Set current top-left position coordinates of the window by pixels */
#define HB_GTI_SETPOS_ROWCOL 56 /* Set current top-left position coordinates of the window by row/cols */
#define HB_GTI_BOXCP 57 /* Codepage used for box drawing */
#define HB_GTI_CARGO 58 /* Storage of any user defined value */
#define HB_GTI_FONTSEL 59 /* X11 style font selecting */
#define HB_GTI_INKEYFILTER 60 /* Get/Set inkey keycodes filter */
#define HB_GTI_INKEYREAD 61 /* Get/Set inkey read block */
#define HB_GTI_ALTENTER 62 /* Toggles Alt+Enter as full screen switch (supported by: GTWVT) */
#define HB_GTI_ISFULLSCREEN 63 /* Is the GT windows using the full physical display? (supported by: GTWIN, GTWVT) */
#define HB_GTI_ONLINE 64 /* Is terminal connected? */
#define HB_GTI_VERSION 65 /* Get terminal version string */
#define HB_GTI_MAXIMIZED 66 /* Get/Set Window's Maximized status (supported by: GTWVT) */
#define HB_GTI_FONTATTRIBUTE 67 /* Get/Set font attribute */
#define HB_GTI_UNITRANS 68 /* Set translation table for UNICODE characters */
#define HB_GTI_WINHANDLE 69 /* Get console window low level handle */
#define HB_GTI_MOUSEPOS_XY 70 /* Get mouse position in pixels */
#define HB_GTI_DISPIMAGE 71 /* Display image with given name */
#define HB_GTI_REDRAWMAX 72 /* Maximum number of unchanged neighboring chars in redrawn line */
#define HB_GTI_RESIZESTEP 73 /* Enable/Disable window resizing steps */
#define HB_GTI_CLOSEMODE 74 /* Close event: 0 terminate application, >=1 generate HB_K_CLOSE, 2 disable close button */
#define HB_GTI_MINIMIZED 75 /* Get/Set Window's Minimized status (supported by: GTQTC, GTXWC) */
/* Font weights */
#define HB_GTI_FONTW_THIN 1
#define HB_GTI_FONTW_NORMAL 2
#define HB_GTI_FONTW_BOLD 3
/* Font qualities */
#define HB_GTI_FONTQ_DRAFT 1
#define HB_GTI_FONTQ_NORMAL 2
#define HB_GTI_FONTQ_HIGH 3
/* Font attributes */
#define HB_GTI_FONTA_FIXMETRIC 0x0001
#define HB_GTI_FONTA_CLRBKG 0x0002
#define HB_GTI_FONTA_DRAWBOX 0x0004
#define HB_GTI_FONTA_CTRLCHARS 0x0008
#define HB_GTI_FONTA_NOSTRETCH 0x0010
/* Keyboard shifts states */
#define HB_GTI_KBD_SHIFT 0x000001
#define HB_GTI_KBD_CTRL 0x000002
#define HB_GTI_KBD_ALT 0x000004
#define HB_GTI_KBD_LWIN 0x000008
#define HB_GTI_KBD_RWIN 0x000010
#define HB_GTI_KBD_MENU 0x000020
#define HB_GTI_KBD_INSERT 0x000080
#define HB_GTI_KBD_SCROLOCK 0x000100
#define HB_GTI_KBD_NUMLOCK 0x000200
#define HB_GTI_KBD_CAPSLOCK 0x000400
#define HB_GTI_KBD_INALTSEQ 0x000800
#define HB_GTI_KBD_ACCENT1 0x001000
#define HB_GTI_KBD_ACCENT2 0x002000
#define HB_GTI_KBD_ACCENT3 0x004000
#define HB_GTI_KBD_ACCENT4 0x008000
#define HB_GTI_KBD_LSHIFT 0x010000
#define HB_GTI_KBD_RSHIFT 0x020000
#define HB_GTI_KBD_LCTRL 0x040000
#define HB_GTI_KBD_RCTRL 0x080000
#define HB_GTI_KBD_LALT 0x100000
#define HB_GTI_KBD_RALT 0x200000
#ifdef HB_LEGACY_LEVEL4
/* Harbour GT callback events - WORK IN PROGRESS */
#define HB_GTE_ACTIVATE 1
#define HB_GTE_SETFOCUS 2
#define HB_GTE_KILLFOCUS 3
#define HB_GTE_CLOSE 4
#define HB_GTE_RESIZED 5
#endif
/* Harbour GT Reszing mode constants */
#define HB_GTI_RESIZEMODE_FONT 0 /* Default */
#define HB_GTI_RESIZEMODE_ROWS 1
#endif /* HB_GTINFO_CH_ */
Tamanho da fonte em MODO CONSOLE
Enviado: 03 Ago 2015 18:34
por Cavalo Marinho
Ok, conseguir compilar e executar, mas não chega a me atender, mesmo numa resolução alta a letra não fica igual a que utilizava em clipper no modo de 40x25, quando utilizava este modo a letra parecia está escrita na tela em modo expandido como numa impressora matricial, ou seja ocupava o espaço de 2 letras na largura, ficava bem mais visível para o cliente que estava sendo atendido, acredito que com os novos sistemas operacionais onde deixou de existir tela cheia não tem como conseguir tal efeito.
Mesmo assim muito obrigado.
Jackson
Tamanho da fonte em MODO CONSOLE
Enviado: 06 Abr 2023 10:07
por carlaoonline
Bom dia!
Alguém por gentileza saberia me informar COMO faço para usar tamanho GIGANTE de fonte em modo console?
"Apenas quero ter uma tela maximizada em modo console e com um número de 5 dígitos ocupando o máximo possível da tela."
Código: Selecionar todos
//----------------------------------------------------------------
Function Main()
//----------------------------------------------------------------
Local nHei:=14, nWid:=10
//LOCAL ScreenWidth := Wvt_GetScreenWidth(), ScreenHeight := Wvt_GetScreenHeight()
wvt_SetTitle('Tamanho da Fonte')
wvt_Setcodepage(255)
// SetMode(80,25)
Cls
Do While .t.
Cls
wvt_setfont('Lucida Console', 14, 10 )
Cls
@ 10,02 SAY "Altura da fonte " GET nHei pict "9999"
@ 12,02 SAY "Largura da Fonte " GET nWid pict "9999"
READ
Cls
wvt_setfont('Lucida Console', nHei, nWid )
Cls
@ 5, 02 say "12345"
IF inkey(0)=27
Quit
ENDIF
Enddo
return
Para tamanhos normais funciona, mas para tamanhos grandes (acima de 20 mais ou menos) não surte efeito.
Grato por enquanto.
Tamanho da fonte em MODO CONSOLE
Enviado: 06 Abr 2023 12:41
por JoséQuintas
WVT/WVG redimensionam a janela se ela for maior do que a tela.
Se o fonte é muito gigante, vai ter que reduzir linhas/colunas.
A não ser que use gtwvg e texto desenhado ou controle gui.
Tamanho da fonte em MODO CONSOLE
Enviado: 10 Abr 2023 12:47
por Paredes01
Buen día
ejemplo de uso:
Código: Selecionar todos
NrGrande(21,40, TRANSFORM(nTotal,"@E 999,999.99"))
*******************************************************************************
Function NrGrande( lin, col, string, espacejamento)
* Mostra N£meros maiores
*******************************************************************************
LOCAL num, I, cCor:=SETCOLOR(), Vetor1[4], Vetor2[4]
IF PCOUNT() == 3
ESPACEJAMENTO := 1
ENDIF
AFILL(Vetor2,"")
FOR i := 1 TO LEN(STRING)
num := SUBSTR(STRING,i,1)
IF NUM == " "
Vetor1[1] := " "
Vetor1[2] := " "
Vetor1[3] := " "
Vetor1[4] := " "
ELSEIF NUM == "-"
Vetor1[1] := " "
Vetor1[2] := "ÜÜÜ"
Vetor1[3] := " "
Vetor1[4] := " "
ELSEIF NUM == "1"
Vetor1[1] := "ÜÛ "
Vetor1[2] := " Û "
Vetor1[3] := " Û "
Vetor1[4] := "ßßß"
ELSEIF NUM == "2"
Vetor1[1] := "ßßÛ"
Vetor1[2] := "ÜÜÛ"
Vetor1[3] := "Û "
Vetor1[4] := "ßßß"
ELSEIF NUM == "3"
Vetor1[1] := "ßßÛ"
Vetor1[2] := "ÜÜÛ"
Vetor1[3] := " Û"
Vetor1[4] := "ßßß"
ELSEIF NUM == "4"
Vetor1[1] := "Û Û"
Vetor1[2] := "ÛÜÛ"
Vetor1[3] := " Û"
Vetor1[4] := " ß"
ELSEIF NUM == "5"
Vetor1[1] := "Ûßß"
Vetor1[2] := "ÛÜÜ"
Vetor1[3] := " Û"
Vetor1[4] := "ßßß"
ELSEIF NUM == "6"
Vetor1[1] := "Ûßß"
Vetor1[2] := "ÛÜÜ"
Vetor1[3] := "Û Û"
Vetor1[4] := "ßßß"
ELSEIF NUM == "7"
Vetor1[1] := "ÛßÛ"
Vetor1[2] := " Û"
Vetor1[3] := " Û"
Vetor1[4] := " ß"
ELSEIF NUM == "8"
Vetor1[1] := "ÛßÛ"
Vetor1[2] := "ÛÜÛ"
Vetor1[3] := "Û Û"
Vetor1[4] := "ßßß"
ELSEIF NUM == "9"
Vetor1[1] := "ÛßÛ"
Vetor1[2] := "ÛÜÛ"
Vetor1[3] := " Û"
Vetor1[4] := "ßßß"
ELSEIF NUM == "0"
Vetor1[1] := "ÛßÛ"
Vetor1[2] := "Û Û"
Vetor1[3] := "Û Û"
Vetor1[4] := "ßßß"
ELSEIF NUM == ":"
Vetor1[1] := " "
Vetor1[2] := "ß"
Vetor1[3] := "ß"
Vetor1[4] := " "
ELSEIF NUM == "." // ,
Vetor1[1] := " "
Vetor1[2] := " "
Vetor1[3] := " "
Vetor1[4] := "ßÛ"
ELSEIF NUM == "," // .
Vetor1[1] := " "
Vetor1[2] := " "
Vetor1[3] := " "
Vetor1[4] := "ß"
ELSE
SETCOLOR(cCor)
RETURN
ENDIF
Vetor2[1] := Vetor2[1] + Vetor1[1] + SPACE(ESPACEJAMENTO)
Vetor2[2] := Vetor2[2] + Vetor1[2] + SPACE(ESPACEJAMENTO)
Vetor2[3] := Vetor2[3] + Vetor1[3] + SPACE(ESPACEJAMENTO)
Vetor2[4] := Vetor2[4] + Vetor1[4] + SPACE(ESPACEJAMENTO)
IF NUM == "." // ,
Vetor2[1] := SPACE(1) + Vetor2[1]
Vetor2[2] := SPACE(1) + Vetor2[2]
Vetor2[3] := SPACE(1) + Vetor2[3]
Vetor2[4] := SPACE(1) + Vetor2[4]
ELSEIF NUM == "," // .
Vetor2[1] := SPACE(2) + Vetor2[1]
Vetor2[2] := SPACE(2) + Vetor2[2]
Vetor2[3] := SPACE(2) + Vetor2[3]
Vetor2[4] := SPACE(2) + Vetor2[4]
ENDIF
NEXT i
Vetor2[1] := SUBSTR(Vetor2[1] , 1 , LEN(Vetor2[1]) - ESPACEJAMENTO)
Vetor2[2] := SUBSTR(Vetor2[2] , 1 , LEN(Vetor2[2]) - ESPACEJAMENTO)
Vetor2[3] := SUBSTR(Vetor2[3] , 1 , LEN(Vetor2[3]) - ESPACEJAMENTO)
Vetor2[4] := SUBSTR(Vetor2[4] , 1 , LEN(Vetor2[4]) - ESPACEJAMENTO)
*SETCOLOR("B+/W")
@ LIN ,COL SAY Vetor2[1]
@ LIN+1,COL SAY Vetor2[2]
@ LIN+2,COL SAY Vetor2[3]
@ LIN+3,COL SAY Vetor2[4]
SETCOLOR(cCor)
RETURN
Tamanho da fonte em MODO CONSOLE
Enviado: 10 Abr 2023 13:21
por JoséQuintas
Só pra dar uma idéia de possibilidades.
Nota: No harbour 3.2 ainda não acertei a cor de fundo, mas não fiz muito teste pra isso, porque ainda não uso. Esse teste foi no 3.4