Help Me per chi vuole...

[Mike58]

Grazie Joe.
Super e SuperFunzionale.
👏👏👋

 

[toon]

Come al solito Problema risolto brillante"mente" .
Siete due menti notevoli, dove non arriva uno arriva l'altro, Vi completate alla grande..
Grande Grazie.. Anche da parte di tutti coloro che useranno il metodo.
🥃

 

[Mike58]

Giusto per non perdere la conoscenza scriptica ho simulato lo script anche in vbnet per spaziolight

Class Script
    Sub Main
        Scrivi ("Metodo Toon **** Script in VbNet per LottoProject - SpazioLight  **** By Mike58 / Rev By Joe",1,,ColoreVerde,ColoreBianco,150)
        Scrivi
        Dim Ini,Fin,Es,R,P,K,S,X,Kk,cz,dc As Integer
        Dim Nu(2),aN(5),aNumGioco(6),Ru(1) As Integer
        Dim posta(3) As Single
        Dim Esito,clp,estr,id As Integer
        Dim aUscite() , esito1 As String
        posta(2) = 1.5
        posta(3) = .5
        Ini = EstrazioniArchivio - 200
        Fin = EstrazioniArchivio
        'Scrivi "Metodo toon",1,,,1,3,,1
        S = 1 ' EVITA UN ENENTUALE CASO iniziale che non sia all' ultima_del_mese.
        For Es = Ini To Fin
            If IsUltimaDelMese(Es) Or S = 0 Then
                S = 0 'Azzeramento Flag/Contatore
                For R = 1 To 10
                    For P = 1 To 5
                        aN(P) = Estratto(Es,R,P)
                    Next
                    If Not Gemello(aN(1)) And Not Gemello(aN(5)) Then
                        If Cadenza(aN(1)) <> 9 And Cadenza(aN(5)) <> 9 Then
                            If aN(1) > 9 And aN(5) > 9 Then
                                If Cadenza(aN(1)) = Left  (aN(5),1) Then ' condizione vera
                                    'cz = Cadenza(aN(1)) : dc = Left (aN(5),1)
                                    'If cz = dc Then
                                    ' If Cadenza(aN(1)) <> Decinanaturale(aN(5)) Then ' condizione falsa
                                    If Left(aN(1),1) <> Cadenza(aN(5)) Then
                                        K = K + 1
                                        Kk = Kk + 1
                                        Nu(1) = aN(1)
                                        Nu(2) = aN(5)
                                        Ru(1) = R
                                        '--------- Numeri in Gioco ----------------
                                        aNumGioco(1) = Nu(1)
                                        aNumGioco(2) = Nu(2)
                                        aNumGioco(3) = Vertibile (Nu(1))
                                        aNumGioco(4) = Vertibile (Nu(2))
                                        aNumGioco(5) = Left (Nu(1),1) & Cadenza(Nu(2))
                                        aNumGioco(6) = Vertibile (aNumGioco(5))
                                        '------------------------------------------
                                        For X = 1 To 6
                                            If Not Gemello(aNumGioco(X)) Then
                                            End If
                                        Next
                                        esito1 = "<> --.--.--.--.--"
                                        If VerificaEsito (aNumGioco,Ru,2,Es + 1,,13,clp,aUscite) Then
                                            For k1 As Integer = 0 To aUscite.getupperbound(0)
                                                If aUscite(k1) <> "" Then esito1 = aUscite(k1)
                                            Next
                                        End If
                                        id = Es+clp
                                        '------------------------------------------------------------------------
                                        ImpostaGiocata (1,aNumGioco,Ru,posta,,13,2)
                                        Gioca (Es,,,,False)
                                        Scrivi (FormatSpace(Kk,2) & " - " & FormatSpace(K,2) & " - Ind.Mens " & FormatSpace(IndiceMensile(Es),2) & vbTab & Es & " - " & DataEstrazione(Es) & _
                                        vbTab & NomeRuota(R) & vbTab & StringaNumeri(Nu) & _
                                        vbTab & "Numeri in Gioco su Ruota : " & StringaNumeri(aNumGioco,,1),1,0) '& _
                                        Scrivi (vbTab & "Clp " & clp & vbTab & esito1 & vbTab & id & " - " & DataEstrazione(id),1,1,,ColoreRosso)
                                        S = S + 1 ' Contatore pronostici
                                    End If
                                End If
                                'End If
                            End If
                        End If
                    End If
                Next
                K = 0
                Scrivi ("===================================================================================================================================================================")
            End If
            If S = 0 Then Scrivi ("-      -     ..................." & Space(8) & DataEstrazione(Es) & Space(22) & "Nessuna Previsione Ultima del Mese - Ricerca Estraz,successiva",,,,ColoreBlu)
        Next
        'ColoreTesto(1)
        ScriviResoconto
        'ColoreTesto(0)
        DisegnaGraficoAndamento (1250,800)
    End Sub
End Class

- - ................... 30/04/2022 Nessuna Previsione Ultima del Mese - Ricerca Estraz,successiva
16 - 1 - Ind.Mens 1 10076 - 03/05/2022 Pa 35.51 Numeri in Gioco su Ruota : 35.51.53.15.31.13 Clp 2 Pa --.31.15.--.-- 10078 - 07/05/2022
===================================================================================================================================================================
17 - 1 - Ind.Mens 13 10088 - 31/05/2022 To 56.64 Numeri in Gioco su Ruota : 56.64.65.46.54.45 Clp 5 To 45.65.--.--.-- 10093 - 11/06/2022
===================================================================================================================================================================
18 - 1 - Ind.Mens 13 10101 - 30/06/2022 Mi 31.12 Numeri in Gioco su Ruota : 31.12.13.21.32.23 Clp 2 <> --.--.--.--.-- 10103 - 05/07/2022
===================================================================================================================================================================
Casi Esaminati : 18
Spesa Totale : 356,00
Vincita Totale : 199,20
Vincita Totale Netta : 183,26
Bollette giocate : 178
Bollette vincenti : 8

 

[toon]

Grandissimo, io uso anche quello, per rapidità e comodità..
Un' altro regalo molto bello, spero che un grazie Ti sia sufficiente..
🍻

 

[Xeroxs]

Buongiorno toon, Mike58 e Joe

Grazie alla richiesta di toon ho avuto modo di vedere, anzi di Rivedere quanto la Bravura di Mike58 e Joe sia una continua Evoluzione non solo utile a Noi Utenti ma anche costruttiva per chi ha voglia di Imparare e per questo Vi Ringrazio ( Non Solo Voi ma anche altri che hanno sempre dato e proposto Script che vanno oltre la semplice conoscenza dei codici usati in spaziometria )

Certo trovare argomenti che possano stimolare la vostra bravura, dopo tante cose ripetitive non è facile ma se Poi lo stimolo si innesca beh che Dire davvero Bravi ( Oltre )

 

[Mike58]

Grazie Xeroxs , Toon. sapevo che amavate anche gli script in vbnet ed è un peccato che si è evoluto poco e che si sià fermato.

Suggerimento :
Nello script in vbnet i codici Decina non esistono , esistono le decinecabalistiche, naturali e matematiche e questi non si adattano alle risultanze dello script ossia trovare i numeri centrali uguali, utilizzando cadenza e decina.

Visto che siamo alla ricerca di escamotage io ho usato il codice Left (prima cifra a sinistra) per la decina, in questo modo le risultanze sono veritiere e uguale nello script vbnet.

Ciao a tutti gli amici

 

[joe]

Buon giorno a tutte/i.

Personalmente ho letto una buona parte dei messaggi che ci furono e non mi era dispiaciuta l'idea.

Soprattutto quella di poter costruire qualcosa su una "base" più nuova rispetto al VB6.

Ma il mio PC non era in grado di reggere, una nuova grande ulteriore mole di file programmi ecc.. ecc..

Dunque mi sono limitato al leggere.

Personalmente avrei scritto (o tentato di scrivere) le routine per integrare le istruzioni mancanti.

Ma non avendo modo di provare se si può, quanto ho appena scritto,

è poco più dell'aver buttato un sasso nello stagno.

Per il resto ringrazio, per le buone parole che avete speso.

 

[toon]

Derivato da "Primo Estratto Pari "All'ultima del mese" -O- Nella prima estrazione utile successiva. V.Test By Joe "
Provatelo... Io l'ho trasformato nel terzo estratto Pari... Spero che il grande Joe non me ne voglia..

Option Explicit
Sub Main
Primo Estratto pari "All'ultima del mese" -O- Nella prima estrazione utile successiva. V.Test By Joe
   Dim Ini,Fin,Es,E,R,P,S,nu(6),Posta(5),Ru(12)
   Posta(2) = 1
   Posta(3) = 0.50
   Posta(4) = 0.50
   R = 10 : P = 3
   Ini = EstrazioneFin - 200
   Fin = EstrazioneFin
   For Es = Ini To Fin
      If IsUltimaDelMese(Es) Or S = True Then
         E = Estratto(Es,R,P)
         If pari(E) Then
            Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & E
            S = False
         Else
            S = True
            'Ru(1) = R
            Ru(1) = 6
            Ru(2) = 11
            nu(1) = Fuori90(E + 42)
            nu(2) = Fuori90(E * 42)
            nu(3) = Fuori90(E - 42)
            nu(4) = Fuori90(E / 42)
            EliminaRipetuti nu
            ImpostaGiocata 1,nu,Ru,Posta,13
            Gioca Es,1
         End If
      End If
   Next
   ScriviResoconto
End Sub

 

[Alien.]

Complimenti toon se partito da zero ed hai trasformato il tuo pensiero in uno script-
io ancora sono alle elementari 🤣

ma giugno nessun numero pari |! aspettiamo luglio !!