Novità

Buon anno a tutti

  • Creatore Discussione Creatore Discussione steel
  • Data di inizio Data di inizio
S

steel

Guest
Ciao amici,
voglio augurare a tutti voi,un sereno 2013 e vi ringrazio tutti (sopratutto Luigi) per aver messo a disposizione il vostro bagaglio tecnico
che ha contribuito a migliorare i nostri studi nelgioco del Lotto.
Vi metto un listato che metterà in gioco una previsione ricavata alla1° estrazione mensile.Ho apostrofato la sorte di quaterna e cinquina
perchè nonostante la posta sia al minimo sindacale ci mette circa 10 minuti prima di assegnare l'output.
Cmq vi allego l'immagine con posta di 80 cent per l'ambo...10 cent per il terno e cinque cent per quaterna e cinquina:)
Felice e prosperoso 2013 a tutti

1jkz0i.png
 
Codice: 
Sub Main()    ColoreTesto 1
    Scrivi
    Scrivi "5 CINQUINE SU' CA-PA ALLA 1° ESTRAZIONE MENSILE",1
    Scrivi
    Scrivi
    Scrivi " METODO E LIST BY Steel",1
    Scrivi
    ColoreTesto 0
    Dim ruote(10)
    Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim poste(5)
    poste(2) = .80
    poste(3) = .10
    'poste(4) = .05
    'poste(5) = .05
    klp = 10
    ini = 8175
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        If IndiceMensile(es) = 1 Then
            ruote(1) = 2
            ruote(2) = 7
            casi = casi + 1
            co = co + 1
            ColoreTesto 2:Scrivi String(100,"$") & " Caso n° " & casi,1
            ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
            ColoreTesto 0
            nn1(1) = Fuori90(Estratto(es,12,1) + 70)
            nn1(2) = Fuori90(Estratto(es,10,2) * 3)
            nn1(3) = Fuori90(Estratto(es,5,2) + 83)
            nn1(4) = Fuori90(Estratto(es,1,2) + 85)
            nn1(5) = Fuori90(Estratto(es,9,4) + 61)
            ImpostaGiocata 1,nn1,ruote,poste,klp
            nn2(1) = Fuori90(Estratto(es,12,1) + 82)
            nn2(2) = Fuori90(Estratto(es,8,5) * 68)
            nn2(3) = Fuori90(Estratto(es,2,1) + 66)
            nn2(4) = Fuori90(Estratto(es,2,1) + 46)
            nn2(5) = Fuori90(Estratto(es,12,1) + 5)
            ImpostaGiocata 2,nn2,ruote,poste,klp
            nn3(1) = Fuori90(Estratto(es,12,1) + 15)
            nn3(2) = Fuori90(Estratto(es,1,3) + 42)
            nn3(3) = Fuori90(Estratto(es,7,5) + 90)
            nn3(4) = Fuori90(Estratto(es,12,1) * 66)
            nn3(5) = Fuori90(Estratto(es,9,1) + 15)
            ImpostaGiocata 3,nn3,ruote,poste,klp
            nn4(1) = Fuori90(Estratto(es,12,1) + 2)
            nn4(2) = Fuori90(Estratto(es,12,4) + 5)
            nn4(3) = Fuori90(Estratto(es,1,4) + 65)
            nn4(4) = Fuori90(Estratto(es,12,1) * 18)
            nn4(5) = Fuori90(Estratto(es,12,4) + 88)
            ImpostaGiocata 4,nn4,ruote,poste,klp
            nn5(1) = Fuori90(Estratto(es,12,1) + 37)
            nn5(2) = Fuori90(Estratto(es,4,5) + 20)
            nn5(3) = Fuori90(Estratto(es,12,1) + 52)
            nn5(4) = Fuori90(Estratto(es,6,2) + 28)
            nn5(5) = Fuori90(Estratto(es,12,1) + 4)
            ImpostaGiocata 5,nn5,ruote,poste,klp
            Gioca es,1
        End If
    Next
    Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub
 
Ultima modifica:
Ehi ehi ..... ma sei impazzito????
C'è da fa una correzione ........ tra due ipotesi ... decidi tu!!!
O abbassi l'importo delle giocate......
O avverti luigib di modificare la grandezza del resoconto dei listati........ tutti quei numeri non ci stanno dentro e viene tutto sbilenco!!!!!
Ciao ciao
 
daniel ha scritto:
Ehi ehi ..... ma sei impazzito????
C'è da fa una correzione ........ tra due ipotesi ... decidi tu!!!
O abbassi l'importo delle giocate......
O avverti luigib di modificare la grandezza del resoconto dei listati........ tutti quei numeri non ci stanno dentro e viene tutto sbilenco!!!!!
Ciao ciao
Clicca per espandere...
Ciao Orso,
io credo che potrebbe essere una buona idea,far inserire l'opzione turbo anche per il calcolo dell'output
 
Su l8 non c'è nessun problema, è quasi istantaneo, non riesco a capirne il motivo.
Ho provato anche con molte più estrazioni anche dal 1939 e non da nessun problema di attesa di compilazione resoconto.
Comunque punto solo sulla terza giocata ..........
Ciao
 
Ultima modifica:
codicebinario ha scritto:
A me con spaziometria versione .89 e' velocissimo.............
Clicca per espandere...
Ora il listato gira veloce perchè ho apostrofato la sorte di quaterna e cinquina.
Prova a togliere gli apostrofi e a far girare il listato.Vedrai che l'output sarà identico a quello postato.
Però almeno con me,Spaziometria è lentissimo
 
Steel pensavi proprio che gli apostrofini non li avevo visti??
Qualche modifica la so fare anch'io ... eheheh!!
Probabile che con spaziometria la lunga attesa sia dovuta alla compilazione dei grafici, ma è solo una mia supposizione.
Resoconto dal 1945 ...... circa 30 secondi

Codice: 
Casi Rilevati 784




=======================================
  Resoconto complessivo di 5 giocate
=======================================
Resoconto totale giocate
Risultati generali


               Casi esaminati:            3920  
                     in corso:               0  
                  casi finali:            3920  
                     positivi:            1239  
                     negativi:            2681  
          Pronostici generati:            7840  
          Pronostici vincenti:  1248  (15,9 %)  
          Estrazioni di gioco:           33304  
Tentativi (scontrini giocati):           66608  
 Vincite (scontrini vincenti):  1248  (1,87 %)  
                 Attesa media:            5,24  








Resoconto totale giocate
Dettaglio Ruote (Pronostici)


   Ruota         Vincenti  Giocati  
----------------------------------
Cagliari   647 ( 1,94 % )    33304  
 Palermo   601 ( 1,80 % )    33304  
  Totale  1248 ( 1,87 % )    66608  








Resoconto totale giocate
Resoconto economico


   Sorte  Spese [€]  Real.   Vincite [€]           -6%  Guadagno [€]  
--------------------------------------------------------------------
  Ambata       0,00      0          0,00          0,00          0,00  
    Ambo  53.286,40   1416     34.053,32     32.010,12    -21.276,28  
   Terno   6.660,80    131      6.772,50      6.366,15       -294,65  
Quaterna   3.263,30     42     50.400,00     47.376,00     44.112,70  
Cinquina   1.875,40      8  2.400.000,00  2.256.000,00  2.254.124,60  
  EDet.1       0,00      0          0,00          0,00          0,00  
  EDet.2       0,00      0          0,00          0,00          0,00  
  EDet.3       0,00      0          0,00          0,00          0,00  
  EDet.4       0,00      0          0,00          0,00          0,00  
  EDet.5       0,00      0          0,00          0,00          0,00  
 Totale:  65.085,90         2.491.225,82  2.341.752,27  2.276.666,37  








Resoconto totale giocate
Dettaglio Successi


Giocata  Successi  Colpo   Perc.    Entro  
-----------------------------------------
  Tutte       128      1  10,3 %   10,3 %  
  Tutte       136      2  10,9 %   21,2 %  
  Tutte       131      3  10,5 %   31,7 %  
  Tutte       167      4  13,4 %   45,0 %  
  Tutte       131      5  10,5 %   55,5 %  
  Tutte       100      6   8,0 %   63,5 %  
  Tutte       127      7  10,2 %   73,7 %  
  Tutte       119      8   9,5 %   83,3 %  
  Tutte       105      9   8,4 %   91,7 %  
  Tutte       104     10   8,3 %  100,0 %
 
Questo è meno costoso e più veloce da far girare...

Codice: 
Sub Main() ColoreTesto 2	Scrivi
	Scrivi "4 TERNI SU BARI ALL'ULTIMA ESTRAZIONE MENSILE",1
	Scrivi
	Scrivi
	Scrivi " METODO E LIST BY Steel",1
	Scrivi
	ColoreTesto 0
	Dim ruote(10)
	Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim poste(5)
	poste(2) = 1
	poste(3) = 1
	klp = 10
	ini = 8390
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		If IndiceMensile(es + 1) = 1 Then
			ruote(1) = 1
			casi = casi + 1
			co = co + 1
			ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
			ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
			ColoreTesto 0
			nn1(1) = Fuori90(Estratto(es,1,1) + 26)
			nn1(2) = Fuori90(Estratto(es,7,1) * 65)
			nn1(3) = Fuori90(Estratto(es,1,3) + 1)
			ImpostaGiocata 1,nn1,ruote,poste,klp,2
			nn2(1) = Fuori90(Estratto(es,1,1) + 57)
			nn2(2) = Fuori90(Estratto(es,7,1) + 86)
			nn2(3) = Fuori90(Estratto(es,3,3) + 65)
			ImpostaGiocata 2,nn2,ruote,poste,klp,2
			nn3(1) = Fuori90(Estratto(es,1,1) + 25)
			nn3(2) = Fuori90(Estratto(es,3,2) + 43)
			nn3(3) = Fuori90(Estratto(es,4,5) + 26)
			ImpostaGiocata 3,nn3,ruote,poste,klp,2
			nn4(1) = Fuori90(Estratto(es,1,1) + 13)
			nn4(2) = Fuori90(Estratto(es,7,2) + 39)
			nn4(3) = Fuori90(Estratto(es,1,1) + 24)
			ImpostaGiocata 4,nn4,ruote,poste,klp,2
			Gioca es,1
		End If
	Next
	Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub
 
ciao ragazzi , buon anno a tutti !!
Aveva ragione chi ha avuto l'intuizione che la lentezza era dovuta ai grafici.
Basta aggiungere il parametro alla funzione scriviresoconto che specifica di non disegnarli.

va messo cosi
Call ScriviResoconto(,False)

e vedrete che andràvlocissimo pure spaziometria ... il problema era proprio sui grafici per la grossa mole di dati , potete togliere i rem
dalle poste per quaterna e cinquina.
Certo non immaginavo che dovesse gestire cifre cosi grosse ... il resocoto è tutto scombussolato :-)
 
Ultima modifica di un moderatore:
con la nuova versione 1.4.0 lo script dara i risultati velocemente anche lasciando i grafici.
inoltre il resoconto non avrà piu il problema di disallineamento.
Buon anno a tutti !!
 
Grazie Luigi,ti auguro un sereno 2013 a te e a tutta la combricola della sezione:)
Il fù Antelao
 
Eheheheh!!!!
Ho inserito il codice di Luigi e ora....l'output è immediato:cool:

65qx77.png
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto