Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Ultima del Mese BARI
Gio Ott 18, 2018 7:34 pm Da DjNomade

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Mer Ott 10, 2018 7:29 am Da DjNomade

» Previsione per Ottobre 2018
Lun Ott 01, 2018 1:10 pm Da Lory

» Da Ambo Distanza 27 a Bari
Gio Set 13, 2018 6:57 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Dom Ago 26, 2018 7:15 am Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore


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 : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna 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 : 814
Data d'iscrizione : 26.12.13

Visualizza il profilo http://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

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