Ciao perche' non funziona questo script?

adispo2000 · 11 Giugno 2017

Codice:

Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(1)

Dim num(20)
Dim asom(20)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazioni 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 "
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

mi da' "errore script! 1002 errore di sintassi   linea1 colonna6 Errore composizione vbscript

salvo50 · 11 Giugno 2017

Ciao

Devi averne dimenticato un pezzo non è completo

adispo2000 · 11 Giugno 2017

Finalmente....qualcuno che mi ha risposto..grazie salvo...dimmi come mai non si aggiorna spaziometria...hai qualche script o plunig?^

zagort · 11 Giugno 2017

prova ad aggiornare con agenziadelmonopolio ,dovrebbe funzionare,per lo script MANCA LA PARTE SOTTOSTANTE

zagort · 11 Giugno 2017

tipo questo autore credo mike o keeper

Sub Main() ' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...' ''''' nome script sistemaKEEPER10LOTTO5M '------------------------------------------------------------------------------------------------------------------------------- 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",,3) lis = InputBox("garanzia Terno=3, Quaterna=4, Cinquina=5",,3) k = InputBox("Verifica esito n.colpi..",,20) acc = InputBox("Accorpa giocate Si-No ",,"S") If lis < 3 Then MsgBox("valore (Garanzia) errato, deve essere >= 3") StopProcess End If fin = storia Ini = storia - z ColoreTesto 1 Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Sistemi Per il 10 E LOTTO 5 minuti - by Rubino - sistemaKEEPER10LOTTO5M " Scrivi "Somma nr. consecutività.." & v Scrivi "Accorpa giocate.." & acc Scrivi "Verifica esito : segnala punteggio >= di..." & lis Scrivi "Verifica esito : n.colpo..." & k Scrivi ColoreTesto 0 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 ''''mette in sviluppo sistema g = 6 risultati = Getridotto(completa,g,ctr,idestr,lis,k) '''accumula punteggi del sistema ReDim aV2(0) Call SplitByChar(risultati,",",aV2) ' scompongo la decina If Int(aV2(0)) > 0 Then die = die + Int(aV2(0)) If Int(aV2(1)) > 0 Then nov = nov + Int(aV2(1)) If Int(aV2(2)) > 0 Then ott = ott + Int(aV2(2)) If Int(aV2(3)) > 0 Then Sett = Sett + Int(aV2(3)) If Int(aV2(4)) > 0 Then sei = sei + Int(aV2(4)) If Int(aV2(5)) > 0 Then cinq = cinq + Int(aV2(5)) If Int(aV2(6)) > 0 Then quat = quat + Int(aV2(6)) If Int(aV2(7)) > 0 Then tre = tre + Int(aV2(7)) est = RetIdEstr estrazione = "" For jj = 1 To 20 estrazione = estrazione & Format2(EstrattoDL(est,jj)) & " " Next ColoreTesto 0 Scrivi est & "/" & DataEstrazioneDL(est) & "........................................" & Estrazione End If Next Next Next ColoreTesto 0 Scrivi " R_I_E_P_I_L_O_G_O________________" Scrivi "Terni totali realizzati..." & tre Scrivi "Quaterne totali realizzati..." & Quat Scrivi "Cinquine totali realizzati..." & Cinq Scrivi "6 Punti totali realizzati..." & Sei Scrivi "7 Punti totali realizzati..." & Sett Scrivi "8 Punti totali realizzati..." & Ott Scrivi "9 Punti totali realizzati..." & Nov Scrivi "10 Punti totali realizzati..." & Die Scrivi "concorsi esaminati totale.." & z End Sub ''''------------------------------------------------------------------------------------------------------------------------- Function Getridotto(completa,g,ctr,idestr,lis,k) 'leggo file(tutti i record dello sviluppo ridotto richiesto) Dim namefile Dim sFile ReDim aRighe(0) ReDim asvil(0) ReDim numeri(90) namefile = "C:\Temp\SVILUPPOBASE\n19g6f0.txt" sFile = namefile LeggiRigheFileDiTesto sFile,asvil 'ricerca last record e qta tot.record.presenti nel file xbas = UBound(asvil) ''''' carica schiera con numeri da metodo jj = 1 For j = 1 To ctr If Mid(completa,jj,2) <> " " Then numeri(j) = Mid(completa,jj,2) End If jj = jj + 3 Next For U = 0 To xbas 'scompongo la decina Dim d ReDim Nums(19) ReDim aV(0) Call SplitByChar(asvil(U),",",aV) ' scompongo la decina Nums(1) = numeri(aV(0)) Nums(2) = numeri(aV(1)) Nums(3) = numeri(aV(2)) Nums(4) = numeri(aV(3)) Nums(5) = numeri(aV(4)) Nums(6) = numeri(aV(5)) Nums(7) = numeri(aV(6)) Nums(8) = numeri(aV(7)) Nums(9) = numeri(aV(8)) Nums(10) = numeri(aV(9)) nus = Nums(1) & " " & Nums(2) & " " & Nums(3) & " " & Nums(4) & " " & Nums(5) & " " & Nums(6) & " " & Nums(7) & " " & Nums(8) & " " & Nums(9) & " " & Nums(10) Scrivi nus If idestr + 1 < EstrazioniArchivioDL Then If VerificaEsitoDL(Nums,idestr + 1,lis,k,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then ColoreTesto 2 Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti) combin2 = combin2 + 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 Else Call Scrivi("Negativo") End If End If Next If diecitotali = "" Then diecitotali = 0 If novetotali = "" Then novetotali = 0 If ottototali = "" Then ottototali = 0 If settetotali = "" Then settetotali = 0 If seitotali = "" Then seitotali = 0 If cinquitotali = "" Then cinquitotali = 0 If quatetotali = "" Then quatetotali = 0 If ternitotali = "" Then ternitotali = 0 risultati = diecitotali & "," & novetotali & "," & ottototali & "," & Settetotali & "," & seitotali & "," & cinquitotali & "," & quatetotali & "," & ternitotali Getridotto = risultati End Function ''''----------------------------------------

adispo2000 · 12 Giugno 2017

scusa zagort mi potresti postare tutto il listato...in quanto quando aggiungo il tuo mi da errore...ci riesci?

Membro cancellato 16574 · 16 Giugno 2017

Buongiorno ,
Salutando tutti .
Postiamo il listato completo e leggibile .

Codice:

Sub Main()
'http://forum.lottoced.com/forum/lottoced/area-download/103186-raccolta-di-sript-per-10elotto-5-m/page2
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
Dim n(20)
Dim Tipoarchivio
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
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)
co2 = InputBox("Verifica se già usciti in n.colpi precedenti..",,100)
lis2 = InputBox("Verifica quanti punti già sortiti in precedenza..",,3)
fin = storia
Ini = storia - z
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO 5  con verifica a ritroso "
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
''''verifica 1 combinazione nel passato
ReDim tnm(5)
tnm(1) = Format2(t1)
tnm(2) = Format2(t2)
tnm(3) = Format2(t3)
tnm(4) = Format2(t4)
tnm(5) = Format2(t5)
ColoreTesto(1)
Scrivi
Scrivi "------ somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ini = idestr
ColoreTesto 0
Scrivi " VERIFICA SE combinazione GIA' USCITA NEI PRECEDENTI CONCORSI " & tnm(1) & " " & tnm(2) & " " & tnm(3) & " " & tnm(4) & " " & tnm(5)
ctz = 0
For ccc = ini - Int(co2) To ini - 1
For mm = 1 To 20
n(mm) = Format2(EstrattoDL(ccc,mm))
Next
snconc = GetInfoEstrazioneDL(ccc)
punti = 0
evidenza = ""
For q = 1 To 20
If Format2(n(q)) = tnm(1) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(2) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(3) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(4) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(5) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
Next
If punti >= Int(lis2) Then
ColoreTesto 2
If Int(lis2) = 3 Then Scrivi " ------->  Terno    già uscito nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
If Int(lis2) = 4 Then Scrivi " ------->  Quaterna già uscita nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
ctz = ctz + 1
End If
Next
If ctz = 0 Then
ColoreTesto 2
Scrivi " ------->  NESSUNA quantità di numeri richiesta E' USCITA NEI PRECEDENTI CONCORSI "
ColoreTesto 0
End If
esito = 0
ColoreTesto 0
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
esito = 1
ColoreTesto 7
Scrivi
Scrivi "Esito:  "
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
Else
If esito = 0 Then Scrivi " Esito NEGATIVO o IN CORSO "
End If
''''' ----------------------------------------------------------------------------------------------------------------------------
''''' 2 combinazione verifica nel passato
ReDim tnm(5)
tnm(1) = Format2(u1)
tnm(2) = Format2(u2)
tnm(3) = Format2(u3)
tnm(4) = Format2(u4)
tnm(5) = Format2(u5)
ColoreTesto 0
Scrivi " VERIFICA SE combinazione GIA' USCITA NEI PRECEDENTI CONCORSI " & tnm(1) & " " & tnm(2) & " " & tnm(3) & " " & tnm(4) & " " & tnm(5)
ctz = 0
For ccc = ini - Int(co2) To ini - 1
For mm = 1 To 20
n(mm) = Format2(EstrattoDL(ccc,mm))
Next
snconc = GetInfoEstrazioneDL(ccc)
punti = 0
evidenza = ""
For q = 1 To 20
If Format2(n(q)) = tnm(1) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(2) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(3) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(4) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
If Format2(n(q)) = tnm(5) Then
punti = punti + 1
evidenza = evidenza & n(q) & " "
End If
Next
ColoreTesto 2
If punti >= Int(lis2) Then
If Int(lis2) = 3 Then Scrivi " ------->  Terno    già uscito nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
If Int(lis2) = 4 Then Scrivi " ------->  Quaterna già uscita nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
ctz = ctz + 1
End If
Next
If ctz = 0 Then
ColoreTesto 2
Scrivi " ------->  NESSUNA quantità di numeri richiesta E' USCITA NEI PRECEDENTI CONCORSI "
ColoreTesto 0
End If
ColoreTesto 0
esito = 0
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
esito = 1
ColoreTesto 7
Scrivi
Scrivi "Esito:  "
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
Else
If esito = 0 Then Scrivi " Esito NEGATIVO o IN CORSO "
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 If
End Sub
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,00,"Secegli archivio") + 01
End Function

Cerca

Cerca

Ciao perche' non funziona questo script?

adispo2000

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

adispo2000

Super Member >PLATINUM<

zagort

Super Member >PLATINUM<

zagort

Super Member >PLATINUM<

adispo2000

Super Member >PLATINUM<

Membro cancellato 16574

Guest

Ultima estrazione Lotto

Ultimi Messaggi