Tabellone Analitico

[Xeroxs]

Buongiorno a Tutti

Sto cercando un listato per il tabellone analitico del lotto per vedere se alcune idee di calcolo possono essere diciamo possibili, ho provato a cerca re qualcosa che si avvicinasse a ciò che vorrei oltre la solita visuale classica del tabellone.

un mio amico mi ha mandato delle immagini che allego di ciò che cercavo, mi ha accennato il nome dello "Scripter" che sarebbe molto simile a Joe91, ora sinceramente non so se sei Tu e visto che sei Bravo se Vuoi puoi aiutarmi nella mia richiesta.

da quel che vedo dalle immagini e molto simile come idea di ciò che vorrei.

Se Tu o qualcuno può aiutarmi Vi Ringrazio comunque Fin da ora.

Praticamente oltre ad evidenziare solo i numeri presenti mi riporta quanti sono i numeri attuali per riga ad esempio 2, 3 e così via e mi riporta l'incremento dei numeri, cos' si possono visualizzare eventuali ipotesi di ricerca.

Spero davvero che qualcuno possa aiutarmi.

 

[joe]

Si probabilmente è un lavoro mio,

ma ritrovarlo in mezzo a 1000 script è una impresa.

Se mi dici almeno chi me lo aveva risciesto ... può darsi che riesca a ritrovarlo.

Altrimenti si riscrive, non è un problema, però sarebbe meglio sapere subito

tutto quanto si vuole ottenere così si fa prima e si evitano modifiche inutili.

 

[Xeroxs]

Ok adesso controllo

 

[Xeroxs]

Ok, Mi sono fatto inviare il link, ma non so se postarlo visto che è di un altro forum e non vorrei creare problemi.
E del 2012
ed era una richiesta di " DjNomade " dove chiedeva di aggiungere la nazionale ad un listato del tabellone analitico creato per l8+ partecipavano alla discussione anche " Enplein " e " "occhidigiada" poi se non è un problema metto il link.

Grazie.

 

[joe]

Vado a cercare poi ti faccio sapere,

 

[Xeroxs]

Grazie

 

[i legend]

ciao a tutti
per il tabellone analitico ci sono le funzioni ad hoc di luigi
per esercizio tempo fa ho pravato a farne uno mio senza utilizzare le funzioni sopracitate ,per vedere se ne fossi capace
non ho avuto modo di verificarlo ma se vi va lo posto cosi magari lo provate voi e mi fate sapere.
ovviamente la velocita non utilizzando le funzioni preposte ne risente un po.
se vi va ditemi che lo posto

 

[Xeroxs]

Si per me va bene può essere utile per capire cose nuove per ricerche diverse,
Grazie

 

[joe]

Ho riletto quella discussione e non credo di poter ritrovare quegli script.

Però come Ilegend ... anch'io preferisco scrivere/creare tabelle (o tabelloni),

direttamente senza usare le istruzioni dedicate.

Soprattutto perché così so ... subito come e cosa c'è e cosa fa ...

senza dovermi studiare variabili / tecniche / risultati di cose vecchie o non adatte.

Per poi dover trovare ed adattare soluzioni spesso più difficili da scrivere in uno script,

non particolarmente adatto ad accettarle.

Dunque prova a dare una descrizione di cosa vuoi ...

ed in qualche modo si cercherà di codificare ed automatizzare questa richiesta.

 

[i legend]

ciao il mio script ha un piccolo scarto nelle quantita teoriche dal tabellone analitico di spaziometria .
devo capire perche

 

[Xeroxs]

Ok, le cose che "vorrei" presenti sono l incremento dei numeri presenti come nella foto, ma principalmente le presenze dei numeri per riga, 2,3,4 e così via per identificare subito quelle righe con due numeri.
Ho provato a capire se con qualche riga di codice evidenziare con colori diverse le diverse condizioni almeno le righe con due numeri o tre che sono quelle che userei per le mie ricerche, esempio le due presenze i numeri scritti in rosso e quelli con tre scritti in blu, ma questo è un mio modo per meglio visualizzare subito ciò che cerco.

Poi penso che dallo script si possa isolare una sola ruota oppure almeno due per ricerche mirate... ma questo non so se e possibile farlo.

Se riesci, almeno le presenze e gli incrementi... non vorrei che pensassi che esagero nella richiesta... ed è ovvio appena puoi senza pretese...
Purtroppo ho tentato di farlo io con altri listati , ma per quanto stia comprendendo molte funzioni su questo programma, su queste operazioni navigo ancora con il salvagente, mentre altre cose grazie anche a voi sono riuscito a fare le modifiche come desideravo, e questo per me è un passo enorme.
Grazie ancora.

 

[i legend]

Ciao ecco lo script del tabellone analitico 11 ruote
è fisso non modificabile
controllate se funziona , nel caso segnalate gli errori e se sono in grado si " aggiustano"
ecco lo script
IMPORTANTE: non ho spaziometria aggiornato, non so se funziona correttamente con il buco delle estrazioni causa epidemia

Option Explicit
Sub Main
   Dim Quest
   Quest = MsgBox("Verificare che i dati riportati siano esatti" & vbCrLf & "Non se ne garantisce la correttezza" & vbCrLf & "Vuoi proseguire?",4 + 64,"Informazioni")
   If Quest = 7 Then Exit Sub
   Dim IdEstr,Ini,M,E,P,Rit,sE,Pres,QT,qNR,sca,nEstr
   Dim acolC(2)
   Dim R
   Dim aPiuRit(11)
   For R = 1 To 12
      If R = 11 Then R = 12
      M = M + 1
      aPiuRit(M) = EstrattoRitardoTurbo(R,PiuRitardatarioTurbo(EstrazioneFin,R))
   Next
   Dim qE:qE = MassimoV(aPiuRit)
   Ini = EstrazioneFin - qE
   qE = - 1
   '
   Call GetTestoTab
   M = 0
   acolC(1) = vbWhite
   For IdEstr = EstrazioneFin To Ini Step - 1
      qE = qE + 1
      Scrivi IdEstr,1,0,RGB(235,235,255)
      Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Scrivi FormattaStringa(qE,"000"),,0,RGB(237,254,205),RGB(128,0,0)
      Scrivi "|",1,0,vbWhite,,3
      Pres = 0:M = 0
      QT = Round(QuantitaTeoricaCombAlRitX(qE),5)
      For R = 1 To 12
         If dispari(R) Then acolC(1) = vbWhite:acolC(2) = RGB(0,101,149):Else acolC(1) = vbWhite:acolC(2) = RGB(38,40,37)
         If R = 11 Then R = 12
         M = M + 1
         sE = "":nEstr = 0
         For P = 1 To 5
            E = Estratto(IdEstr,R,P)
            Rit = EstrattoRitardoTurbo(R,E)
            If Rit = qE Then E = Format2(E) :Pres = Pres + 1:nEstr = nEstr + 1:Else E = ".."
            sE = sE & E & " "
         Next
         sE = RimuoviLastChr(sE," ")
         If nEstr > QT And qE <> aPiuRit(M) Then
            acolC(1) = RGB(209,209,236)
         ElseIf qE = aPiuRit(M) Then
            acolC(1) = RGB(255,196,196)
         End If
         Scrivi sE,,0,acolC(1),acolC(2)
         Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Next
      qNR = Round(QT*11,3)
      sca = Round(Pres - qNR,2)
      If sca > 0 Then sca = "+" & sca
      Scrivi "  " & Format2(Pres) & "  ",1,0,RGB(211,250,245)
      Scrivi "|",,0
      Scrivi FormatSpace(qNR,6,1) & "  ",,0,RGB(255,217,217)
      Scrivi "|",,0
      If sca < 0 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(255,117,117),vbWhite
      ElseIf sca >= 0 And sca < 5 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(171,171,214),vbWhite
      Else
         Scrivi FormatSpace(sca,5,1),1,,RGB(145,223,147)
      End If
   Next
End Sub
Sub GetTestoTab
   Dim R,p
   Scrivi "    |   |",,0,RGB(249,249,249)
   For R = 1 To 12
      If R = 11 Then R = 12
      Scrivi Space(14) & "|",,0,RGB(249,249,249)
   Next
   Scrivi "                     ",,,RGB(254,248,182)
   Scrivi "CONC|R.C|",,0,RGB(247,247,247)
   For R = 1 To 12
      If R = 11 Then R = 12
      Scrivi Space(6) & SiglaRuota(R) & Space(6) & "|",,0,RGB(247,247,247)
   Next
   Scrivi "  Q.N |  Q.T   | SCT ",,,RGB(254,247,158)
   Scrivi "    |   |",,0,RGB(245,245,245)
   For R = 1 To 12
      If R = 11 Then R = 12
      Scrivi Space(14) & "|",,0,RGB(245,245,245)
   Next
   Scrivi "                     ",,,RGB(254,245,139)
End Sub

 

[i legend]

ho letto solo ora le tue richieste
e capisco che lo script non fa per te.
ne avevo fatto uno uguale ma dinamico con le ruote a scelta , l avevo anche postato, guardo se riesco a trovarlo, non ricordo il titolo pero

 

[Xeroxs]

Grazie appena rientro lo eseguo.

 

[i legend]

se funziona correttamente lo copio anche in altro post raccolta script
ciao

 

[joe]

Ciao, prova questo script

Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,P,E,K,Nu(90)
   Dim T,Rit,CT
   Ini = EstrazioneFin - 150 : Fin = EstrazioneFin : R = NZ_ : Rit = 0
   Scrivi "Rit" & Space(5) & FormatSpace(UCase(NomeRuota(R)),12) & Space(1) & "T.E.",True
   For Es = Fin To Ini Step - 1
      K = 0
      ColoreTesto 0
      Scrivi FormatSpace(Rit,3) & Space(2),True,False
      Rit = Rit + 1
      ColoreTesto 5
      For P = 1 To 5
         E = Estratto(Es,R,P)
         If Nu(E) = 0 Then K = K + 1
      Next
      CT = K-1
      For P = 1 To 5
         E = Estratto(Es,R,P)
         If Nu(E) = "" Then
            Nu(E) = E
            T = T + 1
            ColoreTesto CT
            Scrivi Format2(E) & Space(1),True,False
         Else
            ColoreTesto 5
            Scrivi ".. ",False,False
         End If
      Next
      ColoreTesto 0 : Scrivi FormatSpace(T,4,True),True
      If T = 90 Then Exit For
   Next
End Sub

 

[i legend]

bella la soluzione di sare un array per caricare i numeri , piu veloce sicuramente di calcolare ogni volta il ritardo
Bravo come sempre
purtroppo negli ultimi due anni ho smesso di fare script, e trovare soluzioni alternative ed eleganti, mi manca ma la stanchezza fisica mi impedisce di concentrarmi adeguatamente, percio è un piacere leggerti

 

[Xeroxs]

Per
I Leggend

Grazie direi che è Tutto ok è riporta i valori giusti. è comunque Utile per me, se troverai l'altro se lo puoi postare Ti ringrazio fin d ora così ho almeno dei listati ben fatti per il tabellone.

 

[Xeroxs]

Per Joe

Direi che va bene, devo solo cambiare colore per le 5 presenze perchè il giallo non aiuta a vedere i numeri

 

[Xeroxs]

Che Dire Un Ottimo lavoro Joe. Grazie Davvero per il tempo che mi concedi