metodo con richiesta script

arcor · 4 Dicembre 2011

un saluto a tutti qualcuno può gentilmente realizzare uno script di questo metodo ho già calcolato le previsioni x dicembre
grazie mille
si calcola sempre il mese prima
metodo con previsione per il mese di Dicembre 2011
metodo sommativo ( calcolo del mese di Novembre 2011 )
-----------------------------------------------------------------------------
5° Estratto su Fi della 2^ mese prec. 03.11.2011 [ 87 ] + 73 / A
4° Estratto su Ge della 2^ mese prec. 03.11.2011 [ 38 ] + 27 / B
3° Estratto su Ca della 1^ mese prec. 02.11.2011 [ 25 ] + 42 / A1
1° Estratto su Ve della 2^ mese prec. 03.11.2011 [ 56 ] + 35 / A2
1° Estratto su Mi della 3^ mese prec. 05.11.2011 [ 72 ] + 14 / A3
5° Estratto su Ba della 2^ mese prec. 03.11.2011 [ 4 ] + 58 / B1
3° Estratto su Pa della 3^ mese prec. 05.11.2011 [ 34 ] + 57 / B2
2° Estratto su Ge della 4^ mese prec. 08.11.2011 [ 18 ] + 65 / B3
1° Estratto su Ge della 1^ mese prec. 02.11.2011 [ 37 ] + 64 / C
3° Estratto su Pa della 2^ mese prec. 03.11.2011 [ 72 ] + 40 / D
5° Estratto su Ge della 1^ mese prec. 02.11.2011 [ 71 ] + 51 / C2
4° Estratto su To della 4^ mese prec. 08.11.2011 [ 12 ] + 9 / D2
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08463 [144 - 01/12/2011]
Numeri in gioco : 70.65 su VE per Estratto
In corso per altre 9 estrazioni
Numeri in gioco : 70.65 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 70.67 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 70.01 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 70.86 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 65.62 su VE per Ambo
In corso per altre 9 estrazioni

Numeri in gioco : 65.01 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 65.83 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 70.65.11.22 su VE per Ambo,Terno,Quaterna
In corso per altre 9 estrazioni
Numeri in gioco : 70.65.32.21 su VE per Ambo,Terno,Quaterna
In corso per altre 9 estrazioni

vinci · 5 Dicembre 2011

Questo si chiama metodo ducale di Fabio Bubu

Sub
Main()

Dim ruote(1),nu1(2),nu2(2),nu3(4),posta(1),poste(2),post(4)

posta(1) = 1

poste(2) = 1

post(2) = 1

post(3) = 1

post(4) = 1

ce
= InputBox("da quale estrazione vuoi controllare? ","estrazione",8163)

k
= InputBox("per quanti colpi?","colpi di gioco",9)

ini
= ce

fin
= EstrazioneFin

Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1

For n = ini To EstrazioneFin

If IndiceMensile

= 1 Or n = 7810 Then

x
= PrimaMesePrec

Messaggio "elab. estr. [" &

& "] di " & DataEstrazione(n,1)

casi
= casi + 1

Scrivi String(57,"=") & " by maxma62",1

Scrivi "metodo ducale di f. bubù ( calcolo del mese di " & monthname(Mese(x)) & " " & Anno(x) & " )"

Scrivi String(68,"-")

Scrivi " 5° Estratto su Fi della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,3,5) & " ] + 73 / A " 'ambata

Scrivi " 4° Estratto su Ge della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,4,4) & " ] + 27 / B " 'ambata

Scrivi " 3° Estratto su Ca della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,2,3) & " ] + 42 / A1 "

Scrivi " 1° Estratto su Ve della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,10,1) & " ] + 35 / A2 "

Scrivi " 1° Estratto su Mi della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,5,1) & " ] + 14 / A3 "

Scrivi " 5° Estratto su Ba della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,1,5) & " ] + 58 / B1 "

Scrivi " 3° Estratto su Pa della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,7,3) & " ] + 57 / B2 "

Scrivi " 2° Estratto su Ge della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,4,2) & " ] + 65 / B3 "

Scrivi " 1° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,1) & " ] + 64 / C "

Scrivi " 3° Estratto su Pa della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,7,3) & " ] + 40 / D "

Scrivi " 5° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,5) & " ] + 51 / C2 "

Scrivi " 4° Estratto su To della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,9,4) & " ] + 9 / D2 "

Scrivi String(56,"-") & " caso n° " &(casi)

ruote(1) = 10

co
= 0

nA
= Fuori90(Estratto(x + 1,3,5) + 73)

nB
= Fuori90(Estratto(x + 1,4,4) + 27)

nA1
= Fuori90(Estratto(x,2,3) + 42)

nA2
= Fuori90(Estratto(x + 1,10,1) + 35)

nA3
= Fuori90(Estratto(x + 2,5,1) + 14)

nB1
= Fuori90(Estratto(x + 1,1,5) + 58)

nB2
= Fuori90(Estratto(x + 2,7,3) + 57)

nB3
= Fuori90(Estratto(x + 3,4,2) + 65)

nC
= Fuori90(Estratto(x,4,1) + 64)

nD
= Fuori90(Estratto(x + 1,7,3) + 40)

nC2
= Fuori90(Estratto(x,4,5) + 51)

nD2
= Fuori90(Estratto(x + 3,9,4) + 9)

nu1(1) = nA

nu1(2) = nB

co
= co + 1

ImpostaGiocata co,nu1,ruote,posta,k

nu2(1) = nA

nu2(2) = nB

co
= co + 1

ImpostaGiocata co,nu2,ruote,poste,k

nu2(2) = nA1

co
= co + 1

ImpostaGiocata co,nu2,ruote,poste,k

nu2(2) = nA2

co
= co + 1

ImpostaGiocata co,nu2,ruote,poste,k

nu2(2) = nA3

co
= co + 1

ImpostaGiocata co,nu2,ruote,poste,k

nu2(1) = nB

nu2(2) = nB1

co
= co + 1

ImpostaGiocata co,nu2,ruote,poste,k

nu2(2) = nB2

co
= co + 1

ImpostaGiocata co,nu2,ruote,poste,k

nu2(2) = nB3

co
= co + 1

ImpostaGiocata co,nu2,ruote,poste,k

nu3(1) = nA

nu3(2) = nB

nu3(3) = nC

nu3(4) = nD

co
= co + 1

ImpostaGiocata co,nu3,ruote,post,k

nu3(1) = nA

nu3(2) = nB

nu3(3) = nC2

nu3(4) = nD2

co
= co + 1

ImpostaGiocata co,nu3,ruote,post,k

Gioca n

End If

Next

ScriviResoconto

End
Sub

'----------------------------------------------

Function
PrimaMesePrec(n)

For x = n To n - 35 Step - 1

If Cadenza(Distanza(Mese(n),Mese(x))) = 1 And IndiceMensile(x) = 1 Then

PrimaMesePrec = x

Exit For

End If

Next

End
Function

claudio8 · 5 Dicembre 2011

Cerca di reinviarlo riformattato x che? Cosi' non girera' mai

vinci · 5 Dicembre 2011

Scusate ma da quando c'è questo nuovo forum non riesco più
a fare il copia incolla correttamente. Non so come posso fare,
se qualcuno mi può aiutare a risolvere questo problema.
Grazie

Mike58 · 5 Dicembre 2011

prova

prova

Codice:

Sub Main()
 Dim ruote(1),nu1(2),nu2(2),nu3(4),posta(1),poste(2),post(4)
 posta(1) = 1
 poste(2) = 1
 post(2) = 1
 post(3) = 1
 post(4) = 1
 ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8163) '7025
 k = InputBox("per quanti colpi?","colpi di gioco",9)
 ini = ce
 fin = EstrazioneFin
 Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
 For n = ini To EstrazioneFin
  If IndiceMensile(n) = 1 Or n = 7810 Then
   x = PrimaMesePrec(n)
   Messaggio "elab. estr. [" &(n) & "] di " & DataEstrazione(n,1)
   casi = casi + 1
   Scrivi String(57,"=") & " by maxma62",1
   Scrivi "metodo ducale di f. bubù ( calcolo del mese di " & monthname(Mese(x)) & " " & Anno(x) & " )"
   Scrivi String(68,"-")
   Scrivi " 5° Estratto su Fi della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,3,5) & " ] + 73 / A " 'ambata
   Scrivi " 4° Estratto su Ge della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,4,4) & " ] + 27 / B " 'ambata
   Scrivi " 3° Estratto su Ca della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,2,3) & " ] + 42 / A1 "
   Scrivi " 1° Estratto su Ve della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,10,1) & " ] + 35 / A2 "
   Scrivi " 1° Estratto su Mi della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,5,1) & " ] + 14 / A3 "
   Scrivi " 5° Estratto su Ba della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,1,5) & " ] + 58 / B1 "
   Scrivi " 3° Estratto su Pa della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,7,3) & " ] + 57 / B2 "
   Scrivi " 2° Estratto su Ge della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,4,2) & " ] + 65 / B3 "
   Scrivi " 1° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,1) & " ] + 64 / C "
   Scrivi " 3° Estratto su Pa della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,7,3) & " ] + 40 / D "
   Scrivi " 5° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,5) & " ] + 51 / C2 "
   Scrivi " 4° Estratto su To della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,9,4) & " ] + 9 / D2 "
   Scrivi String(56,"-") & " caso n° " &(casi)
   ruote(1) = 10
   co = 0
   nA = Fuori90(Estratto(x + 1,3,5) + 73)
   nB = Fuori90(Estratto(x + 1,4,4) + 27)
   nA1 = Fuori90(Estratto(x,2,3) + 42)
   nA2 = Fuori90(Estratto(x + 1,10,1) + 35)
   nA3 = Fuori90(Estratto(x + 2,5,1) + 14)
   nB1 = Fuori90(Estratto(x + 1,1,5) + 58)
   nB2 = Fuori90(Estratto(x + 2,7,3) + 57)
   nB3 = Fuori90(Estratto(x + 3,4,2) + 65)
   nC = Fuori90(Estratto(x,4,1) + 64)
   nD = Fuori90(Estratto(x + 1,7,3) + 40)
   nC2 = Fuori90(Estratto(x,4,5) + 51)
   nD2 = Fuori90(Estratto(x + 3,9,4) + 9)
   nu1(1) = nA
   nu1(2) = nB
   co = co + 1
   ImpostaGiocata co,nu1,ruote,posta,k
   nu2(1) = nA
   nu2(2) = nB
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nA1
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nA2
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nA3
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(1) = nB
   nu2(2) = nB1
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nB2
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nB3
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu3(1) = nA
   nu3(2) = nB
   nu3(3) = nC
   nu3(4) = nD
   co = co + 1
   ImpostaGiocata co,nu3,ruote,post,k
   nu3(1) = nA
   nu3(2) = nB
   nu3(3) = nC2
   nu3(4) = nD2
   co = co + 1
   ImpostaGiocata co,nu3,ruote,post,k
   Gioca n
  End If
 Next
 ScriviResoconto
End Sub
'----------------------------------------------
'funzione PrimaMesePrec di rosanna
Function PrimaMesePrec(n)
 For x = n To n - 35 Step - 1
  If Cadenza(Distanza(Mese(n),Mese(x))) = 1 And IndiceMensile(x) = 1 Then
   PrimaMesePrec = x
   Exit For
  End If
 Next
End Function

vediamo

Mike58 · 6 Dicembre 2011

Ciao a tutti, ho seguito le istruzioni del baffo è sembra funzionare dopo 3 tentativi.
Ho fatto l'autoformattazione in spaziometria ed incollato tra l'insert-code# in modalità avanzata.
Anche se!!! con questo code lo script per chi vuole leggerlo dal forum risulta illegibile.
Speriamo lottoced prenda visione della difficoltà di tanti e possa porre rimedio.
Il mio vuole essere un augurio anche se convengo che questo forum può solo migliorare

Un Saluto a tutti.

Baffoblu · 6 Dicembre 2011

Vedete se va meglio

Codice:

Sub Main()
    Dim ruote(1),nu1(2),nu2(2),nu3(4),posta(1),poste(2),post(4)
    posta(1) = 1
    poste(2) = 1
    post(2) = 1
    post(3) = 1
    post(4) = 1
    ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8163) '7025
    k = InputBox("per quanti colpi?","colpi di gioco",9)
    ini = ce
    fin = EstrazioneFin
    Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
    For n = ini To EstrazioneFin
        If IndiceMensile(n) = 1 Or n = 7810 Then
            x = PrimaMesePrec(n)
            Messaggio "elab. estr. [" &(n) & "] di " & DataEstrazione(n,1)
            casi = casi + 1
            Scrivi String(57,"=") & " by maxma62",1
            Scrivi "metodo ducale di f. bubù ( calcolo del mese di " & monthname(Mese(x)) & " " & Anno(x) & " )"
            Scrivi String(68,"-")
            Scrivi " 5° Estratto su Fi della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,3,5) & " ] + 73 / A " 'ambata
            Scrivi " 4° Estratto su Ge della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,4,4) & " ] + 27 / B " 'ambata
            Scrivi " 3° Estratto su Ca della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,2,3) & " ] + 42 / A1 "
            Scrivi " 1° Estratto su Ve della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,10,1) & " ] + 35 / A2 "
            Scrivi " 1° Estratto su Mi della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,5,1) & " ] + 14 / A3 "
            Scrivi " 5° Estratto su Ba della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,1,5) & " ] + 58 / B1 "
            Scrivi " 3° Estratto su Pa della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,7,3) & " ] + 57 / B2 "
            Scrivi " 2° Estratto su Ge della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,4,2) & " ] + 65 / B3 "
            Scrivi " 1° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,1) & " ] + 64 / C "
            Scrivi " 3° Estratto su Pa della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,7,3) & " ] + 40 / D "
            Scrivi " 5° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,5) & " ] + 51 / C2 "
            Scrivi " 4° Estratto su To della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,9,4) & " ] + 9 / D2 "
            Scrivi String(56,"-") & " caso n° " &(casi)
            ruote(1) = 10
            co = 0
            nA = Fuori90(Estratto(x + 1,3,5) + 73)
            nB = Fuori90(Estratto(x + 1,4,4) + 27)
            nA1 = Fuori90(Estratto(x,2,3) + 42)
            nA2 = Fuori90(Estratto(x + 1,10,1) + 35)
            nA3 = Fuori90(Estratto(x + 2,5,1) + 14)
            nB1 = Fuori90(Estratto(x + 1,1,5) + 58)
            nB2 = Fuori90(Estratto(x + 2,7,3) + 57)
            nB3 = Fuori90(Estratto(x + 3,4,2) + 65)
            nC = Fuori90(Estratto(x,4,1) + 64)
            nD = Fuori90(Estratto(x + 1,7,3) + 40)
            nC2 = Fuori90(Estratto(x,4,5) + 51)
            nD2 = Fuori90(Estratto(x + 3,9,4) + 9)
            nu1(1) = nA
            nu1(2) = nB
            co = co + 1
            ImpostaGiocata co,nu1,ruote,posta,k
            nu2(1) = nA
            nu2(2) = nB
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nA1
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nA2
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nA3
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(1) = nB
            nu2(2) = nB1
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nB2
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nB3
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu3(1) = nA
            nu3(2) = nB
            nu3(3) = nC
            nu3(4) = nD
            co = co + 1
            ImpostaGiocata co,nu3,ruote,post,k
            nu3(1) = nA
            nu3(2) = nB
            nu3(3) = nC2
            nu3(4) = nD2
            co = co + 1
            ImpostaGiocata co,nu3,ruote,post,k
            Gioca n
        End If
    Next
    ScriviResoconto
End Sub
'----------------------------------------------
'funzione PrimaMesePrec di rosanna
Function PrimaMesePrec(n)
    For x = n To n - 35 Step - 1
        If Cadenza(Distanza(Mese(n),Mese(x))) = 1 And IndiceMensile(x) = 1 Then
            PrimaMesePrec = x
            Exit For
        End If
    Next
End Function

fillotto · 6 Dicembre 2011

Premetto che manco da una quindicina di giorni, sono riuscito a rimettermi nel nuovo forum ma non riesco a copiare più gli script che è successo??
Forse ancora devo esplorare le novità?
Ho chiuso "Spazio" e riaperto quindi incollato lo script ed è andata....

arcor · 6 Dicembre 2011

ciao ragazzi vi ringrazio tutto ok
grazie baffo

Baffoblu · 6 Dicembre 2011

Non postate gli script a colori,
perchè perdono tutta la formattazione,
e quando si inseriscono in spaziometria,
bisogna lavorarci su anche parecchio,
a secondo dello script.
Usate il code # previsto in modalita avanzata.

o al limite all'inizio dello script mettete :

" parentesi quadra, code , parentesi quadra ".

alla fine dello script, invece mettete :

" parentesi quadra, /code, parentesi quadra "

Cerca

Cerca

metodo con richiesta script

arcor

Advanced Member

vinci

Super Member >GOLD<

claudio8

Premium Member

vinci

Super Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

fillotto

Advanced Member >PLATINUM<

arcor

Advanced Member

Baffoblu

Guest

Ultima estrazione Lotto

Ultimi Messaggi