richiesta script per ricerca di due ambi su Firenze

[alexvisco]

Salve
Chiedo a voi esperti il seguente script per trovare due ambi da giocare su Firenze:
ogni prima estrazione del mese fare i seguenti calcoli (applicando il fuori 90)
1° ambo= 2° di CA + 4° di CA +02 ; 5° di NA + 5° di TO + 08
2° ambo= 3° di BA +4° di NA +01 ; 3° di BA + 1° NA +12

da giocare per 8 colpi

 

[alexvisco]

2° ambo= 3° di BA +4° di NA +01 ; 3° di BA + 1° NAZIONALE +12

 

[maxma62]

Ciao,
questo funziona su L8

Sub main()
Dim ruota(1),ruote(3)
Dim am1(5),am2(5)
Dim poste(2) 

poste(2)=3

r1=CInt(InputBox("ruota di gioco?","ruota di gioco",3))
ce=InputBox("da quale estrazione controllo? ","controllo estrazioni",9900)
k=CInt(InputBox("durata gioco?","durata gioco",8))
Messaggio "elab. estr. del "&DataEstrazione(es)&" by maxma62"

Scrivi "metodo sommativo di alexvisco",1
'ini=EstrazioneFin -ce
ini=ce
fin=EstrazioneFin
For es =ini To fin

If IndiceMensile(es)=1 Then 'prima
'If IndiceMensile(es)=2 Then 'seconda
'If IndiceMensile(es)=3 Then 'terza
'If IndiceMensile(es+1)=1 Then 'ultima


ruote(1)=r1:
ruota(1)=11:
co=0:

casi=casi+1:scrivi String(75,"=")
Scrivi "metodo sommativo di alexvisco",1
Scrivi
'--------------------------------------------------
Scrivi "metodo"
Scrivi "1° ambo = 2° di CA + 4° di CA + 02 / 5° di NA + 5° di TO + 08"
Scrivi "2° ambo = 3° di BA + 4° di NA + 01 / 3° di BA + 1° di NZ + 12"
Scrivi
'--------------------------------------------------
'String(75,"-")
Scrivi String(60,"-")&" caso n° "&(casi),1
ScriviEstrazione es '<<< visualizza estrazione
Scrivi String(75,"-")

Scrivi Estratto(es,2,2)&" - 2 ca"
Scrivi Estratto(es,2,4)&" - 4 ca"
Scrivi "+ 02"
Scrivi
Scrivi Estratto(es,6,5)&" - 5 na"
Scrivi Estratto(es,9,5)&" - 5 to"
Scrivi "+ 08"
Scrivi
Scrivi Estratto(es,1,3)&" - 3 ba"
Scrivi Estratto(es,6,4)&" - 4 na"
Scrivi "+ 01"
Scrivi
Scrivi Estratto(es,1,3)&" - 3 ba"
Scrivi Estratto(es,12,1)&" - 1 nz"
Scrivi "+ 12"
Scrivi String(75,"-")
Scrivi


am1(1)=Fuori90(Estratto(es,2,2)+Estratto(es,2,4)+2)
am1(2)=Fuori90(Estratto(es,6,5)+Estratto(es,9,5)+8)
co=co+1
ImpostaGiocata co,am1,ruote,poste,k',2
co=co+1
ImpostaGiocata co,am1,ruota,poste,k',2 'tutte

am2(1)=Fuori90(Estratto(es,1,3)+Estratto(es,6,4)+1)
am2(2)=Fuori90(Estratto(es,1,3)+Estratto(es,12,1)+12)
co=co+1
ImpostaGiocata co,am2,ruote,poste,k',2
co=co+1
ImpostaGiocata co,am2,ruota,poste,k',2 'tutte


If es<fin-k Then
Gioca es',True
Else
Gioca es
End If


End If
Next

ScriviResoconto

End Sub

se errato correggi gli abbinamenti.
max

 

[lotto_tom75]

Salvo errori questo ti dovrebbe funzionare su spaziometria...

Sub Main
   ColoreTesto 2
   Scrivi "METODO di alexvisco"
   Scrivi "numeri su firenze"
   Scrivi "LIST BY lt75"
   ColoreTesto 0
   Dim poste(5)
   Dim aruota(1)
   aruota(1) = FI_
   Dim ambo1(2)
   Dim ambo2(2)
   Dim Ini,fin,es,clp,nu1,nu2,nu3,nu4,nu5,nu6,nu7,nu8,nu9,nu10,a,b,c,d,e,k
   poste(1) = 1
   poste(2) = 1
   clp = 8
   k = CInt(InputBox("SCEGLI QUANTE ESTRAZIONI ANALIZZARE",,100)) '3000
   fin = EstrazioneFin
   Ini = fin - k
   co = 0
   For es = Ini To fin
      nu1 = Estratto(es,CA_,2)
      nu2 = Estratto(es,CA_,4)
      nu3 = Estratto(es,NA_,5)
      nu4 = Estratto(es,TO_,5)
      ambo1(1) = nu1 + nu2 + 2
      ambo1(2) = nu3 + nu4 + 8
      '----------------------------------
      nu5 = Estratto(es,BA_,3)
      nu6 = Estratto(es,NA_,4)
      nu7 = Estratto(es,NZ_,1)
      Select Case(IndiceMensile(es))
      Case 1
         ambo1(1) = Fuori90(nu1 + nu2 + 2)
         ambo1(2) = Fuori90(nu3 + nu4 + 8)
         ambo2(1) = Fuori90(nu5 + nu6 + 1)
         ambo2(2) = Fuori90(nu5 + nu7 + 12)
         ok = 1
      End Select
      If ok = 1 Then
         Messaggio("Attendi... " & " INDICE MENSILE esaminato: " & IndiceMensile(es) & " esn " & es & " totes " & k & " r " & SiglaRuota(aruota(1)))
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"=") & " Caso n°" & co,1
         ColoreTesto 1
         Scrivi "INDICE MENSILE esaminato: " & IndiceMensile(es)
         Scrivi "AMBI SECCHI GENERATI" & " " & "=" & " " & StringaNumeri(ambo1) & " | " & StringaNumeri(ambo2) '& "." & c & "." & d & "."' & e
         Scrivi String(80,"="),1
         ImpostaGiocata 1,ambo1,aruota,poste,clp
         Gioca es
         ImpostaGiocata 2,ambo2,aruota,poste,clp
         Gioca es
         'End If
         '    Next ' x ruote
      End If
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(Ini,fin,es)
      ok = 0
   Next
   'Next 'x ruote...
   ScriviResoconto
   'Call ScriviDistribuzioneEsiti("true","1,2,3,4,5,6,7,8,9,10,11,12,13")
   Scrivi
   Scrivi "Tempo trascorso: " & TempoTrascorso
   Scrivi
   Call ScriviDistribuzioneCasiInCorso("true","1,2,3,4,5,6,7,8") ' ,9,10,11,12,13")
End Sub