SOMMATIVO CON SPIA

Rispondi
Avatar utente
Tatoo64
Site Admin
Messaggi: 3892
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

SOMMATIVO CON SPIA

Messaggio da Tatoo64 » 24/04/2014, 17:09

QUESTO METODO E' SEMPLICISSIMO SONO DUE TECNICHE CHE SI UNISCONO, SOMMATIVO E SPIA: SI SOMMA IL 5° DI VE E IL 1° DELLA NAZIONALE IL NUMERO CHE NE FUORI ESCE E' UN AMBATA DA GIOCARE A VE E NZ A CHI PIACCIONO I DETERMINATI LE POSIZIONI SONO 3° E 4°, IL GIOCO E' A COLPO QUESTO PERCHE' LA SECONDA PARTE DEL METODO SI BASA PROPRIO SULL'USCITA A COLPO DELL'AMBATA.
NEL CASO NON ESCA A COLPO SI CHIUDE E SI PASSA ALL'ESTRAZIONE SUCCESSIVA.

NEL CASO L'AMBATA ESCE A COLPO ALLORA SI INIZIA IL GIOCO PER AMBO, CERCATE LA POSIZIONE IN CUI ESCE L'AMBATA E PRENDETE I TRE NUMERI SOPRA L'AMBATA A SX AL CENTRO E A DX QUESTI SARANNO GLI ABBINAMENTI I QUALI VERRANNO GIOCATI ANCHE COME TERZINA PER AMBO.

ES: 03-04-2014

VE 26 + NZ 11 = 37

ESTRAZIONE DEL 05-04-2013 VE 37 IN 3° POSIZIONE, NELL'ESTRAZIONE PRECEDENTE ISOTOPO TROVIAMO 87, A SX 31 E A DX 85.
PREVISIONE

NZ
AMBI
37-87
37-31
37-85

TERZINA PER AMBO
87-31-85

ESITO AL 7° COLPO AMBO IN TERZINA 31-85 SULLA NAZIONALE.

P.S.
SE L'AMBATA ESCE A VE, GIOCARE SULLA NAZIONALE E VICEVERSA, PER CHI PUO' CONSIGLIO DI COPRIRE TUTTE E DUE LE RUOTE.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 596
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: SOMMATIVO CON SPIA

Messaggio da DjNomade » 26/04/2014, 1:12

Mi ha incuriosito e ho voluto provarci....

Codice: Seleziona tutto

 ColoreTesto 2 :Scrivi String(37,32)&"SOMMATIVO CON SPIA...X TATOO64",1


 Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0


Sub main()
Dim posta(10), poste(5), poste1(5) 
Dim ruote(5) 
Dim am(10),am1(10),am2(3) 
posta(1)=1 
posta(8)=1 
posta(9)=1 
poste(2)=1 
poste1(2)=1 
poste1(3)=1 
casi=0 
k=13
fin=EstrazioneFin 
ini=EstrazioneFin-30
For es=ini To fin 
'If IndiceMensile(es)=1 Then 

a=Estratto(es,10,5) 
b=Estratto(es,12,1) 
c=Fuori90(a+b)
 ColoreTesto 2 :Scrivi "--------------------------------------------------------",1
 ColoreTesto 0 :Scrivi " "&Left(SiglaRuota(10),9)&" "&Cint(a)&"  "&(5)&"° estratto ",1
 ColoreTesto 0 :Scrivi " "&Left(SiglaRuota(12),9)&" "&Cint(b)&"  "&(1)&"° estratto ",1

r1=10 
r2=12 

ruote(1)=r1 
ruote(2)=r2 
am(1)=c

ImpostaGiocata 1,am,ruote,posta,1,1 
Gioca es 

If Posizione(es+1,r1,c)>0 Or Posizione(es+1,r2,c)>0 Then
If Posizione(es+1,r1,c)>0  Then p=Posizione(es+1,r1,c):d=Estratto (es,r1,p):e=Estratto (es,r1,p+1):f=Estratto (es,r1,p-1)
If Posizione(es+1,r1,c)>0 And  p=5 Then p=Posizione(es+1,r1,c):d=Estratto (es,r1,p):e=Estratto (es,r1,p-2):f=Estratto (es,r1,p-1)
If Posizione(es+1,r1,c)>0 And  p=1 Then p=Posizione(es+1,r1,c):d=Estratto (es,r1,p):e=Estratto (es,r1,p+1):f=Estratto (es,r1,p+2)

If Posizione(es+1,r2,c)>0  Then p=Posizione(es+1,r2,c):d=Estratto (es,r2,p):e=Estratto (es,r2,p+1):f=Estratto (es,r2,p-1)
If Posizione(es+1,r2,c)>0 And  p=5 Then p=Posizione(es+1,r2,c):d=Estratto (es,r2,p):e=Estratto (es,r2,p-2):f=Estratto (es,r2,p-1)
If Posizione(es+1,r2,c)>0 And  p=1 Then p=Posizione(es+1,r2,c):d=Estratto (es,r2,p):e=Estratto (es,r2,p+1):f=Estratto (es,r2,p+2)
am1(1)=c
am1(2)=d
ImpostaGiocata 2,am1,ruote,poste,k,3
am1(1)=c
am1(2)=e
ImpostaGiocata 3,am1,ruote,poste,k,3
am1(1)=c
am1(2)=f
ImpostaGiocata 4,am1,ruote,poste,k,3

am2(1)=d
am2(2)=e
am2(3)=f
ImpostaGiocata 5,am2,ruote,poste1,k,3
Gioca es+1 

casi=casi+1 
End If 

Next 
Scrivi 
Scrivi 
Scrivi "Numero Totale mesi analizzati : "&Cint(casi) 
ScriviResoconto 
ColoreTesto 2 :Scrivi String(37,32)&"SOMMATIVO CON SPIA...X TATOO64",1


 Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
End Sub 

Avatar utente
Tatoo64
Site Admin
Messaggi: 3892
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: SOMMATIVO CON SPIA

Messaggio da Tatoo64 » 26/04/2014, 12:29

Grazie Djnomade come sempre impeccabile. Cerchiamo di migliorarlo.

Quando non si verifica la condizione dell'ambata a colpo lo script non deve segnalare e tenere conto della previsione negativa.

Nei casi in cui l'ambata scaturisce in 1° posizione sulla NAZIONALE non potendo prendere il numero superiore a sx, si prende il numero sulla dx vicino all'ambata.
Nei casi in cui l'ambata scaturisce in 1° posizione a VENEZIA come numero superiore a sx si prende il 5° di TORINO.

Nei casi in cui l'ambata scaturisce in 5° posizione sulla NAZIONALE non potendo prendere il numero superiore a dx, si prende il numero sulla sx vicino all'ambata.
Nei casi in cui l'ambata scaturisce in 5° posizione a VENEZIA come numero superiore a sx si prende il 5° della NAZIONALE.

Mi sa che con questo ti faccio lavorare parecchio.

:dent:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 596
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: SOMMATIVO CON SPIA

Messaggio da DjNomade » 26/04/2014, 20:12

VEDI UN PO' SE HO CAPITO BENE.......


Codice: Seleziona tutto

     ColoreTesto 2 :Scrivi String(37,32)&"SOMMATIVO CON SPIA...X TATOO64",1


     Scrivi String(47,32)&"by DjNomade",1
    ColoreTesto 0


    Sub main()
    Dim posta(10), poste(5), poste1(5)
    Dim ruote(5)
    Dim am(10),am1(10),am2(3)
    posta(1)=1
    posta(8)=1
    posta(9)=1
    poste(2)=1
    poste1(2)=1
    poste1(3)=1
    casi=0
    k=13
    fin=EstrazioneFin
    ini=EstrazioneFin-30
    For es=ini To fin
    'If IndiceMensile(es)=1 Then

    a=Estratto(es,10,5)
    b=Estratto(es,12,1)
    c=Fuori90(a+b)

    r1=10
    r2=12

    ruote(1)=r1
    ruote(2)=r2
    am(1)=c

   ' ImpostaGiocata 1,am,ruote,posta,1,1
   ' Gioca es

    If Posizione(es+1,r1,c)>0 Or Posizione(es+1,r2,c)>0 Then
    If Posizione(es+1,r1,c)>0  Then p=Posizione(es+1,r1,c):d=Estratto (es,r1,p):e=Estratto (es,r1,p+1):f=Estratto (es,r1,p-1)
    If Posizione(es+1,r1,c)>0 And  p=5 Then p=Posizione(es+1,r1,c):d=Estratto (es,r1,p):e=Estratto (es,r1,p-1):f=Estratto (es,r1+2,p)''ambata in 5° posizione a VENEZIA 
    If Posizione(es+1,r1,c)>0 And  p=1 Then p=Posizione(es+1,r1,c):d=Estratto (es,r1,p):e=Estratto (es,r1,p+1):f=Estratto (es,r1-1,p+4)'ambata in 1° posizione a VENEZIA 

    If Posizione(es+1,r2,c)>0  Then p=Posizione(es+1,r2,c):d=Estratto (es,r2,p):e=Estratto (es,r2,p+1):f=Estratto (es,r2,p-1)
    If Posizione(es+1,r2,c)>0 And  p=5 Then p=Posizione(es+1,r2,c):d=Estratto (es,r2,p):e=Estratto (es,r2,p-1):f=Estratto (es+1,r2,p-1)'ambata in 5° posizione NAZIONALE 
    If Posizione(es+1,r2,c)>0 And  p=1 Then p=Posizione(es+1,r2,c):d=Estratto (es,r2,p):e=Estratto (es,r2,p+1):f=Estratto (es+1,r2,p+1)'ambata in 1° posizione NAZIONALE 
        ColoreTesto 2 :Scrivi "--------------------------------------------------------",1
     ColoreTesto 0 :Scrivi DataEstrazione(es,1),1
     ColoreTesto 0 :Scrivi " "&Left(SiglaRuota(10),9)&" "&Cint(a)&"  "&(5)&"° estratto ",1
     ColoreTesto 0 :Scrivi " "&Left(SiglaRuota(12),9)&" "&Cint(b)&"  "&(1)&"° estratto ",1
     ColoreTesto 0 :Scrivi "NUMERO SOMMATIVO SPIA "&Format2(c),1
     Scrivi
    am1(1)=c
    am1(2)=d
    ImpostaGiocata 2,am1,ruote,poste,k,3
    am1(1)=c
    am1(2)=e
    ImpostaGiocata 3,am1,ruote,poste,k,3
    am1(1)=c
    am1(2)=f
    ImpostaGiocata 4,am1,ruote,poste,k,3

    am2(1)=d
    am2(2)=e
    am2(3)=f
    ImpostaGiocata 5,am2,ruote,poste1,k,3
    Gioca es+1

    casi=casi+1
    End If

    Next
    Scrivi
    Scrivi
    Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
    ScriviResoconto
    ColoreTesto 2 :Scrivi String(37,32)&"SOMMATIVO CON SPIA...X TATOO64",1


     Scrivi String(47,32)&"by DjNomade",1
    ColoreTesto 0
    End Sub 

Avatar utente
Tatoo64
Site Admin
Messaggi: 3892
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: SOMMATIVO CON SPIA

Messaggio da Tatoo64 » 26/04/2014, 23:05

OTTIMO DJNOMADE BRAVO E GRAZIE ORA SPERIAMO DI RIUSCIRE A PRENDERE QUALCOSA................ :su:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 3 ospiti