AIUTO ! -----( RISOLTO by pfca )----

[Roby]

Ciao Francesco

Adesso i calcoli li fa giusti,grazie.


C'è stata un po di confusione da parte mia, quando ti feci la primissima richiesta nei primi post.


Adesso faccio un Riepilogo dei passi che lo script dovrebbe fare, quelli importanti (che mancano sono quelli in rosso).

La confusione sta nel passo (5) numero da sommare/sottrare alla BASE, e il passo (12) numero da sommare/sottrarre all'AMBATA.

Per il resto tutto OK.


Riepilogo Sequenza passi dello script :



1)- Scelta della ruota da analizzare-------------------->OK

2)- Scelta dell'estrazione da analizzare---------------->OK

3)- Scelta degli estratti da utilizzare----------------->OK

4)- Scelta della posizione del numero da utilizzare----------->OK

*****************************************************************

5)- Scelta se sommare o sottrarre un numero alla BASE--SI/NO---->( La BASE NON è l'AMBATA, ma il numero o la somma dei numeri scelti).

******************************************************************

6)- Scelta se sommare o sottrarre 1-/-2.(opzione legata a quella precedente).

7)- Scelta di quale numero.(opzione legata alle due precedenti).

-----------------------------------------------------------------
-----------------------------------------------------------------

8)- Scelta per quante estrazioni giocare---------------->OK

9)- scelta su quante estrazioni fare la ricerca--------->OK

10)- scelta su quante ruote giocare--------------------->OK

11)- Scelta delle ruote in gioco------------------------>OK

**************************************************************
Qui ci dovrebbe stare un altra inputbox

12)- Scelta se sommare o sottrarre un numero all'AMBATA--SI/NO---->OK

13)- scelta se sommare o sottrarre---1-/-2.------------->OK

14)- Scelta del numero---------------------------------->OK

*************************************************************

Fine dello script


Ciao



Frank

 

[pfca]

Ciao kjo,
non capisco se sono io che ho difficoltà, oppure senza accorgerti, vari le condizioni da un post all'altro.
Ti riepilogo le cose sperando di arrivare ad una conclusione:
5)- Scelta se sommare o sottrarre un numero alla BASE--SI/NO---->( La BASE NON è l'AMBATA, ma il numero o la somma dei numeri scelti).
Qui mi devi spiegare cosa vuoi, perché per quanto ho capito io, la somma dei numeri
Dopo la scelta da 1 a 5, degli estratti, mi hai chiesto di fare il fuori X, per trovare l’ambata per cui può essere solo una sottrazione,
somma totale – n*x sino a trovare il primo numero inferiore a 90, e questa è L’Ambata. Quarto input se scegli 5 estratti
Dopo altre scelte, si arriva al passo che tu definisci 6
E ti chiede: Vuoi Sommare o Sottrarre un numero al numero base? Si – No
Se sì= 1, ti chiede: Digita la scelta: Sommare = 1 Sottrarre = 2
E poi ti chiede Quale numero?
Sin qui penso di aver fatto tutto come richiesto
Adesso mi chiedi di:
Qui ci dovrebbe stare un altra inputbox

12)- Scelta se sommare o sottrarre un numero all'AMBATA--SI/NO---->OK

13)- scelta se sommare o sottrarre---1-/-2.------------->OK

14)- Scelta del numero---------------------------------->OK

Con questo numero risultato di una Somma o Sottrazione con l’Ambata, avrai 4 numeri da giocare, è giusto?


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[Roby]

Ciao Francesco

nel mio post del 24/10/2011---ore19:09:11 ti avevo messo tutte le modifiche da inserire, e non è cambiato, sono sempre quelle, forse ti è sfuggito perchè i tutti i post qui sono lunghissimi.
Colpa mia che non ho chiarito tutto dall'inizio, volevo procedere passo passo, per non incasinarti, invece sono inciampato nei miei passi.[B)][B)][B)]
Adesso che, addentrandomi negli script, capisco che avere tutte le informazioni insieme, è importante per la sequenza dello script. Scusami ancora.

Riepilogo Sequenza passi dello script finale senza più modifiche :



1)- Scelta della ruota da analizzare-------------------->OK

2)- Scelta dell'estrazione da analizzare---------------->OK

3)- Scelta degli estratti da utilizzare----------------->OK

4)- Scelta della posizione del numero da utilizzare----------->OK

5- Scelta se sommare o sottrarre un numero alla BASE--SI/NO---->( La BASE NON è l'AMBATA, ma il numero o la somma dei numeri scelti).

6)- Scelta se sommare o sottrarre 1-/-2.(opzione legata a quella precedente).

7)- Scelta di quale numero.(opzione legata alle due precedenti).

******************************************************************

Fin qui ci ricaviamo il primo numero in gioco : L'AMBATA PRINCIPALE

Qui chiarisco meglio :

Se si sceglie di sottrarre un numero alla base si fa il fuori X.

Se invece si somma un numero alla base, nei casi che serve, si fa il fuori 90.

Che si scelga la somma o la sottrazzione, si ricava solo un numero da questo procedimento : L'AMBATA PRINCIPALE

*******************************************************************


Il secondo numero in gioco è già stato determinato con il Diametrale in decina dell'Ambata principale.


###############################################################


8)- Scelta per quante estrazioni giocare---------------->OK

9)- scelta su quante estrazioni fare la ricerca--------->OK

10)- scelta su quante ruote giocare--------------------->OK

11)- Scelta delle ruote in gioco------------------------>OK


************************************************************


12)- Scelta se sommare o sottrarre un numero all'AMBATA--SI/NO

13)- scelta se sommare o sottrarre---1-/-2.

14)- Scelta del numero


Chiarimento :

Se si sceglie di sommare un numero all'Ambata, se serve si usa il fuori 90.

Se invece si decide di sottrarre un numero all'Ambata, lo si fa dal più grande al più piccolo.


Da questo ultimo procedimento ci ricaviamo il TERZO ED ULTIMO NUMERO in gioco.

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°


Fine dello script finale.[xx(][^]


Ciao



Frank

 

[pfca]

Buongiono kjo,
ti allego lo script, fai le verifiche e fammi sapere.

'Elaborazione per kjo by pfca.
Sub Main()
Dim ruote(10)
Dim num(10)
Dim num1(2)
Dim poste(2)
Dim posta(3)
poste(1) = 1 ' < - - - posta per estratto
r = InputBox("Quale Ruota vuoi analizzare:"," Scegli la Ruota",1)
es = InputBox("0 = ultima, 1 = prima, 2 = seconda, etc. del mese","Scegli l'estrazione",0)
ne = InputBox("Quanti estratti vuoi utilizzare: 1, 2, 3, 4, 5"," Scegli la quantità di estratti",5)
If ne = 1 Then
ne1 = InputBox("Scegli la posizione:","",1)

End If
If ne = 2 Then
ne1 = InputBox("Scegli la prima posizione:","",1)
ne2 = InputBox("Scegli la seconda posizione:","",1)
End If
If ne = 3 Then
ne1 = InputBox("Scegli la prima posizione:","",1)
ne2 = InputBox("Scegli la seconda posizione:","",1)
ne3 = InputBox("Scegli la terza posizione:","",1)
End If
If ne = 4 Then
ne1 = InputBox("Scegli la prima posizione:","",1)
ne2 = InputBox("Scegli la seconda posizione:","",1)
ne3 = InputBox("Scegli la terza posizione:","",1)
ne4 = InputBox("Scegli la quarta posizione:","",1)
End If
'-------------------------------------------------------------------------
nf = InputBox("Vuoi sommare o sottrarre un numero alla Base?"," 1 = Sì 2 = No",2)
If nf = 1 Then
ns = InputBox("Sommare = 1 Sottrarre = 2 ","Digita la scelta",1)
pf = InputBox("Quale numero?","Digita il numero",1)
If ns = 1 Then zz = "+"
If ns = 2 Then zz = "-"
End If
k = InputBox("Quante Estrazioni successive vuoi giocare:","Per quanti colpi",9)
ric = InputBox("Su quante Estrazioni vuoi fare la ricerca:","",100)
nr = InputBox("Su quante Ruote vuoi giocare: 1 - 2 ","Scegli il numero delle Ruote su cui giocare",2)
If nr = 1 Then
ruote(1) = InputBox("Scegli la prima Ruota di gioco:"," 1° Ruota",1)
End If
If nr = 2 Then
ruote(1) = InputBox("Scegli la prima Ruota di gioco:"," 1° Ruota",1)
ruote(2) = InputBox("Scegli la seconda Ruota di gioco:"," 2° Ruota",2)
End If
na = InputBox("Vuoi sommare o sottrarre un numero all' Ambata?"," 1 = Sì 2 = No",2)
If na = 1 Then
ss = InputBox("Sommare = 1 Sottrarre = 2 ","Digita la scelta",1)
na1 = InputBox("Quale numero?","Digita il numero",1)
If ss = 1 Then yy = "+"
If ss = 2 Then yy = "-"

End If
ini = EstrazioneFin - ric
fin = EstrazioneFin
For n = ini To fin
Messaggio
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
n1 = Estratto(n,r,1)
n2 = Estratto(n,r,2)
n3 = Estratto(n,r,3)
n4 = Estratto(n,r,4)
n5 = Estratto(n,r,5)
If ne = 1 Then
numb = Estratto(n,r,ne1)
End If
If ne = 2 Then
numb = Estratto(n,r,ne1) + Estratto(n,r,ne2)
End If
If ne = 3 Then
numb = Estratto(n,r,ne1) + Estratto(n,r,ne2) + Estratto(n,r,ne3)
End If
If ne = 4 Then
numb = Estratto(n,r,ne1) + Estratto(n,r,ne2) + Estratto(n,r,ne3) + Estratto(n,r,ne4)
End If
If ne = 5 Then
numb = SommaEstratti(n,r)
End If
If nf = 1 And ns = 2 Then
posta(2) = 1 ' < - - - posta per ambo
If numb > 90 Then
rs = Int(numb/pf)
ris = 0
For f = 1 To rs
ris = numb -(pf * f)
If ris < 90 Then Exit For
Next
Else
ris = numb - pf
End If
End If
If nf = 1 And ns = 1 Then
ris = Fuori90(numb + pf)
End If
If na = 1 Then
posta(2) = 1 ' < - - - posta per ambo
posta(3) = 0.5 ' < - - - posta per terno
num(1) = ris
num(2) = DiametraleD(ris)
If ss = 1 Then
num(3) = Fuori90(ris + na1)
End If
If ss = 2 Then
If num(1) > na1 Then
num(3) = ris - na1
End If
If num(1) < na1 Then
num(3) = na1 - ris
End If
End If
Scrivi "-----------------------------------------------------------------------------------"
ColoreTesto 1
Scrivi "Ruota di ricerca: " & FormatSpace(NomeRuota(r),10) & " Data Estraz.: " & DataEstrazione & " Estratti: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5
If ne = 5 Then
Scrivi "Somma estratti = " & numb & " Base " & zz & " " & pf & " = " & num(1) & " Ambata " & yy & " " & FormatSpace((na1),2) & " = "

 

[Roby]

Ciao Francesco

Tutto funziona a meraviglia.

Non ci sono parole per ringraziarti....

...è ho finito di torturarti[:I]

..è stato letto più di 1400 volte, spero che sia di qualche utilità anche ad altri.

Grazie pfca, sei un mito.[^]




Frank

 

[claudio8]

quote:Originally posted by kjo

Ciao Francesco

Tutto funziona a meraviglia.

Non ci sono parole per ringraziarti....

...è ho finito di torturarti[:I]

..è stato letto più di 1400 volte, spero che sia di qualche utilità anche ad altri.

Grazie pfca, sei un mito.[^]



Frank

Bene, vedo che hai finito di chiedere AIUTO! Grazie a PFCA, potresti cambiare il titolo in NON MI SERVE + L'AIUTO. Grazie PFCA in modo che tutti noi non ci poniamo + il problema.
Ciao

 

[Roby]

quote:Originally posted by claudio8

Bene, vedo che hai finito di chiedere AIUTO! Grazie a PFCA, potresti cambiare il titolo in NON MI SERVE + L'AIUTO. Grazie PFCA in modo che tutti noi non ci poniamo + il problema.
Ciao
[/quote]

Hai ragione claudio, scusa non ci avevo pensato[B)]

FATTO [^]




Frank

 

[joi_lotto]

.

 

[claudio8]

x joi
!

 

[Roby]

?????





Frank