SpazioLight.net

[Zetrix]

in effetti questo programma deve trattare solo il lotto e renderlo migliore degli altri programmi
che sono a pagamento..
non aggiungere win for life enalotto e altre cose se no si incasina il programma..

 

[claudio8]

si ma calcola che non abbiamo intenzione di mettere funzioni per altri tipi di giochi , questo programma tratta solo il lotto

Luigi a me serve solo x il lotto.
se è un problema, non importa.
Grazie.

 

[LuigiB]

no gia l'ho fatto non ti preoccupare ... volevosolo dirti che non rispondiamo di usi impropri del programma ne ci vogliamo adeguare sputtanando il programam per agevolare i suddetti usi impropri .. comunque la modifica che hai chiesto è presente

ciao

 

[LuigiB]

a proposito delle tabelle ordinabili a differenza di spaziometria nel programma ogni tabella ha la possibilita di essere ordinata a runtime semplicemente cliccando sul titolo della colonna.

Per cose complicate si puo generare automaticamente i lfoglio excel.

La vecchia griglia Ordinabile si basa su componeti vb6 quindi meglio evitarla..

 

[genios]

Edoardo_95 ad uscite precedenti potresti aggiungere il ritardo attuale .​

Ciao Eugenio

 

[Edoardo_95]

Edoardo_95 ad uscite precedenti potresti aggiungere il ritardo attuale .​

Ciao Eugenio

Ciao Eugenio. Come posso inserire il ritardo attuale se le uscite sono precedenti?
Quando si effettua la statistica nella griglia superiore principale mostra il ritardo attuale, mentre all'interno delle uscite precedenti mostra le uscite passate ed il relativo ritardo in quel preciso momento.
Potrei aggiungere una colonna dove mostra quello attuale certo, ma non avrebbe senso in quanto viene già riportato nella griglia superiore. Potrebbe generare confusione

 

[LuigiB]

questo script non serve a niente è solo un minestrone disordinato che mi serviva per testare a volo alcune funzioni durante los viluppo , puo essere utile per capire la logica che comunque è simile a spaziometria.
Appena Edoardo metterà la nuova versioen si potranno usare gli script e testarlo.

Class Script
Sub Main
    Dim aNumeri() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
    Dim aRuote(1) As Byte
    Dim aPoste(2) As Single
    Dim k As Integer
    aRuote(1) = 12
    aPoste(2) = 1
    ImpostaGiocata(1, aNumeri, aRuote, aPoste, 10, 2)
    Gioca(8000)
    Scrivi("Prova",, False)
    Scrivi("123", True)
    ScriviResoconto()
    DisegnaGraficoAndamento()
    Dim aT() As String = {"  Numero  ", "  Ruota  ", "  Ritardo  "}
    InitTabella(aT)
    Dim aV() As String
    ReDim aV(aT.GetUpperBound(0))
    For r As Integer = 1 To 11
        For k  = 1 To 90
            aV(0) = k
            aV(1) = NomeRuota(r)
            aV(2) = EstrattoRitardo(k, r, EstrazioniArchivio)
            Call AddRigaTabella(aV)
        Next
    Next
    CreaTabella(2,, True)
    Dim aMAtrice(3, 3) As Integer
    For k   = 0 To 3
        For kk As Integer = 0 To 3
            aMAtrice(k, kk) = NumeroCasuale(1, 90)
        Next
    Next

    For k = 1 To 100
        MessaggioLista ("Messaggio di prova" , RGB ( NumeroCasuale(0,255), NumeroCasuale(0,255), NumeroCasuale(0,255)))
    Next

    Dim aColOrd() As Integer
    Dim aVerso() As Integer
    ReDim aColOrd(1)
    ReDim aVerso(1)
    aColOrd(0) = 0
    aColOrd(1) = 1
    aVerso(0) = -1
    aVerso(1) = -1
    OrdinaMatrice(aMAtrice, aColOrd, aVerso)
    Dim an() As Integer
    ScegliNumeri(an)
    For k = 1 To an.GetUpperBound(0)
        Scrivi(an(k).ToString)
    Next
    Call DisegnaCerchioCiclometrico(an, True)
    Dim ar() As Integer
    ScegliRuote(ar)
    For k = 1 To ar.GetUpperBound(0)
        Scrivi(ar(k).ToString)
    Next
    DisegnaEstrazione(9000, an)
    Dim aGrafico(10, 3)
    For k = 0 To 10
        aGrafico(k, 0) = k
        For j As Integer = 1 To 3
            aGrafico(k, j) = NumeroCasuale(1, 1000)
        Next
    Next
    Dim aTitoli() As String = {"x", "Serie1", "Serie2", "Serie3"}
    Dim aColori(3) As Integer
    aColori(1) = ColoreBlu
    aColori(2) = ColoreRosso
    aColori(3) = ColoreVerde
    DisegnaGrafico(aGrafico, aTitoli, aColori, "Grafico casuale",, TipoGrafico_Column)
    DisegnaGrafico(aGrafico, aTitoli, aColori, "Grafico casuale",, TipoGrafico_Linea)
    DisegnaGrafico(aGrafico, aTitoli, aColori, "Grafico casuale",, TipoGrafico_Area)
    DisegnaGrafico(aGrafico, aTitoli, aColori, "Grafico casuale",, TipoGrafico_Bubble)
End Sub
End Class

 

[Edoardo_95]

.

 

[Edoardo_95]

Aggiornamento 1.0.7

- Integrata ed abilitata la prima release stabile con sezione script

SpazioLight 1.0.7

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

Con questo aggiornamento frutto del lavoro di Luigi volevo dedicargli un enorme ringraziamento sia per l'impegno dedicato al progetto sia per l'enorme pazienza che ha con me ahaha... Ma soprattutto per gli insegnamenti che mi dà giorno dopo giorno sia informatici che umani.

Stay tuned!

Ci risentiamo alla prossima versione (ora devo dedicarmi allo studio di ciò che ha fatto lui altrimenti altro che ramo di ciliegio ahahaha)

 

[LuigiB]

vedi che ti ho mandato un aggiornamento dell'ultimo minuto .. prima di ripubblicare fai questa correzione

io avevo scritto verible senza la i ..

direttamente dai sorgenti selezioni il file elo modifichi.

 

[Edoardo_95]

Tra poco posto la nuova versione con la correzione

 

[zagort]

essendo un neofita chiedo a Luigi o Edoardo se lo script che espongo ha lo stesso " linguaggio" di spaziolight o deve essere modificato,adattato

HTML clipboard
Sub Main()

Testo.Centrato
Testut("Estratti più Frequenti dopo Ambo Spia",1)
Testut
Dim ini As Integer
Dim fin As Integer = Estrazione.Ultima
Dim ambata(90,2)
Dim ambo(89,90)
Dim ruote(10) As Integer
Dim n,a,b,n1,n2,aa,bb As Integer
Dim es,ex,exx,ess,rr,x As Integer
Dim pos,p1,p2,q1,q2 As Integer
Dim cont,conta As Integer
Dim j As Integer

Dim ce As Integer = Input.Lista("CASI ESAMINATI ?",3,50)
Dim r As Integer = Input.Ruota("RUOTA DI RICERCA ?",False)
Dim s1 As Integer = Input.Lista("1° NUMERO SPIA ?",1,90)
Dim s2 As Integer = Input.Lista("2° NUMERO SPIA ?",1,90)
Dim r1 As Integer = Input.Ruota("1° RUOTA DI VERIFICA ?",False)
Dim r2 As Integer = Input.Ruota("2° RUOTA DI VERIFICA ?",False)
Dim colpi As Integer = Input.Lista("COLPI DI CONTROLLO ?",3,18)
Dim tot As Integer = Input.Lista("AMBATE ED AMBI DA MOSTRARE ?",1,10)

Dim casi As Integer = 0
Dim fremax As Integer = 0
ini = fin - ce
For es = fin To 1 Step -1
If casi < ce Then
For p1 = 1 To 4
n1=Estratti.Numero(es,r,p1)
For p2 =p1 + 1 To 5
n2=Estratti.Numero(es,r,p2)
If (n1=s1 And n2=s2) Or (n1=s2 And n2=s1) Then
casi=casi+1
ex=es+1:exx=ex+colpi
For ess = ex To exx-1
If ess <= fin Then
For rr = 1 To 10
If rr = r1 Or rr = r2 Then
For pos = 1 To 5
cont=0
n=Estratti.Numero(ess,rr,pos)
ambata(n,1)=n
ambata(n,2)=ambata(n,2)+1
cont=cont+1
Next

For q1 = 1 To 4
a = Estratti.Numero(ess,rr,q1)
For q2 = q1+1 To 5
b = Estratti.Numero(ess,rr,q2)
If a < b Then
ambo(a,b)= ambo(a,b)+ 1
If ambo(a,b) > fremax Then fremax = ambo(a,b)
Else
ambo(b,a)= ambo(b,a)+ 1
If ambo(b,a) > fremax Then fremax = ambo(b,a)
End If

Next
Next
End If

Next

End If

Next
End If
Next

Next

End If

Next

OrdinaMatrice(ambata,2,2,True)
Testo.TABLE(_INS, "70%","Cambria","16")

Testo.TH("NUM")
Testo.TH("FRE")
Testo.TH("RUOTA DI RICERCA")
Testo.TH("AMBO SPIA")
Testo.TH("COLPI")
Testo.TH("RUOTE DI VERIFICA")
Testo.TH("CASI TOTALI")
For j = 1 To tot
Testo.TR(_INS)

Testo.TD(FormatN2(ambata(j,1)))
Testo.TD(FormatN2(ambata(j,2)))

Testo.TD(NomeRuota(r))
Testo.TD(FormatN2(s1)&"."& FormatN2(s2))
Testo.TD(colpi)
Testo.TD(NomeRuota(r1)&"-"&NomeRuota(r2))
Testo.TD(ce)
Next
Testo.TR(_END)

Testo.TABLE(_END)
'*--------------------------------------
Testo.Centrato

Testut("Ambi più Frequenti dopo Ambo Spia",1)

Testut
Testo.TABLE(_INS, "70%","Cambria","16")
Testo.TH("AMBI")
Testo.TH(" FRE ")
Testo.TH("RUOTA DI RICERCA")
Testo.TH("AMBO SPIA")
Testo.TH("COLPI")
Testo.TH("RUOTE DI VERIFICA")
Testo.TH("CASI TOTALI")
conta=0
For x = fremax To 0 Step -1
For aa = 1 To 89
For bb = aa+1 To 90
If ambo(aa,bb)= x Then

conta = conta+1
If conta <= tot Then
Testo.TR(_INS)

Testo.TD(FormatN2(aa)&"."& FormatN2(bb))
Testo.TD(FormatN2(ambo(aa,bb)))
Testo.TD(NomeRuota(r))
Testo.TD(FormatN2(s1)&"."& FormatN2(s2))
Testo.TD(colpi)
Testo.TD(NomeRuota(r1)&"-"&NomeRuota(r2))
Testo.TD(ce)

End If
End If
Next
Next
Next
Testo.TR(_END)

Testo.TABLE(_END)

End Sub

 

[Edoardo_95]

Aggiornamento 1.0.8

SpazioLight 1.0.8

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

 

[Edoardo_95]

essendo un neofita chiedo a Luigi o Edoardo se lo script che espongo ha lo stesso " linguaggio" di spaziolight o deve essere modificato,adattato

Deve essere adattato

 

[zagort]

ciao Edoardo
ti chiedo se nel prossimo aggiornamento, potresti aggiungere nella sezione script elabora script piu pagine elaborazione (solitamente per fare script uso altri per confronto),al momento
il mio pc mi riconduce sempre alla stessa pagina e quindi alla stessa elaborazione

 

[Mike58]

Ciao Edoardo e Luigi.
Intanto grazie per la sezione script.
Se ancora ad oggi non ci sono stati presentati dagli utilizzatori esempi di script (me compreso) e che le difficoltà a mettere insieme il costrutto nella logica del vbnet non ci è semplice ad entrare nella nuova logica delle dichiarazioni Variabili (integer , string , object etc )
Ci vorrebbero esempi con spiegazioni come i Test in Vbscript.
Poi a me mancano tutti quei codici circa i Ritardatari
NumeroPosRit (questo utilissimo)
PiuRitardatario
EstrattoFrequenza (qui capisco la scelta di non metterlo , visto la lunga diatriba freq-pres) ma è utile anche come lo abbiamo usato fino ad ora.

Giusto per una info di ritorno ,pian pianino chi vorrà con applicazione e studio troverà la giusta ispirazione. (parlo per me).

 

[Zetrix]

x Edoardo si puo fare qualcosa per sistemare meglio le caselle dei numeri
mi spiego meglio questo disegno e un 5x5 ma nella rappresentazione
figurativa del disegno sembra piu un rettangolo che un quadrato..

 

[i legend]

Ciao a tutti.
Ho scaricato spazio ligth.
Ora provo a confrontare un po le singole funzioni, con spaziometria

Ai non addetti ai lavori del sorgente non interessa nulla, vi conviene pubblicare solo il.exe Poi se uno vuol fare richiesta per studiarlo ,basta che ve lo chieda
Ciao
Appena ho qualcosa posto

 

[Mike58]

Ci sono ancora tante cose da implementare e migliorare
una cosa da mettere nell'immediato è il tempo di elaborazione "TempoTrascorso" come in spaziometria , per poter confrontare le differenze di elaborazioni in termini di tempo.
Ad ogni modo eccovi un semplice script usando il codice SerieStat x statistica ambi su ruota.
buon srudio.

Class Script
Sub Main
    'inserire qui il proprio codice...
    Dim Nu(2), Ru(1) As Integer
    Dim ini ,fin, n1, n2  As Integer
    Dim aRit,MaxSto,IncrMax,freq,Pres As Integer
    Dim Testo As String
    Dim r As Object
    ini = 1' EstrazioniArchivio - 1000
    fin = EstrazioniArchivio
    r = 1 ' Ruota di bari
    Scrivi ("Ruota Analizzata.... " & NomeRuota(r),1,,,1,3)
    Testo = "Ambo  - RitC - MaxSto - IncrMx - freq - Pres "
    Scrivi (Testo,1)
    For n1 = 1 To 89
        For n2 = n1 + 1 To 90
            Nu(1) = n1 : Nu(2) = n2 : Ru(1) = r
            '---------------------------------------------------------
            'aRit = AmboRitardo(n1,n2,r,fin)
            'Scrivi (StringaNumeri(Nu,,True) & vbTab & aRit)
            '----------------------------------------------------------
            SerieStat (Nu,r,2,aRit,MaxSto,freq,Pres,IncrMax,ini,fin)
            Scrivi (StringaNumeri(Nu,,True) & vbTab & aRit & vbTab & MaxSto & vbTab &  IncrMax  & vbTab & freq & vbTab & Pres )
        Next
    Next
    'fine inserimento codice
End Sub
End Class

 

[Mike58]

Class Script
Sub Main
    'inserire qui il proprio codice...
    Dim Nu(2), Ru(1) As Integer
    Dim ini ,fin, n1, n2  As Integer
    Dim aRit,MaxSto,IncrMax,freq,Pres  As Integer
    Dim Testo As String
    Dim r As Object
    Dim ic, TotEstr As Double
    ini = 1' EstrazioniArchivio - 1000
    fin = EstrazioniArchivio
    TotEstr = fin - ini + 1
    r = 1 ' Ruota di bari
    Scrivi ("Ruota Analizzata.... " & NomeRuota(r),1,,,1,3)
    Testo = "Ambo  - RitC - MaxSto - IncrMx - freq - Pres - indConv"
    Scrivi (Testo,1)
    For n1 = 1 To 89
        For n2 = n1 + 1 To 90
            Nu(1) = n1 : Nu(2) = n2 : Ru(1) = r
            '---------------------------------------------------------
            'aRit = AmboRitardo(n1,n2,r,fin)
            'Scrivi (StringaNumeri(Nu,,True) & vbTab & aRit)
            '----------------------------------------------------------
            SerieStat (Nu,r,2,aRit,MaxSto,freq,Pres,IncrMax,ini,fin)
            ic = CalcolaIC (Pres,aRit,TotEstr)
            Scrivi (StringaNumeri(Nu,,True) & vbTab & aRit & vbTab & MaxSto & vbTab &  IncrMax  & vbTab & freq & vbTab & Pres & vbTab & ic  )
        Next
    Next
    'fine inserimento codice
End Sub
End Class