Proviamo a Testare le funzioni script di spazio Light e chiedere delucidazioni sulle difficoltà riscontrate

[Mike58]

Grazie Luigi , ho visto quante funzioni nuove hai aggiunto (un gran bel lavoraccio).
Da un'occhiata rapida la raccolta radicale non sembra essere corretta (sicuramente è la mia routine che in spaziolight non funge) .
Bisogna trovare un altro modo di operare ( ci penso).
Per ora ri-grazie

 

[LuigiB]

radicale torna il numero della quartina radicale che contiene quel numero ... o almeno questo in teoria .. se non è cosi c'è un errore
ciao ..

 

[Mike58]

No il codice radicale è esatto.
L'ho provato con altro script e raccoglie i numeri radicale
invece la routina cosi come è scritta porta a raccogliere numeri non facente parte dei radicali.

Class Script
    Sub Main
        Dim x,n,k As Integer
        Dim Rad () As Integer
        For x = 1 To 8
            For n = 1 To 90
                If Radicale(n) = x Then
                    k  +=1
                    ReDim Preserve Rad(k)
                    Rad(k) = n
                End If
            Next
            Scrivi (StringaNumeri (Rad))
            k = 0
        Next
    End Sub
End Class

1.10.11.19
2.20.22.29
3.30.33.39
4.40.44.49
5.50.55.59
6.60.66.69
7.70.77.79
8.80.88.89

 

[LuigiB]

quindi all'atto praticola funzione Radicale è giusta o sbagliata ?

 

[Mike58]

Luigi ancora non lo so.
lo script postato prima era una raccolta forzata
ma se eseguo questo altro script mi dovrebbe restituire solo i numeri facente parte dei radicali.

Class Script
    Sub Main
        Dim x,n,k As Integer
        
        For n = 1 To 90
            If Radicale(n) Then
                k += 1
                Scrivi (k & ") " & n)
            End If
        Next
    End Sub
End Class

 

[Mike58]

in spaziometria lo stesso script restituisce solo i 32 numeri radicali.

Sub Main
   For n = 1 To 90
            If Radicale(n) Then
                k = k + 1
                Scrivi k & ") " & n
            End If
        Next
End Sub

 

[LuigiB]

per ora correggi cosi perche radicale torna - 1 se il numero non è radicale.. faro in modo che torni 0 ..

Class Script
    Sub Main
        Dim x,n,k As Integer
        
        For n = 1 To 90
            If Radicale(n) >0  Then
                k += 1
                Scrivi (k & ") " & n)
            End If
        Next
    End Sub
End Class

 

[Mike58]

Ottimo.

 

[Mike58]

Ciao Luigi ho corretto la routine per il calcolo ambo radicale

If Radicale(Nu(p1)) And Radicale(Nu(p2)) And Radicale(Nu(p1)) = Radicale(Nu(p2)) And Radicale(Nu(p1)) > 0 And Radicale(Nu(p2)) > 0 Then amboRad = amboRad & Nu(p1) & "-" & Nu(p2) & " "

ed il tutto funziona e rintraccia correttamente l'ambo radicale.

chi vuole conservarlo eccolo corretto.

Class Script
    Sub Main
     Dim Nu(5) As Integer, Ru(1) As Integer, cad(5) As Integer, dec(5) As Integer, fig(5) As Integer, gem(5) As Integer, dia(5) As Integer
        Dim T() As String, V() As String
        Dim Ini As Integer, Fin As Integer, Es As Integer, p As Integer, r As Integer, da As String, p1 As Integer, p2 As Integer
        Dim par As Integer, dis As Integer
        Dim aa As String = "", bb As String = "", cc As String = "", dd As String = "", ff As String = "", pp As String = ""
        Dim diaD As String = "", amboCad As String = "", ambodec As String = "", amboFig As String = "", ambodiamet As String = "", ambosimm As String = "", ambovert As String = "", amboRad As String = "", ambocons As String = ""
        Dim VetC() As Integer, VetF() As Integer, VetD() As Integer, VetDD() As Integer

        Ini = EstrazioniArchivio() - 10
        Fin = EstrazioniArchivio()

        For Es = Fin To Ini Step -1
            Scrivi(GetInfoEstrazione(Es) & vbTab & "**** Script By Mike58 ****", True,,, ColoreRosso, 150)
            T = {"", "Ruota", "Estratti", "Ambo Cadenza", "Ambo Decina", "Ambo Figura", "Tipo Fig", "Gemello", "NumPrimi", "amboCons", "NumPari", "NumDispari", "AmboDiam", "AmboSimm", "AmboVert", "DiamD", "AmboRad"}
            Call InitTabella(T)
            par = 0 : dis = 0
            For r = 1 To 11

                For p = 1 To 5
                    Nu(p) = Estratto(Es, r, p)
                    cad(p) = Cadenza(Nu(p))
                    dec(p) = DecinaNaturale(Nu(p))
                    fig(p) = Figura(Nu(p))
                    gem(p) = Gemello(Nu(p))
                    If Gemello(Nu(p)) Then ff = ff & Nu(p) & " "
                    If IsPrimo(Nu(p)) Then pp = pp & Nu(p) & " "
                    da = SommaEstratti(Es, r)
                    If IsPari(Nu(p)) Then par = par + 1
                    If IsDispari(Nu(p)) Then dis = dis + 1
                    Ru(1) = r
                Next
                If NumeriRipetutiRilevatiV(cad, VetC) Then
                    aa = StringaNumeri(VetC)
                Else
                    aa = "--"
                End If
                If NumeriRipetutiRilevatiV(dec, VetD) Then
                    bb = StringaNumeri(VetD)
                Else
                    bb = "--"
                End If
                If NumeriRipetutiRilevatiV(fig, VetF) Then
                    cc = StringaNumeri(VetF)
                Else
                    cc = "--"
                End If
                If NumeriRipetutiRilevatiV(dia, VetDD) Then
                    dd = StringaNumeri(VetF)
                Else
                    dd = "--"
                End If
                For p1 = 1 To 4
                    For p2 = p1 + 1 To 5
                        If Cadenza(Nu(p1)) = Cadenza(Nu(p2)) Then amboCad = amboCad & Nu(p1) & "-" & Nu(p2) & " "
                        If Distanza(Nu(p1), Nu(p2)) = 45 Then ambodiamet = ambodiamet & Nu(p1) & "-" & Nu(p2) & " "
                        If Distanza(Nu(p1), Nu(p2)) = 30 Then ambosimm = ambosimm & Nu(p1) & "-" & Nu(p2) & " "
                        If (Nu(p1)) = Vertibile(Nu(p2)) Then ambovert = ambovert & Nu(p1) & "-" & Nu(p2) & " "
                        If (Nu(p1)) = DiametraleInDecina(Nu(p2)) Then diaD = diaD & Nu(p1) & "-" & Nu(p2) & " "
                        If DecinaNaturale(Nu(p1)) = DecinaNaturale(Nu(p2)) Then ambodec = ambodec & Nu(p1) & "-" & Nu(p2) & " "
                        If Figura(Nu(p1)) = Figura(Nu(p2)) Then amboFig = amboFig & Nu(p1) & "-" & Nu(p2) & " "
                        If Radicale(Nu(p1)) And Radicale(Nu(p2)) And Radicale(Nu(p1)) = Radicale(Nu(p2)) And Radicale(Nu(p1)) > 0 And Radicale(Nu(p2)) > 0  Then amboRad = amboRad & Nu(p1) & "-" & Nu(p2) & " "
                        'If Radicale(a) And Radicale(b) And Radicale(a) = Radicale(b) Then
                        If Differenza(Nu(p1), Nu(p2)) = 1 Then ambocons = ambocons & Nu(p1) & "-" & Nu(p2) & " "
                    Next
                Next
                V = {"", NomeRuota(r, True), StringaEstratti(Es, r), amboCad, ambodec, amboFig, cc, ff, pp, ambocons, par, dis, ambodiamet, ambosimm, ambovert, diaD, amboRad}
                Call AddRigaTabella(V)
                ff = ""
                pp = ""
                da = ""
                par = 0
                dis = 0
                diaD = ""
                amboCad = ""
                ambodec = ""
                amboFig = ""
                ambodiamet = ""
                ambosimm = ""
                ambovert = ""
                amboRad = ""
                ambocons = ""
            Next

            CreaTabella()
        Next
    End Sub
End Class

 

[Mike58]

Per chi vuole valutare le funzioni
InitSviluppoIntegrale
GetCombSviluppo
uno sviluppo in terzina per sorte di ambo su Ruota Tutte.

Class Script
    Sub Main
        Dim rit,max,fre,pre,incr ,sf,TotEstr  As Integer
        Dim esA() , esB() , esitoA ,esitoB As String
        Dim Ru(1),Terne(3),aN(90),aCol() As Integer
        Dim T(),V() As String
        Dim r,k,kk,nCol As Integer
        Dim nClasse As Integer
        Dim Ini As Integer  = 1'EstrazioneIni
        Dim fin As Integer = EstrazioniArchivio - 1
        Dim fine As Integer  = EstrazioniArchivio
        Dim ic As Double
        TotEstr = fin -Ini + 1
        r = 12
        Dim Classe As Integer = 3
        Dim sorte As Integer  = 2
        Dim ritmaxx As Integer = 120
        nClasse = Classe
        Ru(1) = r
        Scrivi ("Terzina per sorte di ambo su Ruota TuTTe con Ritardo > : " & ritmaxx  & " **** Script by Mike58 **** ",1,,,ColoreBlu,150,,,,1)
        T = {"Contatore","Terne","Rit Corr","Rit Max","IncrMax","Frequenze","Presenze","IndConv","Verifica Ruota al Ritardo","Verifica Estraz. Fine"}
        Call InitTabella(T,ColoreVerde,,100,ColoreBianco )
        For k = 1 To 90
            aN(k) = k
        Next
        nCol = InitSviluppoIntegrale(aN,nClasse,0)
        k = 0
        Do While GetCombSviluppo(aCol,0)
            k +=1
            Terne(1) = aCol(1)
            Terne(2) = aCol(2)
            Terne(3) = aCol(3)
            If Terne(1) <> Terne(2) And Terne(2) <> Terne(3) Then
                sf = SerieRitardo (Terne,Ru,sorte,fin)
                If sf > ritmaxx Then
                    kk +=1
                    Call Messaggio("Elaboro Terne per Ambo " & Space(20) & FormattaSecondi(SecondiTrascorsi) )
                    Call AvanzamentoElab(1,12,kk)
                    Call SerieStat (Terne,Ru,sorte,rit,max,fre,pre,incr,Ini,fin)
                    ic = CalcolaIC(pre,rit,TotEstr)
                    If VerificaEsito(Terne,Ru,sorte,fin - rit,,,,esA) Then
                        For k1 As Integer = 0 To esA.GetUpperBound(0)
                            If esA(k1) <> "" Then esitoA = esA(k1)
                        Next
                    End If
                    esitoB = ""
                    If VerificaEsito(Terne,Ru,sorte,fine,,,,esB) Then
                        For k2 As Integer = 0 To esB.GetUpperBound(0)
                            If esB(k2) <> "" Then esitoB = esB(k2)
                        Next
                    End If
                    V = {kk,StringaNumeri(Terne),rit,max,incr,fre,pre,ic,esitoA,esitoB}
                    Call AddRigaTabella(V)
                End If
                
            End If
            
        Loop
        Call CreaTabella()
        Scrivi (FormattaSecondi(SecondiTrascorsi))
    End Sub
End Class

 

[Mike58]

Test Verifica Ambetto
OK

Class Script
    Sub Main
        Dim fine As Integer = EstrazioniArchivio
        Dim r As Object = 1
        Dim sRetNum As String = ""
        Dim nRetVincita As Decimal
        Dim Nu(2) As Integer
        Dim nRetTassa As Double = .92
        Nu(1) = 41
        Nu(2) = 15
        Call VerificaAmbetto(Nu,r,fine,sRetNum ,nRetVincita,nRetTassa)
        Scrivi ("Ruota : " & NomeRuota(r) & " Numeri Giocati... " & StringaNumeri(Nu) & " Ambetto > " & sRetNum &  " Vincita : " & nRetVincita )
        'inserire qui il proprio codice...
    End Sub
End Class

Ruota : Ba Numeri Giocati... 41.15 Ambetto > Ba-41.16[41.15+1] Vincita : 59,8

 

[Mike58]

Invece sebbene la Posta Ambetto è prevista in ImpostaGiocata , l'ambetto non viene visualizzato come vincita.

Class Script
    Sub Main
        Dim fine As Integer = EstrazioniArchivio
        Dim r As Object = 1
        Dim Nu(2) , Ru(1) As Integer
        Dim ab As Integer
        Dim postaAmbetto As Single = 1
        Dim aPoste(2) As Single
        aPoste(2) = 1 'puntata per ambo
        Nu(1) = 41
        Nu(2) = 15
        Ru(1) = r
        Call ImpostaGiocata (1,Nu,Ru,aPoste,postaAmbetto,1)
        Call Gioca(fine)
        ScriviResoconto
    End Sub
End Class

G 1 - N. [15.41] Sorte : [A/a ] Ba [41.--.--.--.--] C 1 Estratto 10027 - 160 - 08/01/2022
Interrotta per esito verificato

 

[Mike58]

Tabellina per Ambetto
con uso
SetColoreCellaTitolo
SetColoreCellaRighe

Class Script
    Sub Main
        Dim ab As Integer = InputBox ("Quanti numeri in gioco "," Mike58" ,2)
        Dim Tt() ,vV() , mM() As String
        Scrivi ("Numeri giocati : " & ab )
        Tt = {"Ambetto Num ","2","3","4","5","6","7","8","9","10"}
        Call InitTabella(Tt)
        call SetColoreCellaTitolo (0,coloreblu,colorebianco)
        vV = {"Vincita Netta",(65*.92),(21.67*.92),(10.83*.92),(6.50*.92),(4.33*.92),(3.10*.92),(2.32*.92),(1.81*.92),(1.44*.92)}
        mM = {"Moltiplicatore",4,12,24,40,60,84,112,144,180}
        Call AddRigaTabella(vV)
        Call SetColoreCellaRighe  ((ab)-1,ColoreVerde ,ColoreBianco )
        Call AddRigaTabella(mM)
        Call SetColoreCellaRighe ((ab)-1,ColoreBianco , ColoreRosso )
        CreaTabella
    End Sub
End Class

Numeri giocati : 5

 

[LuigiB]

Invece sebbene la Posta Ambetto è prevista in ImpostaGiocata , l'ambetto non viene visualizzato come vincita.

Class Script
    Sub Main
        Dim fine As Integer = EstrazioniArchivio
        Dim r As Object = 1
        Dim Nu(2) , Ru(1) As Integer
        Dim ab As Integer
        Dim postaAmbetto As Single = 1
        Dim aPoste(2) As Single
        aPoste(2) = 1 'puntata per ambo
        Nu(1) = 41
        Nu(2) = 15
        Ru(1) = r
        Call ImpostaGiocata (1,Nu,Ru,aPoste,postaAmbetto,1)
        Call Gioca(fine)
        ScriviResoconto
    End Sub
End Class

G 1 - N. [15.41] Sorte : [A/a ] Ba [41.--.--.--.--] C 1 Estratto 10027 - 160 - 08/01/2022
Interrotta per esito verificato

Per non farmi ammattire quali erano i numeri dell'ambetot che doveva segnalare e a che estrazione era ?

 

[Mike58]

Luigi i Numeri per ambetto sono 15.41 su bari esito all'ultima estrazione 10027 Bari 41 16 62 13 55
avrebbe dovuto dare 41 - 16 [ 15+1]

 

[LuigiB]

prova a vedere se ora funziona

GiochiLib

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[Mike58]

Si !! Luigi ora funziona e anche il resoconto lo riporta

V G 1 - N. [15.41] Sorte : [A/a ] Ba [41.--.--.--.--] C 1 Estratto Ambetti (a) : (41.16) 10027 - 160 - 08/01/2022 [Ba 41.16.62.13.55]
Interrotta per esito verificato
Gioco terminato

Casi Esaminati : 1
Spesa Totale : 2,00
Vincita Totale : 65,00
Vincita Totale Netta : 59,80
Bollette giocate : 1
Bollette vincenti : 1

 

[Mike58]

Tabellone Analitico su Ruota.
Codice usato StatEstratto
Escamotage per far scrivere un valore integer a valore stringa o nullo.

Class Script
    Sub Main
        Dim ini As Integer = EstrazioniArchivio -200
        Dim fin As Integer = EstrazioniArchivio
        Dim es , k ,kk ,p , fre  As Integer
        Dim Nu(5) , Cad(5)  As Integer
        Dim T() As String
        Dim r As Object = CInt(InputBox("Ruota ","Mike58",1))
        Scrivi ("Tabellone Analitico Ruota di : " &  NomeRuota(r,False),1)
        'Scrivi ("Ruota analizzata.... " & NomeRuota(r))
        T = {"Data info","Estratti"," I "," II "," III "," IV "," V ","  Liv    " ,"  Rit ","  -  ", "CD1","CD2","CD3","CD4","CD5" , " liv Cad  "}
        Call InitTabella(T,ColoreVerde ,,,ColoreBianco )
        For es = fin To ini Step - 1
            For p = 1 To 5
                Nu(p) = Estratto (es,r,p)
                Cad(p) = Estratto(es,r,p)
                Call StatEstratto (Nu(p),r ,,,fre,,,es,fin )
                If fre > 1 Then Nu(p) =  0
                If Nu(p) <> 0 Then k = k + 1
                If fre = 1 Then Cad(p) = 0
                If Cad(p) <> 0 Then kk = kk + 1
            Next
            T = {GetInfoEstrazione(es),StringaEstratti(es,r),Nu(1),Nu(2),Nu(3),Nu(4),Nu(5),k,(fin - es)," -  ",Cad(1), Cad(2),Cad(3),Cad(4),Cad(5) ,kk  }
            If k > 0 Then
                Call AddRigaTabella(T)
                For x  As Integer = 2 To 6
                    Call SetColoreCellaRighe ((x),ColoreGiallo , ColoreBlu)
                    If T(x) = 0 Then Call SetColoreCellaRighe ((x),ColoreBianco ,ColoreBianco  )
                Next
                For xx As Integer = 10 To 14
                    Call SetColoreCellaRighe ((xx),ColoreMagenta  , ColoreBianco)
                    If T(xx) = 0 Then Call SetColoreCellaRighe ((xx),ColoreBianco ,ColoreBianco  )
                Next
            End If
            k = 0
            kk = 0
        Next
        CreaTabella ()
    End Sub
End Class

 

[LuigiB]

e chi ti ferma piu Mike

 

[LuigiB]

unico consiglio che do è che dal momento che le tabelle ora sonosempre ordinabili conviene sempre mettere una colonna con un valore progressivo in modo che si possa ritornare all'ordnamento iniziale.

altra cosa anche se funziona lo stesso



la ruota o è un integer o è un array di integer. Non serve dichiararlo object ,se uno vule usare una ruota sola scrive dim Ruota as integer , se vuole usare piu ruote usa un array sempre integer...