SPIA 90 A BA

Rispondi
Avatar utente
Tatoo64
Site Admin
Messaggi: 3901
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

SPIA 90 A BA

Messaggio da Tatoo64 » 30/07/2014, 12:59

il seguente script gira su spaziometria, chiedo ai nostri scriptman di trasformarlo per L8 e di aggiungere la possibilità di cercare la spia 90 anche su altre ruote e giocare i 3 terni sulla ruota di ricerca.

GRAZIE

Codice: Seleziona tutto

Sub Main() ColoreTesto 1
 Scrivi " METODO VECCHIONE SPIA 90 A BARI GIOCARE AMBO TERNO SU BARI - COLPI 8",1
 Scrivi
 ColoreTesto 0
 Dim ruote(1)
 Dim ambata(1): Dim ambo1(3) : Dim ambo2(3) : Dim ambo3(3) : Dim terno(3) : Dim poste(2) : Dim postee(3)
 '----- modifica ---------------
 Dim posta(2)
 poste(1) = 1
 posta(2) = 1
 postee(3) = 1
 '-------------------------------
 ruote(1) = 1
 r = 1
 spia = 90
 klp = 8
 ini = 8740
 ee = 180
 fin = EstrazioneFin
 ini = EstrazioneFin - ee
 For es = ini To fin
 If Posizione(es,r,spia) > 0 Then
 casi = casi + 1
 co = co + 1
 ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
 Scrivi "METODO VECCHIONE SPIA 90 A BARI GIOCARE AMBO TERNO SU BARI COLPI 8",1
 ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
 ColoreTesto 0
 ambo1(1) = Fuori90(Estratto(es,BA_,1) + 29)
 ambo1(2) = Fuori90(Estratto(es,BA_,1) + 35)
 ambo1(3) = Fuori90(Estratto(es,BA_,5) + 62)
 ImpostaGiocata 1,ambo1,ruote,posta,klp
 ambo2(1) = Fuori90(Estratto(es,GE_,2) + 15)
 ambo2(2) = Fuori90(Estratto(es,GE_,2) + 33)
 ambo2(3) = Fuori90(Estratto(es,GE_,2) + 46)
 ImpostaGiocata 2,ambo2,ruote,posta,klp
 ambo3(1) = Fuori90(Estratto(es,BA_,3) - 30)
 ambo3(2) = Fuori90(Estratto(es,BA_,3) - 75)
 ambo3(3) = Fuori90(Estratto(es,BA_,3) - 85)
 ImpostaGiocata 3,ambo3,ruote,posta,klp
 Gioca es,1
 End If
 Next
 Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
 ScriviResoconto
 End Sub 
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: SPIA 90 A BA

Messaggio da SeeLe8 » 30/07/2014, 14:05

Per farlo funzionale con L8 basta togliere ,1 dopo Gioca es
in fondo allo script

per il resto.... PASSO :dent:
Immagine

Avatar utente
Tatoo64
Site Admin
Messaggi: 3901
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: SPIA 90 A BA

Messaggio da Tatoo64 » 31/07/2014, 11:14

Ma daiiiiii abbiamo anche una scriptwoman.......... grande seelen.............

:appl: :su:

ho notato però che nel momento in cui il numero da sottrarre è minore lo script non lo effettua.

ES: 34-75 non fa la sottrazione ne aritmetica ne ciclometrica..........
Ultima modifica di Tatoo64 il 31/07/2014, 11:47, modificato 1 volta in totale.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: SPIA 90 A BA

Messaggio da SeeLe8 » 31/07/2014, 13:20

hehe non esageriamo... solo qualcosina :P

comunque a me fa i conti giusti
esempio:

5 maggio
BA 3° estratto 33
33-30 = 3
33-75 = 48 (33+90-75)
33-85 = 38 (33+90-85)

dove hai trovato l'errore?
Immagine

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: SPIA 90 A BA

Messaggio da Enplein » 31/07/2014, 17:46

Ciao Tatoo, prova adesso....

Ciao, Enplein.

Codice: Seleziona tutto


Sub Main() ColoreTesto 1
Scrivi " METODO VECCHIONE SPIA 90 A BARI GIOCARE AMBO TERNO SU BARI - COLPI 8",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(3) : Dim ambo2(3) : Dim ambo3(3) : Dim terno(3) : Dim poste(2) : Dim postee(3)
'----- modifica ---------------
Dim posta(2)
poste(1) = 1
posta(2) = 1
postee(3) = 1
'-------------------------------
ruote(1) = 1
r = 1
spia = 90
klp = 8
ini = 8740
ee = 180
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
po=Posizione(es,r,spia)
If  po> 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO VECCHIONE SPIA 90 A BARI GIOCARE AMBO TERNO SU BARI COLPI 8",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile "& SiglaRuota (r)&" "&_
StringaEstratti (es,r)&"  Pos. "&po&"^",1
ColoreTesto 0
ambo1(1) = Fuori90(Estratto(es,BA_,1) + 29)
ambo1(2) = Fuori90(Estratto(es,BA_,1) + 35)
ambo1(3) = Fuori90(Estratto(es,BA_,5) + 62)
ImpostaGiocata 1,ambo1,ruote,posta,klp
ambo2(1) = Fuori90(Estratto(es,GE_,2) + 15)
ambo2(2) = Fuori90(Estratto(es,GE_,2) + 33)
ambo2(3) = Fuori90(Estratto(es,GE_,2) + 46)
ImpostaGiocata 2,ambo2,ruote,posta,klp
ambo3(1) = Fuori90((Estratto(es,BA_,3)+90) - 30)
ambo3(2) = Fuori90((Estratto(es,BA_,3) +90)- 75)
ambo3(3) = Fuori90((Estratto(es,BA_,3)+90) - 85)
ImpostaGiocata 3,ambo3,ruote,posta,klp
Gioca es
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: SPIA 90 A BA

Messaggio da Enplein » 31/07/2014, 18:06

Ciao Tatoo, questa versione considera la ricerca su tutte le ruote fermo
restante le previsioni di calcolo.

Ciao, Enplein.

Codice: Seleziona tutto

Sub Main() ColoreTesto 1
Scrivi " METODO VECCHIONE_TATOO SPIA 90 SU QUALSIASI RUOTA E  GIOCARE AMBO TERNO SU RUOTA - COLPI 8",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(3) : Dim ambo2(3) : Dim ambo3(3) : Dim terno(3) : Dim poste(2) : Dim postee(3)
'----- modifica ---------------
Dim posta(2)
poste(1) = 1
posta(2) = 1
postee(3) = 1
'-------------------------------
spia = 90
klp = 8
ini = 8740
ee = 180
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
For r=1 To 11
If r=11 Then r=12
ruote(1)=r
po=Posizione(es,r,spia)
If  po> 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO VECCHIONE_TATOO SPIA 90 SU QUALSIASI RUOTA E GIOCARE AMBO TERNO SU RUOTA COLPI 8",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile "& SiglaRuota (r)&" "&_
StringaEstratti (es,r)&"  Pos. "&po&"^",1
ColoreTesto 0
ambo1(1) = Fuori90(Estratto(es,BA_,1) + 29)
ambo1(2) = Fuori90(Estratto(es,BA_,1) + 35)
ambo1(3) = Fuori90(Estratto(es,BA_,5) + 62)
ImpostaGiocata 1,ambo1,ruote,posta,klp
ambo2(1) = Fuori90(Estratto(es,GE_,2) + 15)
ambo2(2) = Fuori90(Estratto(es,GE_,2) + 33)
ambo2(3) = Fuori90(Estratto(es,GE_,2) + 46)
ImpostaGiocata 2,ambo2,ruote,posta,klp
ambo3(1) = Fuori90((Estratto(es,BA_,3)+90) - 30)
ambo3(2) = Fuori90((Estratto(es,BA_,3) +90)- 75)
ambo3(3) = Fuori90((Estratto(es,BA_,3)+90) - 85)
ImpostaGiocata 3,ambo3,ruote,posta,klp
Gioca es
End If
Next
Next 
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 3901
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: SPIA 90 A BA

Messaggio da Tatoo64 » 31/07/2014, 20:43

GRAZIE ENPLEIN................ ORA VEDO ANCHE LE TERZINE DELL'ULTIMA DI MAGGIO.

L'IDEA DEL 90 A TUTTE NON RENDE QUINDI MEGLIO USARE SOLO BARI COME RUOTA.

GRAZIE ANCORA ENPLEIN.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: SPIA 90 A BA

Messaggio da luca92 » 09/10/2014, 1:28

Grazie a Tatoo e Enplein per gli script!









Ciao
Luca

:abb:
Ultima modifica di luca92 il 09/10/2014, 1:29, modificato 1 volta in totale.
Immagine




Immagine







Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite