x gli scripters

[keeper]

avete mai realizzato uno script su questa tecnica presente sul forum di Salva57?

ambata---semplice---determinata 2017 di salva57​

"non e un segreto per non stare a riscrivere tutto-
leggi ambata semplice o determinata di anno 2022
perchè ogni anno apro una pagina nuova
ti faccio un esempio breve
estrazione del 23-3-23 recente
milano 30 -- 31--58--42--85
si cercano i numeri in figura
dove noi abbiamo il 31= 3+1=4
58=5+8=13 1+ 3 =4
85=8+5=13 1+3=4
trovate le condizioni giuste fai la somma
31+58=89
31+85=26
58+85=53
fatte queste somme
di solito trovi solo 2 numeri della sessa figura
quindi abbiamo trovato 3 ambate da mettere in gioco
nell estrazione del 25-3-23
al primo colpo di gioco esce 89 colpita e affondata
palermo estrazione del 23-3-23
53-8
35-8
8-8
estrazione dopo il 25-3-23

fai le tre somme come detto sopra
53+8=61
al primo colpo palermo 61"
resoconto su ambata semplice e in posizione dove non sono state ricavate in numeri per le ambate es. 31+58 (2 E 3 POS.) danno 89 l'89 IN 1 4 5 POS
Da applicarsi solo sulla ruota di BA
Qualcosa mi pare di aver letto da qualche parte persino la realizzazione di un foglio excel, ma non li ritrovo. Forse la vecchiaia che avanta galoppante....

 

[keeper]

ho ritrovato questo fatto da joe
'AMBO PENTAGONALE per ESTRATTO DETERMINATO per Salva57 / Keeper _ Joe'Script V.1.1 del 28/12/2013
'METODO:
'CERCARE un Ambo di Cinquina Pentagonale.
'SOMMARE i 2 Numeri (con eventuale Fuori90)
'GIOCARE come AMBATA e come ESTRATTO-DETERMINATO nelle RESTANTI POSIZIONI.
'ESEMPIO :
'31/10/2009 VENEZIA 70-90-46-63-28 AMBO 46-28 II° e V° DETERMINATO.
'46 + 28 = 74. GIOCARE 74 COME AMBATA e I° II° IV° DETERMINATO.
'RISULTATO:
'Il 10 /11/2009 a Venezia sono estratti: 74-28-77-09-66
'74 I° ESTRATTO_DETERMINATO (al 4° Colpo).
'Valido in qualsiasi ruota. (VEDI SOTTO ... NDR)
'by salva57
Sub Main
Dim Nu(1),Ru(1),Po(10) : Po(1) = 1
Ini = EstrazioneFin - 155 : Fin = EstrazioneFin ' Ini = 8137
For Es = Ini To Fin : K = 0
ColoreTesto 1 : Scrivi String(51,"=") & " " & DataEstrazione(Es),1 : ColoreTesto 0
For R = 1 To 12 : If R = 11 Then R = 12
If(R = CA_) Or(R = MI_) Or(R = VE_) Then 'Ruote da controllare
Ru(1) = R : SE = StringaEstratti(es,R)
E = Split("0." & Se,".")
For P1 = 1 To 4
For P2 = P1 + 1 To 5
If(Abs(E(P1) - E(P2)))/18 = Abs((E(P1) - E(P2)))\18 Then
Nu(1) = Fuori90(CInt(E(P1)) + CInt(E(P2)))
K = K + 1
For F = 6 To 10 : Po(F) = 1 : Next
Po(P1 + 5) = 0 : Po(P2 + 5) = 0
Scrivi Format2(K) & "° ",1,0
For F = 6 To 10 : If Po(F) = 0 Then ColoreTesto 2
Scrivi Format2(E(F - 5)) & " ",1,0 : ColoreTesto 0
Next
Scrivi ">>> ",0,0
ColoreTesto 2 : Scrivi SiglaRuota(r) & " ",1,0
Scrivi Format2(Nu(1)),1 : ColoreTesto 0
ImpostaGiocata K,Nu,Ru,Po,9
Scrivi String(62,"-")
End If
Next
Next
End If 'Selezione Ruote
Next
Gioca Es,True
Next
ColoreTesto 1 : Scrivi String(51,"=") & " Joe'Script",1 : ColoreTesto 0
ScriviResoconto
End Sub
si potrebbe modificare?

 

[claudio8]

ho ritrovato questo fatto da joe

si potrebbe modificare?

Ma quando impari a fare gli script ?

 

[keeper]

ma,i per la vecchiaia devo essere sempre un rompi....
aiutami piuttosto di bacchettarmi

 

[salvo50]

Ciao a Tutti

Di script ne ho fatti 2, uno con 2 estratti stessa figura e l'altro con 3 estratti stessa figura, potevo farlo in un unico script ma poi ho optato per 2 script

Due estratti stessa figura

Option Explicit
Sub Main
   Dim R1,P1,P2,P4,A,B,E1
   Dim FIn,Es,Ini,Caso,Casi,Salvo50,Clp
   Dim Amba(1),Ruo(1),Posta(1)
   Posta(1) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10340)
   Clp = InputBox("Per quanti colpi vuoi giocare?",,9)
   Scrivi Space(8) & " Chiesto da Keeper - Script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If Figura(A) = Figura(B) Then
                  Amba(1) = Fuori90(A + B)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P4 = 1 To 5
                     E1 = Estratto(Es,R1,P4)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi "  <--- Evidenziati Stessa Figura",1,,,2
                  Scrivi
                  Scrivi " Ambata " & Format2(Amba(1)) & " = " & Format2(A) & " + " & Format2(B),1
                  Scrivi
                  Ruo(1) = R1
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                  Gioca Es,1
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Tre estratti stessa figura

Option Explicit
Sub Main
   Dim R1,P1,P2,P3,P4,A,B,C,E1
   Dim FIn,Es,Ini,Caso,Casi,Salvo50,Clp
   Dim Amba(3),Ruo(1),Posta(1)
   Posta(1) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10300)
   Clp = InputBox("Per quanti colpi vuoi giocare?",,3)
   Scrivi Space(8) & " Chiesto da Keeper 3 estratti stessa figura - Script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  If(Figura(A) = Figura(B))And(Figura(B) = Figura(C)) Then
                     Amba(1) = Fuori90(A + B)
                     Amba(2) = Fuori90(B + C)
                     Amba(3) = Fuori90(A + C)
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                     Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     For P4 = 1 To 5
                        E1 = Estratto(Es,R1,P4)
                        If E1 = A Or E1 = B Or E1 = C Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi "  <--- Evidenziati Stessa Figura",1,,,2
                     Scrivi
                     Scrivi " Ambata 1 " & Format2(Amba(1)) & " = " & Format2(A) & " + " & Format2(B),1
                     Scrivi " Ambata 2 " & Format2(Amba(2)) & " = " & Format2(B) & " + " & Format2(C),1
                     Scrivi " Ambata 3 " & Format2(Amba(3)) & " = " & Format2(A) & " + " & Format2(C),1
                     Scrivi
                     Ruo(1) = R1
                     ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                     Gioca Es,1
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[claudio8]

Grazie Salvo, mi hai tolto un peso .... dalla coscienza
Keeper ringrazia il dottore e vai avanti ( dai Pacchi di rai 1) ... vinci e rivinci, mi raccomando.

 

[keeper]

Salvo50 la ringrazio per la sua disponibilità, altro che Claudio8 che non fa altro che bacchettarmi dai tempi di excel

 

[keeper]

Claudio8
mi dai info sul 7 a Bari principale
poi 9 e 37 secondari

 

[keeper]

Claudio8
io gioco per sorte di ambo BA 7-10-7061
7-28-18-64-39
l'1% è farina del mio sacco il 99% una botta di ....già sai.

 

[keeper]

Claudio8
mi dai info sul 7 a Bari principale
poi 9 e 37 secondari

7 a BA sfaldato
il 37 B Sfaldato subito

 

[claudio8]

Sei un grande

 

[keeper]

Sei un grande

si sono un grande st......
dai un'occhiata alla mia richiesta
Inoltre 70 BA e vediamo un pò

 

[claudio8]

si sono un grande st......
dai un'occhiata alla mia richiesta
Inoltre 70 BA e vediamo un pò

Sei un mito ... sei un mito

 

[keeper]

Claudio8 che botto