Novità

Per Magia

fillotto

Advanced Member >PLATINUM<
Buona domenica a tutti , vorrei chiedere a Magia , ove possibile, modificare questo suo script:
Codice:
 Sub Main
   Dim L,Ru(1),T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin
   r = 1
   s = 1
   ResetTimer
   Ru(1) = r
   so = NomeSorte(s)
   L = Array(0,32,41)
   T = Array(T,"Ruota","Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica")
   Call InitTabella(T)
   Call StatisticaFormazioneTurbo(L,Ru,s,rit,max,Incr,fre,Ini,fin)
   V = Array(V,StringaRuote(Ru),StringaNumeri(L),fre,rit,max,Incr,so)
   Call AddRigaTabella(V)
   CreaTabella
   Scrivi ".............................................Verifica..........................................................................."
   For es = Ini To fin
      Call VerificaEsitoTurbo(L,Ru,es,s,1,,esito,clp,estr,id)
      If esito <> "" Then
         k = k + 1
         ReDim Preserve aRetRit(k)
         aRetRit(k) = es
         ReDim Preserve ess(k)
         ess(k) = aRetRit(k) - aRetRit(k - 1)
         If ess(k) > 26 Then
            ColoreTesto 2
            Scrivi FormatSpace(k,4) & vbTab & GetInfoEstrazione(es) & vbTab,0,0
            Scrivi estr & vbTab & vbTab & FormatSpace(fin - id,4) & " > Estrazioni Trascorse < " & " Elenco Ritardi ... " & ess(k)
            ColoreTesto 0
         Else
            ColoreTesto 0
            Scrivi FormatSpace(k,4) & vbTab & GetInfoEstrazione(es) & vbTab,0,0
            Scrivi estr & vbTab & vbTab & FormatSpace(fin - id,4) & " > Estrazioni Trascorse < " & " Elenco Ritardi ... " & ess(k)
            ColoreTesto 0
         End If
      End If
   Next
   Scrivi String(130,".")
   Scrivi "Tempo Trascorso : " & TempoTrascorso
End Sub

con questo output dove al posto dell'eleco di tutti e 5 gli estratti vorrei un solo estratto determinato da scegliere con un inputbox nello script .Tutte le altre caratteristiche dello script invariate.
Codice:
[FONT=Courier New][SIZE=10px][COLOR=#ff0000]1   [07586] [ 49] 26.04.2006 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#ff0000]BA .. .. 32 .. .. 2021 > Estrazioni Trascorse <  Elenco Ritardi ... 7586[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000]2   [07593] [ 56] 11.05.2006 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]BA .. .. 32 .. .. 2014 > Estrazioni Trascorse <  Elenco Ritardi ... 7[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000]3   [07611] [ 74] 22.06.2006 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]BA .. .. .. .. 32 1996 > Estrazioni Trascorse <  Elenco Ritardi ... 18[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000]4   [07616] [ 79] 04.07.2006 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]BA .. .. 41 .. .. 1991 > Estrazioni Trascorse <  Elenco Ritardi ... 5[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000]5   [07619] [ 82] 11.07.2006 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]BA .. .. .. .. 41 1988 > Estrazioni Trascorse <  Elenco Ritardi ... 3[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000]6   [07636] [ 99] 19.08.2006 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]BA .. 32 .. .. .. 1971 > Estrazioni Trascorse <  Elenco Ritardi ... 17[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000]7   [07643] [106] 05.09.2006 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]BA .. .. .. 32 .. 1964 > Estrazioni Trascorse <  Elenco Ritardi ... 7[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000]8   [07644] [107] 07.09.2006 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]BA .. .. .. .. 41 1963 > Estrazioni Trascorse <  Elenco Ritardi ... 1[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000]9   [07654] [117] 30.09.2006 [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]BA .. .. 32 .. .. 1953 > Estrazioni Trascorse <  Elenco Ritardi ... 10[/COLOR][/SIZE][/FONT]
Questa ultima parte non si è allineata bene comunque spero si capisca la richiesta, grazie





 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
Gtazie Magia sto vedendo la maniera migliore di sfruttare nel migliore modo possibile lo script.
Intanto,se posso approfittare, mi chiedo se fosse possibile fargli esaminare un file txt con le lunghette già preparate. Ancora grazie per quanto fatto.
 

fillotto

Advanced Member >PLATINUM<
Grazie Magia per la pazienza e la competenza, dopo aver fatto parecchie prove sono riuscito a capire come sfruttare al meglio lo script o meglio gli scripts .
Ho immaginato di porre in gioco dei numeri come 1° estratto su Bari per il prossimo mese di aprile ho messo il periodo da attenzionare dall'1/4/2014 ad oggi (780 estrazioni) e con quest'ultimo script che mi hai fatto ho potuto controllare (non agevolmente) che i num 80 78 e 51 sono usciti come primi estratti su Bari nel mese di Aprile coprendomi tutti gli anni 14,15,16,17 e 18 perciò ci si potrebbe aspettare che nel prossimo mese di aprile (seeeeeeeee:rolleyes:) la difficoltà però si trova nel filtratre il mese che si porta via un sacco di ptempo con il pericolo di sbagli .
Ho preso in considerazione la funzione sottostante (copiata dauno script di Luigi) e la funzione mese per aggiungerla a quest'ultimo spript
ma non sono stato capace di incastonare cosi come hai fatto con ScegliPosizione
Function ScegliMese
Dim aV
aV = Array(0,1,2,3,4,5,6,7,8,9,10,11,12)
ScegliMese = ScegliOpzioneMenu(aV,0)
End Function

Potresti Vedere come fare si potrebbero cosi fare delle ricerche più mirate con questo filtro


 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
Grazie Magia ,rispondo cosi tardi in quanto l'ultimo script lo sto provando e riprovando per capire come è più utile sfruttarlo.
Io intanto modificando il tuo primo script sono riuscito ad avere un output più stringato ma più vicino a quello che avevo in mente, tranne che il tutto avrei voluto essere espresso con una tabellaordinabile (x trasferirla in excel). Di seguito metto l'output che è uscito (tenendo presente che i numeri che ho selezionato sono TUTTI e 90!!! e il mese scelto Aprile per vedere nella sua interezza i sortiti negli anni 14/15/16/17 e 18 nella posizione scelta per analizzare poi i sortiti + regolari negli anni suddetti) e lo script adattato.
Codice:
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]............................................. Verifica ...........................................................................[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]14   [08828] [ 39] 01.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 80 781 80.01.08.59.89[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]15   [08829] [ 40] 03.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 16 780 16.27.22.58.35[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]16   [08830] [ 41] 05.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 53 779 53.57.70.74.55[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]17   [08831] [ 42] 08.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 51 778 51.21.68.46.81[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]18   [08832] [ 43] 10.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 46 777 46.76.80.17.78[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]19   [08833] [ 44] 12.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 48 776 48.69.70.71.23[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]20   [08834] [ 45] 15.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 52 775 52.53.40.15.83[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]21   [08835] [ 46] 17.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 21 774 21.74.23.68.22[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]22   [08836] [ 47] 19.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 63 773 63.61.82.20.52[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]23   [08837] [ 48] 22.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 43 772 43.78.81.03.90[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]24   [08838] [ 49] 24.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 07 771 07.43.66.23.77[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]25   [08839] [ 50] 26.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 51 770 51.24.89.03.86[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]26   [08840] [ 51] 29.04.2014 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 89 769 89.65.72.43.22[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]171 [08985] [ 40] 02.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 40 624 40.43.28.16.06[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]172 [08986] [ 41] 04.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 17 623 17.89.45.43.72[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]173 [08987] [ 42] 07.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 78 622 78.70.45.64.71[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]174 [08988] [ 43] 09.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 56 621 56.37.35.61.79[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]175 [08989] [ 44] 11.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 72 620 72.10.53.52.15[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]176 [08990] [ 45] 14.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 27 619 27.47.52.46.50[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]177 [08991] [ 46] 16.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 37 618 37.33.41.49.59[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]178 [08992] [ 47] 18.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 38 617 38.84.64.66.90[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]179 [08993] [ 48] 21.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 08 616 08.46.47.85.06[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]180 [08994] [ 49] 23.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 35 615 35.48.42.15.37[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]181 [08995] [ 50] 27.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 90 614 90.15.32.55.02[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]182 [08996] [ 51] 28.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 47 613 47.57.10.22.39[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]183 [08997] [ 52] 30.04.2015 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 56 612 56.11.73.36.13[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]328 [09142] [ 40] 02.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 03 467 03.86.38.20.46[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]329 [09143] [ 41] 05.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 20 466 20.76.61.25.57[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]330 [09144] [ 42] 07.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 23 465 23.15.68.22.11[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]331 [09145] [ 43] 09.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 15 464 15.48.22.21.01[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]332 [09146] [ 44] 12.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 77 463 77.19.18.12.86[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]333 [09147] [ 45] 14.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 30 462 30.05.48.89.03[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]334 [09148] [ 46] 16.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 69 461 69.70.12.10.14[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]335 [09149] [ 47] 19.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 51 460 51.77.62.69.49[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]336 [09150] [ 48] 21.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 34 459 34.78.33.12.59[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]337 [09151] [ 49] 23.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 55 458 55.64.87.81.27[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]338 [09152] [ 50] 26.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 74 457 74.05.71.25.88[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]339 [09153] [ 51] 28.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 11 456 11.13.78.48.20[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]340 [09154] [ 52] 30.04.2016 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 39 455 39.08.24.37.17[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]484 [09298] [ 39] 01.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 72 311 72.18.75.73.14[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]485 [09299] [ 40] 04.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 81 310 81.69.68.06.63[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]486 [09300] [ 41] 06.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 60 309 60.48.82.27.09[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]487 [09301] [ 42] 08.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 70 308 70.12.69.73.30[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]488 [09302] [ 43] 11.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 60 307 60.20.68.15.44[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]489 [09303] [ 44] 13.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 22 306 22.87.90.73.75[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]490 [09304] [ 45] 15.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 89 305 89.61.32.14.80[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]491 [09305] [ 46] 18.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 05 304 05.74.40.51.09[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]492 [09306] [ 47] 20.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 80 303 80.61.73.67.77[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]493 [09307] [ 48] 22.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 08 302 08.57.23.50.58[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]494 [09308] [ 49] 26.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 44 301 44.89.36.83.74[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]495 [09309] [ 50] 27.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 60 300 60.30.41.10.55[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]496 [09310] [ 51] 29.04.2017 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 90 299 90.40.44.26.53[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]641 [09455] [ 40] 03.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 04 154 04.23.20.11.84[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]642 [09456] [ 41] 05.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 66 153 66.51.83.90.70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]643 [09457] [ 42] 07.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 82 152 82.01.13.58.56[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]644 [09458] [ 43] 10.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 35 151 35.47.26.74.08[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]645 [09459] [ 44] 12.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 58 150 58.76.68.60.36[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]646 [09460] [ 45] 14.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 16 149 16.20.77.82.70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]647 [09461] [ 46] 17.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 64 148 64.49.58.88.46[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]648 [09462] [ 47] 19.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 52 147 52.73.77.74.22[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]649 [09463] [ 48] 21.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 54 146 54.45.20.31.71[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]650 [09464] [ 49] 24.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 36 145 36.70.12.61.09[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]651 [09465] [ 50] 26.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 83 144 83.49.23.45.05[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]652 [09466] [ 51] 28.04.2018 [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]BA 78 143 78.30.44.05.76[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]..................................................................................................................................[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=10px][COLOR=#000000][B]Tempo Trascorso : 00:00:01[/B][/COLOR][/SIZE][/FONT]

Codice:
Option Explicit
'Per Magia di fillotto
'https://forum.lottoced.com/forum/lottoced/area-download/2162806-per-magia#post2162806
Sub Main()
   Dim iNumeri : Call ScegliNumeri(iNumeri)
   Dim idMese:idMese = ScegliMese
   Dim iPos : iPos = ScegliPosizione
   Dim iRuota : iRuota = ScegliRuota()
   Dim iSorte : iSorte = ScegliEsito()
   Dim Ini,Fin,Es : Ini = EstrazioneIni : Fin = EstrazioneFin
   ReDim Ru(01),aPosizioni(05),aMesi(12): Ru(01) = iRuota : aMesi(idMese) = True :aPosizioni(iPos) = True
   Dim SO : SO = NomeSorte(iSorte) : Call ResetTimer
   Dim T : T = Array(T,"Ruota","Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica","Mese","ED")' qui si prevede il npme mese
   Call InitTabella(T)
   Dim RetRit,RetRitMax,RetIncrRitMax,RetFre
   Call StatisticaFormazioneTurbo(iNumeri,Ru,iSorte,RetRit,RetRitMax,RetIncrRitMax,RetFre,Ini,Fin,,aPosizioni)'NON funziona qui xchè la funzione non prevede Mese
   Dim V : V = Array(V,SiglaRuota(iRuota),StringaNumeri(iNumeri),RetFre,RetRit,RetRitMax,RetIncrRitMax,SO,idMese,iPos)'funziona qui
   Call AddRigaTabella(V) : Call CreaTabella 'in questa tabella inserisce il mese
   Call Scrivi(String(45,".") & " Verifica " & String(75,"."),True)
   For Es = Ini To Fin : Call Messaggio(Es) : Call AvanzamentoElab(Ini,Fin,Es)
      Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
      Call VerificaEsitoTurbo(iNumeri,Ru,Es,iSorte,01,aPosizioni,RetEsito,RetColpi,RetEstratti,RetIdEstr)'Function VerificaEsitoTurbo(aNumeri, aRuote,
      'IdEstrazione, Sorte, Optional EntroColpi = 0, Optional aPosizioni = Nothing, Optional RetEsito = "", Optional RetColpi = 0,
      'Optional RetEstratti = "", Optional RetIdEstr = 0, Optional aRetRuote = Nothing) As Boolean
      If RetEsito <> "" Then
         Dim K : K = K + 01
         ReDim Preserve aRetRit(K),ess(K) : aRetRit(K) = Es : ess(K) = aRetRit(K) - aRetRit(K - 01)
         If Mese(Es) = idMese Then 'qui gli dico mi fami apparire solo i dati sottostanti  che siano del mese indicaotogli in precedenza
            'con ScegliMese'ess(K) < 26
           ' Call ColoreTesto(vbRed) :
           Call Scrivi(FormatSpace(K,04) & vbTab & GetInfoEstrazione(Es) & vbTab,True,False)'
           Call Scrivi(RetEstratti & vbTab & vbTab & FormatSpace(Fin - RetIdEstr,04) & vbTab & StringaEstratti(Es,iRuota),True) : Call ColoreTesto(vbBlack)
         End If
      End If
   Next
   Call Scrivi(String(130,"."),True) : Call Scrivi("Tempo Trascorso : " & TempoTrascorso,True)
End Sub
Function ScegliPosizione()
   Dim aVoci(05),aPos : For aPos = 01 To 05 : aVoci(aPos) = aPos : Next
   ScegliPosizione = ScegliOpzioneMenu(aVoci,01,"Selezionare Posizione")
End Function
Function ScegliMese
   Dim aV(12),aMes:For aMes = 01 To 12 : aV(aMes) = aMes : Next
   ScegliMese = ScegliOpzioneMenu(aV,01,"Selezionare mese")
End Function

PURTROPPO L'OUTPUT NON SI E' IMPAGINATO BENE COMUNQUE SE SI FA GIRARE (COME HO DETTO SOPRA) LO SCRIPT CI METTE UN SECONDO!!!!!!
 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
Ti ringrazio Magia ma lo script ultimo postato è sostanzialmente identico a quello precedente postato da me in sostanza vorrei che i dati dell'output che vengono da ques'ultimo script in particolare questi:
xmagia.JPG
e solo questi venissero espressi in tabella con i numeri della estrazione in colonne diverse in sostanza 12 colonne le ultime 5 rappresentate dai 5 numeri estratti , forse si deve rifare daccapo non saprei:rolleyes:
 

fillotto

Advanced Member >PLATINUM<
Per Magia , ecco come utilizzo lo script : in questo caso specifico ho fatto in modo di avere le estrazioni degli ultimi 5 anni,relativamente al mese di maggio, di bari ,il risultato dello script l'ho esportato in Excel. Lo scopo era di vedere se trovavo 5 numeri che in ogni anno mi avessero dato almeno un ambo con un po di pratica, con l'ausilio di caselle di selezione controllavo i numeri + adatti che mi avessero dato più ambi e in "diretta" ink1 con la formula =CONTA.SE(K2:K68;">1") sapevo il totale degli ambi presenti nei 5 anni in particolare in S4:W4 con lla formula =CONTA.SE(K2:K15;">1") per il 2014 e seguenti vedevo se mi si riempissero tutti gli anni.
Questo lavoro l'ho fatto ieri pomeriggio all'oscuro dell'uscita serale dell'estrazione , questa mattina ho controllato e ho visto che già alla prima estazione di maggio avrei beccato l'ambo in cinquina con 74 e 47( già perchè non ho giocato :))
Il tutto per condividere un idea e confortare Magia che non ha lavorato/aiutato invano.
 
Ultima modifica:

lota

Super Member >PLATINUM<
Buona giornata a tutti x Fillotto lo script di magia mi da errore qui
Schermata 2019-05-03 alle 14.38.05.png
 

Allegati

  • image_19646.png
    image_19646.png
    60,9 KB · Visite: 0
  • Schermata 2019-05-03 alle 14.38.05.png
    Schermata 2019-05-03 alle 14.38.05.png
    60,9 KB · Visite: 0

fillotto

Advanced Member >PLATINUM<
lota;n2169456 ha scritto:
Buona giornata a tutti x Fillotto lo script di magia mi da errore qui

Hai copiato bene lo script ? compreso la prima istruzione "Option Explicit " ? per il resto quando chiede i num della lungnetta mettili tutti e 90 overo inverti che equivale a selezionarli tutti
 

lota

Super Member >PLATINUM<
Ciao Fillotto, grazie x la risposta ho provato a selezionare tutti i numeri e l'istruzione Option Explicit, l'errore è sempre presente. La versione di spaziometria è la 1.6.17
 

fillotto

Advanced Member >PLATINUM<
Non so adesso perchè non aggiorni alla 1.6.32 cosa teclo impedisce?? un altra raccomandazione e quella di quando chiede l'estratto fai rimanere 1 non 2 o altro
 

fillotto

Advanced Member >PLATINUM<
Non so adesso perchè non aggiorni alla 1.6.32 cosa teclo impedisce?? un altra raccomandazione e quella di quando chiede l'estratto fai rimanere 1 non 2 o altro
 

fillotto

Advanced Member >PLATINUM<
bari5780904774 74 e 47 1° c.
cagl3572131831
fir43725116
gen663542071 20,54,71 4° c
milano588291582
napoli806489734
pale4230615958
roma120575837
Torino7677116726
venez104176729 10 e 67 1° c.

alla vigilia del mese di maggio avevo preparato queste previsioni consistenti in una cinquina per ambo una per ciascuna ruota; tutte preparate con il sistema di cui ai post precedenti di questa discussione- Visto questa mattina l'uscita di un terno in cinquina su genova posto lla tabella completa . Ripeto , queste cinquine hanno la caratteristica di essere uscite nel mese di maggio (2014,2015,2016,2017,2018)con almeno un ambo.Io , per la cronaca , non ho vinto niente:D lo posto perchè vediamo come va a finire.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto