Class Script
Sub Main()
Dim aMatrice ( ,)
Dim riga As String
Dim Ambata(90,2)
Dim Abb(90,2)
Dim Capogioco(90) As Integer
Dim es, p1, p2, c, n, ps, r, a As Integer
Dim ContaCasi As Integer = 0
Dim aruote As Integer
Dim Spia1 As Integer
Dim Spia2 As Integer
Dim casi As Integer
Dim r1 As Integer
Dim r2 As Integer
Dim colpi As Integer
Dim TotAmbate As Integer
Dim TotAbb As Integer
Dim ruot As Integer
Dim Inizio As Integer = EstrazioniArchivio -1000
Dim fine As Integer = EstrazioniArchivio
ruot = Input("Ruota della Spiata",,4)
Spia1 = InputBox( " 1 numero ambo spia ",,1)
Spia2 = InputBox( " 2 numro ambo spia ",,21)
casi = InputBox( "casi da esaminare ",,11)
r1 = InputBox( "Quale Ruota vrifivs1",,1)
r2 = InputBox( "Quale Ruota verifica 2",,2)
colpi = InputBox( "colpi di Verifica ",,12)
TotAmbate= Input("Quante Ambate Vuoi Trovare ?",,2)
TotAbb = Input("Quanti Abbinamenti Vuoi trovare ?",,10)
For a=1 To 90
Ambata(a,1) = a
Abb(a,1) = a
Next
For es = Fine To Inizio Step -1
AvanzamentoElab(Inizio, Fine)
For p1 = 1 To 4
For p2 = p1+1 To 5
If Estratto(es,ruot,p1) = Spia1 And Estratto(es,ruot,p2)= Spia2 Or Estratto(es,ruot,p1) = Spia2 And Estratto(es,ruot,p2) = Spia1 Then
ContaCasi +=1
Dim sortito(90) As Byte
For c = (es+1) To (es+Colpi)
If c > Fine Then Exit For
For r = 1 To 11
If r = r1 Or r = r2 Then
For ps = 1 To 5
n = Estratto(c,r,ps)
sortito
=1
Next
End If
Next
Next
For c = 1 To 90
Ambata(c,2) += sortito(c)
Next
End If
Next
Next
If ContaCasi=casi Then Exit For
Next
' vogliamo ordinalre la matrice decrescente per le colonne 1 e 2
Dim aColPerOrdinamento (1) As Integer
aColPerOrdinamento ( 0) = 1
aColPerOrdinamento ( 1) = 2
Dim aVerso (1) As Integer ' verso decrescente per tutte e due le colonne
aVerso(0) = -1
aVerso (1) = -1
OrdinaMatrice( aMatrice ,aColPerOrdinamento ,aVerso ,1) ' sic
For a = 1 To TotAmbate
Capogioco(Ambata(a,1)) = 1
Next
ContaCasi = 0
For es = Fine To Inizio Step -1
For p1 = 1 To 4
For p2 = p1+1 To 5
If Estratto(es,ruot,p1) = Spia1 And Estratto(es,ruot,p2)= Spia2 Or Estratto(es,ruot,p1) = Spia2 And Estratto(es,ruot,p2) = Spia1 Then
ContaCasi +=1
For c = (es+1) To (es+Colpi)
If c > Fine Then Exit For
For r = 1 To 11
If r = r1 Or r = r2 Then
Dim capoOk As Boolean=False
For ps = 1 To 5
n = Estratto(c,r,ps)
If Capogioco
=1 Then capoOk=True
Next
If capoOk Then
For ps = 1 To 5
n = Estratto(c,r,ps)
If Capogioco
=0 Then Abb(n,2) += 1
Next
End If
End If
Next
Next
End If
Next
Next
If ContaCasi=casi Then Exit For
Next
Dim aColPerOrdinamento (1) As Integer
aColPerOrdinamento ( 0) = 1
aColPerOrdinamento ( 1) = 2
Dim aVerso (1) As Integer ' verso decrescente per tutte e due le colonne
aVerso(0) = -1
aVerso (1) = -1
OrdinaMatrice( aMatrice ,aColPerOrdinamento ,aVerso ,1) ' sic
Dim T() As String = {" CASI TROVATI "," RUOTA SPIA ", " AMBO SPIA "," RUOTE DI VERIFICA ", " colpi "," ambata "," presenza/ casi "," abbinamenti "," PRESENZE/CASI " }
InitTabella(T ,ColoreBlu,,,ColoreBianco)
For a = 1 To TotAmbate '
(Ambata(a,1))=a
'(Ambata(a,2))&"/"& Format2(Contacasi))
Next
For c = 1 To TotAbb
'(c))
(Abb(c,1))=c
'(Abb(c,2))&"/"& Format2(Contacasi))
Next
Dim V () As String
ReDim V (T.GetUpperbound(0))
V(0) = ncasi
V(1) = NomeRuota(ruot) ' ìruota spiata
V(2) = Spia1 & Spia2
V(3) = NomeRuota(r1) &NomeRuota(r2)
V(4) = colpi
V(5) = Ambata(a,1)
V(6) = (Ambata(a,2))&"/"& Format2(Contacasi))
V(7) = Abb(c,1)
V(8) = (Abb(c,2))&"/"& Format2(Contacasi))
Call AddRigaTabella(V)
'Scrivi (n & vbTab & riga)
riga = ""
Call CreaTabella()
End Sub
End Class
, magari basta semplicemente postarla 
