Fate i Vs. esperimenti e fateci sapere. cosa
a tutti,
ciao
Codice:
' Ho inserito input box per: durata e quantità periodi, colpi di verifica le estrazioni per vedere cosa succede effettivamente e
' la giocata x ambata sui primi 2 numeri della matrice crescente o decresente(a scelta)
'NB: sivuramente vi saranno differenze di esiti tra Spaz. ed L8 perche la disposizione dei numeri con stessa frequenza nella matrice dei 2 programmi è diversa.
Sub Main()
ReDim nu(90,90)
Dim ru(1)
Dim nx(1)
Dim n(10)
Dim Posta(1)
periodo = InputBox("Durata periodo:",,18)'18'<-------------------------durata periodo
q = InputBox("quanti periodi:",,50)
ru(1) = InputBox("Inserisci la ruota:",,1)'1'<----------------------------ruota
clp = InputBox("Quanti colpi di verifica esito?",,10) 'x controlo esito visivo
ord_mat = InputBox("Ordina mattrice: 0 = decr.te; 1 = cres.te ",,1) 'x controlo esito visivo
fin = EstrazioneFin
ini = fin -(periodo * q)'<-----------------------Tot estr. esaminate
For es = ini To fin Step periodo
AvanzamentoElab ini,fin,es
If es + periodo > fin Then Exit For
For x = 1 To 90
nx(1) = x
'Scrivi x & " - " & SerieFreq(es,es + periodo,nx,ru,1)
nu(x,1) = x
nu(x,2) = nu(x,2) + SerieFreq(es,es + periodo,nx,ru,1)
Next
If ord_mat = 1 Then
OrdinaMatrice nu,1,2
Else
OrdinaMatrice nu,- 1,2
End If
For x = 1 To 10 ' 10 numeri in orizzontale con presenze
rig1 = rig1 + Format2(nu(x,1)) & " "
rig2 = rig2 + Format2(nu(x,2)) & " "
Next
Scrivi "Da " & es & " a " & es + periodo & " Num: " & rig1,1
Scrivi "Dal " & DataEstrazione(es) & " al " & DataEstrazione(es + periodo),1
Scrivi SiglaRuota(ru(1)) & Space(12) & "Pres: " & rig2
Scrivi
For y = 1 To clp
Scrivi " " & DataEstrazione(es+periodo+y) & " | " & SiglaRuota(ru(1)) & " | " & StringaEstratti(es+periodo+ y,ru(1)),1
Next
n(1)= nu(1,1)
n(2)= nu(2,1)
'n(3)= nu(2,1) ... e cosi via se si vogliono aumentare i numeri da mettere in gioco. Per cercare sorti superiori modificare anche la posta
Posta(1) = 1
Scrivi
ImpostaGiocata 1,n,ru,Posta,clp,1
Gioca es+periodo,True,,1 'con ",True" vengono elencate per tutti i casi solo le estrazioni che sono positive
'Gioca es+periodo ' x funzionamento su L8 inserire apice alla precedente riga e toglierlo a questa
Call AzzeraMatrici(nu)
'Erase nu
rig1 = ""
rig2 = ""
Next
ScriviResoconto
End Sub
Sub AzzeraMatrici(nu)
ReDim nu(90,2)
End Suba tutti,
ciao
....eheheh
"maestro con la bacchetta"
