Script per metodo di Rob

[marpioncella]

Salve a tutti i grandi scriptomani,
non so se in passato qualcuno ha creato il listato del metodo sommativo di Rob spia 79 a Bari per cui chiedo gentilmente se qualcuno lo ha già creato di postarlo. In caso negativo chiederei se ci fosse qualche volenteroso che possa farlo al fine di verificare eventuali vincite passate prima del 2011. A tal fine scrivo di seguito il metodo:
"Bari=spia 79 BIS <-------- 100% AMBO-SECCO E 100% TERNO-SECCO!!!!!!!!!! Di Rob
Metodo Spia
Data inizio Ricerca: 28/12/2010
Data fine Ricerca: 29/12/2011
Condizione di gioco: sortita numero 79
Ruota/e di ricerca condizione: Ba
Ruota/e di Gioco: Ba Ca
Colpi di Gioco: 5
Calcolo Capogioco:
Capogioco: 1° Ba + 73

Calcolo Abbinamenti per ambo:
Abbinamento 1: 1° Fi X 53
Abbinamento 2: 3° Na - 5° Ca

Calcolo Abbinamenti per terno:
Abbinamento 1: 4° Ro + 41
Abbinamento 2: 3° Ba + 5°Ge
Abbinamento 3: 1° Ba X 4°To

Chiedo poi gentilmente, non avendo trovato o capito se in spaziometria vi è un costruttore di metodi, se qualcuno ha fatto un listato apposito per potere effettuare detti calcoli e verifiche.
Grazie a chi volesse aiutarmi.
Marpi

p.s.dal link postato non mi si apre più la pagina che porta alla guida di spaziometria di Baffoblù

 

[Mike58]

spia 79 Bari Listato

spia 79 Bari Listato

Ciao Marpi, ho visto che ci sono un pò di richieste per questo script e dato che la spia risulta appena uscita eccovi lo script.
La giocata è in lunghetta di sestina se volete il gioco sviluppato come da metodo togliete la spunta ai codici con l'apice.

Ciao Mike58

Sub Main()
 'by rob spia 79 x terno
 Dim aruo(2)
 Dim aposte(3),posta(1)
 posta(1) = 10 'x ambata
 aposte(2) = 1.5 'x ambo
 aposte(3) = 0.5 'x terno
 Dim anum(10)
 r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
 spia = CInt(InputBox("QUALE NUMERO SPIA?",,79))
 ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,320))
 clp = CInt(InputBox("QUANTI COLPI?",,9))
 co = 0' contatore
 fin = EstrazioneFin
 ini = EstrazioneFin - ee
 For es = ini To fin
  If Posizione(es,r,spia) > 0 Then
   anum(1) = Fuori90(Estratto(es,BA_,1) + 73)
   anum(2) = Fuori90(Estratto(es,FI_,1)*53)
   anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
   anum(4) = Fuori90(Estratto(es,RO_,4) + 41)
   anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5))
   anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
   a1 = anum(1)
   a2 = anum(2)
   a3 = anum(3)
   a4 = anum(4)
   a5 = anum(5)
   a6 = anum(6)
   'ambo1 = Array(a1,a2,a3)
   'ambo2 = Array(a1,a2,a4)
   'ambo3 = Array(a1,a3,a4)
   'ambo4 = Array(a1,a2,a5)
   'ambo5 = Array(a1,a2,a6)
   'ambo6 = Array(a1,a3,a4)
   'ambo7 = Array(a1,a3,a5)
   'ambo8 = Array(a1,a3,a6)
   lunghetta = Array(a1,a2,a3,a4,a5,a6)
   aruo(1) = BA_
   aruo(2) = CA_
   co = co + 1
   ColoreTesto 7
   Scrivi "Caso n°: " & CInt(co),1,0
   ColoreTesto 1
   Scrivi "  - NUMERO SPIA " & CInt(spia) & " su " & NomeRuota(r) & " in data  " & DataEstrazione(es),1
   ColoreTesto 0
   'For xx = 1 To 9
   'For xxx = 1 To 9
   'ImpostaGiocata 1,ambo1,aruo,aposte,clp,2
   'ImpostaGiocata 2,ambo2,aruo,aposte,clp,2
   'ImpostaGiocata 3,ambo3,aruo,aposte,clp,2
   'ImpostaGiocata 4,ambo4,aruo,aposte,clp,2
   'ImpostaGiocata 5,ambo5,aruo,aposte,clp,2
   'ImpostaGiocata 6,ambo6,aruo,aposte,clp,2
   'ImpostaGiocata 7,ambo7,aruo,aposte,clp,2
   Scrivi String(130,"=")
   ImpostaGiocata 8,lunghetta,aruo,aposte,clp,2
   'ImpostaInterruzioni xx,xxx,3
   'Next:Next
   Gioca es,,,1
  End If
 Next
 Scrivi "   RESOCONTO TOTALE  GIOCATE   ",1,- 1,4
 ScriviResoconto
End Sub

 

[marpioncella]

Grazie per la cortesia e la celerità Mike 58, ho visto che il metodo funziona sina dal 2010 anche per ambi in lunghetta anche se il 2011 è stato l'anno del batter cassa potendolo avere avuto prima. Non ho comunque capito quando dici di togliere la spunta ai codici con l'apice puoi farmi un esempio. Scusa l'ignoranza.
Grazie ancora
Marpi

 

[Mike58]

OK Marpi, ci sono le giocate divise in terzine per ambo e terno basta solo spuntare l'apice ossia togliere il segno ' nei codici che appaiono in verde cosi facendo diventano attivi.

'For xx = 1 To 9
'For xxx = 1 To 9
'ImpostaGiocata 1,ambo1,aruo,aposte,clp,2
'ImpostaGiocata 2,ambo2,aruo,aposte,clp,2
'ImpostaGiocata 3,ambo3,aruo,aposte,clp,2
'ImpostaGiocata 4,ambo4,aruo,aposte,clp,2
'ImpostaGiocata 5,ambo5,aruo,aposte,clp,2
'ImpostaGiocata 6,ambo6,aruo,aposte,clp,2
'ImpostaGiocata 7,ambo7,aruo,aposte,clp,2
Scrivi String(130,"=")
ImpostaGiocata 8,lunghetta,aruo,aposte,clp,2
'ImpostaInterruzioni xx,xxx,3
'Next:Next


ciao Mike58

 

[rosce14]

ciao mike58,
hai lo script della spia 44 su ba di rob?

Se si puoi postarlo?

Grazie e buona notte.

 

[edesimone]

Per Rosce14
potrebbe essere questo

Sub Main()
Dim aruo(2)
Dim aposte(3)
'aposte(1) = 10 'x ambata
aposte(2) = 1 'x ambo
aposte(3) = 1 'x terno
Dim anum(10)
r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
spia = CInt(InputBox("QUALE NUMERO SPIA?",,44))
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,160))
clp = CInt(InputBox("QUANTI COLPI?",,9))
co = 0' contatore
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
anum(1) = Fuori90(Estratto(es,CA_,1) + 53)
anum(2) = Fuori90(Estratto(es,BA_,2) + 43)
anum(3) = Fuori90(Estratto(es,FI_,2) * 23)
anum(4) = Fuori90(90 + Estratto(es,FI_,4) - 33)
anum(5) = Fuori90(90 + Estratto(es,TO_,2) - Estratto(es,CA_,3))
aruo(1) = BA_
aruo(2) = CA_
co = co + 1
Scrivi
Scrivi "Caso n°: " & CInt(co),1
Scrivi "NUMERO SPIA " & CInt(spia) & " su " & NomeRuota(r) & " in data " & DataEstrazione(es),1
ImpostaGiocata 1,anum,aruo,aposte,clp
Gioca es
End If
Next
ScriviResoconto
End Sub

 

[Mike58]

Spia 44

Spia 44

Ecco anche la mia versione della spia 44 è uguale per confrema a quella di Edesimone con l'aggiunta dei rendiconti parziali e progressivi.

Ciao Un Saluto a tutti amici e amiche del forum.
Mike58

Sub Main()
 'by rob spia 44 x terno
 Dim aruo(2)
 Dim aposte(3)
 'aposte(1) = 10 'x ambata
 aposte(2) = 9 'x ambo
 aposte(3) = 1 'x terno
 Dim anum(10)
 r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
 spia = CInt(InputBox("QUALE NUMERO SPIA?",,44))
 ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,160))
 clp = CInt(InputBox("QUANTI COLPI?",,9))
 co = 0' contatore
 fin = EstrazioneFin
 ini = EstrazioneFin - ee
 Scrivi"                Spia 44 Metodo by Rob                   ",1,- 1,3
 For es = ini To fin
  If Posizione(es,r,spia) > 0 Then
   anum(1) = Fuori90((Estratto(es,CA_,1) + 53))
   anum(2) = Fuori90((Estratto(es,BA_,2) + 43))
   anum(3) = Fuori90((Estratto(es,FI_,2)*23))
   anum(4) = Fuori90(90 +(Estratto(es,FI_,4) - 33))
   anum(5) = Fuori90(90 +(Estratto(es,TO_,2) -(Estratto(es,CA_,3))))
   aruo(1) = BA_
   aruo(2) = CA_
   co = co + 1
   Scrivi
   Scrivi String(100,"=") & " Caso n°: " & CInt(co),1
   Scrivi "NUMERO SPIA " & CInt(spia) & " su " & NomeRuota(r) & " in data  " & DataEstrazione(es),1
   Scrivi String(100,"-")
   ImpostaGiocata 1,anum,aruo,aposte,clp,2
   Gioca es,,,1
   Scrivi"    Resoconto parziale       ",1,- 1,3
   Scrivi"Spesa      : " & GetSpesa(True)
   Scrivi"Vincita    : " & GetVincita(True)
   If GetGuadagno(True) > 0 Then
    Scrivi"Guadagno   : " & GetGuadagno(True),0,0
    ColoreTesto 2
    Scrivi" - Giocata in attivo ",1
   Else
    ColoreTesto 1
    Scrivi"Guadagno   : " & GetGuadagno(True) & " - Giocata in negativo ",1
   End If
   ColoreTesto 0
   Scrivi"    Resoconto progressivo    ",1,- 1,3
   Scrivi"Spesa      : " & GetSpesa(False)
   Scrivi"Vincita    : " & GetVincita(False)
   Scrivi"Guadagno   : " & GetGuadagno(False)
  End If
 Next
 ScriviResoconto
End Sub

 

[rosce14]

grazie mike58 ed edesimone, siete stati gentilissimi.

Buona serata e .......................fortuna

 

[belladiva]

potete postre il metodo 44 cosi come questo? non so cosa sono gli script

grazie

 

[Mike58]

Ciao Diva, non sai cosa ti perdi a non utilizzare gli script, basta poco il programma free spaziometria scaricabile da questa area download e copiare ed incollare i listati che tanti come me postano nella sezione gestione script e premere il pulsante esegui!!!. ed il risultato è stampato a video come nell'esempio sotto della ultima spia 44.
Poi capisco che per chi vede i listati per la prima volta dice ma cosa sono e cosa fanno però credi c'è un mondo nuovo da sperimentare.

P.s. la spiegazione del metodo si trova nel post iniziale.

Ciao Mike58



==================================================================================================== Caso n°: 14
NUMERO SPIA 44 su Bari in data 07.06.2012
----------------------------------------------------------------------------------------------------
Estrazione generatrice del pronostico 08545 [ 68 - 07/06/2012]
G 0001
Numeri in gioco : 85.21.16.37.70 su BA CA per Ambo,Terno
N. [85.21.16.37.70 ] [BA] [37 .. .. .. ..] C. 1 Estratto 08546 [ 69 - 09/06/2012] [37.20.51.50.79]
N. [85.21.16.37.70 ] [CA] [.. .. .. .. ..] C. 1 08546 [ 69 - 09/06/2012] [86.09.41.62.51]

In corso per altre 8 estrazioni
Resoconto parziale
Spesa : 20
Vincita : 0
Guadagno : -20 - Giocata in negativo
Resoconto progressivo
Spesa : 1460
Vincita : 5076
Guadagno : 3616

 

[Mike58]

script in tabella

script in tabella

Ciao Amici ed Amiche del forum vi posto lo stesso script della spia 79 su bari con una nuova visione grafica giusto per avere più sotto occhio la statistica immediata del metodo.
PROVATELO.....

Spero sia gradito.

Un saluto
Mike58

Sub Main()
 Dim ru(1),posta(10),anum(10),nu(5),aruo(2)
 r1 = CInt(InputBox("1°RUOTA DI RICERCA?",,1))
 SP = CInt(InputBox("Quale spia ",,79))
 
 dett = InputBox("Vuoi vedere il DETTAGLIO... 1=SI  2=NO",,2)
 Scrivi "Ruota di " & NomeRuota(r1) & " - SPIA 79 metodo by ROB    ****  listato in tabella by Mike58  **** ",1,- 1,3
 Scrivi
 ru(1) = r1
 
 posta(2) = 9
 posta(3) = 1
 fin = EstrazioneFin
 ini = fin - 300
 ReDim atitoli(19)
 atitoli(1) = " DATA ESTR. "
 atitoli(2) = " ESTRAZ PREC "
 atitoli(3) = " 1° ESTR."
 atitoli(4) = " ESITO "
 
 atitoli(6) = " STRINGA ESITO"
 atitoli(7) = "N° Colpi"
 
 atitoli(13) = " NUMERI IN GIOCO "
 atitoli(14) = " RUOTA DI " & NomeRuota(r1)
 atitoli(15) = "  SPESA  "
 atitoli(16) = " VINCITA "
 atitoli(17) = " UTILE "
 atitoli(18) = " Data esito "
 atitoli(19) = " Utile prog "
 Call InitTabella(atitoli,1,,2,5)
 
 For es = ini To fin
  If Posizione(es,r1,sp) > 0 Then
   
   Messaggio es
   AvanzamentoElab Ini,fin,es
   
   anum(1) = Fuori90(Estratto(es,BA_,1) + 73)
   anum(2) = Fuori90(Estratto(es,FI_,1)*53)
   anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
   anum(4) = Fuori90(Estratto(es,RO_,4) + 41)
   anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5))
   anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
   a1 = anum(1)
   a2 = anum(2)
   a3 = anum(3)
   a4 = anum(4)
   a5 = anum(5)
   a6 = anum(6)
   aruo(1) = BA_
   aruo(2) = CA_
   
   Call VerificaEsito(anum,aruo,es + 1,2,11,,retesito,retcolpi,retestratti,retidestr)
   ReDim avalori(19)
   avalori(1) = DataEstrazione(es)
   avalori(2) = StringaEstratti(es,r1)
   avalori(3) = SP
   avalori(4) = retesito
   
   avalori(6) = retestratti
   avalori(7) = retcolpi & "°"
   If retcolpi = 1 Then retcolpi1 = retcolpi1 + 1
   If retcolpi = 2 Then retcolpi2 = retcolpi2 + 1
   If retcolpi = 3 Then retcolpi3 = retcolpi3 + 1
   If retcolpi = 4 Then retcolpi4 = retcolpi4 + 1
   If retcolpi = 5 Then retcolpi5 = retcolpi5 + 1
   If retcolpi = 6 Then retcolpi6 = retcolpi6 + 1
   If retcolpi = 7 Then retcolpi7 = retcolpi7 + 1
   If retcolpi = 8 Then retcolpi8 = retcolpi8 + 1
   If retcolpi = 9 Then retcolpi9 = retcolpi9 + 1
   If retcolpi = 10 Then retcolpi10 = retcolpi10 + 1
   If retcolpi >= 11 Then retcolpi11 = retcolpi11 + 1
   If retcolpi > 0 Then retcolpitot = retcolpitot + 1
   
   avalori(13) = StringaNumeri(anum)
   avalori(14) = StringaEstratti(retidestr,r1)
   If retcolpi >= 11 Then
    avalori(15) =(posta(2) + posta(3))*retcolpi -(posta(2) + posta(3))*2
   Else
    avalori(15) =(posta(2) + posta(3))*retcolpi*2
   End If
   sm = sm + avalori(15)
   If retcolpi < 11 Then
    If retesito = "Ambo" Then avalori(16) = Vincita(2,6)* posta(2) * 0.94
    If retesito = "Terno" Then avalori(16) = Vincita(3,6)* posta(3) * 0.94 +(Vincita(2,6)*3)* posta(2) * 0.94
   End If
   If retcolpi > 10 Then avalori(16) = 0
   
   sv = sv + avalori(16)
   
   avalori(17) = Int(avalori(16) - avalori(15))
   su = su + avalori(17)
   avalori(18) = DataEstrazione(es + retcolpi)
   avalori(19) = su 
   Call AddRigaTabella(avalori,,,2)
   
   Call SetColoreCella(5,,7)
   Call SetColoreCella(6,,2)
   Call SetColoreCella(7,,1)
   Call SetColoreCella(8,,7)
   Call SetColoreCella(9,,7)
   Call SetColoreCella(10,,7)
   Call SetColoreCella(11,,7)
   Call SetColoreCella(12,,7)
   Call SetColoreCella(14,,1)
   If avalori(17) < 0 Then Call SetColoreCella(17,,2)
   If retesito = "Estratto" Then
    Totali = Totali + 1
   End If
   If retesito = "Ambo" Then
    Totambi = Totambi + 1
    Call SetColoreCella(4,vbMagenta)
   End If
   If retesito = "Terno" Then
    Call SetColoreCella(4,vbGreen)
    Totterni = Totterni + 1
   End If
   Totspesa = Totspesa + 1
   If avalori(19) < 0 Then Call SetColoreCella(19,,2)
  End If
 Next
 ReDim avalori(19)
 avalori(1) = "Totali "
 avalori(2) = "  "
 avalori(4) = Totali
 avalori(5) = "  "
 avalori(8) = ev1
 avalori(9) = ev2
 avalori(10) = ev3
 avalori(11) = ev4
 avalori(12) = ev5
 avalori(14) = "Totali..."
 avalori(15) = sm
 avalori(16) = sv
 avalori(17) = su
 avalori(18) = " Rend%"
 rend = avalori(16) / avalori(15) * 100
 avalori(19) = Int(rend) & "%"
 Call AddRigaTabella(avalori,vbGreen,,3)
 ReDim avalori(19)
 avalori(1) = "Tot. Ambi  "
 avalori(2) = "  "
 avalori(4) = Totambi
 
 Call AddRigaTabella(avalori,vbRed,,3)
 ReDim avalori(19)
 avalori(1) = "Tot.Terni  "
 avalori(2) = "  "
 avalori(4) = Totterni
 
 Call AddRigaTabella(avalori,vbMagenta,,3)
 CreaTabella
 Scrivi"Casi e colpi..... "
 ReDim atitoli(14)
 atitoli(1) = " Colpo 1 "
 atitoli(2) = " Colpo 2 "
 atitoli(3) = " Colpo 3 "
 atitoli(4) = " Colpo 4 "
 atitoli(5) = " Colpo 5 "
 atitoli(6) = " Colpo 6 "
 atitoli(7) = " Colpo 7 "
 atitoli(8) = " Colpo 8 "
 atitoli(9) = " Colpo 9 "
 atitoli(10) = " Colpo 10 "
 atitoli(11) = " Colpi Negativi "
 atitoli(12) = " Casi Totali "
 atitoli(13) = " Casi Positivi "
 atitoli(14) = " Rendimento % "
 Call InitTabella(atitoli,1,,2,4)
 ReDim avalori(14)
 avalori(1) = retcolpi1
 avalori(2) = retcolpi2
 avalori(3) = retcolpi3
 avalori(4) = retcolpi4
 avalori(5) = retcolpi5
 avalori(6) = retcolpi6
 avalori(7) = retcolpi7
 avalori(8) = retcolpi8
 avalori(9) = retcolpi9
 avalori(10) = retcolpi10
 avalori(11) = retcolpi11
 avalori(12) = retcolpiTot
 avalori(13) = avalori(12) - avalori(11)
 rend = avalori(13) / avalori(12) * 100
 avalori(14) = Int(rend) & "%"
 Call AddRigaTabella(avalori,4,,3)
 Call SetColoreCella(13,4,2)
 Call SetColoreCella(12,4,7)
 
 CreaTabella
 If dett = 1 Then
  Scrivi"---------------------------- DETTAGLIO GIOCATE ----------------------------------------"
  For es = Ini To fin
   If Posizione(es,r1,sp) > 0 Then
    nu(1) = Estratto(es,r1,1)
    aruo(1) = BA_
    aruo(2) = CA_
    
    anum(1) = Fuori90(Estratto(es,BA_,1) + 73)
    anum(2) = Fuori90(Estratto(es,FI_,1)*53)
    anum(3) = Fuori90(90 + Estratto(es,NA_,3) - Estratto(es,CA_,5))
    anum(4) = Fuori90(Estratto(es,RO_,4) + 41)
    anum(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,GE_,5))
    anum(6) = Fuori90(Estratto(es,BA_,1) * Estratto(es,TO_,4))
    ImpostaGiocata 1,anum,aruo,posta,10,2
    gs = GetSpesa(True)
    gv = GetVincita(True)
    gg = GetGuadagno(True)
    Scrivi String(125,"="),1
    Gioca es,,,1
    gs = GetSpesa(True)
    gv = GetVincita(True)
    gg = GetGuadagno(True)
    Scrivi"Spesa Parziale....." & gs
    Scrivi"Vincite Parziale..." & gv
    Scrivi"Guadagno Parziale.." & gg
   End If
  Next
  ScriviResoconto
 End If
 If dett = 2 Then
  TestoInBandaPassante(" Listed by Mike58 "),1,3,0
 End If
End Sub

 

[fillotto]

Da Mike58...... "Spero sia gradito."
Gradito, gradito , a me personalmente piace il tuo modo di "Tabellare" saluti fill

 

[edesimone]

Un saluto mike58

la nuova visione grafica è interessante, se mi permetti di darti un suggerimento,

io toglierei stringa esiti, metterei ruota di bari e ruota di cagliari con le rispettive estrazioni,

quando si verifica un esito evidenzierei con colore, credo di interpretare che il gioco è su bari e cagliari.

Esempio se esce dopo la spia 79 l'ambo 1 e 2 a bari e 3 e 4 a cagliari nelle rispettive estrazioni questi due ambi

li puoi evidenziare con il rosso.

Naturalmente è un mio consiglio personale.

 

[Mike58]

Ciao Fill e ede, mi fa piacere l'apprezzamento era solo una nuova idea per tabellare i metodi e per avere la visione grafica immediata.
Con Fillotto abbiamo già sperimentato qualcosa di simile e a quanto vedo ci siamo capiti sul intento e fine che possiamo raggiungere.
Per Edesimone dico che molte cose si possono fare e altre invece No, la stringa esito è il cuore della tabella e non si può non farla vedere.
Mentre per le estrazioni dell' esito di riferimento in questo caso c'è solo la ruota di bari devo vedere come far scrivere anche la 2° ruota (CA) senza evidenziarla in rosso perchè non riesco oppure ci vogliono un insieme di if then.
Lo script è un adattamento di altro script ed è stato compilato come esempio ed è chiaro che va corretto ad ok e per questo che i suggerimenti validi sono ben accetti.

Ciao
Mike58

 

[edesimone]

Grazie mike58

il mio era solo un punto di visione personale,

quello di far scrivere anche la 2° ruota (CA)

sicuramente da quel tocco completo al listato