Completare Listato

[Xeroxs]

Buongiorno a Tutti Voi,

Volevo innanzitutto RingraziarVi per gli aiuti che mi avete offerto fino ad oggi,

Ho creato un listato di un metodo che un amico mi ha passato, trovato su youtube e che volevo condividere con Voi visto che nei 5 mesi trascorsi ha sempre dato ambo su Ruota con ambata entro i 7 colpi, ma volevo completarlo come da descrizione ma non so come fare ad aggiungere l'esito che mi occorre, ovvero devo aggiungere i fissi 78 ed 81 che aggiunti all'ambata ed agli abbinamenti devono formare una cinquina da giocare per terno e quaterna, ciò che vorrei creare e la sola cinquina per terno e quaterna e non le due quartine,
Tradotto per l'estrazione in corso
ambata 12
ambo 12-66
ambo 12-75
lunghetta o cinquina 12-66-75-78-81
che di fatto negli scorsi mesi ha dato anche i Terni
Spero che qualcuno mi possa aiutare condividendo cosi anche un metodo al momento positivo sperando che la scia continui in questi sei colpi che mancano.

Questo è il listato

Sub Main()
Dim ruote(2)
Dim ambata(1): Dim ambo(2) : Dim poste(2) : Dim postee(4)
poste(1) = 1
postee(3) = 1
'------- nuovo ------------------
Dim posta(2),num(3)
poste(1) = 1
posta(2) = 1
postee(3) = 1
ruote(1) = 1
ruote(2) = 5
'------------Intestazione----------------
Scrivi String(38," ")&"****** Metodo Bari-Milano ****** ",1
Scrivi String(42," ")&"****** By Xeroxs ****** ",1
Scrivi
ColoreTesto 1
'------------abbinamenti x ambo------
klp = 7
ini = 9710
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 4 Then
AvanzamentoElab ini,fin,es
'..................giocata x ambata.............
ambata(1) = Abs(Estratto(es,2,3) - Estratto(es,7,5))
'.......................giocata x ambo.....................
ambo(1) = 66
ambo(2) = 75
num(1) = ambata(1) : num(2) = ambo(1) : num(3) = ambo(2)
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "Test",1
ColoreTesto 1:Scrivi DataEstrazione(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile" & Chr(10) & _
"Ambata " & Format2(ambata(1)) & " Abb. " & Format2(ambo(1)) & "." & Format2(ambo(2)),1
ColoreTesto 0
ImpostaGiocata 1,ambata,ruote,poste,klp 'se tolgo il numero mi visualizza fino a 7 estr.
ImpostaGiocata 2,num,ruote,posta,klp'se metto il numero si ferma al primo esito positivo.
Gioca es
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub


Grazie come Sempre

 

[Xeroxs]

Un osservazione sul metodo gli ambi vanno giocati singolarmente, ma non mi è riuscito lo scorporo, ovvio che gli esti sono migliori

 

[druid]

Ciao Xeroxs,
passami la definizione, ma "non capisco la difficolta' di generare la cinquina"?
Visto che devi inserire altri due numeri fissi, basta creare una nuova variabile, ad esempio cin e gli assegni i valori num a es. cin(1) = num(1) e cosi' via e poi assegni gli altri due fissi cin(4)= .... e cin(5)=..., in ultimo inserisci un nuovo impostagiocata (in questo caso il "3") con i parametri del caso......
Buon lavoro.

 

[Xeroxs]

Hai ragione, Druid mi sono impallato stupidamente sulle poste senza pensare alla variabile, perche ero arrivato a creare tutto ma poi la confusione, mi impediva di capire la logica, devo impostare subito il listato dall'inizio con eventualmente tutte le variabili senza riprenderlo poi per correzioni successive... sto cercando di migliorare.

Grazie.

 

[Xeroxs]

Buona Serata a Tutti Voi

Ho Riscritto il listato, Tutto sembra funzionare, ma dal secondo caso in poi no mi scrive come dovrebbe, ho provato di tutto certamente qualcosa nei cicli da inserire mi manca ancora, ovvio sono ancora in fase di sviluppo, e se qualcuno mi aiuta a capire dove è il mio errore, aggiungo un altro tassello.
Ho cercato di riscriver da capo il listato per non modificare altro ed incasinarmi ma mi rendo conto che ci vuole pazienza ad imparare, ma qualche input mi potrebbe aiutare.

Posto il listato

Grazie

Sub Main()
Dim ruote(2)
Dim num(5)
Dim ambata(1): Dim ambo(4) : Dim Cin(1)
Dim posta(1)im poste(2)im postex(5)
posta(1) = 1
poste(2) = 1
postex(3) = 1
postex(4) = 1
'------- Ruote ------------------
ruote(1) = 1 ' Bari
ruote(2) = 5 ' Milano
'------------Intestazione----------------
Scrivi String(30," ") & "****** Metodo Bari-Milano - Revisione 2 ****** ",1
Scrivi String(42," ") & "****** By Xeroxs ****** ",1
Scrivi
ColoreTesto 1
'--------------------------------------------
klp = 7
ini = 9710
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 4 Then
AvanzamentoElab ini,fin,es
'..................giocata x ambata.............
ambata(1) = Abs(Estratto(es,2,3) - Estratto(es,7,5))
co = co + 1
ImpostaGiocata co,ambata,ruote,posta,klp,1
'-------------------------------------------------------- 1°AMBO
ambata(1) = Abs(Estratto(es,2,3) - Estratto(es,7,5))
ambo(1) = 66
num(1) = ambata(1):num(2) = ambo(1)
co = co + 1
ImpostaGiocata co,num,ruote,poste,klp,2
'-------------------------------------------------------- 2°AMBO
ambata(1) = Abs(Estratto(es,2,3) - Estratto(es,7,5))
ambo(2) = 75
num(1) = ambata(1) : num(2) = ambo(2)
co = co + 1
ImpostaGiocata co,num,ruote,poste,klp,2
'-------------------------------------------------------- Cinquina
ambata(1) = Abs(Estratto(es,2,3) - Estratto(es,7,5))
ambo(1) = 66
ambo(2) = 75
ambo(3) = 78
ambo(4) = 81
num(1) = ambata(1) : num(2) = ambo(1) : num(3) = ambo(2) : num(4) = ambo(3) : num(5) = ambo(4)
co = co + 1
ImpostaGiocata co,num,ruote,postex,klp,5
'--------------------------------------------------------- Esiti
casi = casi + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "Test",1
ColoreTesto 1:Scrivi DataEstrazione(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile" & Chr(10) & _
"Ambata " & Format2(ambata(1)) & " Abb. " & Format2(ambo(1)) & "." & Format2(ambo(2)),1
Gioca es
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

 

[druid]

Ciao.
Se posso:
- consiglio 1: evita di far ri - "calcolare" gli stessi "valori"; es.:non ha senso ricalcacolare l' ambata tutte le volte, in questo caso lo script non occupa molte risorse ma in script piu' complessi "appesantisce" l' elaborazione.
- consiglio 2: raggruppa l' imposta giocata prima dell' istruzione Gioca es.
Ciao

 

[Xeroxs]

Buongiorno a Tutti Voi

Scusate se insisto ma Vorrei davvero imparare o meglio a capire la logica del programma subordinata alle mie logiche
così ho riscritto il listato seguendo i consigli di druid e per questo Ti Ringrazio davvero.

Ora Tutto va secondo il criterio del programma valori e altro.

Mi piacerebbe però se qualcuno mi aiuta a capire come faccio a suddividere le giocate secondo il criterio del metodo
ovvero
Gioco per ambata (è questo è Ok)

Gioco per ambi (singoli e non in Terzina)
1° ambo = Ambata con il primo abbinamento nu1(2) = 66
2° ambo = Ambata con il secondo abbinamento nu1(3) = 75

Cinquina aggiungendo ai valori precedenti
nu1(4) = 78
nu1(5) = 81

Ma qualunque cosa che tento o mi scrive un numero sbagliato o Tilt, certo che mi manca qualcosa, per questo insisto per capire, continuerò a trovare la soluzione.
Scusate se insisto, spero che qualcuno abbia voglia di farlo

Questo è il nuovo listato

Sub Main()
Dim ruote(2)
Dim ambata(1)
Dim nu1(5)
Dim posta(1)
Dim post(5)
posta(1) = 1
post(2) = 1 : post(3) = 1 : post(4) = 1
Scrivi String(30," ")&"****** Metodo Bari-Milano - Revisione 3 ****** ",1
Scrivi String(42," ")&"****** By Xeroxs ****** ",1
Scrivi
ColoreTesto 1
ini = 9710
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 4 Then
AvanzamentoElab ini,fin,es
'-------------------------------------------------------------------------- Ruote di Gioco
ruote(1) = 1 : ruote(2) = 5
'-------------------------------------------------------------------------- Ambata
ambata(1) = Abs(Estratto(es,2,3) - Estratto(es,7,5))
'ImpostaGiocata 1,nu,ruote,poste,7,0
nu1(1) = ambata(1)
'-------------------------------------------------------------------------- Abbinamenti per Ambo
nu1(2) = 66
nu1(3) = 75
'-------------------------------------------------------------------------- Abbinamenti per Sorti Superiori
nu1(4) = 78
nu1(5) = 81
'ImpostaGiocata 2,nu1,ruote,post,7,0
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "Test",1
ColoreTesto 1:Scrivi DataEstrazione(es) & " ---> " & IndiceMensile(es) & "° Estrazione Mensile" & Chr(10) & _
"Ambata " & Format2(ambata(1)) & " Abb. " & Format2(nu1(2)) & "." & Format2(nu1(3)),1
ColoreTesto 0
ImpostaGiocata 1,ambata,ruote,posta,7,0
ImpostaGiocata 2,nu1,ruote,post,7,0
Gioca es
End If
Next
ScriviResoconto
End Sub


Grazie comunque come sempre

 

[druid]

Ciao,
non credo che in SPMT ci sia l' istruzione che divide le lunghette e le gioca per singoli ambi.....
Se vuoi la giocata per singolo ambo devi dirgli i valori che deve impostare in "impostagiocata".
Quindi es.:
ambata(1) ----> ok
amb_a(1)= ambata e amb_a(2)= valore x
amb_b(1)= ambata e amb_b(2)= valore y
cinq(1)= ambata - cinq(2)=amb_a(1) - cinq(3)=amb_a(2) - cinq(4)=amb_b(1) - cinq(5)=amb_b(2)

da quanto sopra

impostagiocata1, ambata
impostagiocata2, amb_a
impostagiocata3, amb_b
impostagiocata4, cinq

Ciao

 

[Xeroxs]

Grazie druid lo provo e studio meglio la regola