I must insert on msgget a number serial
sample : -1974753522
on my application I use
MsgGet("Key Generator","Enter Serial Number: ",@nSerial)
but when I try to insert the serial number it make error because I can insert only -197475352
and I cannot insert the last "2"
WHY ?
Problem with Msgget()
- MdaSolution
- Posts: 401
- Joined: Tue Jan 05, 2010 2:33 pm
Problem with Msgget()
FWH .. BC582.. xharbour
- pablovidal
- Posts: 398
- Joined: Thu Oct 06, 2005 10:15 pm
- Location: Republica Dominicana
- Contact:
Re: Problem with Msgget()
Code: Select all
Local cSerial := space(20)
MsgGet("Key Generator","Enter Serial Number: ",@cSerial)
nSerial := ( Val( cSerial )*-1 ) // Aqui esta numero en negativo
Saludos,
Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
- MdaSolution
- Posts: 401
- Joined: Tue Jan 05, 2010 2:33 pm
Re: Problem with Msgget()
Sorry
do you use key gen of Jeff Barnes ?
I not use a text value but nserial is a number and on init is = 0
I have
if Empty(nKey)
lVisable:=.t.
nKey:=1
nSerial:=0
MsgGet("Key Generator","Enter Key: ",@nKey)
MsgGet("Key Generator","Enter Serial Number: ",@nSerial)
MsgGet("Key Generator","Number of Licenses: ",@nLicense)
endif
If I must insert the serial -1974753522
it not take the last digit ( "2")
do you use key gen of Jeff Barnes ?
I not use a text value but nserial is a number and on init is = 0
I have
if Empty(nKey)
lVisable:=.t.
nKey:=1
nSerial:=0
MsgGet("Key Generator","Enter Key: ",@nKey)
MsgGet("Key Generator","Enter Serial Number: ",@nSerial)
MsgGet("Key Generator","Number of Licenses: ",@nLicense)
endif
If I must insert the serial -1974753522
it not take the last digit ( "2")
FWH .. BC582.. xharbour
- MdaSolution
- Posts: 401
- Joined: Tue Jan 05, 2010 2:33 pm
Re: Problem with Msgget()
pablovidal wrote:Code: Select all
Local cSerial := space(20) MsgGet("Key Generator","Enter Serial Number: ",@cSerial) nSerial := ( Val( cSerial )*-1 ) // Aqui esta numero en negativo
Pablo I try with your modify but the result is too different
Serial Number: 1974753522 instead of -1974753522
and then the key is another because it have a positive number
Key: 573-5292123-4377-1230
FWH .. BC582.. xharbour
- FranciscoA
- Posts: 1964
- Joined: Fri Jul 18, 2008 1:24 am
- Location: Chinandega, Nicaragua, C.A.
Re: Problem with Msgget()
Hola, ¿y así?...
local cSerial:=space(20), nSerial:=0
MsgGet("Key Generator","Enter Serial Number",@cSerial)
MsgInfo( nSerial:=Val(alltrim(cSerial)) )
MsgInfo(Valtype(nSerial))
Saludos.
local cSerial:=space(20), nSerial:=0
MsgGet("Key Generator","Enter Serial Number",@cSerial)
MsgInfo( nSerial:=Val(alltrim(cSerial)) )
MsgInfo(Valtype(nSerial))
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh1204-MySql-TMySql
Chinandega, Nicaragua.
Fwxh1204-MySql-TMySql
- Jeff Barnes
- Posts: 912
- Joined: Sun Oct 09, 2005 1:05 pm
- Location: Ontario, Canada
- Contact:
Re: Problem with Msgget()
In the MakeKey() function, change nSerial to a larger number.
When the MsgGet() pops up, just delete all the 9's and enter your -1974753522.
When the MsgGet() pops up, just delete all the 9's and enter your -1974753522.
Code: Select all
if Empty(nKey)
lVisable:=.t.
nKey:=1
nSerial:=999999999999999
MsgGet("Key Generator","Enter Key: ",@nKey)
MsgGet("Key Generator","Enter Serial Number: ",@nSerial)
MsgGet("Key Generator","Number of Licenses: ",@nLicense)
endif
Thanks,
Jeff Barnes
(FWH 12.01, xHarbour 1.2.1, Bcc582)
Jeff Barnes
(FWH 12.01, xHarbour 1.2.1, Bcc582)
- MdaSolution
- Posts: 401
- Joined: Tue Jan 05, 2010 2:33 pm