Estratti ed Ambi + Frequenti dopo spia in posizione

Da Blackmore Sab 13 Set - 14:43:12

Estratti ed Ambi + frequenti dopo spia in posizione
Con parametri e condizioni tramite inputbox

Gira su Spaziometria e Lottodesk

Codice:: Sub Main() ColoreTesto 1:Scrivi "Estratti ed Ambi + Frequenti dopo spia in Posizione... Listed By Blackmore":Scrivi: ColoreTesto 0 Dim num(90,2) Dim ambo(89,90) Dim ruota(10) casi = CInt(InputBox("QUANTI CASI VUOI ESAMINARE","By Blackmore",10)) rr = CInt(InputBox("RUOTA SPIA ?","By Blackmore",1)) nspia = CInt(InputBox("NUMERO SPIA ?","By Blackmore",90)) psz = CInt(InputBox("POSIZIONE SPIA ?","By Blackmore",5)) r1 = CInt(InputBox("RUOTA DI VERIFICA N° 1","By Blackmore",1)) r2 = CInt(InputBox("RUOTA DI VERIFICA N° 2","By Blackmore",2)) k = CInt(InputBox("COLPI DI VERIFICA ?","By Blackmore",10)) tot = CInt(InputBox("QUANTE AMBATA E AMBI VUOI TROVARE","By Blackmore",10)) infoE = CInt(InputBox("VUOI VEDERE I CASI NELL'OUTPUT ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO","By Blackmore",1)) mass_fre = 0 ini = EstrazioneFin - casi conta = 0 For es = EstrazioneFin To 1 Step - 1 If conta < casi Then a = Estratto(es,rr,psz) If a = nspia Then conta = conta + 1 infoEX infoE,conta,es,rr,nspia,psz w = es + 1 : ww = w + k - 1 For ess = w To ww If ess <= EstrazioneFin Then For r = 1 To 10 If r = r1 Or r = r2 Then For p = 1 To 5 cn = 0 n = Estratto(ess,r,p) num(n,1) = n num(n,2) = num(n,2) + 1 cn = cn + 1 Next For p1 = 1 To 4 a = Estratto(ess,r,p1) For p2 = p1 + 1 To 5 b = Estratto(ess,r,p2) If a < b Then ambo(a,b) = ambo(a,b) + 1 If ambo(a,b) > mass_fre Then mass_fre = ambo(a,b) Else ambo(b,a) = ambo(b,a) + 1 If ambo(b,a) > mass_fre Then mass_fre = ambo(b,a) End If Next Next End If Next End If Next End If End If Next Scrivi:ColoreTesto 1 Scrivi "CASI ESAMINATI " & Space(6) & "" & casi Scrivi "SPIA " & Space(16) & "" & nspia Scrivi "POSIZIONE " & Space(11) & "" & psz & "°" Scrivi "RUOTA DI RICERCA " & Space(4) & "" & NomeRuota(rr) Scrivi "RUOTE DI VERIFICA " & Space(3) & "" & NomeRuota(r1) & "-" & NomeRuota(r2) Scrivi "COLPI SUCESSIVI " & Space(5) & "" & k Scrivi:ColoreTesto 0 OrdinaMatrice num,- 1,2 Scrivi Scrivi "ESTRATTI + frequenti su " & NomeRuota(r1) & "-" & NomeRuota(r2) & " negli ultimi " & casi & " casi esaminati",1 Scrivi Scrivi "ESTRATTI FREQ",1 Scrivi For x = 1 To Tot Scrivi " " & Format2(num(x,1)) & "" & Space(9) & "" & Format2(num(x,2)) Next Scrivi Scrivi "AMBI + frequenti su " & NomeRuota(r1) & "-" & NomeRuota(r2) & " negli ultimi " & casi & " casi esaminati",1 Scrivi Scrivi "AMBI FREQ",1 Scrivi cont = 0 For x = mass_fre To 0 Step - 1 For a1 = 1 To 89 For b1 = a1 + 1 To 90 If ambo(a1,b1) = x Then cont = cont + 1 If cont <= tot Then Scrivi Format2(a1) & "." & Format2(b1) & "" & Space(8) & "" & Format2(ambo(a1,b1)) End If End If Next Next Next End Sub Function infoEX(infoE,conta,es,rr,nspia,psz) If infoE = 1 Then Scrivi Format2(conta) & ") " & DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Spia " & Format2(nspia) & " in " & psz & "° Pos" End Function

Da **Marco** Sab 13 Set - 16:05:27

Grazie Black Very Happy

Estratti ed Ambi + Frequenti dopo spia in posizione

Estratti ed Ambi + Frequenti dopo spia in posizione

Re: Estratti ed Ambi + Frequenti dopo spia in posizione