Option Explicit
'Funzioni utili per calcolo ciclo teorico varie lotterie
'Sostituire nelle funzioni il numero di posizioni attive esempio lotto italiano 5 Estratti ,
'nel superEnalotto ho scritto un fittizio 6 ma non so se si considerano anche il jolly e super star
'Nel 10&Lotto ho scritto 20
'Nel vinci casa 5
' nell'Uk se qualcuno si trova da quelli parti ho scritto 6ù
'Basta sostituire i valori con quelli reali
'Se non sapete Dove Inserirli ditemeli che li Scrivo io
'Se ci sono Bugs proviamo a correggerli :)
Sub Main
Dim Ini,fin,es
Dim nValore,nCombinazione,nSorte,Ctr
Dim nPos,nRuote,sTipoGioco,nNum
sTipoGioco = SelezionaTipoDiGioco
nCombinazione = ScegliCombinazione(sTipoGioco)
nSorte = SelEsito(sTipoGioco)
Ctr = NumeroRuoteAttive(sTipoGioco)
nPos = NumeroPosizioniAttive(sTipoGioco)
nNum = NumeroNumeri(sTipoGioco)
nValore = Round(CicloTeorico(nCombinazione,nSorte,CInt(Ctr),CInt(nPos),CInt(nNum)),2)
Scrivi "Tipo Di Gioco :{" & NomeLotteria(sTipoGioco) & "}",1,,,,3
Scrivi "Sviluppo numeri in :{" & NomeCombinazione(nCombinazione) & "}",1,,,,3
Scrivi "Analesi combinazione per :{" & NomeSorte(nSorte) & "}",1,,,,3
Scrivi "Ciclo Teorico :{" & nValore & "}",1,,,,3
End Sub
Function ContaEstrazioni(Ini,Fin,r)
Dim Conta,es
For es = Ini To Fin
If SommaEstratti(es,r) >= 15 Then Conta = Conta + 1
Next
ContaEstrazioni = Conta
End Function
Function ScegliCombinazione(tipodigioco)
Dim ret
Dim aVoci
' gli array partono sempre da 0
If tipodigioco = 2 Then
aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina","Sestina","Settina","Ottina","Novina","Decina")
ElseIf tipodigioco = 3 Or tipodigioco = 5 Then
aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina","Sestina")
Else
aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina")
End If
ret = ScegliOpzioneMenu(aVoci,3," Combina i numeri In :")
' serve per gestire il tasto annulla
ScegliCombinazione = ret
End Function
Function SelEsito(TipodiGioco)
Dim ret
Dim aVoci
' gli array partono sempre da 0
If TipodiGioco = 2 Then
aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina","Sestina","Settina","Ottina","Novina","Decina")
ElseIf TipodiGioco = 3 Or TipodiGioco = 5 Then
aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina","Sestina")
Else
aVoci = Array("","Estratto","Ambo","Terno","Quaterna","Cinquina")
End If
ret = ScegliOpzioneMenu(aVoci,2," Analesi per Sorte di : ")
SelEsito = ret
End Function
Function NumeroPosizioniAttive(TipodiGioco)
Dim ris,Ret
If Ret >= 0 Then
If TipodiGioco = 1 Then
ris = 5
ElseIf TipodiGioco = 2 Then
ris = 20
ElseIf TipodiGioco = 3 Then
ris = 6
ElseIf TipodiGioco = 4 Then
ris = 5
ElseIf TipodiGioco = 5 Then
ris = 6
End If
Else Ret = Ret
End If
NumeroPosizioniAttive = ris
End Function
Function SelezionaTipoDiGioco
Dim ret
Dim aVoci
aVoci = Array("","Lotto","10&Lotto","SuperEnalotto","VinciCasa","LottoUk")
ret = ScegliOpzioneMenu(aVoci,1,"Seleziona Lotteria : ")
SelezionaTipoDiGioco = ret
End Function
Function NumeroRuoteAttive(TipodiGioco)
Dim ris
If TipodiGioco = 1 Then
ris = CInt(InputBox("Seleziona il numero di ruote su cui Calcolare il Ciclo","Ciclo Teorico per Lotto Italiano",10))
Else
ris = 1
End If
NumeroRuoteAttive = ris
End Function
Function NumeroNumeri(TipodiGioco)
Dim ris,Ret
If Ret >= 0 Then
If TipodiGioco = 5 Then
ris = 49
Else
ris = 90
End If
Else Ret = Ret
End If
NumeroNumeri = ris
End Function
Function NomeCombinazione(a)
Dim ris
Select Case a
Case 1
ris = "Estratti"
Case 2
ris = "Ambi"
Case 3
ris = "Terzine"
Case 4
ris = "Quartine"
Case 5
ris = "Cinquine"
Case 6
ris = "Sestine"
Case 7
ris = "Settine"
Case 8
ris = "Ottine"
Case 9
ris = "Novine"
Case 10
ris = "Decine"
End Select
NomeCombinazione = ris
End Function
Function NomeLotteria(TipoDiGioco)
Dim ris
Select Case TipoDiGioco
Case 1
ris = "Lotto"
Case 2
ris = "10&Lotto"
Case 3
ris = "SuperEnalotto"
Case 4
ris = "VinciCasa"
Case 5
ris = "LottoUk"
End Select
NomeLotteria = ris
End Function
