Per Mike 58

[Serpico 90]

Salve Mike ,sono contento di rileggerti,Grazie che se ritornato e a mettere la tua esperienza a favore di persone che come me non sono capaci di costruire uno Script.
Il suggerimento che mi hai dato ,tempo fa, mi è stato molto utile e con i diversi script,scaricati e inseriti nel programma Spaziometria,non passo più ore ed ore con carta e penna, a ricercare eventuali previsioni di gioco.
Per favore,considerata la tua bravura e la tua disponibilità,posso chiederti di costruire un script?
Se mi rispondi positivamente ti indicherò gli estremi per il rpocedimento.
In ogni caso grazie e ti auguro serenità e tanti auguri di buona Pasqua.
Saluti Serpico

 

[Mike58]

Ciao Serpico, un grazie per l'apprezzamento, di quello che dici non posso esserne che felice d'altronte il buon e grande maestro luigi chi ha dato un turbo in mano ed è un peccato non sfruttarlo.
Esponi pure la metodica e se è nella mia capacità non mancherò nell'impegno.

Ciao a risentirci e ricambio gli auguri.

 

[Serpico 90]

Ciao,Grazie questa la metodica.Si agisce sull'ultima estrazione del mese,sulle ruote di PALERMO E ROMA.Di queste due ruote si prendano il 1° ed il 5° estratto,e si faccia la somma di tutti e quattro i numeri al risultato ottenuto (teoria del fuori 90)fino ad ottenere un numero compreso tra 1 e 90.Il numero cosi ottenuto sarà l'ambata da mettere in gioco sulle dure ruote di Palermo e Roma assieme però al suo vertibile per un periodo di 13 estrazioni.Se il numero somma ottenuto sarà un gemello,per vertibile si scieglie il finale 9 della sua stessa decina e viceversa.se il numero ottenuto dalla somma dei quattro estratti è uno dei seguenti 91,92,93,94,95,96,97,98 si toglierà il numero 90 e rimarrà un numeretto ma il vertibile in gioco sarà rispettivamente 19,29,39,49,59,69,79,89.Questo il metodo, ora i miei desideri ,sempre sullo stesso script:se con la tua esperienza puoi inserire una formula che ricerchi quale potrebbe essere il numero e la ruota piu favorevole per indovinare l'ambata.altra formula per trovare uno o due numeri per abbinamenti per eventuale ambo e dulcis in fundu inserire la formula che mi da la spesa sostenuta ed eventuale guadagno ,come ai fatto in altro script di recente.Ecco questo è quello che desidero e ti chiedo cortesemente se puoi esaudire questa mia richiesta.
Grazie Saluti Serpico

 

[Mike58]

ok provo ci sono dei punti che non mi sono chiari, ma domani vedrò con lo script di definirli.

Ciao

 

[Mike58]

Ciao Serpico, purtroppo il tempo non è dalla mia parte, ti ho fatto lo script cercando di mettere tutti i punti che chiedevi.
Del vertibile che dicevi del numero gemello è sempre finale 9 è il suo vetibile naturale, l'altro punto se la somma estratti e fuori 90 non ci può essere un numero superiore a 90.

Comunque se avessi capito male qualcosa ci aggiorniamo per aggiustamento.

intanto comincia a usare lo script e con gli inputbox puoi variare a piacimento le ruote e posizioni

Ciao

Sub Main
    Dim ru(2),nu(4),num(2),amb1(5),amb2(5)
    Dim posta(1),poste(5)
    posta(1) = 1
    poste(2) = 1
    poste(3) = 1
    Scrivi "****** Metodica by Serpico 90 ********** List By Mike58 ********* Forum Lottoced ******* ",1,-1,3
    qe = InputBox("QUANTE ESTRAZIONI ",,100)
    r1 = InputBox("QUALE 1^ RUOTA",,7)
    r2 = InputBox("QUALE 2^ RUOTA",,8)
    p1 = InputBox("QUALE 1^ POSIZIONE",,1)
    p2 = InputBox("QUALE 2^ POSIZIONE",,5)
    cl = InputBox("Quanti colpi di Gioco",,13)
    Ini = EstrazioneFin - qe
    fin = EstrazioneFin
    ru(1) = r1
    ru(2) = r2
    co = 0
    For es = Ini To fin
        If IsUltimaDelMese(es) Then
            co = co + 1
            a = Estratto(es,r1,p1)
            b = Estratto(es,r1,p2)
            c = Estratto(es,r2,p1)
            d = Estratto(es,r2,p2)
            s1 = Fuori90(a + b + c + d)
            s2 = Vert(s1)
            nu(1) = a
            nu(2) = b
            nu(3) = c
            nu(4) = d
            num(1) = s1
            num(2) = s2
            '----- abbinamenti ambi dalla settenaria --------
            amb1(1) = s1
            amb1(2) = Fuori90(s1*7)
            amb1(3) = Fuori90(s1*13)
            amb1(4) = (91- amb1(3))
            amb1(5) = (91 - s1)
            amb2(1) = s2
            amb2(2) = Fuori90(s2*7)
            amb2(3) = Fuori90(s2*13)
            amb2(4) = (91- amb2(3))
            amb2(5) = (91 - s2)

            Scrivi String(100,"=")
            Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
            Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
            ColoreTesto 1
            Scrivi "Numeri in Esame.... " & StringaNumeri(nu),1
            ColoreTesto 2
            Scrivi "Somma numeri e suo vertibile... " & s1 & " - " & s2,1
            ColoreTesto 0
            Scrivi String(90,"=") & " Caso n° " & co
            ImpostaGiocata 1,num,ru,posta,cl,1
            ImpostaGiocata 2,amb1,ru,poste,cl,2
            ImpostaGiocata 3,amb2,ru,poste,cl,2

            Gioca es
            Scrivi String(40,"-")
            Scrivi "Spesa giocata....... " & GetSpesa(True)
            Scrivi "Vincita Giocata......" & GetVincita(True)
            Scrivi "Guadagno giocata....." & GetGuadagno(True)
            Scrivi String(40,"-")
            If GetGuadagno(True) > 0 Then Scrivi " ***** Giocata in Positivo **** ",1,- 1,3
            If GetGuadagno(True) < 0 Then Scrivi " ***** Giocata in negativo **** ",1,- 1,2
        End If
    Next
    ScriviResoconto
End Sub

 

[Serpico 90]

Ciao Mike,come al solito COMPLIMENTI PER IL LAVORO CHE FAI ,tutto O.K. come io desideravo ,hai capito e fatto tutto bene.
Ora non ci resta che aspettare che il metodo funzioni ancora per l'avvenire .
Grazie e buone feste.
Saluti Serpico