Legge del Terzo script richiesta modifica

[drumbsd]

Salve, ho questo script di Jai.Jai, sulla legge del terzo. Utilizzo Spaziometria come software. Analizzando il codice mi pare che funzioni a massa pari. C'e' verso di modificarlo per impostare una progressione quando l'esito e' negativo? Chesso' anche un fibonacci per esempio.

Grazie.

' Formattazione Testo
tst = " ********** "
tst1 = "LA TRIADE PERFETTA"
spc1 =(90 - Len(tst + tst1 + tst))/2
tst2 = "... dalla Legge del Terzo ..."
spc2 =(90 - Len(tst + tst2 + tst))/2

Scrivi Space(spc1) & tst & tst1 & tst & Chr(10),1
Scrivi Space(spc2) & tst & tst2 & tst & Chr(10),1


ColoreTesto 2 : Scrivi Space((90 - Len("by Jai.Jai"))) & "by Jai.Jai" & Chr(10),1
ColoreTesto 1 : Scrivi String(48,"*") & "listato by Jai.Jai" & Chr(10),1
ColoreTesto 0
Sub Main()

Dim frequenze(90),mat1(90,1,2),mat2(90,1,2),v(90),numeri1(6),poste(1),ruote(1)
Dim n,c
Dim i
Dim ruota
Dim es
Dim s

ultima = CInt(InputBox("Estrazione di partenza","LA TRIADE PERFETTA by Jai.Jai",8000))

poste(1) = 1

For i = 1 To 90
frequenze(i) = 0
Next

ef = ultima ' estrazione di esame


While ef <= EstrazioneFin
Messaggio "elab. estr. [" &(ef) & _
"] di " & DataEstrazione(ef,1)

For kk = 1 To 10
ruota = kk
ruote(1) = kk

es = ef - 35
fin1 = ef - 18

For i = 1 To 90
frequenze(i) = 0
mat1(i,1,1) = i
mat1(i,1,2) = 0
Next

For n = es To fin1
For i = 1 To 5
e = Estratto(n,ruota,i)
frequenze(e) = frequenze(e) + 1
mat1(e,1,2) = mat1(e,1,2) + 1
Next
Next

afr = 0
For n = 0 To 18
s = " numeri sortiti " & CStr & " volte: "
c = 0
For i = 1 To 90
If frequenze(i) = n Then
s = s & CStr(i) & " "
If frequenze(i) = 3 Then
afr = afr + 1
End If
c = c + 1
End If

Next

Next

For i = 1 To 90
frequenze(i) = 0
mat2(i,1,1) = i
mat2(i,1,2) = 0
Next

es = ef - 17
fin1 = ef

For n = es To fin1
For i = 1 To 5
e = Estratto(n,ruota,i)
frequenze(e) = frequenze(e) + 1
mat2(e,1,2) = mat2(e,1,2) + 1
Next
Next


For n = 0 To 18
s = " numeri sortiti " & CStr & " volte: "
c = 0
For i = 1 To 90
If frequenze(i) = n Then
s = s & CStr(i) & " "
c = c + 1
End If
Next

'

Next

c = 0
For i = 1 To 90
v(i) = 0
Next

For i = 1 To 90
If mat1(i,1,2) = 3 And mat2(i,1,2) = 0 Then 'controllo casistica
c =(c + 1)
v(c) = i
End If
Next

If c = 3 And afr = 3 Then
s = "Ambate da giocare:"
For i = 1 To c
s = s & CStr(v(i)) & " "
Next
ColoreTesto(1)
ColoreTesto(0)
numeri1(1) = v(1)
numeri1(2) = v(2)
numeri1(3) = v(3)
ImpostaGiocata 1,numeri1,ruote,poste,9,1
Else
ColoreTesto(2)
ColoreTesto(0)
End If
Gioca ef
Next
ef = ef + 1
Erase numeri1
Wend
ScriviResoconto
End Sub