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

[pfca]

ciao,
hai controllato di aver copiato bene il codice?
sul pulsante con il tasto destro del mouse, hai
poi assegnato la macro?
Il foglio ha il nome Foglio1?
fai sapere

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

 

[Roby]

quote:Originally posted by claudio8

x Pfca ...
non scaricarmi la patata bollente
a volte mi diverto a fare gli script, ed a volte non ne ho voglia..
vedrò cosa posso fare.

X Kjo ho notato, se mi avessi avvisato prima....il 41 55 sarebbe andato a segno.
Hai provato lo script? funziona come vorresti ?
ti ho inserto un ciclo con tutti i valori RESTO da 1 a 90

Sub Main()
N = CInt(InputBox("Inserisci il numero","SOMMA",351))
R = CInt(InputBox("Inserisci il numero","RESTO",2))
For R = 1 To 90
F = N
While F > 90
F = F - R
Wend
Scrivi "SOMMA " & N & " con resto = " & R & " = " & F
Next
Scrivi
Scrivi
TestoInBandaPassante " Per il caffè... siamo spiacenti .... in questo periodo date le ristrettezze economiche generali... siamo senza zucchero... scusateci per il disguido ",1,3,0
End Sub
Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

La patata ?, dove ? come ? anchio la vogliooooooo !!![8D]
poi se è bollente..........[]
Non ti preoccupare Claudio, qualsiasi cosa fai è ben fatta e ben accetta, e anche se non la fai.
Guardati le ultime 10 estrazioni di bari e venezia e vedi che scherzi.
Riassumo : Bari ambo 44-77<--->dopo 6 colpi<---> Venezia ambo 44-77.
Venezia ambo 41-55---dopo 4 colpi bari ambo 41-55----dopo altri 3 colpi a venezia ancora ambo 41-55. ( e che cappero !)
bari ambo 10-18----venezia ambo 10-18.
hai capito !, non parliamo poi di tutti gli estratti ripetuti fra le due ruote !

Grazie lo script funziona alla grande, non avevo dubbi.

Aspetto la patata adesso !

ciao



Frank

 

[Roby]

quote:Originally posted by pfca

ciao,
hai controllato di aver copiato bene il codice?
sul pulsante con il tasto destro del mouse, hai
poi assegnato la macro?
Il foglio ha il nome Foglio1?
fai sapere

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

Ciao Francesco

Non ho premuto il tasto destro del mouse, ma ho fatto esattamente i passaggi che ho detto prima e null'altro.

Pensavo che bastava fare in quel modo.
Come si assegna la macro al pulsante?
Io ho excel 2003
si il foglio e il foglio 1, non lo rinominato.

ho fatto una prova con il tasto destro, ma non vedo niente che mi dice "assegna macro".

puo fare una procedura passo passo, magari salto qualcosa che non so.

Grazie


Frank

 

[pfca]

Ciao kjo ti invio alcune immagini per farti vedere il percorso da seguire.
Prova subito a vedere se le macro sono attivate come nell'ultima immagine.

Tasto destro del mouse e scegli assegna macro

scegli pulsante_click e pressa modifica

e ti porta dentro la macro che ha inizializzato

evidenzia tutto e poi cancella

copiaci la macro che ti ho inviato e chiudi

nuovamente tasto destro del mouse e evidenzia nel quadretto sotto Calcola, OK

Poi vai su menu-strumenti-macro -protezione e controlla se le macro sono abilitate

Spero sia tutto chiaro.




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

 

[Roby]

Ciao Francesco, Buona Domenica

O c'è qualcosa che mi sfugge, o qualcosa non mi funziona come dovrebbe.

Io creo il " command button" poi faccio click destro, ma nel menu non appare "assegna macro come lo fa a te. Boooooo !

Guarda :

O sbaglio nel modo di creare il pulsante o chissa che altro...

Le macro sono attivate, la protezione è impostata su medio...

Non so più che pesci pigliare.



Frank

 

[pfca]

Ciao kjo,
pressa visualizza codice, ti appare:
Private Sub CommandButton1_Click()

End Sub
Scrivi tra private e End Sub così:
Call Calcola
Diventerà
Private Sub CommandButton1_Click()
Call Calcola
End Sub
Poi dal menu - Inserisci - Modulo
e nel modulo copia la mia macro.
chiudi la finestra del vba
è prova.
Stò portando avanti anche lo script

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

 

[Roby]

Ciao Francesco

Tutto risolto, sono io che sono rimbambito, per creare il pulsante, andavo in strumenti di controllo e non in moduli......

Funziona tutto alla perfezione !!![]

Grazie di cuore, sei un grande, altruista e generoso ![8D][8D][8D]

Se claudio o qualcun'altro ti da una mano per quello script sarebbe fantastico.
Forse lo sottovalutano perchè l'idea viene da l'ultimo arrivato, ma da esso potranno solo venire benefici per tutti.

Lo so che ci sono molte inputbox, ma servono per dare all'utilizzatore libertà di scelta nell'agire.

Grazie infinite per tutto quello che hai fatto finora.

ciao



Frank

 

[pfca]

Buongiorno Frank,
come promesso ti posto lo script chiesto, spero vada come desideri.

'Elaborazione per kjo by pfca.
Sub Main()
Dim ruote(10)
Dim num(10)
Dim posta(3)
posta(1) = 1 ' < - - - posta per estratto
posta(2) = 1 ' < - - - posta per ambo
r = InputBox("Quale Ruota vuoi analizzare:"," - by pfca -",1)
es = InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.","Scegli l'estrazione",0)
pf = InputBox("Quale Numero vuoi sottrarre:"," Fuori x",1)
k = InputBox("Quante Estrazioni successive giocare:","Per quanti colpi",9)
ric = InputBox("Su quante Estrazioni vuoi fare la ricerca:","",100)
nr = InputBox("Su quante Ruote vuoi giocare: 1 - 2 "," - by pfca -",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 un numero al risultato? 1 - 2 "," 1 = Sì - 2 = No",2)
If na = 1 Then
na1 = InputBox("Quale numero vuoi sommare:","Digita il numero",1)
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)
numb = SommaEstratti(n,r)
rs = Int(numb/pf)
ris = 0
For f = 1 To rs
ris = numb -(pf * f)
If ris < 90 Then Exit For
Next
If na = 1 Then
posta(3) = 0.5 ' < - - - posta per terno
num(1) = ris
num(2) = DiametraleD(ris)
num(3) = Fuori90(ris+na1)
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto 1
Scrivi "Ruota di ricerca: " & FormatSpace(NomeRuota(r),10) & " Data Estraz.: " & DataEstrazione
Scrivi "Num. estratti: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5 & " Somma estratti = " & numb & " Risultato Fuori " & pf & " = " & num(1)& "-" & num(2)& "-" & num(3)
ColoreTesto 0
Scrivi "--------------------------------------------------------------------------------"
Else
num(1) = ris
num(2) = DiametraleD(ris)
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto 1
Scrivi "Ruota di ricerca: " & FormatSpace(NomeRuota(r),10) & " Data Estraz.: " & DataEstrazione
Scrivi "Num. estratti: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5 & " Somma estratti = " & numb & " Risultato Fuori " & pf & " = " & num(1)& "-" & num(2)
ColoreTesto 0
Scrivi "--------------------------------------------------------------------------------"
End If
ColoreTesto 2
If nr = 1 Then
Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10)
ColoreTesto 0
Scrivi "--------------------------------------------------------------------------------"
End If
If nr = 2 Then
Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10)& " 2° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(2)),10)
ColoreTesto 0
Scrivi "--------------------------------------------------------------------------------"
End If
ImpostaGiocata 1,num,ruote,posta,k
Gioca n,- 1
End If
Next
ColoreTesto 1
Scrivi ""
Scrivi " • pfca • ",1
Scrivi ""
ColoreTesto 0
ScriviResoconto
End Sub



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

 

[Roby]

Grazie Francesco

nel pomeriggio lo provo... e ti faccio sapere.

Devo scollegarmi, mi stanno rompendo....

ciao



Frank

 

[Roby]

Ciao Francesco

Una sola parola : F-A-N-T-A-S-T-I-C-O !!![]

(e pensare che avevi detto che non eri molto esperto.....)

Questa è una buona base di partenza.

Ci sarebbero delle modifiche da fare,(se ti va) per affinare la ricerca, in modo che chiunque usi questo script, quando sarà ultimato, lo annoveri fra gli script da collezione.[8D]

Io mi sto studiando il linguaggio lottoscript, e sono stato in grado di fare uno script simile, ma molto basilare e rudimentale senza inputbox. Il tuo script già mi sta aiutando molto a capirci di più.

Ciao





Frank

 

[pfca]

Ciao Frank,
prova a dirmi le modifiche da fare e vedrò cosa riesco a combinare.


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

 

[Roby]

quote:Originally posted by pfca

Ciao Frank,
prova a dirmi le modifiche da fare e vedrò cosa riesco a combinare.


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

Ciao Francesco

Ci mancano diversi piccoli particolari all'appello, ma andiamo per ordine un pezzettino alla volta.


La base dello script rimane quella, queste modifiche vanno ad ampliare alcune cose. Con calma e senza fretta e solo quando hai tempo e voglia.


1)-Un inputbox per decidere l'estrazione da utilizzare (prima-ultima-(l'opzione già c'è)).(Mancherebbe l'opzione di poter scegliere qualsiasi estrazione, tipo la seconda, la terza , la quarta e così via, insomma piena libertà di scelta dell'estrazione da utilizzare).


2)-Un inputbox per decidere quanti estratti dei cinque utilizzare (tutti e cinque-(l'opzione gia c'è e in questo caso si va al dunque dell'elaborazione).- (Mancherebbe l'opzione di poter scegliere anche solo un estratto, o due, o tre, o quattro).

Esempio : Inputbox( Quanti estratti utilizzare ?---- 1; 2; 3; 4; 5.).
A questo punto,se si scelgono meno di 5 estratti, ad esempio se scegliamo 4 numeri---->inputbox( quale posizione per il primo numero ?---> 1; 2; 3; 4; 5.)-(Quale pos. per il secondo numero ?---> 1; 2; 3; 4; 5.)--( quale posizione per il terzo numero ?---> 1; 2; 3; 4; 5.)-(Quale pos. per il quarto numero ?---> 1; 2; 3; 4; 5.). Insomma anche qui piena libertà di scelta.

Una volta scelti i numeri desiderati, si fa la loro somma, e da qui si parte per l'elaborazione.
(è chiaro che se si sceglie un solo numero si partirà solo da esso).
Fin qui ci abbiamo ricavato la BASE di partenza

Adesso :

3)-Un inputbox per decidere se sottrarre o sommare un numero alla nostra base---> (1=sottrarre----2= sommare)

4)-Un inputbox per decidere il (numero) da sottrarre o sommare alla base.

Vale sempre la regola di arrivare ad un numero uguale od inferiore a 90. Ed in caso di numeri inferiori al numero da sottrarre, si segue la regola dal più grande al più piccolo.


A questo punto ci siamo ricavati il PRIMO numero in gioco.


Adesso come avevo detto, con il metodo originario, il secondo numero si ricavava facendo il diametrale in decina, ma questa era solo l'idea originaria, quindi nessuno ci vieta di ricavare il secondo numero in un altra maniera più produttiva.
Ma di questo ne parliamo in seguito (se vuoi).

SAltando il ricavo del SECONDO NUMERO IN GIOCO, ( che rimane comè adesso --->diametrale in decina del 1° numero).

Passiamo al ricavo del TERZO NUMERO ( opzionale) :


5)-Un inputbox per decidere (opzionale si/no)se al PRIMO NUMERO RICAVATO, sommare o sottrarre un numero a piacere (fuori 90) o dal più grande al più piccolo, a seconda dei casi scelti.

A questo punto un inputbox per decidere se SOMMARE O SOTTRARRE----> (1----2).

7)-Un inputbox per decidere l'eventuale numero da sommare o sottrarre.

A questo punto abbiamo il TERZO NUMERO.


Grazie Francesco per quello che fai

up

Ciao




Frank

 

[pfca]

Ciao una domanda:
se scegli meno dei cinque numeri e la somma dovesse essere inferiore a 90,
come bisogna comportarsi?
Qualsiasi scelta di n numeri la cui somma è inferiore a 90, utilizzi la somma totale
per i calcoli?
Un'altra osservazione, tu parli di metodo, ma se la valutazione del fuori X
è lasciata a chi utilizza lo script, mi sembra un metodo molto vago, pieno
di possibili e varie interpretazioni, per cui non sembra un metodo efficiente,
ma più una forma di probabile evento, ma lontano dal dare indicazioni valide.
Questa è la mia interpretazione, forse errata, ma ragionata sicuramente.


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

 

[Roby]

quote:Originally posted by pfca

Ciao una domanda:
se scegli meno dei cinque numeri e la somma dovesse essere inferiore a 90,
come bisogna comportarsi?
Qualsiasi scelta di n numeri la cui somma è inferiore a 90, utilizzi la somma totale
per i calcoli?
Un'altra osservazione, tu parli di metodo, ma se la valutazione del fuori X
è lasciata a chi utilizza lo script, mi sembra un metodo molto vago, pieno
di possibili e varie interpretazioni, per cui non sembra un metodo efficiente,
ma più una forma di probabile evento, ma lontano dal dare indicazioni valide.
Questa è la mia interpretazione, forse errata, ma ragionata sicuramente.


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

Ciao Francesco


la somma minima ottenibile dai cinque estratti è "15" (1+2+3+4+5 = 15)

Quando la somma dovesse essere inferiore a 90, o quando si sceglie l'opzione di prendere in considerazione anche solo un estratto, o comunque in ogni caso quando la "BASE" di partenza è un numero inferiore a 90, si agisce così :

1)- se si sceglie di sommare un numero, lo si fa sempre con l'eventuale fuori 90.

2)- se si sceglie di sottrarre un numero, lo si fa sempre dal maggiore al minore, in ogni caso.

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

Quando ho parlato di metodo, lo fatto per portare l'esempio dell'idea base originaria da dove è scaturito il tutto.

Lo script non è un metodo, ma un mezzo validissimo per ricercare delle basi solide, con cui partire all'approfondimendo sulle sorti superiori. Senza la ricerca di una base solida il discorso non si può fare.

Lo script in questione è come un piccolo tassello di un costruttore di metodi, diciamo che attualmente è al 70%.
Anche perchè non posso "ingolfarti" tutto in un botto di cose da fare, potrei confonderti.
Diciamo che se voglio cogliere un mela dall'albero, devo prima piantare il seme, far crescere l'albero e poi posso cogliere il frutto.
Le indicazioni valide ottenibili bisogna ricercarle, è un po come LuigiB e baffo quando parlavano di Spaziometria, dicendo che il programma in se stesso non produce risultati ma è l'ingegno del singolo utilizzatore a fare la differenza.

Capisco le tue perplessità, in fondo sono l'ultimo arrivato è non ho crediti, magari avessi il carisma di Baffoblu, luigiB e tanti altri.

Dalla mia ho solo la saggezza (presunta) dei miei 60 anni.[|)]


Ciao



Frank

 

[pfca]

Buongiorno kjo,
non è perchè sei l'ultimo arrivato, non vederla così, tutti sono
importanti dal primo iscritto all'ultimo di questo forum, e che
non ritrovo nella tua metodologia un metodo ma come dici:
Lo script in questione è come un piccolo tassello di un costruttore di metodi.
Io non ho possibilità di tempo nè tantomeno le capacità di creare un
costruttore di metodi. Sicuramente ti potrei inserire tutti gli input che vuoi,
Ma diventerebbe una processione di input e si dovrebbe riportare nell'output
tutte le opzioni scelte, altrimenti ci si dimentica anche di quello che si è inserito.
Vedremo cosa fare, non ti assicuro niente e non perchè sei l'ultimo arrivato,
spero tu sia coscente di questo, non mi sarei impegnato sia con Excel
che con lo script se pensavo queste cose.
A presto
Ps: 1)-Un inputbox per decidere l'estrazione da utilizzare (prima-ultima-(l'opzione già c'è)).(Mancherebbe l'opzione di poter scegliere qualsiasi estrazione, tipo la seconda, la terza , la quarta e così via, insomma piena libertà di scelta dell'estrazione da utilizzare).
già presente nello script, per comodità si mette 0,1 ma vale anche per 2,3,etc.
C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[Roby]

quote:Originally posted by pfca

Buongiorno kjo,
non è perchè sei l'ultimo arrivato, non vederla così, tutti sono
importanti dal primo iscritto all'ultimo di questo forum, e che
non ritrovo nella tua metodologia un metodo ma come dici:
Lo script in questione è come un piccolo tassello di un costruttore di metodi.
Io non ho possibilità di tempo nè tantomeno le capacità di creare un
costruttore di metodi. Sicuramente ti potrei inserire tutti gli input che vuoi,
Ma diventerebbe una processione di input e si dovrebbe riportare nell'output
tutte le opzioni scelte, altrimenti ci si dimentica anche di quello che si è inserito.
Vedremo cosa fare, non ti assicuro niente e non perchè sei l'ultimo arrivato,
spero tu sia coscente di questo, non mi sarei impegnato sia con Excel
che con lo script se pensavo queste cose.
A presto
Ps: 1)-Un inputbox per decidere l'estrazione da utilizzare (prima-ultima-(l'opzione già c'è)).(Mancherebbe l'opzione di poter scegliere qualsiasi estrazione, tipo la seconda, la terza , la quarta e così via, insomma piena libertà di scelta dell'estrazione da utilizzare).
già presente nello script, per comodità si mette 0,1 ma vale anche per 2,3,etc.
C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Ciao francesco

Ti chiedo scusa, non volevo dare quell'impressione, è che ultimamente mi faccio prendere facilmente dallo sconforto (problemi esistenziali dovuti alla vecchiaia balorda e carogna).
Per il ( PS: 1) ho capito, grazie.

Per finire mancano solo quelle piccole modifiche (se vuoi e quando vuoi).
La mia ambizione non è quella di farti fare un costruttore di metodi. Lo script è solo una piccola parte di quello che si potrebbe comprendere in un costruttore di metodi, lungi da me farti fare una cosa cosi impegnativa, anche se la tua bravura tradisce la tua modestia.

Ti ringrazio immensamente per tutto quello che hai fatto per me finora.

Ciao



Frank

 

[pfca]

CIao kjo,
inserito scelta numero estratti e possibilità somma sottrazione.

'Elaborazione per kjo by pfca.
Sub Main()
Dim ruote(10)
Dim num(10)
Dim posta(3)
posta(1) = 1 ' < - - - posta per estratto
posta(2) = 1 ' < - - - posta per ambo
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 prima 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

pf = InputBox("Quale Numero vuoi sottrarre:"," Fuori x",1)
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)
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 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
End If

If na = 1 Then
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) = num(1) - na1
End If
If num(1) < na1 Then
num(3) = na1 - num(1)
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 & " Risultato Fuori " & pf & " = " & num(1)& " Abb.+/- " & FormatSpace((na1),2)
End If
If ne = 4 Then
Scrivi "Estratti scelti: " & FormatSpace(Estratto(n,r,ne1),2) & "-" & FormatSpace(Estratto(n,r,ne2),2) & "-" & FormatSpace(Estratto(n,r,ne3),2) & "-" & FormatSpace(Estratto(n,r,ne4),2) & " Somma estratti = " & numb & " Ris. Fuori " & pf & " = " & num(1) & " Abb.+/- " & FormatSpace((na1),2)
End If
If ne = 3 Then
Scrivi "Estratti scelti: " & FormatSpace(Estratto(n,r,ne1),2) & "-" & FormatSpace(Estratto(n,r,ne2),2) & "-" & FormatSpace(Estratto(n,r,ne3),2) & " Somma estratti = " & numb & " Ris.

 

[Roby]

Ciao Francesco

Lo visto solo adesso, grazie per le modifiche.

Funziona tutto, ma c'è qualcosa che non mi torna....
Il bello è che non ho capito nemmeno io, cosè che non mi torna.
Ho bisogno di un pò di tempo per capire cosa mi sfugge, oggi mi sono beccato troppo vento e sto con la testa all'incontrario, Maledetta cervicale.[xx(]

Grazie, sei un grande !

ciao



Frank

 

[Roby]

Ciao Francesco

Perbacco, non ci avevo fatto caso, che tutto l'argomento in pochi giorni è stato letto più di 1270 volte, togliendo le volte
che l'abbiamo letto noi due, sembra che la cosa interessa a parecchi, e mi fa piacere che possa servire anche minimamente a
qualcun'altro. Personalmente con questo script ho imparato tantissimo, anche se qualche incertezza perdura, ma applicandomi
con costanza penso di superarle. Grazie.

Ho scoperto cosa non mi tornava :

Metto un output di una prova fatta a casaccio :

---------------------------------------------------------------------
Ruota di ricerca: Bari Data Estraz.: 02.04.2011 Estratti: 20-5-59-41-80
Estratti scelti: 59 Somma estratti = 59 Ris. Fuori 11 = 59 Abb.+/- 13
Ambata: 59 Per sorti maggiori: 59-54-72
----------------------------------------------------------------------
1° Ruota di gioco: Bari
----------------------------------------------------------------------
Estrazione generatrice del pronostico 08360 [ 40 - 02/04/2011]
G 0001
Numeri in gioco : 59.54.72 su BA per Estratto,Ambo,Terno
V N. [59.54.72 ] [BA] [.. 59 .. .. ..] C. 9 Estratto 08369 [ 49 - 23/04/2011]
Interrotta per raggiunta durata

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

Qui avevo fatto la scelta di prendere solo un estratto. e precisamente il 3° estratto di bari della prima estrazione del
mese.
In questo esempio, risulta essere il numero ( 59 ).
Alla domanda "quale numero vuoi sottrarre, ho scelto di sottrarre il numero (11).
in gioco per 9 estrazioni,la ricerca per 100 estrazioni,la ruota in gioco solo bari,
poi ho scelto di sommare il numero(13) all'ambata principale.

Fin qui tutto ok, ma mi sono accorto che l'ambata principale "RIMANE" uguale al 3° estratto di bari(59).

In pratica il fuori X non funziona con numeri singoli o somme di numeri inferiori a 90.

In questo specifico caso doveva essere (3°estr.bari) - (il numero scelto) = (ambata principale).
che si traduce in : 59-11=48 (ambata principale).
Diametrale in decina del 48 = ( 43 )=(secondo numero in gioco).
prima ambata + il fisso scelto da sommare (13)=(terzo numero) : 48+13=61(terzo numero).

Ad ogni modo qualsiasi sottrazione va dal maggiore al minore.

----------------------------------------------------------------------------------
Guardando tutto lo script, mi sono accorto che manca una sola modifica che ti avevo chiesto per finirlo del tutto.
Scusa, colpa mia che forse ho fatto confusione.

Riepilogando lo script passo passo :

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

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

Inputbox mancante

5)- Scelta se sommare o sottrarre un numero alla BASE---->( La BASE non è l'ambata, ma il numero o la somma dei numeri

scelti)-(Qui c'è solo l'opzione per sottrarre un numero alla BASE).(Questa è l'ultima modifica che mancherebbe).(Tipo :

1=sommare-/-2=sottrarre).

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

6)- Scelta se sommare o sottrarre (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--------

 

[pfca]

Ciao kjo,
ti posto il listato corretto per quanto hai elencato, un punto che non riesco
a capire è questo:
(Qui c'è solo l'opzione per sottrarre un numero alla BASE).(Questa è l'ultima modifica che mancherebbe).(Tipo :

1=sommare-/-2=sottrarre).
Leggi con attenzione le richieste di input, se vedi è già prevista:
1 = Somma 2 = Sottrazione
Questo è il listato:

'Elaborazione per kjo by pfca.
Sub Main()
Dim ruote(10)
Dim num(10)
Dim posta(3)
posta(1) = 1 ' < - - - posta per estratto
posta(2) = 1 ' < - - - posta per ambo
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

pf = InputBox("Quale Numero vuoi sottrarre:"," Fuori x",1)
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 al numero base?"," 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)
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 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

If na = 1 Then
posta(3) = 0.5 ' < - - - posta per terno
num(1) = ris
num(2) = DiametraleD(ris)
If ss = 1 Then
num(3) = Fuori90(numb + na1)
End If
If ss = 2 Then
If num(1) > na1 Then
num(3) = numb - na1
End If
If num(1) < na1 Then
num(3) = na1 - numb
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 & " Risultato Fuori " & pf & " = " & num(1) & " Abb.+/- " & FormatSpace((na1),2)
End If
If ne = 4 Then
Scrivi "Estratti scelti: " & FormatSpace(Estratto(n,r,ne1),2) & "-" & FormatSpace(Estratto(n,r,ne2),2) & "-" & FormatSpace(Estratto(n,r,ne3),2) & "-" & FormatSpace(Estratto(n,r,ne4),2) & " Somma estratti = " & numb & "