RICHIESTA SCRIPT matematica sommativa

[desperaux]

Buongiorno a tutti

Vi chiedo gentilmente se e' possibile creare uno script di matematica sommativa tra due ruote da

scegliere a richiesta

Per esempio lo script deve chiedermi:

1 ruota

2 ruota

Estratto 1 o 2 o 3 o 4 o 5 ( della 1 ruota)

Estratto 1 o 2 o 3 o 4 o 5 ( della 2 ruota )

Quindi eseguire la somma e eventuale fuori 90

Stilare una statistica degli esiti

Range per controllo esiti 4 mesi

P.s se ho scritto cavolate correggetemi
P.s esiste gia' uno script del genere su Lottoced?

grazie a chi vorra' rispondermi

ciao

 

[rabberto]

Ciao desperaux ho provato a modificare uno script gia fatto ed adattarlo per la tua ricerca pero' va in errore ci sono ancora molte cose che non mi sono chiare ci sarebbe da dichiarare ancora qualche variabile e poi da mettere i cicli for next if then ecc.. che sto ancora cercando di capire come funzionano , ti posto lo script ma e da correggere perche va in errore e un inizio poi vediamo se qualcuno lo corregge ciao :

Sub Main()
Dim ru(2)
Dim nu(1)
Dim po(1)
po(1) = 1
r1=InputBox("1° RUOTA DI GIOCO ?",1)
r2=InputBox("2° RUOTA DI GIOCO ?",2)
pos1=(InputBox("POSIZIONE ESTRATTI 1° RUOTA DI GIOCO ?",1))
pos2=(InputBox("POSIZIONE ESTRATTI 2° RUOTA DI GIOCO ?",1))


rs=InputBox("ESTRAZIONE DI PARTENZA ?",8000)
k=InputBox("COLPI DI GIOCO ?",9)
fin=EstrazioneFin
ini=rs
For es=ini To fin
a = Estratto(pos1)
b = Estratto(pos2)


nu(1)= Fuori90(a+b)
ru(1)= r1
ru(2)= r2
ImpostaGiocata 1,nu,ru,po
Gioca es


Next
ScriviResoconto
End Sub

 

[desperaux]

Ciao rabberto e DISARONNO

Grazie l'ho provato e funziona.

L'unica cosa che avevo dimenticato di specificare e' che alla somma con l'eventuale fuori 90 bisogna considerare anche il diametrale

Quindi nella statistica aggiungere il vertibile

Inoltre se non disturba,si potrebbe far si che l'esito lo scelga io su quale ruota far la verifica?

Esempio :

decido 1 BA+ 5 BA ,
estraz da esam da 8600 a 8693
colpi 3
ruote da verificare esito: qui vorrei poter scegliere io


grazie

 

[Joe91]

Buona Sera a tutte/i.

Ho apportato anch'io alcune modifiche allo script di Rabberto,

le propongo qui di seguito:

Sub Main()
 Dim Ru(2), Nu(2), Po(2), Rt(1), Pt(2)
 Po(1) = 1 : Po(2)=1  : Rt(1)=11 : Pt(2)=1
 Ru(1) = InputBox("1° RUOTA ?","SCELTA RUOTA",1)
 Ru(2) = InputBox("2° RUOTA ?","SCELTA RUOTA",2)
 P1 = InputBox("POSIZIONE ESTRATTO?",NomeRuota(Ru(1)),1)
 P2 = InputBox("POSIZIONE ESTRATTO?",NomeRuota(Ru(2)),1)
 k = InputBox("Quanti ","COLPI DI GIOCO",9)
 fin = EstrazioneFin
 Ini = Fin - 59 Rem 60 Estrazioni = Circa 4 Mesi
 For es = ini To fin
 Co = Co + 1 : Scrivi String (106,"=") & Co & "°",1
  a = Estratto(Es,Ru(1),P1)
  b = Estratto(Es,Ru(2),P2)
  Nu(1) = Fuori90(a + b) : Nu(2)=Vert(Nu(1))
  ImpostaGiocata 1,Nu,Ru,Po,K,1
  ImpostaGiocata 2,Nu,Rt,Pt,K,2
  Gioca es,1
 Next
 ScriviResoconto
End Sub

Cordiali saluti

 

[desperaux]

Ciao joe91

grazie anche a te

percheì hai inserito un rabge fisso di 60 estraz?

potresti far si che lo decida l'utente?

come pure su "Quale ruota verifico l'esito?"

grazie

 

[Joe91]

Ciao,

le migliorie che avevi richisto non potevano ancora essere ricomprese nello script,

pubblicato contemporaneamente ad esse.

Sub Main()
 Dim Ru(2), Nu(2), Po(2), Rt(1)', Pt(2)
 Po(1) = 1 : Po(2)=1  ': Rt(1)=11 : Pt(2)=1
 Ru(1) = InputBox("1° RUOTA ?","SCELTA RUOTA",1)
 Ru(2) = InputBox("2° RUOTA ?","SCELTA RUOTA",2)
 Ru(2) = InputBox("2° RUOTA ?","SCELTA RUOTA",2)
 P1 = InputBox("POSIZIONE ESTRATTO?",NomeRuota(Ru(1)),1)
 P2 = InputBox("POSIZIONE ESTRATTO?",NomeRuota(Ru(2)),1)
 Rt(1) =InputBox("GIOCO ?","SCELTA RUOTA",3)
 E = InputBox("Quante ? ","ESTRAZIONI PRECEDENTI",55)-1
 k = InputBox("Quanti  ?","COLPI DI GIOCO",9)
 fin = EstrazioneFin
 Ini = Fin - E  
 For es = ini To fin
 Co = Co + 1 : Scrivi String (106,"=") & Co & "°",1
  a = Estratto(Es,Ru(1),P1)
  b = Estratto(Es,Ru(2),P2)
  Nu(1) = Fuori90(a + b) : Nu(2)=Vert(Nu(1))
 'ImpostaGiocata 1,Nu,Ru,Po,K,1
  ImpostaGiocata 2,Nu,Rt,Po,K,2
  Gioca es,1
 Next
 ScriviResoconto
End Sub

 

[desperaux]

Ciao Joe91

ti ringrazio tanto per la pazienza ,adesso va bene l'unica cosa che forse ti e' sfuggita e che avevo corretto dicendo di considerare il DIAMETRALE del numero scaturito dalla somma e non il vertibile

Se puoi apportare solo quest'ultima modifica te ne sono grato

ciao

 

[Joe91]

Ciao.,

non c'è problema. La correzione è veramente minimale.

Sub Main()
 Dim Ru(2), Nu(2), Po(2), Rt(1) : Po(1) = 1 : Po(2) = 1  
 Ru(1) = InputBox("1° RUOTA ?","SCELTA RUOTA",1)
 Ru(2) = InputBox("2° RUOTA ?","SCELTA RUOTA",2)
 Ru(2) = InputBox("2° RUOTA ?","SCELTA RUOTA",2)
 P1 = InputBox("POSIZIONE ESTRATTO?",NomeRuota(Ru(1)),1)
 P2 = InputBox("POSIZIONE ESTRATTO?",NomeRuota(Ru(2)),1)
 Rt(1) =InputBox("GIOCO ?","SCELTA RUOTA",3)
 E = InputBox("Quante ?","ESTRAZIONI PRECEDENTI",55)-1
 K = InputBox("Quanti ?","COLPI DI GIOCO",9)
 fin = EstrazioneFin
 Ini = Fin - E  
For es = ini To fin
 Co = Co + 1 : Scrivi String (106,"=") & Co & "°",1
  a = Estratto(Es,Ru(1),P1)
  b = Estratto(Es,Ru(2),P2)
  Nu(1) = Fuori90(a + b) : Nu(2)=Diametrale(Nu(1))
  ImpostaGiocata 1,Nu,Rt,Po,K,2
  Gioca es,1
Next
 ScriviResoconto
End Sub

Buona Serata

 

[rabberto]

Bravi disaronno e Joe91 complimenti io mi sono letto di tutto ma non ci sono arrivato eppure sembrava piu facile pensavo di farcela , si vede che devo studiare di piu , ciao.

 

[desperaux]

Ciao Joe91

ok va bene adesso

Un grazie a te ,Rabberto e Disaronno

siete gentilissimi

 

[keeper]

ho inserito un indice mensile sembra che funzioni meglio

Sub Main()Dim Ru(2),Nu(2),Po(2),Rt(1) : Po(1) = 1 : Po(2) = 1
Ru(1) = InputBox("1° RUOTA ?","SCELTA RUOTA",1)
Ru(2) = InputBox("2° RUOTA ?","SCELTA RUOTA",1)
P1 = InputBox("POSIZIONE ESTRATTO?",NomeRuota(Ru(1)),1)
P2 = InputBox("POSIZIONE ESTRATTO?",NomeRuota(Ru(2)),1)
Rt(1) = InputBox("GIOCO ?","SCELTA RUOTA",1) 
E = InputBox("Quante ?","ESTRAZIONI PRECEDENTI",55) - 1
K = InputBox("Quanti ?","COLPI DI GIOCO",9)
fin = EstrazioneFin
Ini = Fin - E
For es = ini To fin
If IndiceMensile(es) = 1 Then ' prima estrazione del mese per ultima sostitutite (es) con (es +1)
Co = Co + 1 : Scrivi String(106,"=") & Co & "°",1
a = Estratto(Es,Ru(1),P1)
b = Estratto(Es,Ru(2),P2)
Nu(1) = Fuori90(a + b) : Nu(2) = Diametrale(Nu(1))
ImpostaGiocata 1,Nu,Rt,Po,K,2
Gioca es,1
End If
Next
ScriviResoconto
End Sub

 

[desperaux]

Ciao Keeper

grazie anche a te per la collaborazione