R
Roby
Guest
Ciao Rubino
ti disturbo in merito allo script che hai ultimato per
l'amico fillotto, quello relativo alle somme per il
10elotto5M.
Ti spiego in parole povere cosa intendo fare:
Esiste un gioco molto simile al 10elotto5M italiano che si chiama
Lottolive e si puo giocare on-line non in italia, dove l'estrazione
avviene ogni minuto per un totale di 1440 estrazioni giornaliere.
Io vorrei adattare lo script in esame su quel gioco, ho gia importato
l'archivio su spaziometria, ma nasce un problema di base: l'archivio
si va a posizionare nella griglia del lotto tradizionale e come se fosse la sola ruota di BARI + il primo estratto di CAGLIARI.
Come puoi ben capire non e semplice per me adattare la funzione dello script
ImpostaArchivio10ELotto(2)</u>
a tale gioco.
Ti aggiungo inoltre le regole del suddetto gioco cosi da poter capire meglio come impostare lo script:
1° il gioco avviene ogni 60 secondi
2° si gioca su un totale di 36 numeri
3° si puo giocare sui numeri nel seguente modo
- Ambata quota 5.85
- Ambo quota 40.00
- Terno quota 345
- Quaterna quota 3850.00
4° si puo giocare da un minimo di 0.10 € con decimali esemp (0.16)
5° non puoi giocare per la sorte inferiore esempio se gioco 3 numeri posso vincere solo se escono 3 numeri e non per l'ambo
Queste sono le regole fondamentali.
allego anche lo script in esame e qualche screen del gioco
-----------------------
Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'condizione
'------------
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
ImpostaArchivio10ELotto(2)
storia = InputBox("Estrazioni Range Conc. ",,248)
z = InputBox("Controllo Tempo = conc.n.",,204)
v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
fin = storia
Ini = storia - z
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
Scrivi "______________________________________________________________________________________________________________________________________________________"
For x = 1 To z
idestr = storia - x
riga = ""
For t = 1 To 20
asom(t) = ""
Next
For yy = 1 To 20
riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
num(yy) = Format2(EstrattoDL(idestr,yy))
Next
If v = 2 Then
For b = 1 To 19
c = Fuori90(Int(num(b)) + Int(num(b + 1)))
asom(b) = asom(b) & CLng(c)
Next
lim = 19
End If
If v = 3 Then
For b = 1 To 18
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
asom(b) = asom(b) & CLng(c)
Next
lim = 18
End If
If v = 4 Then
For b = 1 To 17
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
asom(b) = asom(b) & CLng(c)
Next
lim = 17
End If
If v = 5 Then
For b = 1 To 16
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
asom(b) = asom(b) & CLng(c)
Next
lim = 16
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0):Scrivi idestr & " " & riga & "......................." & rsomme
''''riepilogo terni con somme uguali
For r = 1 To lim
For r2 = r + 1 To lim + 1
If asom(r) = asom(r2) Then
t1 = Format2(EstrattoDL(idestr,r))
t2 = Format2(EstrattoDL(idestr,r + 1))
If v = 3 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
End If
If v = 4 Then
ti disturbo in merito allo script che hai ultimato per
l'amico fillotto, quello relativo alle somme per il
10elotto5M.
Ti spiego in parole povere cosa intendo fare:
Esiste un gioco molto simile al 10elotto5M italiano che si chiama
Lottolive e si puo giocare on-line non in italia, dove l'estrazione
avviene ogni minuto per un totale di 1440 estrazioni giornaliere.
Io vorrei adattare lo script in esame su quel gioco, ho gia importato
l'archivio su spaziometria, ma nasce un problema di base: l'archivio
si va a posizionare nella griglia del lotto tradizionale e come se fosse la sola ruota di BARI + il primo estratto di CAGLIARI.
Come puoi ben capire non e semplice per me adattare la funzione dello script
ImpostaArchivio10ELotto(2)</u>
a tale gioco.
Ti aggiungo inoltre le regole del suddetto gioco cosi da poter capire meglio come impostare lo script:
1° il gioco avviene ogni 60 secondi
2° si gioca su un totale di 36 numeri
3° si puo giocare sui numeri nel seguente modo
- Ambata quota 5.85
- Ambo quota 40.00
- Terno quota 345
- Quaterna quota 3850.00
4° si puo giocare da un minimo di 0.10 € con decimali esemp (0.16)
5° non puoi giocare per la sorte inferiore esempio se gioco 3 numeri posso vincere solo se escono 3 numeri e non per l'ambo
Queste sono le regole fondamentali.
allego anche lo script in esame e qualche screen del gioco
-----------------------
Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'condizione
'------------
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
ImpostaArchivio10ELotto(2)
storia = InputBox("Estrazioni Range Conc. ",,248)
z = InputBox("Controllo Tempo = conc.n.",,204)
v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
fin = storia
Ini = storia - z
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
Scrivi "______________________________________________________________________________________________________________________________________________________"
For x = 1 To z
idestr = storia - x
riga = ""
For t = 1 To 20
asom(t) = ""
Next
For yy = 1 To 20
riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
num(yy) = Format2(EstrattoDL(idestr,yy))
Next
If v = 2 Then
For b = 1 To 19
c = Fuori90(Int(num(b)) + Int(num(b + 1)))
asom(b) = asom(b) & CLng(c)
Next
lim = 19
End If
If v = 3 Then
For b = 1 To 18
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
asom(b) = asom(b) & CLng(c)
Next
lim = 18
End If
If v = 4 Then
For b = 1 To 17
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
asom(b) = asom(b) & CLng(c)
Next
lim = 17
End If
If v = 5 Then
For b = 1 To 16
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
asom(b) = asom(b) & CLng(c)
Next
lim = 16
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0):Scrivi idestr & " " & riga & "......................." & rsomme
''''riepilogo terni con somme uguali
For r = 1 To lim
For r2 = r + 1 To lim + 1
If asom(r) = asom(r2) Then
t1 = Format2(EstrattoDL(idestr,r))
t2 = Format2(EstrattoDL(idestr,r + 1))
If v = 3 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
End If
If v = 4 Then