script per 10elotto ogni 5min esistono??

antopun · 2 Dicembre 2011

Ciao a voi tutti del forum, chiedo gentilmente a voi esperti e' non se ci sono dei script anche per il 10 e' lotto istantaneo.Se ci sono , mi dite dove li posso trovare.Spero in una vostra risposta e' nell'attesa porgo i miei piu' sinceri saluti. antonio !!

keeper · 2 Dicembre 2011

si qualcosa è stata fatta sia luigi ultimamente su mia richiesta ha sviluppato l'ossatura di uno script e sia rubino semore su mia richiesta dipende cosa ti occorre

antopun · 2 Dicembre 2011

grazie di avermi risposto amico keeper io mi accontento di poco, va bene qualsiasi script l'importante e' che sia per il 10 e' lotto ogni 5 min. tieni presente che sono un principiante quindi chiedere la luna credo che sia come inizio cosa non buona, ma accontentarsi anche di poco gia' e' molto. Io ho letto molti post, vedo che ci sono ottime persone sia come amici che come fratelli. Infatti la cosa bella di questo meraviglioso forum e' che voi tutti siete fantastici, leggendo ho notato come aiutate il prossimo , ma sopratutto con quale spirito lo fate , questo mi ha colpito molto, quindi per il momento meglio entrare in punta di piedi dopo semmai , dico solo dopo aver fatto amicizia con tuttti (lo spero) solo allora forse saro' cosi' presuntuoso da chiedervi di farmi uno script come dico io. eheehehehe..scherzo, spero solo d'imparare da voi . grazie amico per la tua disponibilita' e' gentilezza . N.B. sarei molto felice se tu mi dici dove o a quale post andare per copiare qualche script . saluti di cuore antonio !!

Romana · 3 Dicembre 2011

Ciao!
Il post di cui parla Keeper dovrebbe essere questo:
http://forum.lottoced.com/showthread.php?4184-creazione-script-10elotto-5-minuti

keeper · 3 Dicembre 2011

questo è quello del post ma con una piccola modifica

Option Explicit
Sub Main
Dim IdEstr,IdEstrBase,Colpi,nEstrTot,nPresenti,nQuantitaResidua
Dim k,i
Call ImpostaArchivio10ELotto(2)
nEstrTot = EstrazioniArchivioDL
IdEstrBase = CInt(InputBox("Immettere il numero di estrazione da 1 a " & nEstrTot,,1))
IdEstr = IdEstrBase
nQuantitaResidua = CInt(InputBox("Quanti numeri devono rimanere (valore maggiore di 1)?",,1))
If nQuantitaResidua <= 0 Then Exit Sub '1
ReDim aB(90)
For k = 1 To 20
aB(EstrattoDL(IdEstr,k)) = True
Next
nPresenti = 20
Do
IdEstr = IdEstr + 1
Colpi = Colpi + 1
If IdEstr <= nEstrTot Then
For k = 1 To 20
If aB(EstrattoDL(IdEstr,k)) Then
aB(EstrattoDL(IdEstr,k)) = False
nPresenti = nPresenti - 1
End If
Next
Else
Exit Do
End If
Loop While nPresenti > nQuantitaResidua
If nPresenti >= 0 Then '2
ReDim aN(nPresenti)
For k = 1 To 90
If aB(k) Then
i = i + 1
aN(i) = k
End If
Next
Call Scrivi("I numeri residui dopo colpi " & Colpi & " sono " & nPresenti)
Call Scrivi("L'estrazione di partenza è " & IdEstrBase)
Call Scrivi("I numeri residui sono " & StringaNumeri(aN))
Call Scrivi
ReDim aCol(0)
Call InitSviluppoIntegrale(aN,1)
i = 0
Do While GetCombSviluppo(aCol)
i = i + 1
Call ImpostaGiocataDL(i,aCol,1,10,2)
Loop
Call GiocaDL(IdEstrBase + Colpi)
Call ScriviResocontoDL
Else
Call Scrivi("I numeri residui dopo colpi " & Colpi & " sono " & nPresenti)
End If
End Sub
　
　
　
　
　

keeper · 3 Dicembre 2011

poi non ricordo bene era stato realizzato credo sempre da luigib uno script sulle spie ma non ho il link sperîamo che qualche altro ti possa aiutare

antopun · 4 Dicembre 2011

grazie fratello keeper, sei stato molto gentile ad aiutarmi, sopratutto mi hai anche messo lo script qui per copiarlo senza farmi fare nessuna ricerca . che dire...spero un giorno di ricambiare . Per il momento l'unica cosa che io possa fare e' quella di ringraziarti veramente di cuore. ANTONIO !!! grazie frate' .

keeper · 4 Dicembre 2011

non devi ringraziarmi di scrìpt ne ho altri te li posto lunedi in quanto ho il computer rotto tu cerca nei posto quello delle spie x 10elotto numeri + frequenti ti da una tabella e credimi ponendo in essere un gioco di ambate ti toglierai piccole soddisfazìoni

antopun · 5 Dicembre 2011

Ciao frate' sei un grande !!! senti frate' ho aperto il programma come mi hai detto tu, sono andato su numeri spia 10 e'l8, fatto ricerca entro 3 colpi, e' mi ha dato i risultati. fin qui tutto ok, ma ora ti chiedo, sai come fare per stamparli?? o copiare sul blocco note?? io non ci riesco , oppure non so come si fa , puoi aiutarmi su questo?? Inoltre volevo chiederti se anche tu sei un appassionato di questo gioco, e' se ti va insieme a me , di fare qualcosa tipo qualche buon script oppure qualche studio fatto di idee sia tu che mie. Chissa' che non ne esce qualcosa di veramente buono da farci vincere qualcosa di soldi. Io ci credo , perche' sono molto fiducioso e' sai perche'?? perche' io dico sempre : SE DEVE VENIRE O SUCCEDERE QUALCOSA DI BRUTTO PUO' VENIRE, ALLORA PERCHE' NON PUO' VENIRE O SUCCEDERE QUALCOSA DI BUONO??? detto questo ti abbraccio frate' e' ti ringrazio sempre per la tua disponibilita' che mi dai, facendo si che io possa imparare qualcosa in +. grz di cuore !! antonio. N.B. io aspetto il lunedi come la terra aspetta l'acqua e' il sole per dare vita a nuovi frutti. ciao ...

keeper · 5 Dicembre 2011

questo è presente anche in spaziometria realizzato per me e cebino

Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(2)
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
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 5 minuti "
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
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
End If
If v = 5 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
t5 = Format2(EstrattoDL(idestr,r + 4))
End If
u1 = Format2(EstrattoDL(idestr,r2))
u2 = Format2(EstrattoDL(idestr,r2 + 1))
If v = 3 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
End If
If v = 4 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
End If
If v = 5 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
u5 = Format2(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1) : Scrivi "------ somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ReDim tnm(5)
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
tnm(4) = t4
tnm(5) = t5
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
ColoreTesto 0
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
End If
ReDim tnm(5)
tnm(1) = u1
tnm(2) = u2
tnm(3) = u3
tnm(4) = u4
tnm(5) = u5
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
ColoreTesto 0
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
End If
　
　
End If
Next
Next
Next
　
ColoreTesto 0
Scrivi "Ambi totali realizzati..." & ambitotali
Scrivi "Terni totali realizzati..." & ternitotali
Scrivi "Quaterne totali realizzati..." & Quatetotali
Scrivi "Cinquine totali realizzati..." & Cinquitotali
Scrivi "concorsi esaminati totale.." & z
For n = 1 To 999
If acolpi

> 0 Then
Scrivi Format2

& "°.colpo.." & acolpi

End If
Next
End Sub

keeper · 5 Dicembre 2011

questo è stato fatto su mia richiesta
Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
''''' nome script KEEPER10LOTTO5M
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(2)
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
v = InputBox("somma nr.consecutivi 2,3,4,5",,5)
lis = InputBox("Estratto=1, ambo=2, Terno=3, Quaterna=4, Cinquina=5",,5)
k = InputBox("Verifica esito n.colpi..",,20)
acc = InputBox("Accorpa giocate Si-No ",,"S")
fin = storia
Ini = storia - z
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO 5 minuti - by Rubino - "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Accorpa giocate.." & acc
Scrivi "Verifica esito : segnala punteggio >= di..." & lis
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
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
End If
If v = 5 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
t5 = Format2(EstrattoDL(idestr,r + 4))
End If
u1 = Format2(EstrattoDL(idestr,r2))
u2 = Format2(EstrattoDL(idestr,r2 + 1))
If v = 3 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
End If
If v = 4 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
End If
If v = 5 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
u5 = Format2(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1)
Scrivi "------ somma.." & Format2(asom(r)) & " ............" & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ReDim tnm(24)
For j = 1 To 24
tnm(j) = 0
Next
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
tnm(4) = t4
tnm(5) = t5
''''''' accorpa giocate in una unica
If acc = "S" Then
tnm(6) = u1
tnm(7) = u2
tnm(8) = u3
tnm(9) = u4
tnm(10) = u5
'''''variante incremento punteggio
tnm(11) = 67
tnm(12) = 78
tnm(13) = 87
tnm(14) = 76
tnm(15) = 66
tnm(16) = 75
tnm(17) = 88
tnm(18) = 01
tnm(19) = 11
tnm(20) = 17
tnm(21) = 32
tnm(22) = 35
tnm(23) = 73
tnm(24) = 75
EliminaRipetuti tnm
completa = ""
ctr = 0
For j = 1 To 24
If tnm(j) > 0 Then
completa = completa & Format2(tnm(j)) & " "
ctr = ctr + 1
End If
Next
ColoreTesto 0
Scrivi " Previsione completa con aggiunta di fissi tot.n. " & ctr & " ----serie in gioco----> " & completa
End If
　
If VerificaEsitoDL(tnm,idestr + 1,lis,k,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
combin1 = combin1 + 1
ColoreTesto 0
If RetEsito = "Dieci" Then
Diecitotali = Diecitotali + 1
End If
If RetEsito = "Nove" Then
Novetotali = Novetotali + 1
End If
If RetEsito = "Otto" Then
Ottototali = Ottototali + 1
End If
If RetEsito = "Sette" Then
Settetotali = Settetotali + 1
End If
If RetEsito = "Sestina" Then
seitotali = seitotali + 1
End If
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
If RetEsito = "Estratto" Then
Estrattototali = Estrattototali + 1
End If
End If
est = RetIdEstr
estrazione = ""
For jj = 1 To 20
estrazione = estrazione & Format2(EstrattoDL(est,jj)) & " "
Next
ColoreTesto 0
Scrivi est & "/" & DataEstrazioneDL(est) & "........................................" & Estrazione
ReDim tnm(10)
tnm(1) = u1
tnm(2) = u2
tnm(3) = u3
tnm(4) = u4
tnm(5) = u5
'''''---------------------------------------------------------------------------------------------
If acc = "N" Then
If VerificaEsitoDL(tnm,idestr + 1,lis,k,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
combin2 = combin2 + 1
ColoreTesto 0
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
If RetEsito = "Estratto" Then
Estrattototali = Estrattototali + 1
End If
End If
End If
End If
Next
Next
Next
ColoreTesto 0
Scrivi "Ambata totali realizzati..." & Estrattototali
Scrivi "Ambi totali realizzati..." & ambitotali
Scrivi "Terni totali realizzati..." & ternitotali
Scrivi "Quaterne totali realizzati..." & Quatetotali
Scrivi "Cinquine totali realizzati..." & Cinquitotali
Scrivi "6 Punti totali realizzati..." & Seitotali
Scrivi "7 Punti totali realizzati..." & Settetotali
Scrivi "8 Punti totali realizzati..." & Ottototali
Scrivi "9 Punti totali realizzati..." & Novetotali
Scrivi "10 Punti totali realizzati..." & Diecitotali
Scrivi "concorsi esaminati totale.." & z
Scrivi "Vincenti Combinazione ....." & combin1
For n = 1 To 100
If acolpi

> 0 Then
Scrivi Format2

& "°.colpo.." & acolpi

End If
Next
End Sub

barattolo · 5 Dicembre 2011

Ciao Keeper,

da quest'errore

keeper · 5 Dicembre 2011

si hai ragione è la formattazione che non va
a me funziona

keeper · 5 Dicembre 2011

Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(2)
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
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 5 minuti "
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
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
End If
If v = 5 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
t5 = Format2(EstrattoDL(idestr,r + 4))
End If
u1 = Format2(EstrattoDL(idestr,r2))
u2 = Format2(EstrattoDL(idestr,r2 + 1))
If v = 3 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
End If
If v = 4 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
End If
If v = 5 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
u5 = Format2(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1) : Scrivi "------ somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ReDim tnm(5)
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
tnm(4) = t4
tnm(5) = t5
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
ColoreTesto 0
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
End If
ReDim tnm(5)
tnm(1) = u1
tnm(2) = u2
tnm(3) = u3
tnm(4) = u4
tnm(5) = u5
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
ColoreTesto 0
If RetEsito = "Cinquina" Then
Cinquitotali = Cinquitotali + 1
End If
If RetEsito = "Quaterna" Then
Quatetotali = Quatetotali + 1
End If
If RetEsito = "Terno" Then
ternitotali = ternitotali + 1
End If
If RetEsito = "Ambo" Then
ambitotali = ambitotali + 1
End If
End If
　
　
End If
Next
Next
Next
　
ColoreTesto 0
Scrivi "Ambi totali realizzati..." & ambitotali
Scrivi "Terni totali realizzati..." & ternitotali
Scrivi "Quaterne totali realizzati..." & Quatetotali
Scrivi "Cinquine totali realizzati..." & Cinquitotali
Scrivi "concorsi esaminati totale.." & z
For n = 1 To 999
If acolpi

> 0 Then
Scrivi Format2

& "°.colpo.." & acolpi

End If
Next
End Sub
　

Baffoblu · 5 Dicembre 2011

Scusate ragazzi, non mi è chiaro, dato uno sguardo, va bene ?

Codice:

Sub Main()
    ' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
    '-------------------------------------------------------------------------------------------------------------------------------
    ImpostaArchivio10ELotto(2)
    Dim num(20)
    Dim asom(20)
    Dim acolpi(9999)
    storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
    z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
    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 5 minuti "
    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
                        t3 = Format2(EstrattoDL(idestr,r + 2))
                        t4 = Format2(EstrattoDL(idestr,r + 3))
                    End If
                    If v = 5 Then
                        t3 = Format2(EstrattoDL(idestr,r + 2))
                        t4 = Format2(EstrattoDL(idestr,r + 3))
                        t5 = Format2(EstrattoDL(idestr,r + 4))
                    End If
                    u1 = Format2(EstrattoDL(idestr,r2))
                    u2 = Format2(EstrattoDL(idestr,r2 + 1))
                    If v = 3 Then
                        u3 = Format2(EstrattoDL(idestr,r2 + 2))
                    End If
                    If v = 4 Then
                        u3 = Format2(EstrattoDL(idestr,r2 + 2))
                        u4 = Format2(EstrattoDL(idestr,r2 + 3))
                    End If
                    If v = 5 Then
                        u3 = Format2(EstrattoDL(idestr,r2 + 2))
                        u4 = Format2(EstrattoDL(idestr,r2 + 3))
                        u5 = Format2(EstrattoDL(idestr,r2 + 4))
                    End If
                    ColoreTesto(1)
                    Scrivi "------ somma.." & Format2(asom(r)) & " .." & t1 & "" & t2 & "" & t3 & "" & t4 & "" & t5 & "" & u1 & "" & u2 & "" & u3 & "" & u4 & "" & u5
                    ReDim tnm(5)
                    tnm(1) = t1
                    tnm(2) = t2
                    tnm(3) = t3
                    tnm(4) = t4
                    tnm(5) = t5
                    If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
                        ColoreTesto 2
                        Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & "" & RetEsito & " colpi : " & RetColpi & "" & RetEstratti)
                        acolpi(RetColpi) = acolpi(RetColpi) + 1
                        ColoreTesto 0
                        If RetEsito = "Cinquina" Then
                            Cinquitotali = Cinquitotali + 1
                        End If
                        If RetEsito = "Quaterna" Then
                            Quatetotali = Quatetotali + 1
                        End If
                        If RetEsito = "Terno" Then
                            ternitotali = ternitotali + 1
                        End If
                        If RetEsito = "Ambo" Then
                            ambitotali = ambitotali + 1
                        End If
                    End If
                    ReDim tnm(5)
                    tnm(1) = u1
                    tnm(2) = u2
                    tnm(3) = u3
                    tnm(4) = u4
                    tnm(5) = u5
                    If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
                        ColoreTesto 2
                        Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & "" & RetEsito & " colpi : " & RetColpi & "" & RetEstratti)
                        acolpi(RetColpi) = acolpi(RetColpi) + 1
                        ColoreTesto 0
                        If RetEsito = "Cinquina" Then
                            Cinquitotali = Cinquitotali + 1
                        End If
                        If RetEsito = "Quaterna" Then
                            Quatetotali = Quatetotali + 1
                        End If
                        If RetEsito = "Terno" Then
                            ternitotali = ternitotali + 1
                        End If
                        If RetEsito = "Ambo" Then
                            ambitotali = ambitotali + 1
                        End If
                    End If
                End If
            Next
        Next
    Next
    ColoreTesto 0
    Scrivi "Ambi totali realizzati..." & ambitotali
    Scrivi "Terni totali realizzati..." & ternitotali
    Scrivi "Quaterne totali realizzati..." & Quatetotali
    Scrivi "Cinquine totali realizzati..." & Cinquitotali
    Scrivi "concorsi esaminati totale.." & z
    For n = 1 To 999
        If acolpi(n) > 0 Then
            Scrivi Format2(n) & "°.colpo.." & acolpi(n)
        End If
    Next
End Sub

antopun · 5 Dicembre 2011

Ciao fratello keeper, ti ringrazio per gli script ma .. purtroppo a me non va , nessuno dei due mi da sempre errrore . Ho provato a cancellare l'errore tipo next + di 5 volte , dopo mi da' errore diverso tipo end if e' cosi' via . Sto' impazzendo credimi , la mia versione e' la 1,3,9 perche' mi trovo bene , secondo te dove sta l'errore che non me lo fa sviluppare??? tieni presente che altri script mi e' bastato pigiare autoformattazione codice qui invece niente da fare . frate' se puoi fare qualcosa ...grazie !! N.B. anche quello in ultimo di baffo , me lo sviluppa ma mi da risultato tutto zero , perche'??? un abbraccio antonio!!!

antopun · 9 Dicembre 2011

Ciao a tutti , chiedo gentilmente a baffoblu , siccome ke l'amico fratello keeper aveva il pc con problemi , credo che se non ancora mi ha risposto e' perche' ha ancora problemi, nell'attesa amico baffoblu puoi gentilmente aiutarmi su questo script che a me non va?? Se leggi sopra ho elencato i prob che mi da lo script , scusa per il disturbo e' nell'attesa di una tua risposta cordiali saluti antonio!!

Baffoblu · 9 Dicembre 2011

antopun ha scritto:
Ciao a tutti , chiedo gentilmente a baffoblu , siccome ke l'amico fratello keeper aveva il pc con problemi , credo che se non ancora mi ha risposto e' perche' ha ancora problemi, nell'attesa amico baffoblu puoi gentilmente aiutarmi su questo script che a me non va?? Se leggi sopra ho elencato i prob che mi da lo script , scusa per il disturbo e' nell'attesa di una tua risposta cordiali saluti antonio!!

Lo script che ho messo io, non contiene errori, e funziona !

Premetto che io ho l'ultima versione di spaziometria.

Non seguo nel modo più assoluto nient'altro al di fuori del lotto normale.

ho provato lo script, e qui ti metto l'output :

Codice:

Rileva somme numeri dal concorso n.57790 al conc.n. 57840 Per il 10 E LOTTO 5 minuti 
Somma nr. consecutività..3
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
__________________________________________________ __________________________________________________ __________________________________________________
__________________________________________________ __________________________________________________ __________________________________________________ _____
578390410141720222829394448525659606566818788.......................284151597079062241546677850411325476
------ somma..41 ..101417394448
------ somma..54 ..444852668187
__________________________________________________ __________________________________________________ __________________________________________________ _____
578380509152021233136374348545557676877787984.......................294456647590142638556776891232435461
__________________________________________________ __________________________________________________ __________________________________________________ _____
578370507111416242630333437485052606473768083.......................233241546680890714294560728617334959
__________________________________________________ __________________________________________________ __________________________________________________ _____
578360307091317283841444550526467697077798586.......................192939588317334049577603202636466170
__________________________________________________ __________________________________________________ __________________________________________________ _____
578350509111624263334363842626368737483858689.......................253651668303131826527713243550627480
------ somma..13 ..333436626368
__________________________________________________ __________________________________________________ __________________________________________________ _____
578340102050712151938454647505565666776788384.......................081424344672123948536280061829415765
__________________________________________________ __________________________________________________ __________________________________________________ _____
578331112182830353638395152535663717276828389.......................415876031119233852667182102639506174
__________________________________________________ __________________________________________________ __________________________________________________ _____
578320613142026273738434450555662697475777980.......................334760739012283547597183072538465156
------ somma..47 ..131420434450
__________________________________________________ __________________________________________________ __________________________________________________ _____
578310210111517253334353848526372788183868889.......................233643577502121731487307335162707783
__________________________________________________ __________________________________________________ __________________________________________________ _____
578300118283031343840454648556465667275798388.......................477689051322334149597704152333465770
------ somma..33 ..384045667275
__________________________________________________ __________________________________________________ __________________________________________________ _____
578290203192532333446485355575860616972768590.......................244776900923385766758085891022375371
__________________________________________________ __________________________________________________ __________________________________________________ _____
578280407151924253234444750626365697376778789.......................264158688101203551698510172738466073
__________________________________________________ __________________________________________________ __________________________________________________ _____
578270614152526323342465464707376777882868789.......................355466830117315274082739465157667582
------ somma..66 ..152526788286
__________________________________________________ __________________________________________________ __________________________________________________ _____
578260305091015171920363943505360626771777988.......................172434425156750528425673850920354764
------ somma..42 ..101517394350
[57831] [219] 19.11.2011Terno colpi : 5.. 10 .. 15 17 .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
------ somma..56 ..171920435053
__________________________________________________ __________________________________________________ __________________________________________________ _____
578251011142021293334364243444758616379858689.......................354555708306132231394459760223477080
------ somma..70 ..202129798586
[57836] [224] 19.11.2011Terno colpi : 11.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 79 85 86
__________________________________________________ __________________________________________________ __________________________________________________ _____
578240215202123242938414344485160626772778089.......................375664687601183238455369830921364966
__________________________________________________ __________________________________________________ __________________________________________________ _____
578230203091011151924353645464959606275798082.......................142230364558780526375064780117365461
------ somma..36 ..101115627579
[57831] [219] 19.11.2011Terno colpi : 8.. 10 11 15 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
[57832] [220] 19.11.2011Terno colpi : 9.. .. .. .. .. .. .. .. .. .. .. .. .. 62 .. .. 75 .. 79 ..
------ somma..78 ..192435495960
__________________________________________________ __________________________________________________ __________________________________________________ _____
578220203040507162830333440505758606872818290.......................091216285174010717345775850620415573
__________________________________________________ __________________________________________________ __________________________________________________ _____
578210205111215222732394751525354617480848890.......................182838496481082847606669780935587282
------ somma..28 ..051112323947
__________________________________________________ __________________________________________________ __________________________________________________ _____
578200508091215232831404246495156626775787980.......................222936506682092338475666790524405257
------ somma..66 ..152328495156
__________________________________________________ __________________________________________________ __________________________________________________ _____
578190708091030313640454652535758667380828388.......................242749710717314153617278011739556573
------ somma..17 ..313640586673
__________________________________________________ __________________________________________________ __________________________________________________ _____
578180205061214161724253045585963646772747677.......................132332424757667910437290061423334247
------ somma..23 ..050612646772
------ somma..42 ..121416727476
------ somma..47 ..141617747677
__________________________________________________ __________________________________________________ __________________________________________________ _____
578171517183334374046505259606165707378838790.......................506885142133465871819006162841546880
------ somma..68 ..171833788387
__________________________________________________ __________________________________________________ __________________________________________________ _____
578160307081215333637384244616466697677798186.......................182735608416212734577911193142525766
------ somma..27 ..070812373842
------ somma..57 ..424461777981
[57825] [213] 19.11.2011Terno colpi : 9.. .. .. .. .. .. .. .. .. 42 .. 44 .. .. 61 .. .. .. .. ..
__________________________________________________ __________________________________________________ __________________________________________________ _____
578150205071517192635415458596573747780868990.......................142739516280124063810217324451637585
------ somma..51 ..151719747780
[57826] [214] 19.11.2011Terno colpi : 11.. .. .. .. 15 17 19 .. .. .. .. .. .. .. .. .. .. .. .. ..
[57832] [220] 19.11.2011Terno colpi : 17.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 74 .. 77 .. 80
------ somma..63 ..415458778086
__________________________________________________ __________________________________________________ __________________________________________________ _____
578140607202125303839404651576467737576828889.......................334866760317273547648208243544536679
------ somma..66 ..202125768288
------ somma..35 ..394046677375
__________________________________________________ __________________________________________________ __________________________________________________ _____
578130407141517192035384446486266697175768188.......................253646515674032738486686172635425265
__________________________________________________ __________________________________________________ __________________________________________________ _____
578120103122833394346475053586465708182838589.......................164373102538465360718507193653667077
------ somma..53 ..464750708182
[57834] [222] 19.11.2011Terno colpi : 22.. .. .. .. .. .. .. .. .. 46 47 50 .. .. .. .. .. .. .. ..
__________________________________________________ __________________________________________________ __________________________________________________ _____
578110305070911143540455155575973758283848889.......................152127346089304661738109275060697581
------ somma..27 ..070911597375
------ somma..60 ..111435758283
------ somma..81 ..555759848889
__________________________________________________ __________________________________________________ __________________________________________________ _____
578100406081113171820223032354050545960667185.......................182532414855607284071735547383051742
------ somma..17 ..323540606671
__________________________________________________ __________________________________________________ __________________________________________________ _____
578090306192829333941474849597476798384878889.......................285376901123374654660229495866747984
------ somma..66 ..484959798384
__________________________________________________ __________________________________________________ __________________________________________________ _____
578080607111517182128364051718081828386878890.......................243343505667851437722252636671768185
------ somma..85 ..212836878890
__________________________________________________ __________________________________________________ __________________________________________________ _____
578070716182127293031384250535759697276808486.......................415566778690092140557079052037486070
------ somma..55 ..161821425053
------ somma..70 ..505357808486
__________________________________________________ __________________________________________________ __________________________________________________ _____
578060506121418222425303339466466717377838690.......................233244546471798812285986213041536679
------ somma..79 ..242530838690
[57818] [206] 19.11.2011Terno colpi : 12.. .. .. .. .. .. .. 24 25 30 .. .. .. .. .. .. .. .. .. ..
[57808] [196] 19.11.2011Terno colpi : 2.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 83 86 .. .. 90
__________________________________________________ __________________________________________________ __________________________________________________ _____
578050211171922262932333443455055576163647273.......................304758677787040920324860728301081929
__________________________________________________ __________________________________________________ __________________________________________________ _____
578040113202324272930465153596164656671798186.......................345667748086153760738304101522365166
------ somma..15 ..293046646566
[57830] [218] 19.11.2011Terno colpi : 26.. .. .. .. .. .. .. .. .. .. .. .. 64 65 66 .. .. .. .. ..
__________________________________________________ __________________________________________________ __________________________________________________ _____
578030102051516172036384243485052535874768183.......................082236485373042633435160657305285160
------ somma..73 ..172036525358
[57826] [214] 19.11.2011Terno colpi : 23.. .. .. .. .. 17 .. 20 36 .. .. .. .. .. .. .. .. .. .. ..
[57819] [207] 19.11.2011Terno colpi : 16.. .. .. .. .. .. .. .. .. .. 52 53 .. 58 .. .. .. .. .. ..
------ somma..51 ..434850747681
------ somma..60 ..485052768183
[57837] [225] 19.11.2011Terno colpi : 34.. .. .. .. .. .. .. .. .. .. .. 48 50 52 .. .. .. .. .. ..
__________________________________________________ __________________________________________________ __________________________________________________ _____
578020609111219263031383940424447646580818788.......................263242577587091827313643658629466876
__________________________________________________ __________________________________________________ __________________________________________________ _____
578011617192528303637384243496162636667707677.......................526172830413212733446382061116233343
------ somma..33 ..384243677076
[57803] [191] 19.11.2011Terno colpi : 2.. .. .. .. .. .. .. .. 38 42 43 .. .. .. .. .. .. .. .. ..
__________________________________________________ __________________________________________________ __________________________________________________ _____
578000204081522252831353643465559636970808789.......................142745627584041224355470871122395776
__________________________________________________ __________________________________________________ __________________________________________________ _____
577991214202132344142485154596065686971777890.......................465573871727415163748304132228374665
------ somma..46 ..121420717778
__________________________________________________ __________________________________________________ __________________________________________________ _____
577980311131416192022293334374650525366777881.......................273843495561718406142743586581164156
------ somma..27 ..031113343746
[57817] [205] 19.11.2011Terno colpi : 19.. .. .. .. 34 37 .. 46 .. .. .. .. .. .. .. .. .. .. .. ..
------ somma..43 ..131416374650
[57817] [205] 19.11.2011Terno colpi : 19.. .. .. .. .. 37 .. 46 50 .. .. .. .. .. .. .. .. .. .. ..
__________________________________________________ __________________________________________________ __________________________________________________ _____
577970607081114193238404142434959657075788889.......................212633446589202933364461831430436175
------ somma..33 ..081114404142
------ somma..44 ..111419424349
[57798] [186] 19.11.2011Terno colpi : 1.. 11 .. 14 .. 19 .. .. .. .. .. .. .. .. .. .. .. .. .. ..
[57801] [189] 19.11.2011Terno colpi : 4.. .. .. .. .. .. .. .. .. 42 43 49 .. .. .. .. .. .. .. ..
------ somma..61 ..434959757888
__________________________________________________ __________________________________________________ __________________________________________________ _____
577960408131416171821283337495662636677787990.......................253543475156678208295277011126415467
------ somma..67 ..182128787990
[57808] [196] 19.11.2011Terno colpi : 12.. .. .. .. .. 18 21 28 .. .. .. .. .. .. .. .. .. .. .. ..
__________________________________________________ __________________________________________________ __________________________________________________ _____
577950104061114192534383943444760636570747881.......................112131445878072130364461800818294253
------ somma..21 ..040611343839
[57810] [198] 19.11.2011Terno colpi : 1504 06 .. 11 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
------ somma..44 ..111419434447
[57797] [185] 19.11.2011Terno colpi : 2.. .. .. 11 14 19 .. .. .. .. .. .. .. .. .. .. .. .. .. ..
[57825] [213] 19.11.2011Terno colpi : 30.. .. .. .. .. .. .. .. .. .. 43 44 47 .. .. .. .. .. .. ..
__________________________________________________ __________________________________________________ __________________________________________________ _____
577940102060709131722243955566265697879818283.......................091522293952638528608303163246586266
__________________________________________________ __________________________________________________ __________________________________________________ _____
577930614171819202933373942495354596466788790.......................374954576882091928405466768709285175
------ somma..54 ..171819424953
[57840] [228] 19.11.2011Terno colpi : 4717 18 19 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
------ somma..09 ..293337596466
[57798] [186] 19.11.2011Terno colpi : 5.. .. .. .. .. .. .. .. 29 33 .. 37 .. .. .. .. .. .. .. ..
[57804] [192] 19.11.2011Terno colpi : 11.. .. .. .. .. .. .. .. .. .. .. 59 .. 64 .. 66 .. .. .. ..
------ somma..28 ..373942646678
__________________________________________________ __________________________________________________ __________________________________________________ _____
577920208101115242527283745484955575859637585.......................202936506476800220405262718084901743
------ somma..20 ..020810283745
------ somma..80 ..252728555758
[57829] [217] 19.11.2011Terno colpi : 37.. .. .. .. .. .. .. .. .. .. 55 57 58 .. .. .. .. .. .. ..
__________________________________________________ __________________________________________________ __________________________________________________ _____
577910510171820212831323441505558597071728485.......................324555596980010717355673820720334761
------ somma..07 ..313234585970
__________________________________________________ __________________________________________________ __________________________________________________ _____
577900104192022252629303947576162666975767986.......................244361677380850826537590091730405061
------ somma..61 ..192022767986
[57798] [186] 19.11.2011Terno colpi : 8.. .. .. .. .. 19 20 22 .. .. .. .. .. .. .. .. .. .. .. ..
[57816] [204] 19.11.2011Terno colpi : 26.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. 76 .. 79 .. 86
Ambi totali realizzati...
Terni totali realizzati...29
Quaterne totali realizzati...
Cinquine totali realizzati...
concorsi esaminati totale..50
01°.colpo..1
02°.colpo..3
04°.colpo..1
05°.colpo..2
08°.colpo..2
09°.colpo..2
11°.colpo..3
12°.colpo..2
15°.colpo..1
16°.colpo..1
17°.colpo..1
19°.colpo..2
22°.colpo..1
23°.colpo..1
26°.colpo..2
30°.colpo..1
34°.colpo..1
37°.colpo..1
47°.colpo..1

il tuo problema forse e riconducibile all'archivio, che forse non è aggiornato.
La verità, io non lo aggiorno mai, lo trovato così comè nella nuova versione di spaziometria, e non so se è aggiornato all'ultima.

Quindi, se lo script a me funziona, vuol dire che il problema è riconducibile alla vecchia versione se non adirittura al tuo pc.

ciao

antopun · 9 Dicembre 2011

grazie per avermi risposto frate', sei stato molto gentile del resto qui in questo magnifico forum siete davvero fantastici. Detto questo frate' io ho la versione 1,3,9 e' l'aggiorno sempre , il prob e' che alcuni script vanno bene alcuni no nonostante inserisco autoformattazione codice, inoltre prima di inserirla dopo averla copiata qui sul forum , apro sempre il blocco note , la incollo spunto formato a carattere, la ricopio e' poi la incollo nella pagina nuovo script. Questo l'ho imparato da voi leggendo i vari post, dato che vi seguo alla lettera, se poi sbaglio qualcosa sarei molto fiero se voi me lo dite dato che facilmente posso sbagliare in quanto sono un novello e' solo qui seguendo i vostri consigli ho solo da imparare. Il punto e': secondo te fratello baffoblu cosa mi consigli di scaricare l'ultima versione??? e' la 1,3,9 la elimino??? tieni presente che al momento ho aggiornato tutte le estrazioni del 10 e' l8 ogni 5 min . La mia paura e' che dopo devo aggiornarle di nuovo e' credimi ci vuole un po' di tempo a seconda di quale ultima estrazione mi da' il nuovo programma spaziometria. Finale, ti ringrazio di cuore ancora una volta a te e' all'altro fratello keeper per la vostra disponibilita' e' per la pazienza che avete nell'aiutarmi in questo campo di script e' di metodi. cordiali saluti antonio !!

Baffoblu · 10 Dicembre 2011

antopun ha scritto:
grazie per avermi risposto frate', sei stato molto gentile del resto qui in questo magnifico forum siete davvero fantastici. Detto questo frate' io ho la versione 1,3,9 e' l'aggiorno sempre , il prob e' che alcuni script vanno bene alcuni no nonostante inserisco autoformattazione codice, inoltre prima di inserirla dopo averla copiata qui sul forum , apro sempre il blocco note , la incollo spunto formato a carattere, la ricopio e' poi la incollo nella pagina nuovo script. Questo l'ho imparato da voi leggendo i vari post, dato che vi seguo alla lettera, se poi sbaglio qualcosa sarei molto fiero se voi me lo dite dato che facilmente posso sbagliare in quanto sono un novello e' solo qui seguendo i vostri consigli ho solo da imparare. Il punto e': secondo te fratello baffoblu cosa mi consigli di scaricare l'ultima versione??? e' la 1,3,9 la elimino??? tieni presente che al momento ho aggiornato tutte le estrazioni del 10 e' l8 ogni 5 min . La mia paura e' che dopo devo aggiornarle di nuovo e' credimi ci vuole un po' di tempo a seconda di quale ultima estrazione mi da' il nuovo programma spaziometria. Finale, ti ringrazio di cuore ancora una volta a te e' all'altro fratello keeper per la vostra disponibilita' e' per la pazienza che avete nell'aiutarmi in questo campo di script e' di metodi. cordiali saluti antonio !!

Allora antopun, clicca su questi link, troverai delle guide che ho fatto io

vedra che molti dubbi si scioglieranno come neve al sole.
(mi raccomando leggile fino in fondo perchè a un certo punto troverai risposta al tuo quesito)

http://forum.lottoced.com/f12/nuova-guida-x-scaricare-spaziometria-88811/

http://forum.lottoced.com/f12/guida-allo-script-di-spaziometria-3987/

ciao

script per 10elotto ogni 5min esistono??

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Senior Member

Senior Member

Baffoblu

Guest

Senior Member

Baffoblu

Guest