... dll on folder as you can see here
https://i.postimg.cc/c4GX0dTs/scint.png
I no need five edit , I need a small script editor for use on my lotto application
in several industry applications you can find a script editor of the vbscript type, it is a complete environment to create and execute ...
Search found 41 matches: lotto
Searched query: lotto
- Tue Nov 19, 2024 11:27 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: scintilla sample - RESOLVED -
- Replies: 16
- Views: 4325
- Fri Nov 15, 2024 9:27 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Save dialog to Jpg RESOLVED
- Replies: 3
- Views: 900
Re: Save dialog to Jpg
Now I correct with this
[img] Function SalvaDialog(nType,oDlg)
local cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg"
local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg"
local oRect:= oDlg:GetCliRect()
If nType=1
oDlg:SaveAsImage( cFileJpg1, { oRect:nTop, oRect:nLeft, oRect:nbottom, oRect:nright-100 ...
[img] Function SalvaDialog(nType,oDlg)
local cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg"
local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg"
local oRect:= oDlg:GetCliRect()
If nType=1
oDlg:SaveAsImage( cFileJpg1, { oRect:nTop, oRect:nLeft, oRect:nbottom, oRect:nright-100 ...
- Fri Nov 15, 2024 9:21 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Save dialog to Jpg RESOLVED
- Replies: 3
- Views: 900
Re: Save dialog to Jpg
... AddItem( "Salva", "save_48.bmp", {|| SalvaDialog(nType,oDlg) }, {||.t.}, .f., "" )
Function SalvaDialog(nType,oDlg)
local cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg"
local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg"
If nType=1
oDlg:SaveAsImage( cFileJpg1, { 0, 0, oDlg:nbottom, oDlg:nright-100 ...
Function SalvaDialog(nType,oDlg)
local cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg"
local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg"
If nType=1
oDlg:SaveAsImage( cFileJpg1, { 0, 0, oDlg:nbottom, oDlg:nright-100 ...
- Thu Nov 07, 2024 12:36 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: xbrowse very slow vs Xbrowser
- Replies: 18
- Views: 3990
Re: xbrowse very slow vs Xbrowser
... viewtopic.php?f=3&t=42291&hilit=xbrowse&sid=219eb3f552cfafd821f3d23014eac849#p254116) I call it "Method NagesProcedure(aCell,aVals,nOption) CLASS TLotto"
I use on procedure to show lotto.dbf
and it make this error
Called from: Source\lotto\tlotto.prg => (b)TLOTTO_NAGESPROCEDURE( 995 )
Called ...
I use on procedure to show lotto.dbf
and it make this error
Called from: Source\lotto\tlotto.prg => (b)TLOTTO_NAGESPROCEDURE( 995 )
Called ...
- Sun Oct 13, 2024 5:29 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: very slow also with array
- Replies: 2
- Views: 502
Re: very slow also with array
... use a statistics archive , but I made a test
Maybe to make a good statistic you have to use 2000 records like I used in the old Dos program, but some use 500/800
It give 0.92 /0.96/ ,1.06
If I use entire archive ( archive of lotto from 1871 to 2024 - 10526 records) I have
5.50/5.60/5.62/5.67
Maybe to make a good statistic you have to use 2000 records like I used in the old Dos program, but some use 500/800
It give 0.92 /0.96/ ,1.06
If I use entire archive ( archive of lotto from 1871 to 2024 - 10526 records) I have
5.50/5.60/5.62/5.67
- Fri Oct 11, 2024 11:58 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Creation Array from Tdatabase
- Replies: 2
- Views: 370
Creation Array from Tdatabase
... create on Memory an array from a database
I need to insert several conditions
Now I tried making a filter
oConteggio:=TDatabase():Open( , "Lotto", "DBFCDX", .T. )
IF nLastRecords > 0
nInit:=oConteggio:lastrec()-nLastRecords
nEnd:= oConteggio:lastrec()
ENDIF
oConteggio:Exec( <||
SET ...
I need to insert several conditions
Now I tried making a filter
oConteggio:=TDatabase():Open( , "Lotto", "DBFCDX", .T. )
IF nLastRecords > 0
nInit:=oConteggio:lastrec()-nLastRecords
nEnd:= oConteggio:lastrec()
ENDIF
oConteggio:Exec( <||
SET ...
- Fri Oct 20, 2023 8:15 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Headers in xBrowse
- Replies: 6
- Views: 752
Re: Headers in xBrowse
... 3
local aHeader3:= {"Napoli","Bari","Palermo"}
local cdbfPath:=".\data\"
local oDbf
local aArray
oDbf := TDatabase():Open( , cdbfPath+"LOTTO", "DBFCDX", .T. )
oDbf:setorder(1)
oDbf:GoTop()
aArray := Build_Array_Venus(oDbf)
//xbrowser aArray
DEFINE FONT oFont NAME "TAHOMA" SIZE 0 ...
local aHeader3:= {"Napoli","Bari","Palermo"}
local cdbfPath:=".\data\"
local oDbf
local aArray
oDbf := TDatabase():Open( , cdbfPath+"LOTTO", "DBFCDX", .T. )
oDbf:setorder(1)
oDbf:GoTop()
aArray := Build_Array_Venus(oDbf)
//xbrowser aArray
DEFINE FONT oFont NAME "TAHOMA" SIZE 0 ...
- Fri Dec 09, 2022 7:58 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: cyclometric circle
- Replies: 11
- Views: 7579
Re: cyclometric circle
... your 45 number system,
Is there a historical archive of extractions in belgium?
Yes, Data for 44 year...
BTW Last weekend there was on the game lotto : euromillions a Belgium winners group : 143 miljoen won, and 1 biljet for 165 person to share. Still a lot of money.
Please keep programming and ...
Is there a historical archive of extractions in belgium?
Yes, Data for 44 year...
BTW Last weekend there was on the game lotto : euromillions a Belgium winners group : 143 miljoen won, and 1 biljet for 165 person to share. Still a lot of money.
Please keep programming and ...
- Thu Dec 08, 2022 4:04 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: cyclometric circle
- Replies: 11
- Views: 7579
Re: cyclometric circle
... your 45 number system,
Is there a historical archive of extractions in belgium?
Yes, Data for 44 year...
BTW Last weekend there was on the game lotto : euromillions a Belgium winners group : 143 miljoen won, and 1 biljet for 165 person to share. Still a lot of money.
Please keep programming and ...
Is there a historical archive of extractions in belgium?
Yes, Data for 44 year...
BTW Last weekend there was on the game lotto : euromillions a Belgium winners group : 143 miljoen won, and 1 biljet for 165 person to share. Still a lot of money.
Please keep programming and ...
- Tue Dec 06, 2022 12:39 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: cyclometric circle
- Replies: 11
- Views: 7579
Re: cyclometric circle
... one of the reasons why I went for a desk job in administration :twisted:
Small Course
Cyclometry is applied to the extraction of the Italian lotto but can also be extended to other lotteries such as the Spanish or English ones
Cyclometry is based on an abstract concept in which ninety numbers ...
Small Course
Cyclometry is applied to the extraction of the Italian lotto but can also be extended to other lotteries such as the Spanish or English ones
Cyclometry is based on an abstract concept in which ninety numbers ...
- Tue Nov 22, 2022 10:18 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: New file format
- Replies: 10
- Views: 1242
Re: New file format
... functions, but I wanted to save all the information I need in a single file: in reality they are matrices for creating betting systems for the lotto scheme title, rows, columns, guarantee, points and then the whole scheme that could have up to a maximum of ten columns but infinite rows depending ...
- Mon Nov 14, 2022 10:05 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Problem with tmeter
- Replies: 3
- Views: 561
Problem with tmeter
... 3 procedures
1) download of the history in zip format and unpacking in txt
2) save storico.txt into storico.dbf
3) conversion from storico.dbf to lotto.dbf
for the procedure 2 and 3 I use the same meter (oProgress)
for procedure 1
local nPos := 1
local bprogress := { || (oProgress:Set( npos ...
1) download of the history in zip format and unpacking in txt
2) save storico.txt into storico.dbf
3) conversion from storico.dbf to lotto.dbf
for the procedure 2 and 3 I use the same meter (oProgress)
for procedure 1
local nPos := 1
local bprogress := { || (oProgress:Set( npos ...
- Thu Nov 03, 2022 9:27 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Show LINESTYLE of Xbrowse on line - (run with errors)
- Replies: 7
- Views: 2138
Re: Show LINESTYLE of Xbrowse on line
... else
FOR i := 1 TO (nRecords*5) STEP 5
oCol := ::oLbx:aCols[ i ]
ColPenColor( oCol, CLR_GRAY )
NEXT
Endif
https://i.postimg.cc/cLwPCVZd/lotto.gif
run ok
a sample test
#include "fivewin.ch"
REQUEST DBFCDX
STATIC oBrw, lShowLines := .F.
FUNCTION Main()
test1()
RETURN nil ...
FOR i := 1 TO (nRecords*5) STEP 5
oCol := ::oLbx:aCols[ i ]
ColPenColor( oCol, CLR_GRAY )
NEXT
Endif
https://i.postimg.cc/cLwPCVZd/lotto.gif
run ok
a sample test
#include "fivewin.ch"
REQUEST DBFCDX
STATIC oBrw, lShowLines := .F.
FUNCTION Main()
test1()
RETURN nil ...
- Fri Oct 07, 2022 7:34 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Xbrowse to Html
- Replies: 16
- Views: 1656
Re: Xbrowse to Html
... here that the connection is blocked for days and what you do you stay still until the connection returns ?
the customer to whom I am doing the lotto program has had a serious problem, it is not possible to have the program update as the programmer who created the software died due to covid about ...
the customer to whom I am doing the lotto program has had a serious problem, it is not possible to have the program update as the programmer who created the software died due to covid about ...
- Thu Oct 06, 2022 8:49 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Xbrowse to Html
- Replies: 16
- Views: 1656
Re: Xbrowse to Html
Otto wrote:Silvio, I am really happy to see you at the HTML path.
Regards,
Otto
only to converte xbrowse "lotto" into html because someone ask me it