x LuigiB nuovi codici script

[Mike58]

Ciao Luigi visionando altro programma in fatto di vbscript nella fattispecie VL7, ho visto che intanto applica dei codici diversi da spaziometria, ma questo non è importante, però quello che mi è piaciuto sono dei codici che assomigliano ai codici in Tabelle di spaziometria di cui io sono un accanito utilizzatore.

Si tratta dei codici con riassunto Metodo.report() che elenca una serie di informazioni tipo il resoconto finale di spaziometria.

Visto che negli ultimi tempi ti sta tornando un po di voglia, cosa ne pensi se dai un occhiata e valutare se ti è possibile migliorare questo aspetto del resoconto anche in spaziometria.

Se invece la cosa no è fattibile,non è un problema,ne approfitto per un MegaSaluto.

Mike

Ti metto il codice da esempio funzionante in vl7 con relativa immagine output.

Sub Main()

'Inserisci il codice qui
Dim a as integer

Dim Numeri(2) as integer

Dim Giocate(1) as integer
Giocate(1) = _Estratto

Dim Ruote(2) as integer
Ruote(1)=_GE
Ruote(2)=_VE

Metodo.Init("Titolo metodo","Autore: [TuoNome]", _CasisticaON)

Metodo.Progressione(_Estratto, 1, 100)

For a = Estrazione.Ultima To _DataAuto Step -1

    If Estrazione.Mensile(a) = 1 Then

        dim n as integer = Estratti.Numero(a,_BA,3)+Estratti.Numero(a,_BA,4)
        Numeri(1) = F90(n)
        Numeri(2) = F90(n+81)

        Metodo.GiocaPronostico(1, a+1, 3, Numeri, Ruote, Giocate, 0)

    End If

    If Metodo.CasiElab >=8 then exit For
    
Next

Metodo.Report()

End Sub

Titolo metodo

Autore: [TuoNome]

---

[TABLE="width: 860"]
[TR]
[TH="bgcolor: #0099D0, colspan: 2, align: center"]RIEPILOGO FINANZIARIO METODO[/TH]
[/TR]
[TR]
[TD="width: 430, align: center"]Massimo di casi rilevati[/TD]
[TD="width: 430, align: center"]8[/TD]
[/TR]
[TR]
[TD="width: 430, align: center"]Totale previsioni in corso[/TD]
[TD="width: 430, align: center"]0[/TD]
[/TR]
[TR]
[TD="width: 430, align: center"]Totale vincite realizzate[/TD]
[TD="width: 430, align: center"]234,96[/TD]
[/TR]
[TR]
[TD="width: 430, align: center"]Costo complessivo giocate[/TD]
[TD="width: 430, align: center"]268,00[/TD]
[/TR]
[TR]
[TD="width: 430, align: center"]Utile netto conseguito[/TD]
[TD="width: 430, align: center"]-33,04[/TD]
[/TR]
[/TABLE]

[TABLE="width: 860"]
[TR]
[TH="bgcolor: #0099D0, colspan: 8, align: center"]STATISTICHE PRONOSTICI IN GIOCO[/TH]
[/TR]
[TR]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]ID[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Casi[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Positivi[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]In corso[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Vincite[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Spesa[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Utile[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Sortite[/TH]
[/TR]
[TR]
[TD="width: 60, align: center"]01[/TD]
[TD="width: 60, align: center"]8[/TD]
[TD="width: 90, align: center"]4 (50%)[/TD]
[TD="width: 90, align: center"]0[/TD]
[TD="width: 120, align: center"]234,96[/TD]
[TD="width: 120, align: center"]268,00[/TD]
[TD="width: 120, align: center"]-33,04[/TD]
[TD="align: center"]E=4[/TD]
[/TR]
[/TABLE]

[TABLE="width: 860"]
[TR]
[TH="bgcolor: #0099D0, colspan: 16, align: center"]STATISTICHE DISTRIBUZIONE ESITI (PRONOSTICO ID = 01)[/TH]
[/TR]
[TR]
[TH="class: th2, width: 50, bgcolor: #FFFFFF, align: center"]Clp[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]Estr.[/TH]
[TH="class: th2, width: 42, bgcolor: #FFFFFF, align: center"]P1[/TH]
[TH="class: th2, width: 42, bgcolor: #FFFFFF, align: center"]P2[/TH]
[TH="class: th2, width: 42, bgcolor: #FFFFFF, align: center"]P3[/TH]
[TH="class: th2, width: 42, bgcolor: #FFFFFF, align: center"]P4[/TH]
[TH="class: th2, width: 42, bgcolor: #FFFFFF, align: center"]P5[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]Ambo[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]Terno[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]Quat.[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]Cinq.[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]ED1[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]ED2[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]ED3[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]ED4[/TH]
[TH="class: th2, width: 60, bgcolor: #FFFFFF, align: center"]ED5[/TH]
[/TR]
[TR]
[TD="align: center"]1[/TD]
[TD="align: center"]1[/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="bgcolor: #FFF5F5, align: center"]1[/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[TD="align: center"][/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]3[/TD]
[TD="align: center"]3[/TD]
[TD="bgcolor: #FFF5F5, align: center"]1[/TD]
[TD="bgcolor: #FFF5F5, align: center"]1[/TD]
[TD="bgcolor: #FFF5F5, align: center"]1[/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="bgcolor: #FFF5F5, align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[/TR]
[/TABLE]

[TABLE="width: 860"]
[TR]
[TH="bgcolor: #0099D0, colspan: 5, align: center"]CASISTICA DETTAGLIATA (PRONOSTICO ID = 01)[/TH]
[/TR]
[TR]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Casi[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Data inizio[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Pronostici (Sorte)[/TH]
[TH="class: th2, bgcolor: #FFFFFF, align: center"]Sfaldamenti[/TH]
[/TR]
[TR]
[TD="width: 60, align: center"]1[/TD]
[TD="width: 100, align: center"]04.03.2014[/TD]
[TD="align: left"]GE VE : 60.51 [E][/TD]
[TD="align: center"]-[/TD]
[/TR]
[TR]
[TD="width: 60, align: center"]2[/TD]
[TD="width: 100, align: center"]04.02.2014[/TD]
[TD="align: left"]GE VE : 89.80 [E][/TD]
[TD="align: center"]Colpo 3: GE 89 [E][/TD]
[/TR]
[TR]
[TD="width: 60, align: center"]3[/TD]
[TD="width: 100, align: center"]04.01.2014[/TD]
[TD="align: left"]GE VE : 74.65 [E][/TD]
[TD="align: center"]-[/TD]
[/TR]
[TR]
[TD="width: 60, align: center"]4[/TD]
[TD="width: 100, align: center"]05.12.2013[/TD]
[TD="align: left"]GE VE : 41.32 [E][/TD]
[TD="align: center"]Colpo 3: GE 41 [E][/TD]
[/TR]
[TR]
[TD="width: 60, align: center"]5[/TD]
[TD="width: 100, align: center"]05.11.2013[/TD]
[TD="align: left"]GE VE : 01.82 [E][/TD]
[TD="align: center"]-[/TD]
[/TR]
[TR]
[TD="width: 60, align: center"]6[/TD]
[TD="width: 100, align: center"]03.10.2013[/TD]
[TD="align: left"]GE VE : 82.73 [E][/TD]
[TD="align: center"]Colpo 1: VE 73 [E][/TD]
[/TR]
[TR]
[TD="width: 60, align: center"]7[/TD]
[TD="width: 100, align: center"]05.09.2013[/TD]
[TD="align: left"]GE VE : 58.49 [E][/TD]
[TD="align: center"]-[/TD]
[/TR]
[TR]
[TD="width: 60, align: center"]8[/TD]
[TD="width: 100, align: center"]03.08.2013[/TD]
[TD="align: left"]GE VE : 08.89 [E][/TD]
[TD="align: center"]Colpo 3: VE 08 [E][/TD]
[/TR]
[/TABLE]

 

[LuigiB]

ciao Mike , mi dispiace non ne ho proprio fantasia ...un saluto anche a te

 

[Mike58]

Grazie lo stesso Luigi e comprendo anche che forse non è giusto copiare idee del lavoro altrui.

Dopo il post ho fatto un po' di riflessione e forse non era giusto fare questa richiesta e ne approfitto per scusarmi con il team del programma in questione, approfittando oltre alle dovute scuse per farvi i complimenti.

Anche se per il momento molti codici non riesco a svilupparli, ma mai dire mai....

scusate Team Vl7 e un grazie per il programma free.

 

[LuigiB]

ciao Mike , da quello che ho visto gli script in vl7 sono orientati algi oggetti , è diverso dal vbscript , ma non hanno inventato nulla loro è solo un altro modo di programmare , all'inizio pure io avrei voluto farlo in quel modo poi per allinearmi al solito lottodesk ho fatto come ho fatto.
Nessuno ti vieta di crearti delle classi (Metodo è una classe ad esempio ) che facciano le cose che ti servono.

 

[Mike58]

Ciao Luigi, le scuse per i programmatori erano dovute e sicuramente vedendo la diversità di codici la difficoltà di far ordine in questi nuovo linguaggio per me era + difficile capirne la logica di impostazione.

Comunque immaginavo che con le classi i report si potevano simulare , ma le collection e le classi sebbene hai già provato a spiegarle in lezioni, in pochi le abbiamo assimilate.

Quando vuoi e quando puoi magari fai un esempio di come simulare con una collection e classe un resoconto differente su spaziometria, è una altra crescita e un altro gradino che mi interessa salire.

Ciao