TERNI RIPETUTI

Rispondi
Avatar utente
Tatoo64
Site Admin
Messaggi: 3644
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

TERNI RIPETUTI

Messaggio da Tatoo64 » 03/08/2017, 22:18

DJNOMADE non so se te lo chiesi tempo fa, non ricordo perché non trovo lo script, comunque puoi fare uno script che cerca i terni ripetuti.

GRAZIE
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
blacklotto
Messaggi: 12
Iscritto il: 10/06/2017, 21:18

Re: TERNI RIPETUTI

Messaggio da blacklotto » 18/08/2017, 13:24

Ciao,

questo listato ti trova i terni ripetuti in 2 ruote non nella stessa estrazione, potrebbe farti comodo :

Option Explicit
Sub Main()
Dim es,Ini,Fin,ex
Dim EstrRic,ERT
Dim t,Casi
Dim r01,n01,n02,n03,Terno01
Dim r02,n04,n05,n06,Terno02
Dim Ruote(02)
Call MsgBox("RICHIESTA CONTROLLO",,"IMPORTANTE")
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI",20))
Call MsgBox("RICHIESTA CONTROLLO CONDIZIONE TERNO",,"IMPORTANTE")
ERT = CInt(InputBox("ESTRAZIONI RETROATTIVE DI CONTROLLO ","ESTRAZIONI RETROATTIVE",15))
Casi = 00
Ini = EstrazioneFin - EstrRic
Fin = EstrazioneFin
For es = Ini To Fin
For ex = es - ERT To es
Call Messaggio(es)
Call AvanzamentoElab(Ini,Fin,es)
t = 01
Do While TERNOUGUALE(es,ex,t,r01,n01,n02,n03,r02,n04,n05,n06) = True
Casi = Casi + 01
Ruote(01) = r01
Ruote(02) = r02
Terno01 = Array(n01,n02,n03):Terno02 = Array(n04,n05,n06)
Call Scrivi(String(45,"-") & "Caso n° " & Format2(Casi),01)
Call Scrivi(GetInfoEstrazione(ex) & " - " & SiglaRuota(r02) & " " & StringaNumeri(Terno02,,True),01)
Call Scrivi(GetInfoEstrazione(es) & " - " & SiglaRuota(r01) & " " & StringaNumeri(Terno01,,True),01)
t = t + 01
Loop
Next
Next
Call Scrivi
Call Scrivi
End Sub
Function TERNOUGUALE(estrazione,extrazione,tentativo,byref ruota01,byref numero01,byref numero02,byref numero03,byref ruota02,byref numero04,byref numero05,byref numero06)
Dim e01,e02,e03,e04,e05,e06
Dim trovati
Dim r01,r02,p01,p02,p03,p04,p05,p06
trovati = 00
For r01 = 01 To 10
For p01 = 01 To 03
For p02 = p01 + 01 To 04
For p03 = p02 + 01 To 05
e01 = Estratto(estrazione,r01,p01)
e02 = Estratto(estrazione,r01,p02)
e03 = Estratto(estrazione,r01,p03)
For r02 = r01 + 01 To 11
If r02 = 11 Then r02 = 12
For p04 = 01 To 03
For p05 = p04 + 01 To 04
For p06 = p05 + 01 To 05
e04 = Estratto(extrazione,r02,p04)
e05 = Estratto(extrazione,r02,p05)
e06 = Estratto(extrazione,r02,p06)
If(e01 = e04 Or e01 = e05 Or e01 = e06) And(e02 = e04 Or e02 = e05 Or e02 = e06) And(e03 = e04 Or e03 = e05 Or e03 = e06)Then
trovati = trovati + 01
If trovati = tentativo Then
numero01 = Estratto(estrazione,r01,p01)
numero02 = Estratto(estrazione,r01,p02)
numero03 = Estratto(estrazione,r01,p03)
numero04 = Estratto(extrazione,r02,p04)
numero05 = Estratto(extrazione,r02,p05)
numero06 = Estratto(extrazione,r02,p06)
ruota01 = r01
ruota02 = r02
TERNOUGUALE = True
Exit Function
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
TERNOUGUALE = False
End Function

resoconto :

---------------------------------------------Caso n° 01
[09333] [ 74] 22.06.2017 - TO 13.64.62
[09339] [ 80] 06.07.2017 - NA 64.13.62
---------------------------------------------Caso n° 02
[09329] [ 70] 13.06.2017 - PA 43.33.78
[09340] [ 81] 08.07.2017 - BA 78.33.43
---------------------------------------------Caso n° 03
[09333] [ 74] 22.06.2017 - PA 56.68.43
[09340] [ 81] 08.07.2017 - CA 43.56.68
---------------------------------------------Caso n° 04
[09329] [ 70] 13.06.2017 - NA 56.62.11
[09343] [ 84] 15.07.2017 - GE 56.11.62
---------------------------------------------Caso n° 05
[09346] [ 87] 22.07.2017 - TO 39.71.66
[09346] [ 87] 22.07.2017 - PA 39.66.71
---------------------------------------------Caso n° 06
[09332] [ 73] 20.06.2017 - NZ 11.58.89
[09347] [ 88] 25.07.2017 - RO 58.11.89
---------------------------------------------Caso n° 07
[09343] [ 84] 15.07.2017 - VE 82.88.26
[09347] [ 88] 25.07.2017 - CA 82.88.26
---------------------------------------------Caso n° 08
[09337] [ 78] 01.07.2017 - GE 62.20.37
[09348] [ 89] 27.07.2017 - FI 62.37.20
---------------------------------------------Caso n° 09
[09341] [ 82] 11.07.2017 - TO 62.59.14
[09349] [ 90] 29.07.2017 - BA 62.14.59
---------------------------------------------Caso n° 10
[09345] [ 86] 20.07.2017 - TO 13.79.38
[09349] [ 90] 29.07.2017 - FI 79.13.38
---------------------------------------------Caso n° 11
[09342] [ 83] 13.07.2017 - CA 49.70.75
[09350] [ 91] 01.08.2017 - BA 49.70.75
---------------------------------------------Caso n° 12
[09348] [ 89] 27.07.2017 - MI 49.28.74
[09350] [ 91] 01.08.2017 - BA 49.28.74
---------------------------------------------Caso n° 13
[09355] [ 96] 12.08.2017 - MI 71.35.23
[09355] [ 96] 12.08.2017 - FI 23.35.71
---------------------------------------------Caso n° 14
[09344] [ 85] 18.07.2017 - RO 65.60.09
[09356] [ 97] 16.08.2017 - GE 60.65.09
---------------------------------------------Caso n° 15
[09350] [ 91] 01.08.2017 - NZ 76.28.40
[09356] [ 97] 16.08.2017 - VE 40.28.76
---------------------------------------------Caso n° 16
[09351] [ 92] 03.08.2017 - NZ 28.68.29
[09356] [ 97] 16.08.2017 - NA 29.28.68

Avatar utente
blacklotto
Messaggi: 12
Iscritto il: 10/06/2017, 21:18

Re: TERNI RIPETUTI

Messaggio da blacklotto » 18/08/2017, 13:31

... questo invece, consegna i terni sortiti uguali nella stessa estrazione :

Sub Main
Dim nu(3),ru(1),ru1(1),nn(6),ruo(2)
ad = CInt(InputBox("QUANTE ESTRAZIONI ANALIZZO ","Mike58",300))
Ini = EstrazioneFin - ad
fin = EstrazioneFin
Scrivi Space(5) & "Info Estrazione" & Space(27) & "Terni Estratti" & Space(15) & "Rit,Att RitCro RitAmbo freqAmbo " & Space(6) & "Numeri e verifica in colpi 20 x Ambo",1
Scrivi String(160,"="),1
For es = Ini To fin
For r = 1 To 9
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If a <> b And b <> c Then
nu(1) = a
nu(2) = b
nu(3) = c
ru1(1) = r
For r2 = r + 1 To 10
ru(1) = r2
ruo(1) = r
ruo(2) = r2
If VerificaEsito(nu,ru1,es,3,1,,esitoT,,estrattiT,IdT) = True Then
If VerificaEsito(nu,ru,es,3,1,,esitoA,,estrattiA,IdA) = True Then
Call Messaggio("Elaboro Estrazioni . . . . . A T T E N D E R E . . . . " & es)
Call AvanzamentoElab(Ini,fin,es)
rtt = SerieRitardo(es + 1,fin,nu,ruo,3)
rta = SerieRitardo(es + 1,fin,nu,ruo,2)
fra = SerieFreq(es + 1,fin,nu,ruo,2)
Scrivi GetInfoEstrazione(es) & vbTab,0,0
Scrivi estrattiT & vbTab & EstrattiA & vbTab,0,0
Scrivi rtt & vbTab & fin - es & vbTab & rta & vbTab & fra & vbTab,0,0
Scrivi StringaNumeri(nu,,1) & vbTab,1,0
ReDim rt(10)
For rr = 1 To 10
rt(rr) = rr
Call VerificaEsitoConGuadagno(nu,ruo,es + 1,2,20,,esito,colpi,estratti,id,,guad)
Next
Scrivi estratti & vbTab,0,0
Scrivi colpi'
End If
End If
Next
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi "Estrazioni analizzate..... " & fin - Ini,1
Scrivi " Script By Mike58 ",1,1,,1,2,,1
End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 3644
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: TERNI RIPETUTI

Messaggio da Tatoo64 » 18/08/2017, 20:45

Grazie blacklotto, sono appena rientrato dalle ferie come ho un attimo di tempo controllo e vedo se fanno al caso mio per delle ricerche.

Ti farò sapere grazie ancora.


P.S.

Ma lo script è per L8 o per Spaziometria??
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
blacklotto
Messaggi: 12
Iscritto il: 10/06/2017, 21:18

Re: TERNI RIPETUTI

Messaggio da blacklotto » 18/08/2017, 21:03

sono per spaziometria

quindi hai finito le ferie, bene, avremo tempo per due chiacchere ...

Se ti occorre in futuro qualche listato posso vedere se c'è l'ho, o simile ... ma tu sai svilupparli, o sbaglio ?

a presto

Avatar utente
Tatoo64
Site Admin
Messaggi: 3644
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: TERNI RIPETUTI

Messaggio da Tatoo64 » 18/08/2017, 21:57

blacklotto ha scritto:sono per spaziometria

quindi hai finito le ferie, bene, avremo tempo per due chiacchere ...

Se ti occorre in futuro qualche listato posso vedere se c'è l'ho, o simile ... ma tu sai svilupparli, o sbaglio ?

a presto

No non ho mai imparato........
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite