Baciccia4251
Advanced Member
Ho voluto provare il suo Script, di cui la ringrazio, ma mi da errore:Questa è la versione completa
con questo ti divertirai di più...
Codice:Option Explicit Sub Main Dim es,r1,r2,r3,a,b,c,d,tm,clp,clpa,co,Mese1,Anno1 Dim Ini Dim Fin Dim ruota(1) Dim ruote(1) Dim posta(10) Dim poste(10) Dim n(4) Dim am1(2):Dim am2(2):Dim am3(2):Dim am4(2):Dim am5(2):Dim am6(2) Fin = EstrazioneFin r3 = 11 ruota(1) = r2 ruote(1) = r3 posta(1) = 1 poste(2) = 1 co = 0 r1 = CInt(InputBox(" Ruota Base dove prelevare i 4 Elementi per la Previsione ",,"1")) r2 = CInt(InputBox(" Scegli Ruota di gioco per le 4 Ambate ",,"10"))' ho messo una ruota qualsiasi... tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"6340")) ' 6340 : Circa Fine 1949 / Inizio 1950 ' Estrazioni controllate più affidabili... clp = CInt(InputBox(" Per quanti colpi vuoi Analizzare gli Ambi ? ",,"25")) clpa = CInt(InputBox(" Per quanti colpi vuoi Analizzare le Ambate ? ",,"15")) Ini = Fin - tm For es = Ini To Fin If IsUltimaDelMese(es) And es < Fin - 1 Then Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1) Call AvanzamentoElab(Ini,Fin,es) co = co + 1 Mese1 = Mese(es + 1) a = Estratto(es,r1,3) b = Estratto(es + 1,r1,3) Do Until Mese(es + 1) <> Mese1 es = es + 1 Loop c = Estratto(es,r1,3) d = Estratto(es + 1,r1,3) ' ' inserito n() per Ambate (da trovare la ruota migliore con l'InputBox...) n(1) = a n(2) = b n(3) = c n(4) = d ' If a <> b And a <> c And a <> d And b <> c And b <> d And c <> d Then ' Non sono ammessi Numeri Ripetuti/Uguali ' Devono essere uno diverso dall'altro... '---------------------------------------- am1(1) = n(1):am1(2) = n(2) am2(1) = n(1):am2(2) = n(3) am3(1) = n(1):am3(2) = n(4) am4(1) = n(2):am4(2) = n(3) am5(1) = n(2):am5(2) = n(4) am6(1) = n(3):am6(2) = n(4) ruota(1) = r2 ruote(1) = r3 Scrivi String(100,"°") & " Caso n°" & co,1 Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " * " & StringaEstratti(es,r1) & " * ",1 Scrivi DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " * " & StringaEstratti(es + 1,r1) & " * ",1 Scrivi "3°Estratto : [ " & Format2(c) & " ] * 1°Elemento per prossimma Previsione" & " * " & "3°Elemento per previsione Attualmente In Gioco",1,,,1,2 Scrivi "3°Estratto : [ " & Format2(d) & " ] * 2°Elemento per prossimma Previsione" & " * " & "4°Elemento per previsione Attualmente in Gioco",1,,,1,2 Scrivi "Quartina per ambo a Tutte : " & Format2(a) & "." & Format2(b) & "." & Format2(c) & "." & Format2(d),1,,,2,2 Scrivi "4 Ambate a : " & SiglaRuota(r2) & " * " & Format2(a) & "." & Format2(b) & "." & Format2(c) & "." & Format2(d),1,,,1,2 Scrivi String(65,"-"),1 ImpostaGiocata 1,am1,ruote,poste,clp,2,,1 ImpostaGiocata 2,am2,ruote,poste,clp,2,,2 ImpostaGiocata 3,am3,ruote,poste,clp,2,,3 ImpostaGiocata 4,am4,ruote,poste,clp,2,,4 ImpostaGiocata 5,am5,ruote,poste,clp,2,,5 ImpostaGiocata 6,am6,ruote,poste,clp,2,,6 ImpostaGiocata 7,n,ruota,posta,clpa,1 Gioca es + 1,1,,1 es = es - 1 End If If ScriptInterrotto Then Exit For End If Next Scrivi Scrivi String(100,"*") ColoreTesto 2 Scrivi" Casi trovati : " & co,1 ColoreTesto 0 Scrivi String(100," * ") TestoInBandaPassante(" *** Idea by BaffoBlù, Script by maldor/BaffoBlù ***"),1,3,0 ScriviResoconto,False End Sub
Lo script adesso fa il suo lavoro (scartando i casi non giocabili)
ho aggiunto la possibilità per le ambate (ruota migliore?)
Ma questo sottostante è solo per quanto riguarda gli Ambi
Da "Circa" fine 1949 Inizio 1950 a Giugno 2024
(lavoro fatto a mano sull'output...)
Casi Totali trovati : 854
----------------------------------------
Casi Esaminati : 854
Attesa media : 7
Ambo su tutte : 879
----------------------------------------
Magari potessi avere questo che segue in automatico
non so se si può fare con lo script...
1°colpo 130 volte
2°colpo 112 "
3°colpo 86 "
4°colpo 66 "
5°colpo 87 "
6°colpo 58 "
7°colpo 39 "
8°colpo 49 "
9°colpo 31 "
10°colpo 35 "
11°colpo 23 "
12°colpo 21 "
13°colpo 23 "
14°colpo 21 "
15°colpo 18 "
16°colpo 12 "
17°colpo 10 "
18°colpo 10 "
19°colpo 14 "
20°colpo 11 "
21°colpo 03 "
22°colpo 00 *
23°colpo 11 "
24°colpo 03 "
25°colpo 01 "
Interrotta per raggiunta durata : 20 volte
*******************************************
Probabilmente, come al solito, avrò fatto io qualche casino...