input condizioni

[lottomoney]

Buongiorno, desideravo sapere se sia possibile uno script dove, attraverso input, si possano calcolare dei numeri ricavati da estrazioni diverse. Faccio un esempio che chiarisce:
All' ottava estrazione mensile si prende il 2° di Cagliari + il 5° di Genova + 2° Torino + il fisso 43 x il fisso 29
Alla sesta estrazione mensile si prende il 1° di Bari + il 5° di Genova + il 1° di Firenze + il fisso 68 x il fisso 43
Alla decima estrazione mensile si prende il 4° di Palermo + il 2° di Roma + il 4° di Cagliari + il fisso 18 x il fisso 71
Alla dodicesima estrazione mensile si prende il 5° di Nazionale + il 3° di Venezia + il 5° di Bari + il fisso 15 x il fisso 88
e mettere in gioco i quattro numeri scegliendo una o due ruote.
Spero sia comprensibile ma soprattutto fattibile.
Ringrazio anticipatamente.
lottomoney

[DjNomade]

Una volta ho provato a fare una cosa del genere ma gia cosi
c'è da aprire 27 finestre con tutti quei indici mensili
mi sa che sara un casotto .......
Se ti è utile questo.......
Ciauz

Codice: Seleziona tutto

'Listato Somma+Somma X Moltipl. tra estratti by DjNomade
'esempio di calcolo
'4° Milano..27 + 1° Cagliari..59 x 4° Firenze..58     Ambata ---> 38
'1° Milano..26 + 2° Napoli..5 x 5° Genova..17   Abbinamento ---> 77
'5° Roma..15 + 1° Palermo..30 x 4° Torino..44   Abbinamento ---> 90
'2° Genova..65 + 2° Roma..31 x 3° Bari..86      Abbinamento ---> 66

Sub main()
Dim am(1),nr(12),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2)
posta(1)=1 :poste(2)=1

ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",7864))
im=CInt(InputBox("Qual'è l'indice mensile ?","Indice Mensile",1))

a=CInt(InputBox("1° Ruota di calcolo  x Ambata?","Ambata",5))  '<--- Ruota
b=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","Ambata",4))  '<--- Ambata
c=CInt(InputBox(" + 2° Ruota di calcolo x Ambata ?","Ambata",2))
d=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","Ambata",1))
x1=CInt(InputBox("X 3°Ruota di calcolo x  Ambata ?","Ambata",3))
x2=CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","Ambata",4)) 

x3=CInt(InputBox("1°Ruota di calcolo x 1° Abbinamento?","1° abbinamento",5)) '<---- 1° abbinamento
x4=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo ?","1° abbinamento",1))
y1=CInt(InputBox("+ 2°Ruota di calcolo 1° abbinamento?","1° abbinamento",6))
y2=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","1° abbinamento",2)) 
y3=CInt(InputBox("X 3°Ruota di calcolo 1° abbinamento?","1° abbinamento",4))
y4=CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo ?","1° abbinamento",5))

z1=CInt(InputBox("1°Ruota di calcolo 2° abbinamento?","2° abbinamento",8))  '<---- 2° abbinamento
z2=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","2° abbinamento",5)) 
z3=CInt(InputBox("+ 2°Ruota di calcolo 2° abbinamento?","2° abbinamento",7))
z4=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","2° abbinamento",1)) 
w1=CInt(InputBox("X 3°Ruota di calcolo 2° abbinamento?","2° abbinamento",9))
w2=CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","2° abbinamento",4))

w3=CInt(InputBox("1°Ruota di calcolo 3° abbinamento?","3° abbinamento",2))    '<---- 3° abbinamento
w4=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","3° abbinamento",4))
ww1=CInt(InputBox("+ 2°Ruota di calcolo 3° abbinamento?","3° abbinamento",8))
ww2=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","3° abbinamento",2))
ww3=CInt(InputBox("X 3°Ruota di calcolo 3° abbinamento?","3° abbinamento",1))
ww4=CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","3° abbinamento",3))

ru1=CInt(InputBox("1ª ruota di gioco ?","1ª Ruota",1))
ru2=CInt(InputBox("2ª ruota di gioco ?","2ª Ruota",2))
k=CInt(InputBox("Colpi di gioco ?","Colpi",13))
For es=ax To EstrazioneFin : Messaggio es
If IndiceMensile(es)=im Then

cc=cc+1
Scrivi
 ColoreTesto 2 :Scrivi " ***********************  Previsione ricavata alla  "&(im)&"°  estrazione del mese  ************************* ",1
Scrivi"Pronostico n° " & Format2 (cc),1

Scrivi : ColoreTesto 0
nr(1)=Estratto(es,a,b)
nr(2)=Estratto(es,c,d)
nr(3)=Estratto(es,x1,x2)
nr(4)=Estratto(es,x3,x4)
nr(5)=Estratto(es,y1,y2)
nr(6)=Estratto(es,y3,y4)
nr(7)=Estratto(es,z1,z2)
nr(8)=Estratto(es,z3,z4)
nr(9)=Estratto(es,w1,w2)
nr(10)=Estratto(es,w3,w4)
nr(11)=Estratto(es,ww1,ww2)
nr(12)=Estratto(es,ww3,ww4)

am(1)=Fuori90(Fuori90(nr(1)+nr(2))*nr(3)) 'AMBATA
abb(1)=Fuori90(Fuori90(nr(4)+nr(5))*nr(6))'ABBINAM
abb(2)=Fuori90(Fuori90(nr(7)+nr(8))*nr(9))'ABBINAM
abb(3)=Fuori90(Fuori90(nr(10)+nr(11))*nr(12))'ABBINAM


Scrivi b&"° "& Left(NomeRuota(a),9)&".."&nr(1)&   " + "&d&"° "& Left(NomeRuota(c),9)&".."&nr(2)&_
" x "&x2&"° "& Left(NomeRuota(x1),9)&".."&nr(3)&"     Ambata ---> "&(am(1))

Scrivi x4&"° "& Left(NomeRuota(x3),9)&".."&nr(4)&" + "&y2&"° "& Left(NomeRuota(y1),9)&".."&nr(5)&_
 " x "&y4&"° "& Left(NomeRuota(y3),9)&".."&nr(6)&"   Abbinamento ---> "&(abb(1))&""
Scrivi z2&"° "& Left(NomeRuota(z1),9)&".."&nr(7)&" + "&z4&"° "&Left(NomeRuota(z3),9)&".."&nr(8)&_
 " x "&w2&"° "& Left(NomeRuota(w1),9)&".."&nr(9)&"   Abbinamento ---> "&(abb(2))&""
Scrivi w3&"° "& Left(NomeRuota(w4),9)&".."&nr(10)&" + "&ww2&"° "&Left(NomeRuota(ww1),9)&".."&nr(11)&_
  " x "&ww4&"° "& Left(NomeRuota(ww3),9)&".."&nr(12)&"      Abbinamento ---> "&(abb(3))&""

Scrivi Chr(10)&"Quaterna: " &am(1)&"."&abb(1)&_
"."&abb(2)&"."&abb(3)&"."&abb(4)&""

Scrivi : ruote(1)=ru1 : ruote(2)=ru2

ImpostaGiocata 1,am,ruote,posta,k

ab(1)=am(1)
ab(2)=abb(1)
ImpostaGiocata 2,ab,ruote,poste,k

ab(1)=am(1)
ab(2)=abb(2)
ImpostaGiocata 3,ab,ruote,poste,k

ab(1)=am(1)
ab(2)=abb(3)
ImpostaGiocata 4,ab,ruote,poste,k


acc(1)=am(1) : acc(2)=abb(1) : acc(3)=abb(2)
acc(4)=abb(3)
ImpostaGiocata 5,acc,ruote,poste,k

Gioca es : Scrivi
Scrivi : Scrivi String(70,151)
End If
Next
ScriviResoconto
ColoreTesto 2 : Scrivi "List by •damper• adattato da  •DjNomade•",1
End Sub


[lottomoney]

Buonasera DjNomade, in linea generale può andare bene, se non fosse che ad ogni abbinamento 1°, 2° e 3° si dovrebbe cambiare l'indice di estrazione, se fosse possibile. Per il resto, come inserimento ruote e posizione estratto va benissimo.
Un'ultima cosa: il calcolo viene fatto, per esempio, il mese di Gennaio mentre le giocate dalla 5a estrazione del mese successivo. Grazie per il tuo tempo.
lottomoney

[DjNomade]

Per la scelta degli indici mensili parti dalla piu alta poi dalle finestre ti chiede quante estrazioni indietro
vuoi andare per la ricerca dell'estratto voluto
esempio parti dalla 12°
poi se devi calcolare alla 10°
nella finestra inserisci 2
12-2= 10
di piu non son riuscito a fare,
è da controllare
Ciauz

Codice: Seleziona tutto

'Listato 2 (Estratto+Estratto+Estratto+Fisso) X Fisso + Vari indiciMensili by DjNomade
'esempio di calcolo
' ***********************  Previsione ricavata alla  12°  estrazione del mese  *************************
'Pronostico n° 06

'8° del Mese ( 2° Cagliari..23 + 5° Genova..52 + 2° Torino..54 + 43) X 29    Ambata ---> 38
'6° del Mese ( 1° Bari..9 + 5° Genova..23 + 1° Firenze..37 + 68) X 43    Abbinamento ---> 41
'10° del Mese ( 4° Palermo..53 + 2° Roma..74 + 4° Cagliari..12 + 18) X 71    Abbinamento ---> 77
'12° del Mese ( 5° Nazionale..1 + 3° Venezia..88 + 5° Bari..21 + 15) X 88    Abbinamento ---> 20

'Quaterna: 38.41.77.20.

 ColoreTesto 1

Scrivi"        Listato 2 (Estratto+Estratto+Estratto+Fisso) X Fisso + Vari indiciMensili by DjNomade",1

Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
 ColoreTesto 0
Sub main()
Dim am(1),nr(12),ab(2),abb(4),acc(5),ruote(2),posta(1),poste(2)
posta(1)=1 :poste(2)=1

ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",10054))


im3=CInt(InputBox("Qual'è l'indice mensile inizio gioco ?","Indice Mensile inizio gioco",12))
w3=CInt(InputBox("1°Ruota di calcolo 3° abbinamento?","3° abbinamento",12))    '<---- 3° abbinamento
w4=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","3° abbinamento",5))
ww1=CInt(InputBox("+ 2°Ruota di calcolo 3° abbinamento?","3° abbinamento",10))
ww2=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","3° abbinamento",3))
ww3=CInt(InputBox("X 3°Ruota di calcolo 3° abbinamento?","3° abbinamento",1))
ww4=CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","3° abbinamento",5))
fis4=CInt(InputBox("Qual'è FISSO DA SOMMARE","FISSO DA SOMMARE",15))
fis44=CInt(InputBox("Qual'è FISSO DA MOLTIPLICARE","FISSO DA MOLTIPLICARE",88))





im=CInt(InputBox("Quante estrazioni  indietro ricerca estratto?","estrazioni  indietro ricerca estratto",4))

a=CInt(InputBox("1° Ruota di calcolo  x Ambata?","Ambata",2))  '<--- Ruota
b=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","Ambata",2))  '<--- Ambata
c=CInt(InputBox(" + 2° Ruota di calcolo x Ambata ?","Ambata",4))
d=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","Ambata",5))
x1=CInt(InputBox("X 3°Ruota di calcolo x  Ambata ?","Ambata",9))
x2=CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","Ambata",2))
fis1=CInt(InputBox("Qual'è FISSO DA SOMMARE","FISSO DA SOMMARE",43))
fis11=CInt(InputBox("Qual'è FISSO DA MOLTIPLICARE","FISSO DA MOLTIPLICARE",29))

im1=CInt(InputBox("Quante estrazioni  indietro ricerca estratto?","estrazioni  indietro ricerca estratto",6))
x3=CInt(InputBox("1°Ruota di calcolo x 1° Abbinamento?","1° abbinamento",1)) '<---- 1° abbinamento
x4=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo ?","1° abbinamento",1))
y1=CInt(InputBox("+ 2°Ruota di calcolo 1° abbinamento?","1° abbinamento",4))
y2=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","1° abbinamento",5))
y3=CInt(InputBox("X 3°Ruota di calcolo 1° abbinamento?","1° abbinamento",3))
y4=CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo ?","1° abbinamento",1))
fis2=CInt(InputBox("Qual'è FISSO DA SOMMARE","FISSO DA SOMMARE",68))
fis22=CInt(InputBox("Qual'è FISSO DA MOLTIPLICARE","FISSO DA MOLTIPLICARE",43))

im2=CInt(InputBox("Quante estrazioni  indietro ricerca estratto?","estrazioni  indietro ricerca estratto",2))
z1=CInt(InputBox("1°Ruota di calcolo 2° abbinamento?","2° abbinamento",7))  '<---- 2° abbinamento
z2=CInt(InputBox("POSIZIONE estratto 1° Ruota di calcolo?","2° abbinamento",4))
z3=CInt(InputBox("+ 2°Ruota di calcolo 2° abbinamento?","2° abbinamento",8))
z4=CInt(InputBox("POSIZIONE estratto 2° Ruota di calcolo?","2° abbinamento",2))
w1=CInt(InputBox("X 3°Ruota di calcolo 2° abbinamento?","2° abbinamento",2))
w2=CInt(InputBox("POSIZIONE estratto 3° Ruota di calcolo?","2° abbinamento",4))
fis3=CInt(InputBox("Qual'è FISSO DA SOMMARE","FISSO DA SOMMARE",18))
fis33=CInt(InputBox("Qual'è FISSO DA MOLTIPLICARE","FISSO DA MOLTIPLICARE",71))


ru1=CInt(InputBox("1ª ruota di gioco ?","1ª Ruota",1))
ru2=CInt(InputBox("2ª ruota di gioco ?","2ª Ruota",2))
k=CInt(InputBox("Colpi di gioco ?","Colpi",13))
'IndiceMensile(es)=im
'IndiceMensile(es1)=im1
'IndiceMensile(es2)=im2

 
For es3=ax To EstrazioneFin
 Messaggio es3
 es=es3-im
 es1=es3-im1
 es2=es3-im2


'If (IndiceMensile(es)=im And  IndiceMensile(es3)=im3 )And ( IndiceMensile(es1)=im1 And  IndiceMensile(es3)=im3)And  (IndiceMensile(es2)=im2 And  IndiceMensile(es3)=im3)  Then

If IndiceMensile(es3)=im3 Then

cc=cc+1
Scrivi
 ColoreTesto 2 :Scrivi " ***********************  Previsione ricavata alla  "&(im3)&"°  estrazione del mese  ************************* ",1
Scrivi"Pronostico n° " & Format2 (cc),1

Scrivi : ColoreTesto 0
nr(1)=Estratto(es,a,b)
nr(2)=Estratto(es,c,d)
nr(3)=Estratto(es,x1,x2)
nr(4)=Estratto(es1,x3,x4)
nr(5)=Estratto(es1,y1,y2)
nr(6)=Estratto(es1,y3,y4)
nr(7)=Estratto(es2,z1,z2)
nr(8)=Estratto(es2,z3,z4)
nr(9)=Estratto(es2,w1,w2)
nr(10)=Estratto(es3,w3,w4)
nr(11)=Estratto(es3,ww1,ww2)
nr(12)=Estratto(es3,ww3,ww4)

am(1)=Fuori90(Fuori90(nr(1)+nr(2)+nr(3) +fis1)*fis11) 'AMBATA
abb(1)=Fuori90(Fuori90(nr(4)+nr(5)+nr(6)+fis2)*fis22)'ABBINAM
abb(2)=Fuori90(Fuori90(nr(7)+nr(8)+nr(9)+fis3)*fis33)'ABBINAM
abb(3)=Fuori90(Fuori90(nr(10)+nr(11)+nr(12)+fis4)*fis44)'ABBINAM


Scrivi im3-im&"° del Mese ( "& b&"° "& Left(NomeRuota(a),9)&".."&nr(1)&   " + "&d&"° "& Left(NomeRuota(c),9)&".."&nr(2)&_
" + "&x2&"° "& Left(NomeRuota(x1),9)&".."&nr(3)&" + "&fis1&") X "&fis11&"    Ambata ---> "&(am(1)),1

Scrivi im3-im1&"° del Mese ( "& x4&"° "& Left(NomeRuota(x3),9)&".."&nr(4)&" + "&y2&"° "& Left(NomeRuota(y1),9)&".."&nr(5)&_
 " + "&y4&"° "& Left(NomeRuota(y3),9)&".."&nr(6)&" + "&fis2&") X "&fis22&"    Abbinamento ---> "&(abb(1))&"",1
Scrivi im3-im2&"° del Mese ( "& z2&"° "& Left(NomeRuota(z1),9)&".."&nr(7)&" + "&z4&"° "&Left(NomeRuota(z3),9)&".."&nr(8)&_
 " + "&w2&"° "& Left(NomeRuota(w1),9)&".."&nr(9)&" + "&fis3&") X "&fis33&"    Abbinamento ---> "&(abb(2))&"",1
Scrivi im3&"° del Mese ( "& w4&"° "& Left(NomeRuota(w3),9)&".."&nr(10)&" + "&ww2&"° "&Left(NomeRuota(ww1),9)&".."&nr(11)&_
  " + "&ww4&"° "& Left(NomeRuota(ww3),9)&".."&nr(12)&" + "&fis4&") X "&fis44&"    Abbinamento ---> "&(abb(3))&"",1

Scrivi Chr(10)&"Quaterna: " &am(1)&"."&abb(1)&_
"."&abb(2)&"."&abb(3)&"."&abb(4)&"",1

Scrivi : ruote(1)=ru1 : ruote(2)=ru2



acc(1)=am(1) : acc(2)=abb(1) : acc(3)=abb(2)
acc(4)=abb(3)
ImpostaGiocata 5,acc,ruote,poste,k

Gioca es3 : Scrivi
Scrivi : Scrivi String(70,151)
End If
Next
'Next
'Next
'Next
ScriviResoconto
ColoreTesto 2 : Scrivi "List by •damper• adattato da  •DjNomade•",1
End Sub

[lottomoney]

Fantasticoooooo....sei un grande!!!!
grazie mille DjNomade
lottomoney