Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
x mike58
- Creatore Discussione giorgio1960
- Data di inizio
ppaaoolloo
Super Member >PLATINUM<
ciao Mike
la partita dell'italia comincia tra poche ore
e non ti voglio stressare e caricare di lavoro
ma mi potresti dire cosa bisognerebbe cambiare
del tuo script se invece di farlo per tutte le ruote
si volesse farlo per ogni ruota?
se ci fosse solo poca roba da cambiare vorrei farlo io
ma è molto pericoloso dato che non lo so fare e non l'ho mai fatto
ciao
la partita dell'italia comincia tra poche ore
e non ti voglio stressare e caricare di lavoro
ma mi potresti dire cosa bisognerebbe cambiare
del tuo script se invece di farlo per tutte le ruote
si volesse farlo per ogni ruota?
se ci fosse solo poca roba da cambiare vorrei farlo io
ma è molto pericoloso dato che non lo so fare e non l'ho mai fatto
ciao
Mike58
Advanced Member >PLATINUM PLUS<
Ciao Paolo,per me non è complicato, basta un ciclo for delle Ruote con relativa chiusura Next.
Dopo ho messo un if then per il verifica esito per ruota, diversificando la ruota Tutte.
Dovrebbe andare bene cosi.
Dopo ho messo un if then per il verifica esito per ruota, diversificando la ruota Tutte.
Dovrebbe andare bene cosi.
Codice:
Sub Main
Dim a(36)
Dim Ru(1)
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
For rt = 1 To 12
Ru(1) = rt
Scrivi "Ruota Di : " & NomeRuota(Ru(1)),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
ReDim atitoli(8)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
Call InitTabella(atitoli,2,,3,5)
a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,Ru,sorte,rit,max,Incr,fre,Ini,fin)
If Ru(1) = 11 Then
ReDim rr(10)
For xx = 1 To 10
rr(xx) = xx
Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
Next
End If
If Ru(1) <> 11 Then
Call VerificaEsito(nu,Ru,fin - rit,sorte,,Nothing,retesito,,retestratti)
End If
ReDim avalori(8)
avalori(1) = " Dec. " & Format2(n)
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
Call AddRigaTabella(avalori,,,3)
Next
Call SetTableWidth("100%")
Call CreaTabella(3)
Next
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Subppaaoolloo
Super Member >PLATINUM<
ciao Mike
va benissimo
ho già fatto parecchie prove ed è ok
adesso speriamo in qualche buona vincita
ti ringrazio ancora per la tua disponibilità e cortesia
ciao
va benissimo
ho già fatto parecchie prove ed è ok
adesso speriamo in qualche buona vincita
ti ringrazio ancora per la tua disponibilità e cortesia
ciao
ppaaoolloo
Super Member >PLATINUM<
ciao Mike
volevo chiederti se nello script si poteva aggiungere la possibilità
di poter evidenziare nella prima colonna a sinistra una delle 36 tipo di decine,
mettendo dei numeri nelle maschere iniziali prima di far partire la ricerca, ad esempio:
1 se si vuole le decine con i numeri
01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20
2 se si vuole le decine con i numeri
01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30
oppure 22 se si vuole le decine con i numeri
31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50
ecc. ecc.
fammi sapere
grazie
ciao
volevo chiederti se nello script si poteva aggiungere la possibilità
di poter evidenziare nella prima colonna a sinistra una delle 36 tipo di decine,
mettendo dei numeri nelle maschere iniziali prima di far partire la ricerca, ad esempio:
1 se si vuole le decine con i numeri
01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20
2 se si vuole le decine con i numeri
01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30
oppure 22 se si vuole le decine con i numeri
31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50
ecc. ecc.
fammi sapere
grazie
ciao
Mike58
Advanced Member >PLATINUM PLUS<
Si Paolo, le decine sono scritte con un ordine numerico nel Vettore a(x) e quindi si può richiamare con un inputBox e confrontarlo richiamandolo con un if-then e con il setcolorecella.
Leggi le poche righe aggiunte.....
Leggi le poche righe aggiunte.....
Codice:
Sub Main
Dim a(36)
Dim Ru(1)
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
For rt = 1 To 12
Ru(1) = rt
Scrivi "Ruota Di : " & NomeRuota(Ru(1)),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
ReDim atitoli(8)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
Call InitTabella(atitoli,2,,3,5)
a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,Ru,sorte,rit,max,Incr,fre,Ini,fin)
If Ru(1) = 11 Then
ReDim rr(10)
For xx = 1 To 10
rr(xx) = xx
Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
Next
End If
If Ru(1) <> 11 Then
Call VerificaEsito(nu,Ru,fin - rit,sorte,,Nothing,retesito,,retestratti)
End If
ReDim avalori(8)
avalori(1) = " Dec. " & Format2(n)
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
Call AddRigaTabella(avalori,,,3)
For x = 1 To 8
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
Call SetTableWidth("100%")
Call CreaTabella(3)
Next
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Subppaaoolloo
Super Member >PLATINUM<
ciao Mike
l'evidenziatore va molto bene
addirittura meglio di quanto pensavo,
ti chiedo un'ultima cosa per questo script
vorrei mettere la ruota "tutte" all'inizio del foglio
e poi a seguire tutte le altre
grazie
ciao
l'evidenziatore va molto bene
addirittura meglio di quanto pensavo,
ti chiedo un'ultima cosa per questo script
vorrei mettere la ruota "tutte" all'inizio del foglio
e poi a seguire tutte le altre
grazie
ciao
Mike58
Advanced Member >PLATINUM PLUS<
No Paolo, questo non riesco, le ruote sono richiamate da un ciclo for-next da 1 a 12 e ogni numero corrisponde ad una Ruota.
Magari con qualche escamotage si potrebbe anche ma visto anche il tempo che manca non vale la candela.
Un pochetto di pazienza a scorrere la barra verticale !!! , oppure se vuoi solo la ruota Tutte fai partire il ciclo for da 11 a 11-
ciao
Magari con qualche escamotage si potrebbe anche ma visto anche il tempo che manca non vale la candela.
Un pochetto di pazienza a scorrere la barra verticale !!! , oppure se vuoi solo la ruota Tutte fai partire il ciclo for da 11 a 11-
ciao
ppaaoolloo
Super Member >PLATINUM<
ciao Mike
non ti preoccupare
lo script va già bene così
era una cosa in più quella che chiedevo
ti auguro una buona serata
ciao
non ti preoccupare
lo script va già bene così
era una cosa in più quella che chiedevo
ti auguro una buona serata
ciao
ppaaoolloo
Super Member >PLATINUM<
ciao Mike
lo script va molto bene,
vorrei se possibile aggiungere una colonna
in cui ci sia la quantità dei numeri che sono usciti
delle due decine nell'ultima estrazione
ti ringrazio anticipatamente
fammi sapere se si può fare
ciao
Mike58
Advanced Member >PLATINUM PLUS<
Ciao Paolo, Si !! è possibile , ma trovo che sia + semplice fare una sorte di verifica con i numeri usciti nella ultima estrazione a cominciare dall'estratto su Ruota e Terno su Tutte , poi se ti serve il conteggio numerico vediamo.
Per ora non ho tempo, devo scappare ad un battesimo del mio Nipotino.
ciao
Per ora non ho tempo, devo scappare ad un battesimo del mio Nipotino.
ciao
Codice:
Sub Main
Dim a(36)
Dim Ru(1)
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
For rt = 1 To 12
Ru(1) = rt
Scrivi "Ruota Di : " & NomeRuota(Ru(1)),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
ReDim atitoli(9)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
atitoli(9) = " Ultima ESTR_Esito "
Call InitTabella(atitoli,2,,3,5)
a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,Ru,sorte,rit,max,Incr,fre,Ini,fin)
If Ru(1) = 11 Then
ReDim rr(10)
For xx = 1 To 10
rr(xx) = xx
Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estrF)
Next
End If
If Ru(1) <> 11 Then
Call VerificaEsito(nu,Ru,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,Ru,EstrazioneFin,1,,,esitoF,,estrF)
End If
ReDim avalori(9)
avalori(1) = " Dec. " & Format2(n)
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
avalori(9) = estrF
Call AddRigaTabella(avalori,,,3)
For x = 1 To 9
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
Call SetTableWidth("100%")
Call CreaTabella(3)
Next
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End SubMike58
Advanced Member >PLATINUM PLUS<
Ciao Paolo, Si !! è possibile , ma trovo che sia + semplice fare una sorte di verifica con i numeri usciti nella ultima estrazione a cominciare dall'estratto su Ruota e Terno su Tutte , poi se ti serve il conteggio numerico vediamo.
Per ora non ho tempo, devo scappare ad un battesimo del mio Nipotino.
ciao
Per ora non ho tempo, devo scappare ad un battesimo del mio Nipotino.
ciao
Codice:
Sub Main
Dim a(36)
Dim Ru(1)
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
For rt = 1 To 12
Ru(1) = rt
Scrivi "Ruota Di : " & NomeRuota(Ru(1)),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
ReDim atitoli(9)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
atitoli(9) = " Ultima ESTR_Esito "
Call InitTabella(atitoli,2,,3,5)
a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,Ru,sorte,rit,max,Incr,fre,Ini,fin)
If Ru(1) = 11 Then
ReDim rr(10)
For xx = 1 To 10
rr(xx) = xx
Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estrF)
Next
End If
If Ru(1) <> 11 Then
Call VerificaEsito(nu,Ru,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,Ru,EstrazioneFin,1,,,esitoF,,estrF)
End If
ReDim avalori(9)
avalori(1) = " Dec. " & Format2(n)
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
avalori(9) = esitof & " : " & estrF
Call AddRigaTabella(avalori,,,3)
For x = 1 To 9
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
Call SetTableWidth("100%")
Call CreaTabella(3)
Next
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Subppaaoolloo
Super Member >PLATINUM<
ciao Mike
è una buona idea quella inserita da te
ma preferirei avere anche il conteggio numerico dell'ultima estrazione
buona festa
ciao
è una buona idea quella inserita da te
ma preferirei avere anche il conteggio numerico dell'ultima estrazione
buona festa
ciao
Mike58
Advanced Member >PLATINUM PLUS<
ok Paolo prova così
Codice:
Sub Main
Dim a(36)
Dim Ru(1)
'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
For rt = 1 To 12
Ru(1) = rt
Scrivi "Ruota Di : " & NomeRuota(Ru(1)),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
ReDim atitoli(10)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
atitoli(9) = " Ultima ESTR_Esito "
atitoli(10) = " Conta Estratti "
Call InitTabella(atitoli,2,,3,5)
a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
'---------------------------------------------------------------------
a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
'--------------------------------------------------------------------
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,Ru,sorte,rit,max,Incr,fre,Ini,fin)
If Ru(1) = 11 Then
ReDim rr(10)
For xx = 1 To 10
rr(xx) = xx
Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estrF)
aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
Next
End If
If Ru(1) <> 11 Then
Call VerificaEsito(nu,Ru,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,Ru,EstrazioneFin,1,,,esitoF,,estrF)
aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,Ru,1)
End If
ReDim avalori(10)
avalori(1) = " Dec. " & Format2(n)
avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
avalori(9) = esitof & " : " & estrF
avalori(10) = aaa
Call AddRigaTabella(avalori,,,3)
For x = 1 To 10
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
Call SetTableWidth("100%")
Call CreaTabella(3)
Next
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
R
Roby
Guest
ciao
se può servire a qualcuno, ho modificato a mio piacere lo script di Mike58, prevedendo le combinazioni in figura .
grazie per lo script base iniziale.
se può servire a qualcuno, ho modificato a mio piacere lo script di Mike58, prevedendo le combinazioni in figura .
grazie per lo script base iniziale.
Codice:
Sub Main
Dim a(36),Ru(1)
Dim rittot,pres,y,xx,fin,Ini,qt,sorte,color,rt,NU,rit,max,Incr,fre,n,retesito,retestratti,esitoF,estrF,x,Ord
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
Ord = InputBox("Ordina per colonna 3,10 ",,3)
Dim posta(2)
posta(1) = 1
posta(2) = 1
fin = EstrazioneFin
Ini = EstrazioneFin - qt
For rt = 1 To 12
Ru(1) = rt
Scrivi "Ruota Di : " & NomeRuota(Ru(1)),1,0,2,4,3
Scrivi " dal " & Ini & " / " & DataEstrazione(Ini) & " al " & fin & " / " & DataEstrazione(fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte) & " ordinata per colonna.(gialla) = " & Ord,1,1,,1,3
Scrivi
ReDim atitoli(11)
atitoli(1) = " Tipo "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(5) = " incr max"
atitoli(6) = " Freq "
atitoli(7) = " Esito "
atitoli(8) = " Stringa estratti "
atitoli(9) = " Ultima ESTR_Esito "
atitoli(10) = " Media Att."
atitoli(11) = " Presenze Ult.ciclo "
SetTableWidth("80%")
Call InitTabella(atitoli,2,"center",1.40,5,"Cambria")
a(01) = "01-10-19-28-37-46-55-64-73-82-02-11-20-29-38-47-56-65-74-83"
a(02) = "01-10-19-28-37-46-55-64-73-82-03-12-21-30-39-48-57-66-75-84"
a(03) = "01-10-19-28-37-46-55-64-73-82-04-13-22-31-40-49-58-67-76-85"
a(04) = "01-10-19-28-37-46-55-64-73-82-05-14-23-32-41-50-59-68-77-86"
a(05) = "01-10-19-28-37-46-55-64-73-82-06-15-24-33-42-51-60-69-78-87"
a(06) = "01-10-19-28-37-46-55-64-73-82-07-16-25-34-43-52-61-70-79-88"
a(07) = "01-10-19-28-37-46-55-64-73-82-08-17-26-35-44-53-62-71-80-89"
a(08) = "01-10-19-28-37-46-55-64-73-82-09-18-27-36-45-54-63-72-81-90"
'---------------------------------------------------------------------
a(09) = "02-11-20-29-38-47-56-65-74-83-03-12-21-30-39-48-57-66-75-84"
a(10) = "02-11-20-29-38-47-56-65-74-83-04-13-22-31-40-49-58-67-76-85"
a(11) = "02-11-20-29-38-47-56-65-74-83-05-14-23-32-41-50-59-68-77-86"
a(12) = "02-11-20-29-38-47-56-65-74-83-06-15-24-33-42-51-60-69-78-87"
a(13) = "02-11-20-29-38-47-56-65-74-83-07-16-25-34-43-52-61-70-79-88"
a(14) = "02-11-20-29-38-47-56-65-74-83-08-17-26-35-44-53-62-71-80-89"
a(15) = "02-11-20-29-38-47-56-65-74-83-09-18-27-36-45-54-63-72-81-90"
'---------------------------------------------------------------------
a(16) = "03-12-21-30-39-48-57-66-75-84-04-13-22-31-40-49-58-67-76-85"
a(17) = "03-12-21-30-39-48-57-66-75-84-05-14-23-32-41-50-59-68-77-86"
a(18) = "03-12-21-30-39-48-57-66-75-84-06-15-24-33-42-51-60-69-78-87"
a(19) = "03-12-21-30-39-48-57-66-75-84-07-16-25-34-43-52-61-70-79-88"
a(20) = "03-12-21-30-39-48-57-66-75-84-08-17-26-35-44-53-62-71-80-89"
a(21) = "03-12-21-30-39-48-57-66-75-84-09-18-27-36-45-54-63-72-81-90"
'--------------------------------------------------------------------
a(22) = "04-13-22-31-40-49-58-67-76-85-05-14-23-32-41-50-59-68-77-86"
a(23) = "04-13-22-31-40-49-58-67-76-85-06-15-24-33-42-51-60-69-78-87"
a(24) = "04-13-22-31-40-49-58-67-76-85-07-16-25-34-43-52-61-70-79-88"
a(25) = "04-13-22-31-40-49-58-67-76-85-08-17-26-35-44-53-62-71-80-89"
a(26) = "04-13-22-31-40-49-58-67-76-85-09-18-27-36-45-54-63-72-81-90"
'--------------------------------------------------------------------
a(27) = "05-14-23-32-41-50-59-68-77-86-06-15-24-33-42-51-60-69-78-87"
a(28) = "05-14-23-32-41-50-59-68-77-86-07-16-25-34-43-52-61-70-79-88"
a(29) = "05-14-23-32-41-50-59-68-77-86-08-17-26-35-44-53-62-71-80-89"
a(30) = "05-14-23-32-41-50-59-68-77-86-09-18-27-36-45-54-63-72-81-90"
'--------------------------------------------------------------------
a(31) = "06-15-24-33-42-51-60-69-78-87-07-16-25-34-43-52-61-70-79-88"
a(32) = "06-15-24-33-42-51-60-69-78-87-08-17-26-35-44-53-62-71-80-89"
a(33) = "06-15-24-33-42-51-60-69-78-87-09-18-27-36-45-54-63-72-81-90"
'--------------------------------------------------------------------
a(34) = "07-16-25-34-43-52-61-70-79-88-08-17-26-35-44-53-62-71-80-89"
a(35) = "07-16-25-34-43-52-61-70-79-88-09-18-27-36-45-54-63-72-81-90"
'--------------------------------------------------------------------
a(36) = "08-17-26-35-44-53-62-71-80-89-09-18-27-36-45-54-63-72-81-90"
'--------------------------------------------------------------------
For n = 1 To UBound(a)
NU = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(NU,Ru,sorte,rit,max,Incr,fre,Ini,fin)
'''calcola media attuale estratti
rittot = 0 : pres = ""
For y = 1 To 20
rittot = rittot + EstrattoRitardo(rt,NU(y),Ini,fin)
pres = pres & Format2(EstrattoFrequenza(rt,NU(y),fin - 17,fin)) & "."
Next
If Ru(1) = 11 Then
ReDim rr(10)
For xx = 1 To 10
rr(xx) = xx
Call VerificaEsito(NU,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(NU,rr,EstrazioneFin,3,,,esitoF,,estrF)
Next
End If
If Ru(1) <> 11 Then
Call VerificaEsito(NU,Ru,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(NU,Ru,EstrazioneFin,1,,,esitoF,,estrF)
End If
ReDim avalori(11)
avalori(1) = " Figure " & Figura(NU(1)) & "." & Figura(NU(11))
avalori(2) = StringaNumeri(NU)
avalori(3) = rit
avalori(4) = max
avalori(5) = Incr
avalori(6) = fre
avalori(7) = retesito
avalori(8) = retestratti
avalori(9) = estrF
avalori(10) = Round(rittot/20,2)
avalori(11) = pres
Call AddRigaTabella(avalori,,,1)
Call SetColoreCella(Int(Ord),RGB(255,255,191),vbBlue)
Next
Call SetTableWidth("100%")
Call CreaTabella(Ord)
Next
Call Scrivi(" Script by Mike58 e Rubino ")
End Sub
Ultima modifica:
ppaaoolloo
Super Member >PLATINUM<
ciao rubino
mi sembra ottimo questo tuo script
ma non riesco più ad utilizzarlo,
eppure un po di tempo fa l'avevo provato ed andava benissimo
adesso mi esce questo errore:
clsTablehtml.init tabella
380 invalid property value
come posso fare per risolverlo?
ringrazio anticipatamente
ciao
ppaaoolloo
Super Member >PLATINUM<
ciao Mike
sarebbe possibile mantenendo le stesse richieste
avere uno script che vada bene per l'ambetto?
ti ringrazio anticipatamente
fammi sapere
ciao
sarebbe possibile mantenendo le stesse richieste
avere uno script che vada bene per l'ambetto?
ti ringrazio anticipatamente
fammi sapere
ciao
Ultima modifica:
Mike58
Advanced Member >PLATINUM PLUS<
Ciao Paolo, rifare questo script per ambetto diventa complicato e illeggibile, infatti penso che ci sarebbero una marea di ambetti e quindi non ci provo neanche.
Tuttavia se vuoi puoi scegliere dei numeri e verificarne l'Ambetto con questo script.
Tuttavia se vuoi puoi scegliere dei numeri e verificarne l'Ambetto con questo script.
Codice:
Sub Main
Dim anum(10),aruo(1)
Dim sRetNumeri,nRetVincita,nAmbetti
'Call Vincita(2,5)
ScegliNumeri(anum)
r = InputBox("Quale Ruota",,1)
aruo(1) = r
'ScegliNumeri(anum)
Ini = EstrazioneFin - 100
fin = EstrazioneFin
ReDim AT(10)
AT(1) = " data "
AT(2) = " Comb in gioco "
AT(3) = " Esito "
AT(4) = " Colpo "
AT(5) = " Estratti "
AT(6) = " Info ID Estraz. "
AT(7) = " ambetti "
AT(8) = " Ambetti "
AT(9) = " Vincita "
AT(10) = " Estrazioni "
Call InitTabella(AT,2,,3,5)
For idestr = fin To Ini Step - 1
Call VerificaEsitoTurbo(anum,aruo,idEstr,1,1,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
nAmbetti = VerificaAmbetto(anum,r,idestr,sRetNumeri,nRetVincita)
c = c + 1
If nAmbetti > 0 Then casi = casi + 1
ReDim AV(10)
AV(1) = GetInfoEstrazione(idestr)
AV(2) = StringaNumeri(anum)
AV(3) = RetEsito
AV(4) = c
AV(5) = RetEstratti
If RetEsito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
AV(7) = nAmbetti
AV(8) = sRetNumeri
posta = 1
AV(9) = Round(nRetVincita * posta,2)
AV(10) = StringaEstratti(idestr,r)
Call AddRigaTabella(AV,,,3)
If retesito = "Cinquina" Then Call SetColoreCella(3,3,1)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi "Casi totali di gioco " & c,True,True,5,1,3
Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
End Subppaaoolloo
Super Member >PLATINUM<
grazie Mike
lo proverò
ciao
lo proverò
ciao
Ultima estrazione Lotto
-
Estrazione del lotto
lunedì 05 maggio 2025Bari6219474966Cagliari5973561429Firenze2136801587Genova6636206383Milano8860043405Napoli7036854404Palermo4175635920Roma1953631809Torino3847066982Venezia7887310613Nazionale6042796764Estrazione Simbolotto
Milano
3415221239
