AIUTO PER UNA TECNICA (SCRIPT) x per gli scripter di buona volonta.

Codicebinario · 29 Luglio 2023

Tecnica che ricava una previsione che ricava 5 ambi secchi da giocarsi su due ruote:BARI e NAPOLI.
Questo metodo puoò essere a qualsiasi estrazione;inoltre la sortita di un ambo NON pregiudica in alcuna maniera eventuale sortita dei rimanenti ambi della previsione.

ESEMPIO PRATICO:

In data 02/07/2022 la somma degli estratti delle Ruote in esame(BA-NA) era respittivamente di 80 per BA e 55 per NA,ora sommando i fissi 10-3,10-33,72-67 a Ba a NA invece sommeremo 90-63 e 90-3.

Avremmo i seguenti ambi :9-90,80-83,80-23,80-55,80-57.

ESTRAZIONE del 28 /07/2023

BARI estratti :46 26 28 74 63= 237---->57---->+10-3//10-33/72-67
NAPOLI estratti:56 27 67 66 24= 240---->60---->+90-3/90-3

Ambi IN GIOCO:

BA 67-66 67-10 39-34
NA 60-33 60-63

I 5 ambi sono da mettere sulle due ruote BA-NA e volendo su tutte,oppure una lunghetta per sorti maggiori anche a TUTTE.

10 33 34 39 60 63 67

Grazie a chi mi può aiutare per questo script.

Nell'input box dovrei avere la scelta dell'estrazione (N° estrazione) e la possibilita di scegliere le ruote (2), verifica breve su 18 estrazioni, colpi di gioco K5.Tutte i clalcoli sono ottenuti col FUORI90.

Spero di essere esaustivo.
Grazie.

salvo50 · 31 Luglio 2023

Ciao a Tutti

Ciao Binarycode

Non riesco a capire certe somme nel primo esempio il 9 da quale somma è uscito, sempre nel primo esempio facendo 80 + 72 = 62, nel pronostico (il 62) non lo vedo, domanda perché l'hai scartato?
Poi ruota di NA i numeri da sommare sono 90-63 e 90-3 quindi

90 + 55 = 55
63 + 55 = 28
90 + 55 = 55
03 + 55 = 58

di questi numeri nel pronostico vedo solo il 55
il 28 ed il 58 perché li hai scartato?

anche nel secondo esempio non mi corrispondono tutti i numeri.

Lo script è semplice farlo, io te lo posso fare ma tu dovresti negli esempi fare tutte le somme come ho fatto io sopra tipo

esempio
63 + 55 = 28

solo così ti posso fare lo script

se sono io che non ho capito un tubo ti chiedo scusa, l'età avanza ed a volte perdo qualche colpo.

Codicebinario · 31 Luglio 2023

salvo50 ha scritto:
Ciao a Tutti

Ciao Binarycode

Non riesco a capire certe somme nel primo esempio il 9 da quale somma è uscito, sempre nel primo esempio facendo 80 + 72 = 62, nel pronostico (il 62) non lo vedo, domanda perché l'hai scartato?
Poi ruota di NA i numeri da sommare sono 90-63 e 90-3 quindi

90 + 55 = 55
63 + 55 = 28
90 + 55 = 55
03 + 55 = 58

di questi numeri nel pronostico vedo solo il 55
il 28 ed il 58 perché li hai scartato?

anche nel secondo esempio non mi corrispondono tutti i numeri.

Lo script è semplice farlo, io te lo posso fare ma tu dovresti negli esempi fare tutte le somme come ho fatto io sopra tipo

esempio
63 + 55 = 28

solo così ti posso fare lo script

se sono io che non ho capito un tubo ti chiedo scusa, l'età avanza ed a volte perdo qualche colpo.

Buongiorno Salvo50,buongiorno a tutti i lettori,

scusate se ci sono dei refusi , ma ,fare i calcoli a penna e calamaio vista l'eta posso sbagliare.

Ora mostro un esempio con tutti i passaggi dettagliati:

TUTTI I CALCOLI SONO OTTENUTI COL FUORI90

ESTRAZIONE ULTIMA del 29/07/2023 Sabato (il teorema e' applicabile a qualsiasi estrazione)

ESTRATTI SU BARI: 59-14-40-79-7 SOMMA = 199---->FUORI 90 : 19
ESTRATTI SU NAPOLI: 16-87-81-69-54 SOMMA = 307---->FUORI 90 : 37

SU BARI SOMMARE A 19 I FISSI : 10-3/10-33/72-67 OTTEREMMO : 29-22 1° AMBO 29-43 2° AMBO 1-86 3° AMBO
SU NAPOLI SOMMARE A 37 I FISSI: 90/63 e 90/3 OTTEREMMO : 37-10 1° AMBO 37-40 2° AMBO

E questi sono gli ambi(tutti) da giocare sulle due ruote,oppure ruota per ruota.

LE LUNGHETTE: (da giocarsi a ruota oppure a TUTTE per sorti maggiori t/Q/C)

BARI 1-22-29-43-86
NAPOLI 10-37-40

P.S. Sarebbe bello(se possibile) avere nell'imput box se scegliere il FUORI90 o il FUORI91.

Grazie SALVO50 e grazie a tutti i lettori.

Sakti · 31 Luglio 2023

Non è un gran che, ma è il massimo che posso fare, non ho fatto il fuori 91
ma ti ho messo delle indicazioni per cambiare vari parametri come,
possibilità di estrazioni da analizzare e colpi di gioco, basta che intervieni
sullo script...Poi qualche altro, migliore negli script potrà migliorarlo di certo..

Option Explicit
Sub Main
'Da un'idea di Binarycode
Dim Ini,Fin,Es,R(2),K,a,b,c,d,e,f,RT(2),a1,b1,c1,d1,e1,f1,Ru(12)
Dim posta(5),N(5),poste(5),N1(5),Num(5),Num1(5),z2,z1,post(5)
Dim Nu(5),Nu1(5),N2(5),N3(5),Nu2(5),RT1(2),R1(2),col,Ntt(10),pos(3)
posta(2) = 1

osta(3) = 0.5

osta(4) = 0.5 'puntate su lunghetta Bari sorte -A-T-Q
pos(2) = 1

os(3) = 1' puntate su lunghetta Napoli sorte-A-T
poste(2) = 1' puntate su ambi Bari e Napoli sorte-A
post(3)=1

ost(4)=0.5

ost(5)=0.5' puntate su lunghetta a Tutte sorte-A-T-Q-C
Ini = EstrazioneFin - 90 'Numero Estrazioni da controllare
Fin = EstrazioneFin
Scrivi " - Di Binarycode - BA - NA - TT - ",1,,,1,3,,1
For Es = Ini To Fin
' If IsUltimaDelMese(Es) Then
'If IndiceMensile(Es) = 1 Then
col = 9 ' Colpi di gioco
'--- Bari
K = K + 1
a = Estratto(Es,1,1)' |
b = Estratto(Es,1,2)' |
c = Estratto(Es,1,3)' | basta cambiare 1 = Bari
d = Estratto(Es,1,4)' |
e = Estratto(Es,1,5)' |
f = Fuori90(a + b + c + d + e)
'---
N(1) = Fuori90(f + 10)
N(2) = Fuori90(f + 3)
N(3) = Fuori90(f + 33)
N(4) = Fuori90(f + 72)
N(5) = Fuori90(f + 67)
'--- Napoli
a1 = Estratto(Es,6,1)' |
b1 = Estratto(Es,6,2)' |
c1 = Estratto(Es,6,3)' | basta cambiare 6 = Napoli
d1 = Estratto(Es,6,4)' |
e1 = Estratto(Es,6,5)' |
f1 = Fuori90(a1 + b1 + c1 + d1 + e1)
'---
Nu(1) = Fuori90(f1 + 63)
Nu(2) = Fuori90(f1 + 3)
'--- Numeri in Gioco ---
N1(1) = N(1)
N1(2) = N(2)
'---
N2(1) = N(1)
N2(2) = N(3)
'---
N3(1) = N(4)
N3(2) = N(5)
'---
Nu1(1) = f1
Nu1(2) = Nu(1)
'---
Nu2(1) = f1
Nu2(2) = Nu(2)
'---
Num(1) = N(1)
Num(2) = N(2)
Num(3) = N(3)
Num(4) = N(4)
Num(5) = N(5)
EliminaRipetuti Num
Num1(1) = f1
Num1(2) = Nu(1)
Num1(3) = Nu(2)
EliminaRipetuti Num1
Ntt(1) =N(1)
Ntt(2) =N(2)
Ntt(3) =N(3)
Ntt(4) =N(4)
Ntt(5) =N(5)
Ntt(6) =f1
Ntt(7) =Nu(1)
Ntt(8) =Nu(2)
EliminaRipetuti Ntt
'---
RT(1) = 1
RT(2) = 11
'---
RT1(1) = 6
RT1(2) = 11
'---
R(1) = 1
'---
R1(1) = 6
'---
Ru(1) = 11
z1 = 1
z2 = 6
Scrivi DataEstrazione(Es) & " > " & SiglaRuota(z1) & " - " & StringaEstratti(Es,z1) & " Somma -> " & Format2(f) ,3
Scrivi DataEstrazione(Es) & " > " & SiglaRuota(z2) & " - " & StringaEstratti(Es,z2) & " Somma -> " & Format2(f1) ,3
'---
ImpostaGiocata 1,N1,R,poste,col,2
ImpostaGiocata 2,N2,R,poste,col,2
ImpostaGiocata 3,N3,R,poste,col,2
ImpostaGiocata 4,Nu1,R1,poste,col,2
ImpostaGiocata 5,Nu2,R1,poste,col,2
ImpostaGiocata 6,Num,RT,posta,col,2
ImpostaGiocata 7,Num1,RT1,pos,col,2
ImpostaGiocata 8,Ntt,Ru,post,col

Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
'End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub

Codicebinario · 31 Luglio 2023

toon ha scritto:
Non è un gran che, ma è il massimo che posso fare, non ho fatto il fuori 91
ma ti ho messo delle indicazioni per cambiare vari parametri come,
possibilità di estrazioni da analizzare e colpi di gioco, basta che intervieni
sullo script...Poi qualche altro, migliore negli script potrà migliorarlo di certo..

Option Explicit
Sub Main
'Da un'idea di Binarycode
Dim Ini,Fin,Es,R(2),K,a,b,c,d,e,f,RT(2),a1,b1,c1,d1,e1,f1
Dim posta(5),N(5),poste(5),N1(5),Num(5),Num1(5),z2,z1
Dim Nu(5),Nu1(5),N2(5),N3(5),Nu2(5),RT1(2),R1(2),col
posta(2) = 1
posta(3) = 1
posta(4) = 1
poste(2) = 1
Ini = EstrazioneFin - 90 'Numero Estrazioni da controllare
Fin = EstrazioneFin
Scrivi " - Di Binarycode - BA - NA - ",1,,,1,3,,1
For Es = Ini To Fin
' If IsUltimaDelMese(Es) Then
'If IndiceMensile(Es) = 1 Then
col = 9 ' Colpi di gioco
'--- Bari
K = K + 1
a = Estratto(Es,1,1)' |
b = Estratto(Es,1,2)' |
c = Estratto(Es,1,3)' | basta cambiare 1 = Bari
d = Estratto(Es,1,4)' |
e = Estratto(Es,1,5)' |
f = Fuori90(a + b + c + d + e)
'---
N(1) = Fuori90(f + 10)
N(2) = Fuori90(f + 3)
N(3) = Fuori90(f + 33)
N(4) = Fuori90(f + 72)
N(5) = Fuori90(f + 67)
'--- Napoli
a1 = Estratto(Es,6,1)' |
b1 = Estratto(Es,6,2)' |
c1 = Estratto(Es,6,3)' | basta cambiare 6 = Napoli
d1 = Estratto(Es,6,4)' |
e1 = Estratto(Es,6,5)' |
f1 = Fuori90(a1 + b1 + c1 + d1 + e1)
'---
Nu(1) = Fuori90(f1 + 63)
Nu(2) = Fuori90(f1 + 3)
'--- Numeri in Gioco ---
N1(1) = N(1)
N1(2) = N(2)
'---
N2(1) = N(1)
N2(2) = N(3)
'---
N3(1) = N(4)
N3(2) = N(5)
'---
Nu1(1) = f1
Nu1(2) = Nu(1)
'---
Nu2(1) = f1
Nu2(2) = Nu(2)
'---
Num(1) = N(1)
Num(2) = N(2)
Num(3) = N(3)
Num(4) = N(4)
Num(5) = N(5)
EliminaRipetuti Num
Num1(1) = f1
Num1(2) = Nu(1)
Num1(3) = Nu(2)
EliminaRipetuti Num1
'---
RT(1) = 1
RT(2) = 11
'---
RT1(1) = 6
RT1(2) = 11
'---
R(1) = 1
'---
R1(1) = 6
'---
z1 = 1
z2 = 6
Scrivi DataEstrazione(Es) & " > " & SiglaRuota(z1) & " - " & StringaEstratti(Es,z1) & " Somma -> " & Format2(f) ,3
Scrivi DataEstrazione(Es) & " > " & SiglaRuota(z2) & " - " & StringaEstratti(Es,z2) & " Somma -> " & Format2(f1) ,3
'---
ImpostaGiocata 1,N1,R,poste,col,2
ImpostaGiocata 2,N2,R,poste,col,2
ImpostaGiocata 3,N3,R,poste,col,2
ImpostaGiocata 4,Nu1,R1,poste,col,2
ImpostaGiocata 5,Nu2,R1,poste,col,2
ImpostaGiocata 6,Num,RT,posta,col,2
ImpostaGiocata 7,Num1,RT1,posta,col,2
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
'End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub

GRAZIEEEEE toon! dopo controllo e poi Vi dico .......Grazie ancora.

Codicebinario · 31 Luglio 2023

toon ha scritto:
Non è un gran che, ma è il massimo che posso fare, non ho fatto il fuori 91
ma ti ho messo delle indicazioni per cambiare vari parametri come,
possibilità di estrazioni da analizzare e colpi di gioco, basta che intervieni
sullo script...Poi qualche altro, migliore negli script potrà migliorarlo di certo..

Option Explicit
Sub Main
'Da un'idea di Binarycode
Dim Ini,Fin,Es,R(2),K,a,b,c,d,e,f,RT(2),a1,b1,c1,d1,e1,f1
Dim posta(5),N(5),poste(5),N1(5),Num(5),Num1(5),z2,z1
Dim Nu(5),Nu1(5),N2(5),N3(5),Nu2(5),RT1(2),R1(2),col
posta(2) = 1
posta(3) = 1
posta(4) = 1
poste(2) = 1
Ini = EstrazioneFin - 90 'Numero Estrazioni da controllare
Fin = EstrazioneFin
Scrivi " - Di Binarycode - BA - NA - ",1,,,1,3,,1
For Es = Ini To Fin
' If IsUltimaDelMese(Es) Then
'If IndiceMensile(Es) = 1 Then
col = 9 ' Colpi di gioco
'--- Bari
K = K + 1
a = Estratto(Es,1,1)' |
b = Estratto(Es,1,2)' |
c = Estratto(Es,1,3)' | basta cambiare 1 = Bari
d = Estratto(Es,1,4)' |
e = Estratto(Es,1,5)' |
f = Fuori90(a + b + c + d + e)
'---
N(1) = Fuori90(f + 10)
N(2) = Fuori90(f + 3)
N(3) = Fuori90(f + 33)
N(4) = Fuori90(f + 72)
N(5) = Fuori90(f + 67)
'--- Napoli
a1 = Estratto(Es,6,1)' |
b1 = Estratto(Es,6,2)' |
c1 = Estratto(Es,6,3)' | basta cambiare 6 = Napoli
d1 = Estratto(Es,6,4)' |
e1 = Estratto(Es,6,5)' |
f1 = Fuori90(a1 + b1 + c1 + d1 + e1)
'---
Nu(1) = Fuori90(f1 + 63)
Nu(2) = Fuori90(f1 + 3)
'--- Numeri in Gioco ---
N1(1) = N(1)
N1(2) = N(2)
'---
N2(1) = N(1)
N2(2) = N(3)
'---
N3(1) = N(4)
N3(2) = N(5)
'---
Nu1(1) = f1
Nu1(2) = Nu(1)
'---
Nu2(1) = f1
Nu2(2) = Nu(2)
'---
Num(1) = N(1)
Num(2) = N(2)
Num(3) = N(3)
Num(4) = N(4)
Num(5) = N(5)
EliminaRipetuti Num
Num1(1) = f1
Num1(2) = Nu(1)
Num1(3) = Nu(2)
EliminaRipetuti Num1
'---
RT(1) = 1
RT(2) = 11
'---
RT1(1) = 6
RT1(2) = 11
'---
R(1) = 1
'---
R1(1) = 6
'---
z1 = 1
z2 = 6
Scrivi DataEstrazione(Es) & " > " & SiglaRuota(z1) & " - " & StringaEstratti(Es,z1) & " Somma -> " & Format2(f) ,3
Scrivi DataEstrazione(Es) & " > " & SiglaRuota(z2) & " - " & StringaEstratti(Es,z2) & " Somma -> " & Format2(f1) ,3
'---
ImpostaGiocata 1,N1,R,poste,col,2
ImpostaGiocata 2,N2,R,poste,col,2
ImpostaGiocata 3,N3,R,poste,col,2
ImpostaGiocata 4,Nu1,R1,poste,col,2
ImpostaGiocata 5,Nu2,R1,poste,col,2
ImpostaGiocata 6,Num,RT,posta,col,2
ImpostaGiocata 7,Num1,RT1,posta,col,2
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
'End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub

Dopo aver soddisfatto gli "appetiti" dell' anima,controllato il tutto...e' perfetto,e il resoconto e' di tutto rispetto.

Chiedo a te ,Toon ,sarebbe possibile inserire le due lunghette delle due ruote unite per un gioco a tutte per sorti maggiori? In pratica , dall output dello script in essere escono:

BA 01.22.29.52.86
NA 10.37.40

LUNGHETTA UNITA :01- 10-22-29-37-40-52-86 da giocarsi SOLO a TT per le sorti maggiori (T/Q/C) ????

Peccato per il FUORI91 ho provato a modificarlo ma mi da errore.Possibile che non esiste un "escamotage" per aggirare questo errore?

Grazie del tempo che mi hai dedicato,io continuo a cercare nel "frattime".

La ricerca e studio l'ho denominata "LEON 2009 TOON over" questo perche' e' il nome di mio figlio,e tu,sei stato il primo a scriptare questa idea..Grazie ancora.

SUERTE!!!!!!

Sakti · 31 Luglio 2023

Ho fatto le modifiche che hai chiesto, se vuoi cambiare i colpi di gioco delle singole
giocate, è sufficente che nel listato sostituisci "col" con il numero che preferisci.
io le ho fatte tutte uguali a 9 colpi.

salvo50 · 31 Luglio 2023

Ho messo la scelta delle ruote ed anche il FUORI90 91 ECC...

si giocano i 6 ambi più la lunghetta di 8 numeri se non ci sono ripetizioni

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,R1,R2,XX,Clp1,Clp2,Es,Salvo50
   Dim P1,P5,P6,E1,E2,Casi,Som_R1,Som_R2
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Lunghetta(8),Ambo5(2),Ambo6(2)
   Dim Ruo1(3),Ruo2(3),Posta(2),Poste(5)
   Poste(3) = 1
   'Poste(4) = 1
   'Poste(5) = 1
   Posta(2) = 1
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10230))
   R1 = CInt(InputBox(" Inserisci il numero della prima ruota",Salvo50,1))
   R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",Salvo50,6))
   XX = CInt(InputBox(" Inserisci il numero del FUORI90, 91 ecc... massimo 99",Salvo50,90))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare gli ambi?",Salvo50,5))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare la lunghetta?",Salvo50,10))

   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & " CHIESTO DA BINARYCODE - SCRIPT SALVO50" & Space(10),1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Som_R1 = SommaEstratti(Es,R1)
      Som_R1 = FuoriX(Som_R1,XX)
      Som_R2 = SommaEstratti(Es,R2)
      Som_R2 = FuoriX(Som_R2,XX)
      Ambo1(1) = FuoriX(Som_R1 + 10,XX) : Ambo1(2) = FuoriX(Som_R1 + 3,XX)
      Ambo2(1) = FuoriX(Som_R1 + 10,XX) : Ambo2(2) = FuoriX(Som_R1 + 33,XX)
      Ambo3(1) = FuoriX(Som_R1 + 72,XX) : Ambo3(2) = FuoriX(Som_R1 + 67,XX)
      Ambo4(1) = FuoriX(Som_R2 + 90,XX) : Ambo4(2) = FuoriX(Som_R2 + 63,XX)
      Ambo5(1) = FuoriX(Som_R2 + 90,XX) : Ambo5(2) = FuoriX(Som_R2 + 3,XX)
      Lunghetta(1) = Ambo1(1) : Lunghetta(2) = Ambo1(2) : Lunghetta(3) = Ambo2(2)
      Lunghetta(4) = Ambo3(1) : Lunghetta(5) = Ambo3(2) : Lunghetta(6) = Ambo4(1)
      Lunghetta(7) = Ambo4(2) : Lunghetta(8) = Ambo5(2)
      EliminaRipetuti Lunghetta
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
      Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " Somma col Fuori" & XX & " = " & Som_R1,1
      Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " Somma col Fuori" & XX & " = " & Som_R2,1
      Scrivi
      Scrivi Space(10) & " Numeri fissi da aggiungere alla somma della prima ruota    10 03 10 33 72 67",1
      Scrivi Space(10) & " Numeri fissi da aggiungere alla somma della seconda ruota  90 63 90 03",1
      Scrivi
      Ruo1(1) = R1 : Ruo1(2) = R2 : Ruo1(3) = TT_
      ImpostaGiocata 1,Ambo1,Ruo1,Posta,Clp1
      ImpostaGiocata 2,Ambo2,Ruo1,Posta,Clp1
      ImpostaGiocata 3,Ambo3,Ruo1,Posta,Clp1
      ImpostaGiocata 4,Ambo4,Ruo1,Posta,Clp1
      ImpostaGiocata 5,Ambo5,Ruo1,Posta,Clp1
      ImpostaGiocata 6,Lunghetta,Ruo1,Poste,Clp2
      Gioca Es,1
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Sakti · 31 Luglio 2023

Grazie salvo50, da Te c'è sempre da imparare...
Hai semplificato il mio bailame...

Codicebinario · 1 Agosto 2023

salvo50 ha scritto:

Ho messo la scelta delle ruote ed anche il FUORI90 91 ECC...

si giocano i 6 ambi più la lunghetta di 8 numeri se non ci sono ripetizioni

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,R1,R2,XX,Clp1,Clp2,Es,Salvo50
   Dim P1,P5,P6,E1,E2,Casi,Som_R1,Som_R2
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Lunghetta(8),Ambo5(2),Ambo6(2)
   Dim Ruo1(3),Ruo2(3),Posta(2),Poste(5)
   Poste(3) = 1
   'Poste(4) = 1
   'Poste(5) = 1
   Posta(2) = 1
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10230))
   R1 = CInt(InputBox(" Inserisci il numero della prima ruota",Salvo50,1))
   R2 = CInt(InputBox(" Inserisci il numero della seconda ruota",Salvo50,6))
   XX = CInt(InputBox(" Inserisci il numero del FUORI90, 91 ecc... massimo 99",Salvo50,90))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare gli ambi?",Salvo50,5))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare la lunghetta?",Salvo50,10))

   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & " CHIESTO DA BINARYCODE - SCRIPT SALVO50" & Space(10),1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Som_R1 = SommaEstratti(Es,R1)
      Som_R1 = FuoriX(Som_R1,XX)
      Som_R2 = SommaEstratti(Es,R2)
      Som_R2 = FuoriX(Som_R2,XX)
      Ambo1(1) = FuoriX(Som_R1 + 10,XX) : Ambo1(2) = FuoriX(Som_R1 + 3,XX)
      Ambo2(1) = FuoriX(Som_R1 + 10,XX) : Ambo2(2) = FuoriX(Som_R1 + 33,XX)
      Ambo3(1) = FuoriX(Som_R1 + 72,XX) : Ambo3(2) = FuoriX(Som_R1 + 67,XX)
      Ambo4(1) = FuoriX(Som_R2 + 90,XX) : Ambo4(2) = FuoriX(Som_R2 + 63,XX)
      Ambo5(1) = FuoriX(Som_R2 + 90,XX) : Ambo5(2) = FuoriX(Som_R2 + 3,XX)
      Lunghetta(1) = Ambo1(1) : Lunghetta(2) = Ambo1(2) : Lunghetta(3) = Ambo2(2)
      Lunghetta(4) = Ambo3(1) : Lunghetta(5) = Ambo3(2) : Lunghetta(6) = Ambo4(1)
      Lunghetta(7) = Ambo4(2) : Lunghetta(8) = Ambo5(2)
      EliminaRipetuti Lunghetta
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
      Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " Somma col Fuori" & XX & " = " & Som_R1,1
      Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " Somma col Fuori" & XX & " = " & Som_R2,1
      Scrivi
      Scrivi Space(10) & " Numeri fissi da aggiungere alla somma della prima ruota    10 03 10 33 72 67",1
      Scrivi Space(10) & " Numeri fissi da aggiungere alla somma della seconda ruota  90 63 90 03",1
      Scrivi
      Ruo1(1) = R1 : Ruo1(2) = R2 : Ruo1(3) = TT_
      ImpostaGiocata 1,Ambo1,Ruo1,Posta,Clp1
      ImpostaGiocata 2,Ambo2,Ruo1,Posta,Clp1
      ImpostaGiocata 3,Ambo3,Ruo1,Posta,Clp1
      ImpostaGiocata 4,Ambo4,Ruo1,Posta,Clp1
      ImpostaGiocata 5,Ambo5,Ruo1,Posta,Clp1
      ImpostaGiocata 6,Lunghetta,Ruo1,Poste,Clp2
      Gioca Es,1
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

GRAZIEEEE SALVO50 e perdonami se nel mio 1° post ho causato incertezze per disattenzioni o calcolati errati .Grazie ancora.

Cerca

Cerca

AIUTO PER UNA TECNICA (SCRIPT) x per gli scripter di buona volonta.

Codicebinario

Advanced Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

Codicebinario

Advanced Member >PLATINUM<

Sakti

Advanced Member

Codicebinario

Advanced Member >PLATINUM<

Codicebinario

Advanced Member >PLATINUM<

Sakti

Advanced Member

salvo50

Advanced Member >PLATINUM PLUS<

Sakti

Advanced Member

Codicebinario

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi