Aiuto script

antonio65 · 10 Ottobre 2016

Ciao a tutti, chiederei un aiutino per uno script che mi ha bloccato...ho già uno script che mi è stato programmato da grandi esperti Mike 58 ,di saronno moro 80 e magia...lo script funziona perfettamente e cerca i migliori algoritmi sia per 10&lotto 5 minuti sia per quello serale...una volta scelti i migliori algoritmi devo usare un altro script per giocare e con la funzione imposta gioco le utilità etc etc...mi sono accorto però che lo script che uso per giocare inizia sempre un estrazione indietro faccio un esempio : ad esempio inizio a fare le previsioni su tutte le prime estrazioni e l'algoritmo parte il conteggio dalla 288 se inizio dalla 2 parte dalla 1...mi sono messo a dura ho provato (non sono esperto) smanettato ma niente...quindi tra lo script che cerca gli algoritmi e il secondo script che uso per giocare c'è uno sfasamento il primo è corretto il secondo script inizia il calcolo un estrazione prima...insomma vi chiedo un aiuto cortesemente anche a pagare il lavoro...(non ne posso più) per quello che ho capitto l'errore potrebbe essere in questa dicitura Scrivi Format2(EstrattoDL(n + 00,P)),1,0
in tutti i casi vi allego lo script per capire da voi stessi o magari fallo ex novo...

Scrivi String(47,32) & "ANTONIO65",1
ColoreTesto 0
Sub Main
Dim Tipoarchivio
Dim Nn(5)

Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto
QT = 5
QN = InputBox("QUANTE ESTRAZIONI",,1)
nSorte = ScegliSorte
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
Call ImpostaArchivio10ELotto(Tipoarchivio)
If Tipoarchivio = 01 Then
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",250))

xa = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,2))
ImpostaArchivio10ELotto(xa)

ini = EstrazioneIniDL - EstrRic
fin = EstrazioneFinDL
End If
If Tipoarchivio = 02 Then
'If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
'Call AggiornaArchivioDL
'End If
Orarin = 1
Orarfi = 1
kin = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario a n. ",,Orarfi))
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",2000))
Ini = EstrazioniArchivioDL - EstrRic
Fin = EstrazioniArchivioDL
End If
For n = ini To fin
tot = 0
Messaggio DataEstrazioneDL(n,True) & " List.ANTONIO65 " ' < - - - - Numero estrazioni
AvanzamentoElab Ini,fin,n
If IndiceAnnualeDL

>= kin And IndiceAnnualeDL

<= kfi Then

nu1 = Fuori90(Abs(34 + EstrattoDL(n - 1,1)))

Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL

,1

Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:
Call VerificaEsitoDL(Nn,n + 01,nSorte,QN,Retesito,Retcolpi,RetEstratti,RetIdEstr)
If RetEsito = "" Then RetEsito = "In Corso"
Scrivi StringaNumeri(Nn,,True) & " " & retesito & " " & RetColpi & " " & RetEstratti & " " & RetIdEsr,1

For P = 1 To 20
ColoreTesto 1
For xx = 1 To 5
If EstrattoDL(n + 00,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 1
End If
Next

Scrivi Format2(EstrattoDL(n + 00,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(QT) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena 200€ ",1,- 1,3
Else
If Tot = Int(QT - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 15€ ",1
Else
If Tot = Int(QT - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 4€ ",1
Else
If Tot = Int(QT - 3) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita 1€ ",1
Else
ColoreTesto 7
If Tot <> Int(QT) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0

Scrivi String(120,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"

Call ImpostaGiocataDL(01,Nn,1,QN,nSorte)
Call GiocaDL(n,True)
End If
End If
Next
Call ScriviResocontoDL

ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x ANTONIO",1
Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
End If
End Sub
Function ScegliSorte
ReDim aVoci(04)
aVoci(00) = "Estratto"
aVoci(01) = "Ambo"
aVoci(02) = "Terno"
aVoci(03) = "Quaterna"
aVoci(04) = "Cinquina"
ScegliSorte = ScegliOpzioneMenu(aVoci,00,"Secegli Tipo Sorte") + 01
End Function
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,01,"Secegli archivio") + 01
End Function

Moro_80 · 10 Ottobre 2016

Ciao Anto65,
fai un esempio anche di cosa dai come input alle varie domande dello script...è più facile capire dove sta l'errore

Ciao

antonio65 · 10 Ottobre 2016

Cioa grazie per avermi preso in considerazione...gli script funzionano entrambi solo solo che quello che ho allegato ne l mio caso fa una cosa anomala mi spiego meglio: con uno script vado a cercare (quello che non ho allegato) cerco i migliori algoritmi...con l'altro script gioco...esempio più chiaro supponiamo che alla prima estrazione ci sia il numero 7...a questo voglio aggiungere che so 5 quindi 7+5 uguale 12 il numero che dovrei giocare( in questo modo è corretto) con lo script che ho allegato fa la stessa cosa però se ad esempio il primo estratto è 7 lo script considera l'estrazione precedente come primo estratto e tutto sballa....penso che sia chiaro!!!

antonio65 · 10 Ottobre 2016

Riguardo agli input entrambi gli script hanno le stesse funzioni : quante estrazioni voglio giocare...quale archivio e quale fascie orarie, e quanti colpi!!!

Moro_80 · 10 Ottobre 2016

Anto65,
non è ancora chiaro...cioè la spiegazione Tua l'ho capita, ma lo script non fa quello che dici tu..tutt'altro.

antonio65 · 10 Ottobre 2016

Altrimenti per non dannarsi la vita con gli stessi input si può fare nuovo...per voi professionisti sarebbe un gioco da ragazzi quello che vorrei sarebbe di sommare un numero per qualsiasi dei 20 numeri estratti
posso scegliere ad esempio l'estratto 9...se ad esempio c'è il 37 e voglio aggiungere 15 ...37+15=52 quindi dovrei giocare il 52 ...siccome ci sono degli algoritmi interessanti ne vale la pena....

antonio65 · 10 Ottobre 2016

Io non capisco molto di script mi sono cimentato per capire qualcosa...si può fare nuovo ??? gli input sono in entrambi gli script..io penso che le date si possono variare se voglio esaminare per un mese o due...ti allego lo script per la ricerca degli algoritmi...

Sub Main()

ColoreTesto 1: Scrivi
Scrivi String(27," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 5 ALGORITMI ",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi

Dim mm(01),nn(01)
Dim n01(90,08),n02(90,08),n03(90,08),n04(90,08),n05(90,08),n06(90,08),n07(90,08),n08(90,08),n09(90,08),n10(90,08)
Dim n11(90,08),n12(90,08),n13(90,08),n14(90,08),n15(90,08),n16(90,08),n17(90,08),n18(90,08),n19(90,08),n20(90,08),n21(90,08)

Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
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)

Orarin = 31
Orarfi = 31
arch = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario a n. ",,Orarfi))
'EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",1000))
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
Ini = EstrazioniArchivioDL - EstrRic
fin = EstrazioniArchivioDL

If Tipoarchivio = 01 Then Call Scrivi("ARCHIVIO 10 e Lotto Serale ",01)
If Tipoarchivio = 02 Then Call Scrivi("ARCHIVIO 10 e Lotto 5 Minuti ",01)
Call Scrivi(" dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(fin),01)
Call Scrivi()

Scrivi String(90,"-"),1
For x = 01 To 90
For y = 01 To 08
n01(x,y) = 00
n02(x,y) = 00
n03(x,y) = 00
n04(x,y) = 00
n05(x,y) = 00
n06(x,y) = 00
n07(x,y) = 00
n08(x,y) = 00
n09(x,y) = 00
n10(x,y) = 00
n11(x,y) = 00
n12(x,y) = 00
n13(x,y) = 00
n14(x,y) = 00
n15(x,y) = 00
n16(x,y) = 00
n17(x,y) = 00
n18(x,y) = 00
n19(x,y) = 00
n20(x,y) = 00
n21(x,y) = 00
Next
Next
p01 = 01
p02 = 02
p03 = 03
p04 = 04
p05 = 05
p06 = 06
p07 = 07
p08 = 08
p09 = 09
p10 = 10
p11 = 11
p12 = 12
p13 = 13
p14 = 14
p15 = 15
p16 = 16
p17 = 17
p18 = 18
p19 = 19
p20 = 20
p21 = 21
casi = 00
ultest = EstrazioneFinDL - 201509
Ini = EstrazioneFinDL - 11152
fin = EstrazioneFinDL
For es = Ini To fin

If IndiceAnnualeDL(es) = arch Or(((eval(arch) = 0)And(es = ultest))Or((IndiceAnnualeDL(es) = eval(arch)And(eval(arch) > 00))Or((IndiceAnnualeDL(es + 01) = 01)And(eval(arch) = 00)))) Then
colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Antonio65"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 01

Scrivi Format2(casi) & ") " & DataEstrazioneDL(es) & " [" & es & "] " & StringaEstrattiDL(es) & "...." & NumeroOroDL(es),1
co = 00
For nu = 1 To 90
co = co + 01

a01 = EstrattoDL(es,p01)
a02 = EstrattoDL(es,p02)
a03 = EstrattoDL(es,p03)
a04 = EstrattoDL(es,p04)
a05 = EstrattoDL(es,p05)
a06 = EstrattoDL(es,p06)
a07 = EstrattoDL(es,p07)
a08 = EstrattoDL(es,p08)
a09 = EstrattoDL(es,p09)
a10 = EstrattoDL(es,p10)
a11 = EstrattoDL(es,p11)
a12 = EstrattoDL(es,p12)
a13 = EstrattoDL(es,p13)
a14 = EstrattoDL(es,p14)
a15 = EstrattoDL(es,p15)
a16 = EstrattoDL(es,p16)
a17 = EstrattoDL(es,p17)
a18 = EstrattoDL(es,p18)
a19 = EstrattoDL(es,p19)
a20 = EstrattoDL(es,p20)
a21 = NumeroOroDL(es)
'''-----------------------------------------------------------------
b01 = Fuori90(a01 + nu)
b02 = Fuori90(a02 + nu)
b03 = Fuori90(a03 + nu)
b04 = Fuori90(a04 + nu)
b05 = Fuori90(a05 + nu)
b06 = Fuori90(a06 + nu)
b07 = Fuori90(a07 + nu)
b08 = Fuori90(a08 + nu)
b09 = Fuori90(a09 + nu)
b10 = Fuori90(a10 + nu)
b11 = Fuori90(a11 + nu)
b12 = Fuori90(a12 + nu)
b13 = Fuori90(a13 + nu)
b14 = Fuori90(a14 + nu)
b15 = Fuori90(a15 + nu)
b16 = Fuori90(a16 + nu)
b17 = Fuori90(a17 + nu)
b18 = Fuori90(a18 + nu)
b19 = Fuori90(a19 + nu)
b20 = Fuori90(a20 + nu)
b21 = Fuori90(a21 + nu)
'''-----------------------------------------------------------------
n01(co,01) = co
n02(co,01) = co
n03(co,01) = co
n04(co,01) = co
n05(co,01) = co
n06(co,01) = co
n07(co,01) = co
n08(co,01) = co
n09(co,01) = co
n10(co,01) = co
n11(co,01) = co
n12(co,01) = co
n13(co,01) = co
n14(co,01) = co
n15(co,01) = co
n16(co,01) = co
n17(co,01) = co
n18(co,01) = co
n19(co,01) = co
n20(co,01) = co
n21(co,01) = co
'''-----------------------------------------------------------------
n01(co,03) = p01
n02(co,03) = p02
n03(co,03) = p03
n04(co,03) = p04
n05(co,03) = p05
n06(co,03) = p06
n07(co,03) = p07
n08(co,03) = p08
n09(co,03) = p09
n10(co,03) = p10
n11(co,03) = p11
n12(co,03) = p12
n13(co,03) = p13
n14(co,03) = p14
n15(co,03) = p15
n16(co,03) = p16
n17(co,03) = p17
n18(co,03) = p18
n19(co,03) = p19
n20(co,03) = p20
n21(co,03) = p21
'''-----------------------------------------------------------------
n01(co,04) = nu
n02(co,04) = nu
n03(co,04) = nu
n04(co,04) = nu
n05(co,04) = nu
n06(co,04) = nu
n07(co,04) = nu
n08(co,04) = nu
n09(co,04) = nu
n10(co,04) = nu
n11(co,04) = nu
n12(co,04) = nu
n13(co,04) = nu
n14(co,04) = nu
n15(co,04) = nu
n16(co,04) = nu
n17(co,04) = nu
n18(co,04) = nu
n19(co,04) = nu
n20(co,04) = nu
n21(co,04) = nu
'''-----------------------------------------------------------------
n01(co,06) = b01
n02(co,06) = b02
n03(co,06) = b03
n04(co,06) = b04
n05(co,06) = b05
n06(co,06) = b06
n07(co,06) = b07
n08(co,06) = b08
n09(co,06) = b09
n10(co,06) = b10
n11(co,06) = b11
n12(co,06) = b12
n13(co,06) = b13
n14(co,06) = b14
n15(co,06) = b15
n16(co,06) = b16
n17(co,06) = b17
n18(co,06) = b18
n19(co,06) = b19
n20(co,06) = b20
n21(co,06) = b21
'''-----------------------------------------------------------------
n01(co,07) = 00
n02(co,07) = 00
n03(co,07) = 00
n04(co,07) = 00
n05(co,07) = 00
n06(co,07) = 00
n07(co,07) = 00
n08(co,07) = 00
n09(co,07) = 00
n10(co,07) = 00
n11(co,07) = 00
n12(co,07) = 00
n13(co,07) = 00
n14(co,07) = 00
n15(co,07) = 00
n16(co,07) = 00
n17(co,07) = 00
n18(co,07) = 00
n19(co,07) = 00
n20(co,07) = 00
n21(co,07) = 00
esncg = es + ncg
If esncg > EstrazioneFinDL Then esncg = EstrazioneFinDL End If
For ess = es + 01 To esncg
For pp = 01 To 20
e = EstrattoDL(ess,pp)
If e = b01 Then
n01(co,05) = n01(co,05) + 01
nn(01) = n01(co,6)
n01(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b02 Then
n02(co,05) = n02(co,05) + 01
nn(01) = n02(co,06)
n02(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b03 Then
n03(co,05) = n03(co,05) + 01
nn(01) = n03(co,06)
n03(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b04 Then
n04(co,05) = n04(co,05) + 01
nn(01) = n04(co,06)
n04(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b05 Then
n05(co,05) = n05(co,05) + 01
nn(01) = n05(co,06)
n05(co,7) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b06 Then
n06(co,05) = n06(co,05) + 01
nn(01) = n06(co,06)
n06(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b07 Then
n07(co,05) = n07(co,05) + 01
nn(01) = n07(co,06)
n07(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b08 Then
n08(co,05) = n08(co,05) + 01
nn(01) = n08(co,06)
n08(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b09 Then
n09(co,05) = n09(co,05) + 01
nn(01) = n09(co,06)
n09(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b10 Then
n10(co,05) = n10(co,05) + 01
nn(01) = n10(co,06)
n10(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b11 Then
n11(co,05) = n11(co,05) + 01
nn(01) = n11(co,06)
n11(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b12 Then
n12(co,05) = n12(co,05) + 01
nn(01) = n12(co,06)
n12(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b13 Then
n13(co,05) = n13(co,05) + 01
nn(01) = n13(co,06)
n13(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b14 Then
n14(co,05) = n14(co,05) + 01
nn(01) = n14(co,06)
n14(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b15 Then
n15(co,05) = n15(co,05) + 01
nn(01) = n15(co,06)
n15(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b16 Then
n16(co,05) = n16(co,05) + 01
nn(01) = n16(co,06)
n16(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b17 Then
n17(co,05) = n17(co,05) + 01
nn(01) = n17(co,06)
n17(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b18 Then
n18(co,05) = n18(co,05) + 01
nn(01) = n18(co,06)
n18(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b19 Then
n19(co,05) = n19(co,05) + 01
nn(01) = n19(co,06)
n19(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b20 Then
n20(co,05) = n20(co,05) + 01
nn(01) = n20(co,06)
n20(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
If e = b21 Then
n21(co,05) = n21(co,05) + 01
nn(01) = n21(co,06)
n21(co,07) = SerieFreqDL(es + 01,ess,nn,01)
End If
Next
Next
Next
End If
'End If
Next
Scrivi String(90,"-"),1
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(fin),1
Scrivi
If arch = 00 Then Scrivi " solo x 10Lotto5M Range Orario da n.:",,1
If kfi > 00 Then Scrivi " solo x 10Lotto5M Range Orario a n. ",,1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi
Scrivi "Ultima estrazione numeri estratti " & StringaEstrattiDL(EstrazioneFinDL) & "...." & NumeroOroDL(EstrazioneFinDL),1
''''
'01° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p01 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n01,- 1,5
For ca = 01 To 5
mm(01) = n01(ca,06)
rat01 = SerieRitardoDL(fin - 250,fin,mm,01)
freq01 = SerieFreqDL(fin - ne,fin,mm,01)
esito01 = Abs(arch - rat01)
If n01(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n01(ca,03)) & "° + " & Format2(n01(ca,04)) & " è uscito " & FormatSpace(n01(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n01(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat01) & " ... in corso ..." & " freq..." & Format2(freq01),1
Else
ColoreTesto 2
If n01(ca,07) > 00 Then
Scrivi eval(n01(ca,03)) & "° + " & Format2(n01(ca,04)) & " è uscito " & FormatSpace(n01(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n01(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat01) & " ... SFALDATO ..." & " freq..." & Format2(freq01),0,0
Scrivi " - Esito al colpo... " & esito01,1
c01 = c01 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c01,1
ColoreTesto 0
OrdinaMatrice n01,- 1,8
''''
'02° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p02 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice n02,- 1,5
For ca = 01 To 5
mm(01) = n02(ca,06)
rat02 = SerieRitardoDL(fin - 250,fin,mm,1)
freq02 = SerieFreqDL(fin - ne,fin,mm,1)
esito02 = Abs(arch - rat02)
If n02(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n02(ca,03)) & "° + " & Format2(n02(ca,04)) & " è uscito " & FormatSpace(n02(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n02(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat02) & " ... in corso ..." & " freq..." & Format2(freq02),1
Else
ColoreTesto 2
If n02(ca,07) > 00 Then
Scrivi eval(n02(ca,03)) & "° + " & Format2(n02(ca,04)) & " è uscito " & FormatSpace(n02(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n02(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat02) & " ... SFALDATO ..." & " freq..." & Format2(freq02),0,0
Scrivi " - Esito al colpo... " & esito02,1
c02 = c02 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & c02,1
ColoreTesto 0
OrdinaMatrice n02,- 1,8
''''
'03° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p03 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n03,- 1,5
For ca = 01 To 5
mm(01) = n03(ca,06)
rat03 = SerieRitardoDL(fin - 250,fin,mm,1)
freq03 = SerieFreqDL(fin - ne,fin,mm,1)
esito03 = Abs(arch - rat03)
If n03(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n03(ca,03)) & "° + " & Format2(n03(ca,04)) & " è uscito " & FormatSpace(n03(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n03(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat03) & " ... in corso ..." & " freq..." & Format2(freq03),1
Else
ColoreTesto 2
If n03(ca,07) > 00 Then
Scrivi eval(n03(ca,03)) & "° + " & Format2(n03(ca,04)) & " è uscito " & FormatSpace(n03(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n03(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat03) & " ... SFALDATO ..." & " freq..." & Format2(freq03),0,0
Scrivi " - Esito al colpo... " & esito03,1
c03 = c03 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & c03,1
ColoreTesto 0
OrdinaMatrice n03,- 1,8
''''
'04° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p04 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n04,- 1,5
For ca = 01 To 5
mm(01) = n04(ca,06)
rat04 = SerieRitardoDL(fin - 250,fin,mm,1)
freq04 = SerieFreqDL(fin - ne,fin,mm,1)
esito04 = Abs(arch - rat04)
If n04(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n04(ca,03)) & "° + " & Format2(n04(ca,04)) & " è uscito " & FormatSpace(n04(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n04(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat04) & " ... in corso ..." & " freq..." & Format2(freq04),1
Else
ColoreTesto 2
If n04(ca,07) > 00 Then
Scrivi eval(n04(ca,03)) & "° + " & Format2(n04(ca,04)) & " è uscito " & FormatSpace(n04(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n04(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat04) & " ... SFALDATO ..." & " freq..." & Format2(freq04),0,0
Scrivi " - Esito al colpo... " & esito04,1
c04 = c04 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & c04,1
ColoreTesto 0
OrdinaMatrice n04,- 1,8
''''
'05° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p05 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n05,- 1,5
For ca = 01 To 5
mm(01) = n05(ca,06)
rat05 = SerieRitardoDL(fin - 250,fin,mm,1)
freq05 = SerieFreqDL(fin - ne,fin,mm,1)
esito05 = Abs(arch - rat05)
If n05(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n05(ca,03)) & "° + " & Format2(n05(ca,04)) & " è uscito " & FormatSpace(n05(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n05(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat05) & " ... in corso ..." & " freq..." & Format2(freq05),1
Else
ColoreTesto 2
If n05(ca,07) > 00 Then
Scrivi eval(n05(ca,03)) & "° + " & Format2(n05(ca,04)) & " è uscito " & FormatSpace(n05(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n05(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat05) & " ... SFALDATO ..." & " freq..." & Format2(freq05),0,0
Scrivi " - Esito al colpo... " & esito05,1
c05 = c05 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & c05,1
ColoreTesto 0
OrdinaMatrice n05,- 1,8
''''
'06° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p06 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n06,- 1,5
For ca = 01 To 5
mm(01) = n06(ca,06)
rat06 = SerieRitardoDL(fin - 250,fin,mm,1)
freq06 = SerieFreqDL(fin - ne,fin,mm,1)
esito06 = Abs(arch - rat06)
If n06(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n06(ca,03)) & "° + " & Format2(n06(ca,04)) & " è uscito " & FormatSpace(n06(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n06(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat06) & " ... in corso ..." & " freq..." & Format2(freq06),1
Else
ColoreTesto 2
If n06(ca,07) > 00 Then
Scrivi eval(n06(ca,03)) & "° + " & Format2(n06(ca,04)) & " è uscito " & FormatSpace(n06(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n06(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat06) & " ... SFALDATO ..." & " freq..." & Format2(freq06),0,0
Scrivi " - Esito al colpo... " & esito06,1
c06 = c06 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & c06,1
ColoreTesto 0
OrdinaMatrice n06,- 1,8
''''
'07° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p07 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n07,- 1,5
For ca = 01 To 5
mm(01) = n07(ca,06)
rat07 = SerieRitardoDL(fin - 250,fin,mm,01)
freq07 = SerieFreqDL(fin - ne,fin,mm,01)
esito07 = Abs(arch - rat07)
If n07(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n07(ca,03)) & "° + " & Format2(n07(ca,04)) & " è uscito " & FormatSpace(n07(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n07(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat07) & " ... in corso ..." & " freq..." & Format2(freq07),1
Else
ColoreTesto 2
If n07(ca,07) > 00 Then
Scrivi eval(n07(ca,03)) & "° + " & Format2(n07(ca,04)) & " è uscito " & FormatSpace(n07(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n07(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat07) & " ... SFALDATO ..." & " freq..." & Format2(freq07),0,0
Scrivi " - Esito al colpo... " & esito07,1
c07 = c07 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c07,1
ColoreTesto 0
OrdinaMatrice n07,- 1,8
''''
'08° POSIZIONE'''---------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p08 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n08,- 1,5
For ca = 01 To 5
mm(01) = n08(ca,06)
rat08 = SerieRitardoDL(fin - 250,fin,mm,01)
freq08 = SerieFreqDL(fin - ne,fin,mm,01)
esito08 = Abs(arch - rat08)
If n08(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n08(ca,03)) & "° + " & Format2(n08(ca,04)) & " è uscito " & FormatSpace(n08(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n08(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat08) & " ... in corso ..." & " freq..." & Format2(freq08),1
Else
ColoreTesto 2
If n08(ca,07) > 00 Then
Scrivi eval(n08(ca,03)) & "° + " & Format2(n08(ca,04)) & " è uscito " & FormatSpace(n08(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n08(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat08) & " ... SFALDATO ..." & " freq..." & Format2(freq08),0,0
Scrivi " - Esito al colpo... " & esito08,1
c08 = c08 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c08,1
ColoreTesto 0
OrdinaMatrice n08,- 1,8
''''
'09° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p09 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n09,- 1,5
For ca = 01 To 5
mm(01) = n09(ca,06)
rat09 = SerieRitardoDL(fin - 250,fin,mm,01)
freq09 = SerieFreqDL(fin - ne,fin,mm,01)
esito09 = Abs(arch - rat09)
If n09(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n09(ca,03)) & "° + " & Format2(n09(ca,04)) & " è uscito " & FormatSpace(n09(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n09(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat09) & " ... in corso ..." & " freq..." & Format2(freq09),1
Else
ColoreTesto 2
If n09(ca,07) > 00 Then
Scrivi eval(n09(ca,03)) & "° + " & Format2(n09(ca,04)) & " è uscito " & FormatSpace(n09(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n09(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat09) & " ... SFALDATO ..." & " freq..." & Format2(freq09),0,0
Scrivi " - Esito al colpo... " & esito09,1
c09 = c09 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c09,1
ColoreTesto 0
OrdinaMatrice n09,- 1,8
''''
'10° POSIZIONE'''-------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p10 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n10,- 1,5
For ca = 01 To 5
mm(01) = n10(ca,06)
rat10 = SerieRitardoDL(fin - 250,fin,mm,01)
freq10 = SerieFreqDL(fin - ne,fin,mm,01)
esito10 = Abs(arch - rat10)
If n10(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n10(ca,03)) & "° + " & Format2(n10(ca,04)) & " è uscito " & FormatSpace(n10(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n10(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat10) & " ... in corso ..." & " freq..." & Format2(freq10),1
Else
ColoreTesto 2
If n10(ca,07) > 00 Then
Scrivi eval(n10(ca,03)) & "° + " & Format2(n10(ca,04)) & " è uscito " & FormatSpace(n10(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n10(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat10) & " ... SFALDATO ..." & " freq..." & Format2(freq10),0,0
Scrivi " - Esito al colpo... " & esito10,1
c10 = c10 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c10,1
ColoreTesto 0
OrdinaMatrice n10,- 1,8
''''
'11° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p11 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n11,- 1,5
For ca = 01 To 5
mm(01) = n11(ca,06)
rat11 = SerieRitardoDL(fin - 250,fin,mm,01)
freq11 = SerieFreqDL(fin - ne,fin,mm,01)
esito11 = Abs(arch - rat11)
If n11(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n11(ca,03)) & "° + " & Format2(n11(ca,04)) & " è uscito " & FormatSpace(n11(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n11(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat11) & " ... in corso ..." & " freq..." & Format2(freq11),1
Else
ColoreTesto 2
If n11(ca,07) > 00 Then
Scrivi eval(n11(ca,03)) & "° + " & Format2(n11(ca,04)) & " è uscito " & FormatSpace(n11(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n11(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat11) & " ... SFALDATO ..." & " freq..." & Format2(freq11),0,0
Scrivi " - Esito al colpo... " & esito11,1
c11 = c11 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c11,1
ColoreTesto 0
OrdinaMatrice n11,- 1,8
''''
'12° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p12 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n12,- 1,5
For ca = 01 To 5
mm(01) = n12(ca,06)
rat12 = SerieRitardoDL(fin - 250,fin,mm,01)
freq12 = SerieFreqDL(fin - ne,fin,mm,01)
esito12 = Abs(arch - rat12)
If n12(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n12(ca,03)) & "° + " & Format2(n12(ca,04)) & " è uscito " & FormatSpace(n12(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n12(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat12) & " ... in corso ..." & " freq..." & Format2(freq12),1
Else
ColoreTesto 2
If n12(ca,07) > 00 Then
Scrivi eval(n12(ca,03)) & "° + " & Format2(n12(ca,04)) & " è uscito " & FormatSpace(n12(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n12(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat12) & " ... SFALDATO ..." & " freq..." & Format2(freq12),0,0
Scrivi " - Esito al colpo... " & esito12,1
c12 = c12 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c12,1
ColoreTesto 0
OrdinaMatrice n12,- 1,8
''''
'13° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p13 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n13,- 1,5
For ca = 01 To 5
mm(01) = n13(ca,06)
rat13 = SerieRitardoDL(fin - 250,fin,mm,01)
freq13 = SerieFreqDL(fin - ne,fin,mm,01)
esito13 = Abs(arch - rat13)
If n13(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n13(ca,03)) & "° + " & Format2(n13(ca,04)) & " è uscito " & FormatSpace(n13(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n13(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat13) & " ... in corso ..." & " freq..." & Format2(freq13),1
Else
ColoreTesto 2
If n13(ca,07) > 00 Then
Scrivi eval(n13(ca,03)) & "° + " & Format2(n13(ca,04)) & " è uscito " & FormatSpace(n13(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n13(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat13) & " ... SFALDATO ..." & " freq..." & Format2(freq13),0,0
Scrivi " - Esito al colpo... " & esito13,1
c13 = c13 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c13,1
ColoreTesto 0
OrdinaMatrice n13,- 1,8
''''
'14° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p14 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n14,- 1,5
For ca = 01 To 5
mm(01) = n14(ca,06)
rat14 = SerieRitardoDL(fin - 250,fin,mm,01)
freq14 = SerieFreqDL(fin - ne,fin,mm,01)
esito14 = Abs(arch - rat14)
If n14(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n14(ca,03)) & "° + " & Format2(n14(ca,04)) & " è uscito " & FormatSpace(n14(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n14(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat14) & " ... in corso ..." & " freq..." & Format2(freq14),1
Else
ColoreTesto 2
If n14(ca,07) > 00 Then
Scrivi eval(n14(ca,03)) & "° + " & Format2(n14(ca,04)) & " è uscito " & FormatSpace(n14(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n14(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat14) & " ... SFALDATO ..." & " freq..." & Format2(freq14),0,0
Scrivi " - Esito al colpo... " & esito14,1
c14 = c14 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c14,1
ColoreTesto 0
OrdinaMatrice n14,- 1,8
''''
'15° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p15 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n15,- 1,5
For ca = 01 To 5
mm(01) = n15(ca,06)
rat15 = SerieRitardoDL(fin - 250,fin,mm,01)
freq15 = SerieFreqDL(fin - ne,fin,mm,01)
esito15 = Abs(arch - rat15)
If n15(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n15(ca,03)) & "° + " & Format2(n15(ca,04)) & " è uscito " & FormatSpace(n15(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n15(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat15) & " ... in corso ..." & " freq..." & Format2(freq15),1
Else
ColoreTesto 2
If n15(ca,07) > 00 Then
Scrivi eval(n15(ca,03)) & "° + " & Format2(n15(ca,04)) & " è uscito " & FormatSpace(n15(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n15(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat15) & " ... SFALDATO ..." & " freq..." & Format2(freq15),0,0
Scrivi " - Esito al colpo... " & esito15,1
c15 = c15 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c15,1
ColoreTesto 0
OrdinaMatrice n15,- 1,8
''''
'16° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p16 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n16,- 1,5
For ca = 01 To 5
mm(01) = n16(ca,06)
rat16 = SerieRitardoDL(fin - 250,fin,mm,01)
freq16 = SerieFreqDL(fin - ne,fin,mm,01)
esito16 = Abs(arch - rat16)
If n16(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n16(ca,03)) & "° + " & Format2(n16(ca,04)) & " è uscito " & FormatSpace(n16(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n16(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat16) & " ... in corso ..." & " freq..." & Format2(freq16),1
Else
ColoreTesto 2
If n16(ca,07) > 00 Then
Scrivi eval(n16(ca,03)) & "° + " & Format2(n16(ca,04)) & " è uscito " & FormatSpace(n16(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n16(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat16) & " ... SFALDATO ..." & " freq..." & Format2(freq16),0,0
Scrivi " - Esito al colpo... " & esito16,1
c16 = c16 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c16,1
ColoreTesto 0
OrdinaMatrice n16,- 1,8
''''
'17° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p17 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n17,- 1,5
For ca = 01 To 5
mm(01) = n17(ca,06)
rat17 = SerieRitardoDL(fin - 250,fin,mm,01)
freq17 = SerieFreqDL(fin - ne,fin,mm,01)
esito17 = Abs(arch - rat17)
If n17(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n17(ca,03)) & "° + " & Format2(n17(ca,04)) & " è uscito " & FormatSpace(n17(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n17(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat17) & " ... in corso ..." & " freq..." & Format2(freq17),1
Else
ColoreTesto 2
If n17(ca,07) > 00 Then
Scrivi eval(n17(ca,03)) & "° + " & Format2(n17(ca,04)) & " è uscito " & FormatSpace(n17(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n17(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat17) & " ... SFALDATO ..." & " freq..." & Format2(freq17),0,0
Scrivi " - Esito al colpo... " & esito17,1
c17 = c17 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c17,1
ColoreTesto 0
OrdinaMatrice n17,- 1,8
''''
'18° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p18 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n18,- 1,5
For ca = 01 To 5
mm(01) = n18(ca,06)
rat18 = SerieRitardoDL(fin - 250,fin,mm,01)
freq18 = SerieFreqDL(fin - ne,fin,mm,01)
esito18 = Abs(arch - rat18)
If n18(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n18(ca,03)) & "° + " & Format2(n18(ca,04)) & " è uscito " & FormatSpace(n18(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n18(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat18) & " ... in corso ..." & " freq..." & Format2(freq18),1
Else
ColoreTesto 2
If n18(ca,07) > 00 Then
Scrivi eval(n18(ca,03)) & "° + " & Format2(n18(ca,04)) & " è uscito " & FormatSpace(n18(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n18(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat18) & " ... SFALDATO ..." & " freq..." & Format2(freq18),0,0
Scrivi " - Esito al colpo... " & esito18,1
c18 = c18 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c18,1
ColoreTesto 0
OrdinaMatrice n18,- 1,8
''''
'19° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p19 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n19,- 1,5
For ca = 01 To 5
mm(01) = n19(ca,06)
rat19 = SerieRitardoDL(fin - 250,fin,mm,01)
freq19 = SerieFreqDL(fin - ne,fin,mm,01)
esito19 = Abs(arch - rat19)
If n19(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n19(ca,03)) & "° + " & Format2(n19(ca,04)) & " è uscito " & FormatSpace(n19(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n19(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat19) & " ... in corso ..." & " freq..." & Format2(freq19),1
Else
ColoreTesto 2
If n19(ca,07) > 00 Then
Scrivi eval(n19(ca,03)) & "° + " & Format2(n19(ca,04)) & " è uscito " & FormatSpace(n19(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n19(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat19) & " ... SFALDATO ..." & " freq..." & Format2(freq19),0,0
Scrivi " - Esito al colpo... " & esito19,1
c19 = c19 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c19,1
ColoreTesto 0
OrdinaMatrice n19,- 1,8
''''
'20° POSIZIONE '''------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p20 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n20,- 1,5
For ca = 01 To 5
mm(01) = n20(ca,06)
rat20 = SerieRitardoDL(fin - 250,fin,mm,01)
freq20 = SerieFreqDL(fin - ne,fin,mm,01)
esito20 = Abs(arch - rat20)
If n20(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n20(ca,03)) & "° + " & Format2(n20(ca,04)) & " è uscito " & FormatSpace(n20(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n20(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat20) & " ... in corso ..." & " freq..." & Format2(freq20),1
Else
ColoreTesto 2
If n20(ca,07) > 00 Then
Scrivi eval(n20(ca,03)) & "° + " & Format2(n20(ca,04)) & " è uscito " & FormatSpace(n20(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n20(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat20) & " ... SFALDATO ..." & " freq..." & Format2(freq20),0,0
Scrivi " - Esito al colpo... " & esito20,1
c20 = c20 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c20,1
ColoreTesto 0
OrdinaMatrice n20,- 1,8
''''
'NUMERO ORO 21° POSIZIONE '''-------------------------------------------------------------------------------------------------------------------------------------------
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p21 & " NUMERO ORO ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n21,- 1,5
For ca = 01 To 5
mm(01) = n21(ca,06)
rat21 = SerieRitardoDL(fin - 250,fin,mm,01)
freq21 = SerieFreqDL(fin - ne,fin,mm,01)
esito21 = Abs(arch - rat21)
If n21(ca,07) = 00 Then
ColoreTesto 0
Scrivi eval(n21(ca,03)) & "° + " & Format2(n21(ca,04)) & " è uscito " & FormatSpace(n21(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n21(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat21) & " ... in corso ..." & " freq..." & Format2(freq21),1
Else
ColoreTesto 2
If n21(ca,07) > 00 Then
Scrivi eval(n21(ca,03)) & "° + " & Format2(n21(ca,04)) & " è uscito " & FormatSpace(n21(ca,05),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n21(ca,06))) & "] Ultimo Calcolato Rit.Att. " & Format2(rat21) & " ... SFALDATO ..." & " freq..." & Format2(freq21),0,0
Scrivi " - Esito al colpo... " & esito21,1
c21 = c21 + 01
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & c21,1
ColoreTesto 0
OrdinaMatrice n21,- 1,8
''''--------------------------------------------------------------------------------------------------------------------------------------------------------------------
Scrivi " Listato Antonio65 ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))

End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,1,"Scegli archivio") + 01
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

antonio65 · 10 Ottobre 2016

pensi di poter risolvere? ti sto chiedendo troppo?

Moro_80 · 10 Ottobre 2016

Eh si Antonio65,
è chiedere troppo...sarebbe più opportuno chiedere le modifiche agli autori iniziali del listato...tipo Mike58, Magia, Blackmore, Ramco..etc etc

antonio65 · 10 Ottobre 2016

Ma l'hai fatto anche tu...io ci smanetto ma niente...nuovo si può fare? descrizione : esempio 1°estratto +7....

Cerca

Cerca

Aiuto script

antonio65

Super Member >PLATINUM<

Moro_80

Advanced Member

antonio65

Super Member >PLATINUM<

antonio65

Super Member >PLATINUM<

Moro_80

Advanced Member

antonio65

Super Member >PLATINUM<

antonio65

Super Member >PLATINUM<

antonio65

Super Member >PLATINUM<

Moro_80

Advanced Member

antonio65

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi