That will be a newer version so you need to change that in the code and also whtever they say for a license number
Sent from my iPhone using Tapatalk
// C:\FWH\SAMPLES\NAGESCHR.PRG
#include "FiveWin.ch"
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
FUNCTION Main()
HB_LANGSELECT( 'PT' ) // Default language is now Portuguese
// HB_SETCODEPAGE( "PT850" ) // NO FUNCIONA NI CON ASC(195) Increible.
// HB_CDPSELECT( "PTISO" )
// MsgInfo( "JO" + CHR(194) + "O" ) // Similar
MsgInfo( "JO" + CHR(195) + "O" ) // Correct: JOÃO - João
// MsgInfo( "JO" + CHR(196) + "O" ) // Similar
//-> 226, 227, 228, 229(similars)
MsgInfo( "Jo" + CHR(227) + "o" ) // Correct: JOÃO - João
MsgInfo( "M" + CHR(193) + "RIO" ) // Correct: MÁRIO - Mário
MsgInfo( "M" + CHR(225) + "rio" ) // Correct: MÁRIO - Mário
MsgInfo( "N" + CHR(193) + "GES" )
MsgInfo( "N" + CHR(225) + "ges" )
MsgInfo( "ELI" + CHR(201) + "ZER" ) // Correct: Eliézer
MsgInfo( "Eli" + CHR(233) + "zer" ) // Correct: Eliézer
MsgInfo( "ANT" + CHR(212) + "NIO" ) // Correct: Antônio Liñares Cañas
MsgInfo( "Ant" + CHR(244) + "nio" ) // Correct: Antônio Liñares Cañas
RETURN NIL
// FIN / END - kapiabafwh@gmail.com
// C:\FWH\SAMPLES\NAGESCHR.PRG - Version 2 - CON "PTISO"
#include "FiveWin.ch"
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO
FUNCTION Main()
HB_LANGSELECT( 'PT' ) // Default language is now Portuguese
SET(_SET_CODEPAGE,"PT850")
SET(_SET_CODEPAGE,"PTISO")
// MsgInfo( HB_SetCodePage() ) // "PTISO"
// MsgInfo( "JO" + CHR(194) + "O" ) // Similar
MsgInfo( "JO" + CHR(195) + "O" ) // Correct: JOÃO - João
// MsgInfo( "JO" + CHR(196) + "O" ) // Similar
//-> 226, 227, 228, 229(similars)
MsgInfo( "Jo" + CHR(227) + "o" ) // Correct: JOÃO - João
MsgInfo( "M" + CHR(193) + "RIO" ) // Correct: MÁRIO - Mário
MsgInfo( "M" + CHR(225) + "rio" ) // Correct: MÁRIO - Mário
MsgInfo( "N" + CHR(193) + "GES" )
MsgInfo( "N" + CHR(225) + "ges" )
MsgInfo( "ELI" + CHR(201) + "ZER" ) // Correct: Eliézer
MsgInfo( "Eli" + CHR(233) + "zer" ) // Correct: Eliézer
MsgInfo( "ANT" + CHR(212) + "NIO" ) // Correct: Antônio Liñares Cañas
MsgInfo( "Ant" + CHR(244) + "nio" ) // Correct: Antônio Liñares Cañas
RETURN NIL
// FIN / END - kapiabafwh@gmail.com .and. jairfab@gmail.com
// C:\FWH\SAMPLES\NAGESCH3.PRG - Version 3 - CON "PTISO"
#include "FiveWin.ch"
REQUEST HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850
FUNCTION Main()
LOCAL cTexto := "MAÇÃ VERDE"
LOCAL cTexto2 := "MAۂ VERDE" // green apple - Modo consola.
SET(_SET_CODEPAGE,"PTISO") // MAÇÃ VERDE -> green apple
? "PTISO: ", cTexto, OemToAnsi( cTexto2 ) // Correct
SET(_SET_CODEPAGE,"CP437")
? "CP437: ", cTexto, OemToAnsi( cTexto2 ) // Correct
SET(_SET_CODEPAGE,"UTF8")
? "UTF8: ", cTexto, OemToAnsi( cTexto2 ) // Correct
SET(_SET_CODEPAGE,"CP850")
? "CP850: ", cTexto, OemToAnsi( cTexto2 ) // Correct
RETURN NIL
Simplemente no funciona con:
SET(_SET_CODEPAGE,"PT850")
// FIN / END - kapiabafwh@gmail.com .and. jairfab@gmail.com
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 30 guests