Buon anno a tutti

[steel]

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

 

[Roby]

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

 

[codicebinario]

OTTIMO LAVORO Steel......Buon Anno nuovo pure a te.
Ciao Marche'.....

 

[Roby]

OTTIMO LAVORO Steel......Buon Anno nuovo pure a te.
Ciao Marche'.....

Ciao Leoncino....buon fine e inizio anno

 

[rabberto]

Buon anno anche a te e tutto il forum , ciao.

 

[Roby]

Ciao ragazzi, Buon Anno !!!

 

[Roby]

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

 

[kendariel]

Grazie per lo sript ottimo lavoro

AUGURI x un Buon 2013 a Tè e al Forum

Ken

 

[Roby]

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

Ciao Orso,
io credo che potrebbe essere una buona idea,far inserire l'opzione turbo anche per il calcolo dell'output

 

[franca46]

Steel questo è perfetto ( soldi spesi bene!!!)

 

[Roby]

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

 

[codicebinario]

A me con spaziometria versione .89 e' velocissimo.............

 

[Roby]

A me con spaziometria versione .89 e' velocissimo.............

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

 

[Roby]

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

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 %

 

[Roby]

Questo è meno costoso e più veloce da far girare...

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

 

[LuigiB]

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

 

[keeper]

auguri a tutti di buona fine e di un felice inizio (monti tasse permettendo)

 

[LuigiB]

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 !!

 

[Roby]

Grazie Luigi,ti auguro un sereno 2013 a te e a tutta la combricola della sezione
Il fù Antelao

 

[Roby]

Eheheheh!!!!
Ho inserito il codice di Luigi e ora....l'output è immediato