In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da lottomoney il 06/03/2016, 17:08
Buonasera volevo sottoporre questo metodo per la trasformazione in script dato che la ricerca manuale ha dato buoni risultati. Ricercare nelle ruote di CAGLIARI e FIRENZE un ambo diametrale in qualsiasi posizione (ognuno x singola ruota). Esaudita questa condizione sommare i due ambi ed il risultato ottenuto sarà l'ambata da mettere in gioco sulle due ruote anche in 1a, 4a e 5a posizione. Grazie anticipate per chi si vuole impegnare. lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da Master il 06/03/2016, 20:42
Buonasera lottomoney Controlli se questo va bene - Codice: Seleziona tutto
Sub Main() Scrivi "AMBI Distanza 45 lottomoney",1 Scrivi Dim ambata(1),ruota(2),pt(10) pt(6)=1: pt(9)=1 : pt(10)=1 pt(1) = 1 stra = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","Estrazioni",500) k = CInt(InputBox("QUANTI COLPI ?","Colpi",9)) ini = EstrazioneFin - Stra fin = EstrazioneFin For es = ini To fin AvanzamentoElab ini,fin,es r1 = 2 : r2 = r1 + 1 For p1 = 1 To 4 For p2 = p1 + 1 To 5 n1 = Estratto(es,r1,p1):n2 = Estratto(es,r1,p2) For p3 = 1 To 4 For p4 = p3 + 1 To 5 n3 = Estratto(es,r2,p3):n4 = Estratto(es,r2,p4) If Distanza(n1,n2) = 45 And Distanza(n3,n4) = 45 Then casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1 Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _ " > ambo < " & Format2(n1) & "." & Format2(n2) & " > Distanza < " & Format2(Distanza(n1,n2)),1 Scrivi DataEstrazione(es) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _ " > ambo < " & Format2(n3) & "." & Format2(n4) & " > Distanza < " & Format2(Distanza(n3,n4)),1 Scrivi : ruota(1) = r1 : ruota(2) = r2 '---------------------------------------- ambata(1) = Fuori90(n1+n2+n3+n4) ImpostaGiocata 1,ambata,ruota,pt,k Gioca es End If Next Next Next Next Next ScriviResoconto End Sub
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da lottomoney il 06/03/2016, 21:18
Buonasera Master purtroppo ho spiegato male io la condizione di gioco in quanto dovrebbe essere presa in considerazione la ricerca dell'ambo diametrale e la messa in gioco per ogni singola ruota tra Cagliari e Firenze e non in abbinamento come rirulta dal listato. esempio: Estrazione del 09/04/2015: Cagliari 20 - 56 - 28 - 11 - 41 = 56+11= 67 Firenze 73 - 28 - 13 - 72 - 45 = 73+28= 101 = 11 Ambate da mettere in gioco 67 e 11 sulle ruote di CA e FI. Estrazione del 26/01/2016: Cagliari 2 - 7 - 52 - 55 - 68 = 7+52 = 59 Ambata da mettere in gioco 59 sulle ruote di CA e FI Scusa se non sono stato chiaro inizialmente. Grazie. lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da Master il 07/03/2016, 11:45
Salve lottomoney Lo script modificato con le nuove condizioni (Wow!! il resoconto è positivo) grazie lottomoney - Codice: Seleziona tutto
Sub Main():ColoreTesto 2 Scrivi "AMBO Distanza 45 CA FI richiesta lottomoney (Forum Lottopassion)",1 ColoreTesto 0 :Scrivi Dim ambata(1),ruota(2),pt(10) pt(1) = 1 : pt(6) = 1: pt(9) = 1 : pt(10) = 1 stra = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","Estrazioni",200) k = CInt(InputBox("QUANTI COLPI ?","Colpi",9)) ini = EstrazioneFin - Stra fin = EstrazioneFin For es = ini To fin AvanzamentoElab ini,fin,es For r1 = 2 To 3 For p1 = 1 To 4 For p2 = p1 + 1 To 5 n1 = Estratto(es,r1,p1):n2 = Estratto(es,r1,p2) If Distanza(n1,n2) = 45 Then casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1 Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _ " > ambo < " & Format2(n1) & "." & Format2(n2) & " > Distanza < " & Format2(Distanza(n1,n2)),1 Scrivi : ruota(1) = 2 : ruota(2) = 3 '---------------------------------------- ambata(1) = Fuori90(n1 + n2) ImpostaGiocata 1,ambata,ruota,pt,k,1 Gioca es End If Next Next Next Next ScriviResoconto End Sub
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|