-
.
mi dispiace,per me e' gia' stato un miracolo modificare il listato per fare la ricerca che ti interessa,quello che mi chiedi non riesco a farlo:prova con lottodesk,vedrai che li' non visualizza tutte le Ruote,ma se usi esclusivamente spaziometria,di piu' non posso..lo avrei fatto molto volentieri.. 
. -
spilloss77.
User deleted
Sean sei gia stato magnifico cosi!!!! Anzi scusami se ho insistito. Apprezzo moltissimo cio che hai fatto per me.
Infatti usero lottodesk per questo script!!!! Mi piacerebbe tanto arrivare al tuo livello, ma con i cicli e la poca documetanzione che c'è in giro non riesco a fare passi avanti (anche per mancanza di tempo)
Hai avuto modo di capire se è fattibile il discorso degli eventuali abbinamenti da inserire manualmente?
. -
.
grazie,ripeto io sono all'abc con i listati,i veri esperti sono altri..quando vuoi siamo qui..per gli abbinamenti ci provo piu' tardi o domani,lasciami postato quanti te ne servono(di abbinamenti),vedo cosa riesco a fare,nella speranza qualcuno ci aiuti a fare il tutto in base alle tue esigenze..vado,ho da sbrigare alcuni lavoretti domestici..ciao . -
spilloss77.
User deleted
Ok. A presto e grazie!!!! . -
spilloss77.
User deleted
Ciao Sean. Ti lascio il promemoria....
PER GLI ABBINAMENTI: Il listato dovrebbe chiedermi con una finestra... quali numeri deve abbinare.
I numeri da abbinare vanno da 1 a 3.
Un ultima cosa.... su lottodesk gira perfettamente lo script, ma non vedo l'estrazione e la posizione in cui è uscita l'ambata. Si potrebbe vedere l'estrazione e la posizione mettendo in evidenza con il colore rosso il numero uscito?
Grazie Sean e a presto.. -
.
appena posso,provo a fare il tutto..poi se qualcuno vuole dare una mano,lo ringrazio anticipatamente..ciao e buona serata.. . -
.
Ecco il listato con gli abbinamenti(ce ne sono 5,che puoi cambiare a tuo piacimento,ma ne puoi giocare anche meno,ci sono le istruzioni nel listato): CODICESub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim AMBATA(2)
Dim ambo(4)
Dim cinq(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
poste(3)=1
For n=8300 To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
s1=Fuori90(n1+n2)
Scrivi "----------------------------------------------------------"
Scrivi NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" ="&Cint(s1)&" "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" ="&Cint(s1)
Scrivi "Alla Somma Comune Isotopa "&Cint(s1)&" addizioniamo il fisso 17 per ottenere il Primo Numero"
Scrivi "Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero"
AMBATA(1)=Fuori90(s1+17)
AMBATA(2)= Vert (AMBATA(1))
ambo(1)=AMBATA(1)
ambo(2)=AMBATA(2)
cinq(1)=Fuori90(s1+17)
cinq(2)= Vert (AMBATA(1))
cinq(3)=25 '<<<<<<<<<<<<<<<<<<<<<<<<<<metti i numeri che vuoi
cinq(4)=26
cinq(5)=27
cinq(6)=28 '<<<<<<<<<se vuoi meno numeri metti un apice d'avanti a >>>' cinq(6)=28
cinq(7)=29 '<<<<<<<<<se vuoi meno numeri metti un apice d'avanti a >>>' cinq(7)=29
ImpostaGiocata 1,AMBATA,ruote,posta,9 ' ,2 '<<< se non vuoi intwrruzione giocate togli l'apice
ImpostaGiocata 2,ambo,ruote,poste,9 ' ,2
ImpostaGiocata 3,cinq,ruote,poste,9 ' ,2
'ImpostaInterruzioni 1,2,2
'ImpostaInterruzioni 2,1,2
Gioca n
t=t+1
Loop
Next
ScriviResoconto
End Sub
Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 12
For i= 4 To 4
j=i+1
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
c=Fuori90(a+b)
For rr=r+1 To 12
aa=Estratto(estrazione,rr,i)
bb=Estratto(estrazione,rr,j)
cc=Fuori90(aa+bb)
If c=cc Then
trovati=trovati+1
If trovati=tentativo Then
numero1=a
numero2=b
numero3=aa
numero4=bb
ruota1=r
ruota2=rr
DISAMBO=True
Exit Function
End If
End If
Next
Next
Next
DISAMBO=False
End Function
per la posizione ed il colore,vediamo se scappa fuori qualcosa..vedi se va' bene... -
spilloss77.
User deleted
Buongiorno Sean. controllo e ti dico. . -
spilloss77.
User deleted
Sembra tutto ok!!! Vedi se riesci per la visualizzazione del'estrazione ed il colore. Altrimenti mi toccherà usarne due programmi per verificare le posizioni di uscita 
Per quella cosa ho trovato il tutto!!! entro stamattina ricevi tutto all'email indicata. Sto aspettando l'agigornamento di sai cosa!
A dopo!!!. -
.
vediamo se riesco..grazie a te.. . -
.
Ecco il Listato che indica la posizione dove e' uscita l'ambata CODICESub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim AMBATA(2)
Dim ambo(4)
Dim cinq(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(10)
Dim poste(5)
posta(1)=1
posta(6)=1
posta(7)=1
posta(8)=1
posta(9)=1
posta(10)=1
poste(2)=1
poste(3)=1
For n=8300 To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
s1=Fuori90(n1+n2)
Scrivi "----------------------------------------------------------"
Scrivi NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" ="&Cint(s1)&" "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" ="&Cint(s1)
Scrivi "Alla Somma Comune Isotopa "&Cint(s1)&" addizioniamo il fisso 17 per ottenere il Primo Numero"
Scrivi "Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero"
AMBATA(1)=Fuori90(s1+17)
AMBATA(2)= Vert (AMBATA(1))
ambo(1)=AMBATA(1)
ambo(2)=AMBATA(2)
cinq(1)=Fuori90(s1+17)
cinq(2)= Vert (AMBATA(1))
cinq(3)=25 '<<<<<<<<<<<<<<<<<<<<<<<<<<metti i numeri che vuoi
cinq(4)=26
cinq(5)=27
cinq(6)=28 '<<<<<<<<<se vuoi meno numeri metti un apice d'avanti a >>>' cinq(6)=28
cinq(7)=29
ImpostaGiocata 1,AMBATA,ruote,posta,9 ' ,2 '<<< se non vuoi intwrruzione giocate togli l'apice
ImpostaGiocata 2,ambo,ruote,poste,9 ' ,2
ImpostaGiocata 3,cinq,ruote,poste,9 ' ,2
'ImpostaInterruzioni 1,2,2
'ImpostaInterruzioni 2,1,2
Gioca n
t=t+1
Loop
Next
ScriviResoconto
End Sub
Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 12
For i= 4 To 4
j=i+1
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
c=Fuori90(a+b)
For rr=r+1 To 12
aa=Estratto(estrazione,rr,i)
bb=Estratto(estrazione,rr,j)
cc=Fuori90(aa+bb)
If c=cc Then
trovati=trovati+1
If trovati=tentativo Then
numero1=a
numero2=b
numero3=aa
numero4=bb
ruota1=r
ruota2=rr
DISAMBO=True
Exit Function
End If
End If
Next
Next
Next
DISAMBO=False
End Function
Infatti il risultato e' questo :(D1 vuol dire che e' uscito in 1a posizione,D2 in 2a posizione,ecc.):per il colore niente da fare:CODICE----------------------------------------------------------
Firenze 85 + 19 =14 Milano 66 + 38 =14
Alla Somma Comune Isotopa 14 addizioniamo il fisso 17 per ottenere il Primo Numero
Facciamo il Vertibile del primo Numero per ottenere il Secondo Numero
mar 17.05.2011 [8378]
G 1: MD1D2D3D4D5 31.13 Fi Mi 6/9
M 31 su Mi 1° colpo [8379/19.05.2011]
D1 31 su Mi 1° colpo [8379/19.05.2011]
M 31 su Fi 3° colpo [8381/24.05.2011]
D1 31 su Fi 3° colpo [8381/24.05.2011]
in corso (6° su 9)
G 2: AT 31.13 Fi Mi 6/9
in corso (6° su 9)
G 3: AT 31.13.25.26.27.28.29 Fi Mi 6/9
in corso (6° su 9)
----------------------------------------------------------
spero vada bene....
AIUTO SCRIPT |
Offline
Web