In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da lottomoney il 08/05/2023, 13:30
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
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da DjNomade il 09/05/2023, 18:06
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
-
DjNomade
-
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
da lottomoney il 09/05/2023, 19:57
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
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da DjNomade il 11/05/2023, 6:40
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
-
DjNomade
-
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
da lottomoney il 11/05/2023, 12:37
Fantasticoooooo....sei un grande!!!! grazie mille DjNomade lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|