Mike58

Alien. · 6 Luglio 2016

Mike58;n1988614 ha scritto:
Alien, io sono passato a fare altri script in altri ambienti.
Ti posso solo mettere una videata per gli ambi Frequenti per Mese su Numero in esame.

Non posso + esservi di aiuto.

Ciao

è nell'altro"ambiente" non mi accetta....come ALIEN si ma poi non trova l'e mail

Mike58 · 7 Luglio 2016

Alien,non capisco cosa non ti accetta,se sai dove trovarmi e se sei interessato poi vediamo.

Alien. · 8 Luglio 2016

Mike58;n1989143 ha scritto:
Alien,non capisco cosa non ti accetta,se sai dove trovarmi e se sei interessato poi vediamo.

è credo ma dammi un'aiutino......

Mike58 · 8 Luglio 2016

[No message]

Mike58 · 8 Luglio 2016

Sai che qui non si può inserire email e link, quindi se utilizzi licenziato altro programma sulla Piattaforma ********* è ancora possibile contattarmi tramite PM, mentre dove non ti accetta(suppongo) devi spiegare il tutto all'amministratore.

Fare gli stessi script in Vbscript non è possibile, sono costrutti differenti, poi io ho già spiegato, voglio fare anche altro per mia evoluzione personale.

Ciao

Alien. · 8 Luglio 2016

FORSE ?

MI SON PERSO IL TRENO DELLE 11:55

Mike58 · 8 Luglio 2016

si è stato criptato cancellato !!!!

Joe91 · 8 Luglio 2016

Ciao Mike.

A me risulta che l'ambo 35.60 abbia 7 presenze nella ruota di Cagliari

nello stesso mese e nello stesso periodo considerato.

Quindi, giusto quanto hai scritto per il capogioco 57

ma con esso non si arriverebbe al top.

Purtroppo non m'è possibile dirti cosa s'è grippato.

Cordiali saluti.

Codice:

[FONT=Courier New][SIZE=10px][COLOR=#000000]1  [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]19.07.1969 CA 47.31.35.37.60[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]2  [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]18.07.1981 CA 60.85.35.28.12[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]3  [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]13.07.1996 CA 60.35.85.61.10[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]4  [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]15.07.1998 CA 60.61.46.90.35[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]5  [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]06.07.2006 CA 78.26.60.35.24[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]6  [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]10.07.2008 CA 60.35.83.66.75[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000]7  [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]27.07.2010 CA 60.04.48.35.81  [/COLOR][/SIZE][/FONT]

Mike58 · 8 Luglio 2016

Ciao Joe, il 57 era capogioco richiesto, ma non è l'ambo + frequente a Luglio nel periodo analizzato.
L'ambo + frequente è il tuo 35-60 come dici tu con 7 presenze.
Corretto

Codice:

 [COLOR=#1][B]I 10 Ambi più Frequenti Per ogni ruota su mese a scelta[/B][/COLOR] [COLOR=black]Data Iniziale  : Sabato, 14 Settembre 1946[/COLOR] [COLOR=black]Data Finale    : Giovedi, 07 Luglio 2016[/COLOR] [COLOR=black]Mese esaminato : Luglio[/COLOR]   [HR][/HR] [TABLE="width: 807"]
 	 		[TR]
 			Ruote 			Mese 			1°Ambo (Fre) - (Rit_Ambo) 			2°Ambo (Fre) - (Rit_Ambo) 			3°Ambo (Fre) - (Rit_Ambo) 		[/TR]
 	 	 		[TR]
 			[TD="bgcolor: white"]BA[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]58.68 - ([COLOR=red] 06[/COLOR] ) - 445[/TD]
 			[TD="bgcolor: white"]11.41 - ([COLOR=red] 06[/COLOR] ) - 152[/TD]
 			[TD="bgcolor: white"]68.81 - ([COLOR=red] 06[/COLOR] ) - 06[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]CA[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]35.60 - ([COLOR=red] 07[/COLOR] ) - 141[/TD]
 			[TD="bgcolor: white"]24.26 - ([COLOR=red] 06[/COLOR] ) - 1294[/TD]
 			[TD="bgcolor: white"]03.23 - ([COLOR=red] 06[/COLOR] ) - 82[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]FI[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]03.78 - ([COLOR=red] 07[/COLOR] ) - 194[/TD]
 			[TD="bgcolor: white"]62.69 - ([COLOR=red] 07[/COLOR] ) - 309[/TD]
 			[TD="bgcolor: white"]42.84 - ([COLOR=red] 06[/COLOR] ) - 468[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]GE[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]34.67 - ([COLOR=red] 06[/COLOR] ) - 305[/TD]
 			[TD="bgcolor: white"]04.54 - ([COLOR=red] 06[/COLOR] ) - 154[/TD]
 			[TD="bgcolor: white"]08.39 - ([COLOR=red] 05[/COLOR] ) - 427[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]MI[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]08.67 - ([COLOR=red] 06[/COLOR] ) - 02[/TD]
 			[TD="bgcolor: white"]11.30 - ([COLOR=red] 06[/COLOR] ) - 414[/TD]
 			[TD="bgcolor: white"]40.53 - ([COLOR=red] 06[/COLOR] ) - 310[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]NA[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]37.63 - ([COLOR=red] 07[/COLOR] ) - 165[/TD]
 			[TD="bgcolor: white"]16.79 - ([COLOR=red] 06[/COLOR] ) - 520[/TD]
 			[TD="bgcolor: white"]33.69 - ([COLOR=red] 06[/COLOR] ) - 01[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]PA[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]05.80 - ([COLOR=red] 06[/COLOR] ) - 43[/TD]
 			[TD="bgcolor: white"]16.63 - ([COLOR=red] 06[/COLOR] ) - 45[/TD]
 			[TD="bgcolor: white"]67.89 - ([COLOR=red] 05[/COLOR] ) - 153[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]RM[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]17.72 - ([COLOR=red] 06[/COLOR] ) - 151[/TD]
 			[TD="bgcolor: white"]73.74 - ([COLOR=red] 06[/COLOR] ) - 708[/TD]
 			[TD="bgcolor: white"]37.54 - ([COLOR=red] 06[/COLOR] ) - 840[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]TO[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]03.11 - ([COLOR=red] 07[/COLOR] ) - 467[/TD]
 			[TD="bgcolor: white"]11.52 - ([COLOR=red] 06[/COLOR] ) - 155[/TD]
 			[TD="bgcolor: white"]11.30 - ([COLOR=red] 06[/COLOR] ) - 156[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]VE[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]13.38 - ([COLOR=red] 06[/COLOR] ) - 143[/TD]
 			[TD="bgcolor: white"]36.49 - ([COLOR=red] 06[/COLOR] ) - 116[/TD]
 			[TD="bgcolor: white"]26.44 - ([COLOR=red] 06[/COLOR] ) - 134[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]NZ[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]52.58 - ([COLOR=red] 04[/COLOR] ) - 237[/TD]
 			[TD="bgcolor: white"]15.39 - ([COLOR=red] 04[/COLOR] ) - 444[/TD]
 			[TD="bgcolor: white"]52.61 - ([COLOR=red] 04[/COLOR] ) - 303[/TD]
 		[/TR]
 		[TR]
 			[TD="bgcolor: white"]TT[/TD]
 			[TD="bgcolor: white"]Luglio[/TD]
 			[TD="bgcolor: white"]68.73 - ([COLOR=red] 26[/COLOR] ) - 20[/TD]
 			[TD="bgcolor: white"]25.49 - ([COLOR=red] 23[/COLOR] ) - 13[/TD]
 			[TD="bgcolor: white"]22.70 - ([COLOR=red] 22[/COLOR] ) - 68[/TD]
 		[/TR]
 	 [/TABLE]

Mike58 · 8 Luglio 2016

volendo il 35-60 a Ca, sarebbe l'ambo + frequente nei vari mesi.
Chissà !!! che si fa vivo !!!

LuigiB · 8 Luglio 2016

Cio Mike , in bocca al lupo per la nuova avventura ! Con l'occasione posto uno script che dovrebeb fare le stessse cose del tuo , lo script l'ho fatto velocemente alcuni risultati coincidono altri no ... non saprei se c'è qualche errore o se dipende dall'archivio ...io lo posto ..
Ciao

Codice:

Option Explicit
Class ClsCombinazione
    Private aNumeri
    Private aRuote
    Private m_ritardo
    Private m_frequenza
    Private m_ritardoMax
    Private m_sorte
    Private m_EstrIni
    Private m_EstrFin
    Public Property Get Ruote
        Ruote = aRuote
    End Property
    Public Property Get Sorte
        Sorte = m_sorte
    End Property
    Public Property Get EstrIni
        EstrIni = m_EstrIni
    End Property
    Public Property Get EstrFin
        EstrFin = m_EstrFin
    End Property
    Public Property Get Ritardo
        Ritardo = m_ritardo
    End Property
    Public Property Get Frequenza
        Frequenza = m_frequenza
    End Property
    Public Property Get RitardoMax
        RitardoMax = m_ritardoMax
    End Property
    Sub EseguiStat(vNumeri,vRuote,Sorte,Inizio,Fine)
        Dim nColTot,r
        ReDim aR(1)
        aNumeri = vNumeri
        aRuote = vRuote
        m_sorte = Sorte
        m_EstrIni = Inizio
        m_EstrFin = Fine
        m_ritardo = 0
        m_frequenza = 0
        m_ritardoMax = 0
        Call StatisticaFormazioneTurbo(aNumeri,aRuote,m_sorte,m_ritardo,m_ritardoMax,0,m_frequenza,m_EstrIni,m_EstrFin)
    End Sub
    Function StringaNum
        StringaNum = StringaNumeri(aNumeri)
    End Function
End Class
Sub Main
    Dim nQNum,nSorte,Inizio,Fine,nFisso,idMese,nEstrAna
    Dim Coll,clsCmb
    Dim R,j
    Dim idTipoRic
    ReDim aNumeri(0)
    ReDim aVTable(11)
    ReDim abMesi(12)
    Dim aVTipoRic
    aVTipoRic = Array("Frequenza","Ritardo","RitardoMax")
    idMese = ScegliMese
    abMesi(idMese) = True
    nFisso = Sceglifisso
    aVTable(1) = "Ruota"
    For R = 2 To 11
        aVTable(R) = "A" & R - 1
    Next
    Call InitTabella(aVTable)
    Inizio = EstrazioneIni
    Fine = EstrazioneFin
    nQNum = ScegliNumeri(aNumeri)
    nSorte = ScegliEsito(2)
    idTipoRic = ScegliTipoRicerca
    nEstrAna = AttivaEstrazioni(Inizio,Fine,abMesi)
    For R = 1 To 12
        If R <> 11 Then
            aVTable(1) = NomeRuota(R)
            Call Messaggio(aVTable(1))
            Set Coll = GetNewCollection
            Call EseguiStatistica(nFisso,aNumeri,R,nSorte,nSorte,Inizio,Fine,Coll)
            Call OrdinaItemCollection(Coll,aVTipoRic(idTipoRic))
            'For j = 2 To 11
            For j = 2 To Coll.count + 1
                If j > 11 Then Exit For
                Set clsCmb = Coll(j - 1)
                If aVTipoRic(idTipoRic) = "Frequenza" Then
                    aVTable(j) = clsCmb.StringaNum & " (" & "<font color='RED'>" & clsCmb.Frequenza & "</font>)"
                ElseIf aVTipoRic(idTipoRic) = "Ritardo" Then
                    aVTable(j) = clsCmb.StringaNum & " (" & "<font color='RED'>" & clsCmb.Ritardo & "</font>)"
                ElseIf aVTipoRic(idTipoRic) = "RitardoMax" Then
                    aVTable(j) = clsCmb.StringaNum & " (" & "<font color='RED'>" & clsCmb.RitardoMax & "</font>)"
                End If
            Next
            Call AddRigaTabella(aVTable)
        End If
        Call AvanzamentoElab(1,12,R)
    Next
    SetTableWidth("100%")
    Call Scrivi("Range analizzato : " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(Fine))
    Call Scrivi("Numero fisso     ; " & Iif(nFisso = 0,"Nessuno",nFisso))
    Call Scrivi("Mese analizzato  : " & Iif(idMese = 0,"Tutti",MeseNome(idMese)))
    Call Scrivi("Estrazioni tot,  : " & nEstrAna)
    Call Scrivi(String(100,"-"))
    Call CreaTabella
End Sub
Sub EseguiStatistica(nFisso,vNumeri,nRuota,Classe,Sorte,Inizio,Fine,CollDest)
    Dim nColTot
    Dim cComb
    ReDim aFissi(1)
    aFissi(1) = nFisso
    ReDim aR(1)
    aR(1) = nRuota
    If aFissi(1) > 0 Then
        nColTot = InitSviluppoIntegrale(vNumeri,Classe,aFissi)
    Else
        nColTot = InitSviluppoIntegrale(vNumeri,Classe)
    End If
    ReDim aCol(0)
    Do While GetCombSviluppo(aCol)
        Set cComb = New ClsCombinazione
        Call cComb.EseguiStat(aCol,aR,Sorte,Inizio,Fine)
        CollDest.Add cComb
    Loop
End Sub
Private Function MeseValido(idEstr,aMesi)
    If aMesi(0) Then
        MeseValido = True
    Else
        MeseValido = aMesi(Mese(idEstr))
    End If
End Function
Private Function AttivaEstrazioni(Inizio,fine,aMesi)
    Dim k
    Dim nValide,b
    nValide = 0
    For k = Inizio To fine
        b = MeseValido(k,aMesi)
        Call ImpostaEstrazione(k,CBool(b))
        If b Then
            nValide = nValide + 1
        End If
    Next
    AttivaEstrazioni = nValide
End Function
Function ScegliMese
    Dim aV
    aV = Array("Tutti","Gen","Feb","Mar","Apr","Mag","Giu","Lug","Ago","Set","Ott","Nov","Dic")
    ScegliMese = ScegliOpzioneMenu(aV,0)
End Function
Function Sceglifisso
    ReDim aV(90)
    Dim k
    aV(0) = "Nessun fisso"
    For k = 1 To 90
        aV(k) = k
    Next
    Sceglifisso = ScegliOpzioneMenu(aV,0)
End Function
Function ScegliTipoRicerca
    Dim aV
    aV = Array("Frequenza","Ritardo","RitardoMax")
    ScegliTipoRicerca = ScegliOpzioneMenu(aV,0)
End Function

Joe91 · 8 Luglio 2016

Ciao Mike.

Scusa dev'essere il caldo o peggio l'età.

Non ricordavo più ... che fosse richiesta.

Avrei dovuto rileggere.

Bravo, Tutto apposto.

Mike58 · 8 Luglio 2016

Ciao Luigi, dipende dall'archivio.
La mia analisi parte da 14-9-1946 ossia estraz = 3950 ed i dati sono coincidenti.
Si !!! in un periodo di stanca ho voluto sperimentare e cimentarmi con il VbNet ed anche con codici diversi e debbo dire che anche grazie ai tuoi insegnamenti qualcosina sono riuscito a costruire.

Ci sono codici quasi uguali, ma ci sono codici nettamente migliorativi in termini di tempi elaborazione la mia curiosità è cominciata quando si dibatteva sulle lunghette + ritardate con tempi elevati, e cosi addentrami nel vbnet ho visto che i tempi erano pochi secondi.
Cosi mi è venuta la voglia di saperne di più.

Chiaro la curiosità è sinonimo di chi vuole imparare continuamente(anche in età avanzata)

X Joe tranquillo, tutto serve per discutere e dialogare, magari dalle sviste si evidenzia qualcosa che non si sarebbe letto diversamente.
vedi il 35-60 è l'ambo migliore a luglio di tutti i mesi.

Grazie comunque dei vostri interventi.

Alien. · 8 Luglio 2016

LuigiB;n1989506 ha scritto:

Cio Mike , in bocca al lupo per la nuova avventura ! Con l'occasione posto uno script che dovrebeb fare le stessse cose del tuo , lo script l'ho fatto velocemente alcuni risultati coincidono altri no ... non saprei se c'è qualche errore o se dipende dall'archivio ...io lo posto ..
Ciao

Codice:

Option Explicit
Class ClsCombinazione
Private aNumeri
Private aRuote
Private m_ritardo
Private m_frequenza
Private m_ritardoMax
Private m_sorte
Private m_EstrIni
Private m_EstrFin
Public Property Get Ruote
Ruote = aRuote
End Property
Public Property Get Sorte
Sorte = m_sorte
End Property
Public Property Get EstrIni
EstrIni = m_EstrIni
End Property
Public Property Get EstrFin
EstrFin = m_EstrFin
End Property
Public Property Get Ritardo
Ritardo = m_ritardo
End Property
Public Property Get Frequenza
Frequenza = m_frequenza
End Property
Public Property Get RitardoMax
RitardoMax = m_ritardoMax
End Property
Sub EseguiStat(vNumeri,vRuote,Sorte,Inizio,Fine)
Dim nColTot,r
ReDim aR(1)
aNumeri = vNumeri
aRuote = vRuote
m_sorte = Sorte
m_EstrIni = Inizio
m_EstrFin = Fine
m_ritardo = 0
m_frequenza = 0
m_ritardoMax = 0
Call StatisticaFormazioneTurbo(aNumeri,aRuote,m_sorte,m_ritardo,m_ritardoMax,0,m_frequenza,m_EstrIni,m_EstrFin)
End Sub
Function StringaNum
StringaNum = StringaNumeri(aNumeri)
End Function
End Class
Sub Main
Dim nQNum,nSorte,Inizio,Fine,nFisso,idMese,nEstrAna
Dim Coll,clsCmb
Dim R,j
Dim idTipoRic
ReDim aNumeri(0)
ReDim aVTable(11)
ReDim abMesi(12)
Dim aVTipoRic
aVTipoRic = Array("Frequenza","Ritardo","RitardoMax")
idMese = ScegliMese
abMesi(idMese) = True
nFisso = Sceglifisso
aVTable(1) = "Ruota"
For R = 2 To 11
aVTable(R) = "A" & R - 1
Next
Call InitTabella(aVTable)
Inizio = EstrazioneIni
Fine = EstrazioneFin
nQNum = ScegliNumeri(aNumeri)
nSorte = ScegliEsito(2)
idTipoRic = ScegliTipoRicerca
nEstrAna = AttivaEstrazioni(Inizio,Fine,abMesi)
For R = 1 To 12
If R <> 11 Then
aVTable(1) = NomeRuota(R)
Call Messaggio(aVTable(1))
Set Coll = GetNewCollection
Call EseguiStatistica(nFisso,aNumeri,R,nSorte,nSorte,Inizio,Fine,Coll)
Call OrdinaItemCollection(Coll,aVTipoRic (idTipoRic ))
End If
Call AvanzamentoElab(1,12,R)
For j = 2 To 11
Set clsCmb = Coll(j - 1)
If aVTipoRic (idTipoRic ) = "Frequenza" Then
aVTable(j) = clsCmb.StringaNum & " (" & "<font color='RED'>" & clsCmb.Frequenza & "</font>)"
ElseIf aVTipoRic (idTipoRic ) = "Ritardo" Then
aVTable(j) = clsCmb.StringaNum & " (" & "<font color='RED'>" & clsCmb.Ritardo & "</font>)"
ElseIf aVTipoRic (idTipoRic ) = "RitardoMax" Then
aVTable(j) = clsCmb.StringaNum & " (" & "<font color='RED'>" & clsCmb.RitardoMax& "</font>)"
End If


Next
Call AddRigaTabella(aVTable)
Next
SetTableWidth("100%")

Call Scrivi ("Range analizzato : " & GetInfoEstrazione (Inizio) & " - " & GetInfoEstrazione (Fine) )
Call Scrivi ("Numero fisso ; " & Iif(nFisso =0 , "Nessuno" , nFisso))
Call Scrivi ("Mese analizzato : " & Iif(idMese =0 , "Tutti" , MeseNome(idMese )))
Call Scrivi ("Estrazioni tot, : " & nEstrAna )
Call Scrivi

Call CreaTabella
End Sub
Sub EseguiStatistica(nFisso,vNumeri,nRuota,Classe,Sorte,Inizio,Fine,CollDest)
Dim nColTot
Dim cComb
ReDim aFissi(1)
aFissi(1) = nFisso
ReDim aR(1)
aR(1) = nRuota
If aFissi(1) > 0 Then
nColTot = InitSviluppoIntegrale(vNumeri,Classe,aFissi)
Else
nColTot = InitSviluppoIntegrale(vNumeri,Classe)
End If
ReDim aCol(0)
Do While GetCombSviluppo(aCol)
Set cComb = New ClsCombinazione
Call cComb.EseguiStat(aCol,aR,Sorte,Inizio,Fine)
CollDest.Add cComb
Loop
End Sub
Private Function MeseValido(idEstr,aMesi)
If aMesi(0) Then
MeseValido = True
Else
MeseValido = aMesi(Mese(idEstr))
End If
End Function
Private Function AttivaEstrazioni(Inizio,fine,aMesi)
Dim k
Dim nValide , b
nValide =0
For k = Inizio To fine
b = MeseValido(k,aMesi)
Call ImpostaEstrazione(k ,CBool(b))
If b Then
nValide = nValide +1
End If
Next

AttivaEstrazioni = nValide
End Function
Function ScegliMese
Dim aV
aV = Array("Tutti","Gen","Feb","Mar","Apr","Mag","Giu","Lug","Ago","Set","Ott","Nov","Dic")
ScegliMese = ScegliOpzioneMenu(aV,0)
End Function
Function Sceglifisso
ReDim aV(90)
Dim k
aV(0) = "Nessun fisso"
For k = 1 To 90
aV(k) = k
Next
Sceglifisso = ScegliOpzioneMenu(aV,0)
End Function
Function ScegliTipoRicerca
Dim aV
aV = Array("Frequenza","Ritardo","RitardoMax")
ScegliTipoRicerca = ScegliOpzioneMenu(aV,0)
End Function

CIAO LUIGI ho provato con gli ambi ma mi da 2 volte la ruota di venezia con gli stessi ambi

LuigiB · 8 Luglio 2016

hai ragione , ora l'ho corretto ricopialo ...

Alien. · 9 Luglio 2016

Alien. · 9 Luglio 2016

scuami Luigi ma....ti è possibile :immetto un numero capogioco(a scelta) puoi trovarmi i 10 numeri con più frquenze che si è abbinato per ambo,terno ecc. scegliendo la ruota mesi e tutte?
Grazie. e buon WK

LuigiB · 9 Luglio 2016

ciao Mike, bravissimo ...ho letto che per imparare il nuovo ambinete devi dimenticare tutto.. non è vero per niente.. si tratta solo di un altro approccio in realtà cioò che sai ti sarà molto utile per orientarti in questo nuovo mondo.
Il discorso velocità non dipende da vb.net ..assolutamente no... dpende dagli algoritmi che hanno usato ..ora io il programma ce dici anche se ipotizzo quale sia non l'ho mai provato pero ripeto la velocità non dipende dal .net questo è poco ma sicuo ..anzi ...

ciao !

Mike58 · 9 Luglio 2016

Ciao Luigi, "Dimenticare Tutto" era un modo di dire per non staccarmi un po' dalle richieste e cercare di concentrarmi sui codici diversi dell'altro programma.

Sicuramente è come tu dici, nel VbNet sono gli algoritmi usati,ma ti assicuro che le lunghette del quale si faceva prima riferimento vengono elaborate nel tempo di secondi.

La elaborazione e scrittura dei Terni vergini a Tutte dalla 3950 alla fine che sono 1301 vengono eseguiti e scritti in 0,02 sec.con i nuovi algoritmi, mentre prima anche con lo stesso(mio) approccio di spaziometria in 10 min.

Bravo anche il programmatore di ***.

Quello che è certo che se si vuole è bello imparare.

solare · 9 Luglio 2016

Ciao Luigi, e come sempre grazie per tutto.
Vorrei segnalarti, un problemino con quest'ultimo tuo script. Avvio script: Mesi tutti, nessun fisso, inserisco la mia combinazione 1-2-3, esito 2, freq....avvio ris: errore. metto immagine.

Mike58

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

LuigiB

Guest

Advanced Premium Member

Advanced Premium Member

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Allegati