Cerca
 
 

Risultati secondo:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Vediamo se mi ripago le ferie
Ven Feb 16, 2018 5:11 pm Da spike5

» Da Ambo spia 09-90 a tutte
Ven Feb 16, 2018 8:40 am Da spike5

» Ultima del Mese BARI
Sab Feb 10, 2018 9:12 pm Da vinci

» Palermo-Torino
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5

» Firenze-Genova (chiusa)
Gio Gen 18, 2018 1:09 pm Da Lory

» ambo a tutte
Lun Gen 08, 2018 9:50 pm Da Mara*

» 2 ambi a Venezia
Lun Gen 08, 2018 1:49 pm Da spike5


Estratti ed Ambi + Frequenti dopo spia in posizione

Andare in basso

Estratti ed Ambi + Frequenti dopo spia in posizione

Messaggio Da Blackmore il Sab Set 13, 2014 12:43 pm

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

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Estratti ed Ambi + Frequenti dopo spia in posizione

Messaggio Da Marco il Sab Set 13, 2014 2:05 pm

Grazie Black Very Happy
avatar
Marco
amministratore

Messaggi : 813
Data d'iscrizione : 26.12.13

Vedi il profilo dell'utente http://lottomatematico.forumattivo.it

Tornare in alto Andare in basso

Tornare in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum