In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da Blackmore il 25/02/2015, 14:46
Nuovo script creato con Lottostudio.... - Codice: Seleziona tutto
Sub Main() ColoreTesto 1 :scrivi:scrivi String(120,"*"),1 Scrivi"10° ESTRAZIONE DEL MESE CON SPIA IN CADENZA DEL 3°ESTRATTO DI BARI" Scrivi"METODO E SCRIPT BY BLACKMORE" Scrivi"CREATO IL 24 FEBBRAIO 2015 " ColoreTesto 0: Scrivi "Per i numeri doppi si è fatto il + 1",1 Dim ruota(10) Dim am(5): Dim amb(1): Dim ambo1(2): Dim ambo2(2): Dim ambo3(2): Dim ambo4(2) Dim cinquina(5) Dim posta(1): Dim poste(2): Dim postee(4) posta(1)= 1 poste(2)= 1 postee(2)= 1 postee(3)= 1.50 postee(4)= 0.50 r1=InputBox ("1° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",1) r2=InputBox ("2° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",2) ce=InputBox("ESTRAZIONE DI PARTENZA N° ?","Metodo e Script By BLACKMORE",7447) k=InputBox ("QUANTI COLPI DI GIOCO ?","Metodo e Script By BLACKMORE",9) ini=ce fin=EstrazioneFin
For es=ini To EstrazioneFin If Indicemensile(es)= 10 Then n1=Cadenza(Estratto(es,BA_,3)) casi=casi+1 ColoreTesto 1:Scrivi String(113,"*")& " " & casi & "°CASO",1 : ColoreTesto 1 ColoreTesto 0:Scrivi DataEstrazione(es)&" "&SiglaRuota(1)& ": "&StringaEstratti(es,1)&" [ 10° Estrazione del Mese : Cadenza del "& (3) &"° Estratto di " & NomeRuota(1) & " = " & Format2(n1)& " ]",1 Scrivi
If n1 = 0 Then am(1)=Fuori90(Estratto(es,MI_,1)+Estratto(es,RO_,2)+84):am(2)=Fuori90(Estratto(es,RO_,3)+Estratto(es,NZ_,2)+64):am(3)=Fuori90(Estratto(es,NA_,4)+Estratto(es,PA_,2)+30):am(4)=Fuori90(Estratto(es,FI_,4)+Estratto(es,VE_,1)+58):am(5)=Fuori90(Estratto(es,NA_,3)+Estratto(es,NZ_,2)+16) If n1 = 1 Then am(1)=Fuori90(Estratto(es,VE_,4)+Estratto(es,NZ_,4)+26):am(2)=Fuori90(Estratto(es,FI_,5)+Estratto(es,GE_,4)+39):am(3)=Fuori90(Estratto(es,FI_,3)+Estratto(es,TO_,1)+53):am(4)=Fuori90(Estratto(es,TO_,4)+Estratto(es,VE_,4)+06):am(5)=Fuori90(Estratto(es,RO_,1)+Estratto(es,NZ_,3)+01) If n1 = 2 Then am(1)=Fuori90(Estratto(es,VE_,3)+Estratto(es,NZ_,5)+17):am(2)=Fuori90(Estratto(es,BA_,1)+Estratto(es,TO_,1)+72):am(3)=Fuori90(Estratto(es,CA_,1)+Estratto(es,VE_,1)+10):am(4)=Fuori90(Estratto(es,BA_,3)+Estratto(es,PA_,1)+13):am(5)=Fuori90(Estratto(es,FI_,5)+Estratto(es,PA_,4)+42) If n1 = 3 Then am(1)=Fuori90(Estratto(es,MI_,3)+Estratto(es,RO_,1)+50):am(2)=Fuori90(Estratto(es,BA_,2)+Estratto(es,CA_,5)+32):am(3)=Fuori90(Estratto(es,BA_,1)+Estratto(es,MI_,3)+02):am(4)=Fuori90(Estratto(es,NA_,5)+Estratto(es,PA_,1)+08):am(5)=Fuori90(Estratto(es,GE_,3)+Estratto(es,NZ_,2)+80) If n1 = 4 Then am(1)=Fuori90(Estratto(es,NA_,3)+Estratto(es,NZ_,2)+31):am(2)=Fuori90(Estratto(es,NZ_,1)+Estratto(es,NZ_,2)+01):am(3)=Fuori90(Estratto(es,CA_,1)+Estratto(es,RO_,5)+09):am(4)=Fuori90(Estratto(es,PA_,1)+Estratto(es,PA_,5)+74):am(5)=Fuori90(Estratto(es,BA_,1)+Estratto(es,MI_,3)+89) If n1 = 5 Then am(1)=Fuori90(Estratto(es,BA_,1)+Estratto(es,RO_,1)+56):am(2)=Fuori90(Estratto(es,BA_,4)+Estratto(es,VE_,3)+09):am(3)=Fuori90(Estratto(es,GE_,5)+Estratto(es,VE_,2)+16):am(4)=Fuori90(Estratto(es,BA_,2)+Estratto(es,NA_,3)+55):am(5)=Fuori90(Estratto(es,NA_,1)+Estratto(es,VE_,5)+33) If n1 = 6 Then am(1)=Fuori90(Estratto(es,BA_,3)+Estratto(es,CA_,1)+04):am(2)=Fuori90(Estratto(es,BA_,5)+Estratto(es,PA_,5)+11):am(3)=Fuori90(Estratto(es,PA_,5)+Estratto(es,RO_,4)+17):am(4)=Fuori90(Estratto(es,BA_,3)+Estratto(es,NA_,5)+01):am(5)=Fuori90(Estratto(es,CA_,2)+Estratto(es,MI_,1)+22) If n1 = 7 Then am(1)=Fuori90(Estratto(es,VE_,2)+Estratto(es,NZ_,4)+16):am(2)=Fuori90(Estratto(es,NA_,4)+Estratto(es,VE_,5)+44):am(3)=Fuori90(Estratto(es,BA_,2)+Estratto(es,RO_,4)+08):am(4)=Fuori90(Estratto(es,MI_,4)+Estratto(es,NA_,5)+01):am(5)=Fuori90(Estratto(es,CA_,5)+Estratto(es,FI_,2)+87) If n1 = 8 Then am(1)=Fuori90(Estratto(es,CA_,5)+Estratto(es,NA_,4)+49):am(2)=Fuori90(Estratto(es,BA_,3)+Estratto(es,MI_,5)+32):am(3)=Fuori90(Estratto(es,PA_,3)+Estratto(es,VE_,1)+11):am(4)=Fuori90(Estratto(es,MI_,4)+Estratto(es,VE_,5)+63):am(5)=Fuori90(Estratto(es,PA_,5)+Estratto(es,RO_,1)+75) If n1 = 9 Then am(1)=Fuori90(Estratto(es,CA_,5)+Estratto(es,GE_,5)+25):am(2)=Fuori90(Estratto(es,GE_,5)+Estratto(es,MI_,5)+88):am(3)=Fuori90(Estratto(es,BA_,2)+Estratto(es,CA_,5)+14):am(4)=Fuori90(Estratto(es,BA_,4)+Estratto(es,BA_,5)+20):am(5)=Fuori90(Estratto(es,CA_,1)+Estratto(es,CA_,3)+51)
ruota(1)=r1:ruota(2) = r2 :co=0
'se 1 o più numeri sono ripetuti si fa il + 1 rip=0 If NumeriRipetuti(am) Then rip=1 While NumeriRipetuti(am) For x=1 To 4 For y=x+1 To 5 If am(x)=am(y) Then am(y)=Fuori90(am(y)+1) Next Next Wend End If
amb(1)= am(1) co=co+1 ImpostaGiocata co,amb,ruota,posta,k,1 ambo1(1)= am(1) ambo1(2)= am(2) co=co+1 ImpostaGiocata co,ambo1,ruota,poste,k,2 ambo2(1)= am(1) ambo2(2)= am(3) co=co+1 ImpostaGiocata co,ambo2,ruota,poste,k,2 ambo3(1)= am(1) ambo3(2)= am(4) co=co+1 ImpostaGiocata co,ambo3,ruota,poste,k,2 ambo4(1)= am(1) ambo4(2)= am(5) co=co+1 ImpostaGiocata co,ambo4,ruota,poste,k,2 cinquina(1)=am(1) cinquina(2)=am(2) cinquina(3)=am(3) cinquina(4)=am(4) cinquina(5)=am(5) co=co+1 ImpostaGiocata co,cinquina,ruota,postee,k,3 Gioca es ' -----> Per chi usa Spaziometria mettere ,1 dopo Gioca es End If If scriptinterrotto Then Exit For Next Scrivi:scrivi + Vbcrlf ColoreTesto 1:Scrivi String(70,"*")& " Matematica Sommativa By BLACKMORE" ColoreTesto 0:ScriviResoconto End Sub
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da DjNomade il 25/02/2015, 19:19
Grazie Black ottimo lavoro!!!!!!!!!!!!!!
-
DjNomade
-
- Messaggi: 689
- Iscritto il: 24/03/2013, 22:21
da Master il 25/02/2015, 21:16
grazie Blackmore.. una domanda a te o a chi mi sa rispondere : qual è il significato di questa riga che è in fondo allo script??
Scrivi:scrivi + Vbcrlf
grazie
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da Blackmore il 25/02/2015, 21:24
Scrivi è per lasciare una riga vuota in VbScript vbCrLf è simile, rappresenta un carattere di ritorno a capo con avanzamento di riga (VB.NET)
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da zagort il 25/02/2015, 21:24
bravo, ma come hai fatto ad aggiungere la spia in cadenza con lottostudio?
-
zagort
-
- Messaggi: 123
- Iscritto il: 20/06/2013, 19:46
da Blackmore il 26/02/2015, 0:12
Imposta condizioniL.Studio.png
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da Blackmore il 18/03/2015, 11:33
Ennesimo risultato con Lottostudio - Codice: Seleziona tutto
24.02.2015 Ba: 62.37.58.74.87 [ 10° Estrazione del Mese : Cadenza del 3° Estratto di Bari = 08 ]
mar 24.02.2015 [8969] G 1: M 15 Ba Ca 9/9 M 15 su Ca 9° colpo [8978/17.03.2015]
G 2: A 15.09 Ba Ca 9/9 A 09.15 su Ca 9° colpo [8978/17.03.2015]
G 3: A 15.75 Ba Ca 9/9 negativo G 4: A 15.21 Ba Ca 9/9 negativo G 5: A 15.13 Ba Ca 9/9 negativo G 6: ATQ 15.09.75.21.13 Ba Ca 9/9 A 09.15 su Ca 9° colpo [8978/17.03.2015]
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da DjNomade il 18/03/2015, 11:43
Grande Black!!!!!!!!!!!!!
-
DjNomade
-
- Messaggi: 689
- Iscritto il: 24/03/2013, 22:21
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|