Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Dim i ' variabile generica per controllo cicli
Dim idEstr ' controlla lo scorrimento del ciclo di analisi
Dim Inizio ' è il limite inferiore del ciclo di analisi
Dim Fine ' è il limite superiore del ciclo di analisi
Dim nDaFare ' è il numero di estrazioni contenute nel range
Dim nFatte ' è il numero di estrazioni elaborate nel blocco analisi
Dim Ruote(12) ' contiene le ruote in gioco
Dim Poste(10) ' contiene le poste per ciascuna sorte giocata
Dim vetNumAmbo(3)' contiene i numeri da giocare per Ambo la gestione è a carico dell'utente
Dim idGiocata ' identifica le giocate effettuate
Dim CollFigTrovate ' collection contenente i parallelepipedi trovati
Dim clsFg ' Classe per enumerare la collection
' Imposto i limiti del range di analisi
Inizio = EstrazioniArchivio - 0
Fine = EstrazioniArchivio
' Calcolo estrazioni da fare
nDaFare = Fine -(Inizio - 1)
' Blocco analisi estrazioni
For idEstr = Inizio To Fine
' Qui va il codice che l'utente dovra scrivere per analizzare il metodo
' Come esempio nel codice c'è una funzione di rilevamento condizioni
' eventualemte sostituire il codice di rilevamento condizioni con
' codice adatto alle esigenze
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
If GetCollParallelepipedi(idEstr,CollFigTrovate) > 0 Then
idGiocata = 0 ' azzera le giocate
' Scorre le figure trovate
For Each clsFg In CollFigTrovate
ReDim aNumeriFig(0)
Call GetArrayNumeriFromFiguraSpaziometrica(clsFg,aNumeriFig) ' ottengo i numeri della figura
idGiocata = idGiocata + 1 'incrementa il numero della giocata
Call ImpostaGiocata(idGiocata,aNumeriFig,Ruote,Poste,10) ' gioca la combinazione per 10 colpi
Call DisegnaFiguraSpaziometrica(idEstr,clsFg)' Disegno il parallelepipedo
Next
Call Gioca(idEstr,True)
End If
' ------ FINE CODICE RILEVAMENTO CONDIZIONE
' Gestione avanzamento elaborazione
nFatte = nFatte + 1
Call AvanzamentoElab(0,nDaFare,nFatte)
' Gestione messaggio
Call Messaggio("Estrazioni elaborate : " & nFatte)
' Gestione interruzione elaborazione
If ScriptInterrotto Then Exit For
Next
End Subgiorgioantonio;n1887734 ha scritto:
LuigiB;n1887766 ha scritto:
