Class Script
Sub Main
Dim k , r ,es ,p , a ,b , nu(1) , pos(1) , ru(1) ,clp, c ,kk,kn,kd , ind , nClp ,pos2(1) ,p2 As Integer
Dim ini , fin , indx As Integer
Dim Uscite () , sUscite() , esito As String
Dim posta(1) As Single
posta(1) = 1
Dim TotNum() As Integer
'inserire qui il proprio codice..
'-------------------------------------------------------------------------
Dim aT() As String = {" Casi ", " Algoritmo ", " Casi Esaminati "," Casi Validi ", " Ultima Operazione " , " Numero Calcolato " ," Esito Ultima Oper " , " Colpo " , " Data Sortita "}
InitTabella(aT,ColoreVerde,,100,ColoreBianco )
'-------------------------------------------------------------------------
ini = EstrazioniArchivio - 160
fin = EstrazioniArchivio
r = InputBox ("Scegli la ruota ","RUOTA",9)
indx = InputBox("Quale indice Mensile ","INDICE MENSILE ",1)
Scrivi ("Estrazioni Esaminate ......... : " & fin-ini + 1)
Scrivi ("Indice mensile considerato.... : " & indx )
Scrivi (Space(28) & Chr(174) & " Script In VbNet per SpazioLight 1.0.22 By Mike58 " & Chr(169),1,,,ColoreBlu ,120 )
Scrivi ("Cerca Algoritmi sommativi sulle 10 Ruota e gioca sulla stessa Ruota ")
For rrr As Object = 1 To 10
For p = 1 To 5
For rr As Object = rrr + 1 To 11
For p2 = 1 To 5
For es = ini To fin
If IndiceMensile(es) = indx Then
Call Messaggio ("Cerca Algoritmi sommativi su ruota scelta & **** Script by Mike58 ***** " )
Call AvanzamentoElab (ini,fin,es)
ind = es + 1
k = k + 1
a = Estratto(es,rr,p)
b = Estratto(es,rrr,p2)
nu(1) = FuoriX((a+b),90)
ru(1) = r
pos(1) = p
pos2(1) = p2
If VerificaEsito (nu,ru,1,es+1,,14,clp,Uscite) Then
'kk = kk + 1
For c = 0 To Uscite.GetUpperBound(0)
If Uscite (c) <> "" Then
kk = kk + 1
End If
Next
End If
End If
Next
kd = k - (kk)
If kd <= 1 Then
kn = kn + 1
ReDim Preserve TotNum(kn)
TotNum(kn) = nu(1)
'-------------------------------------------------------------------------------------
esito = ""
If VerificaEsito (nu,ru,1,ind,,14,nClp,sUscite) Then
For cc As Integer = 0 To sUscite.GetUpperBound(0)
If sUscite(cc) <> "" Then esito = sUscite (cc)
Next
End If
'-------------------------------------------------------------------------------------
Dim aV() As String
ReDim aV(aT.GetUpperBound(0))
aV(0) = kn
aV(1) = pos(1) & "_" & NomeRuota(rr) & " + " & pos2 (1) & "_" & NomeRuota(rrr)
aV(2) = k
aV(3) = kk
aV(4) = a & " + " & b
aV(5) = nu(1)
aV(6) = esito
aV(7) = nClp
aV(8) = DataEstrazione ((ind-1) + nClp )
If esito = "" Then
Call AddRigaTabella(aV,ColoreGiallo ,,100,ColoreRosso )
Else
Call AddRigaTabella(aV,ColoreMagenta ,,100,ColoreBianco )
End If
End If
k = 0 : kk = 0
Next
Next
Next
Next
Call CreaTabella()
Scrivi ("Numeri Ricavati...... : " & StringaNumeri(TotNum ),1,,,ColoreBlu,150)
For ess As Integer = ind To fin
ImpostaGiocata (1,TotNum ,ru ,posta ,,1)
Gioca (ess,1)
Next
End Sub
End Class
