quadro analitico per ruota

[genios]

Potete aiutarmi in uno script che mi dia in uscita il Quadro analitico per estrazioni diviso per decine naturali come da tabelloni – quadro analitico per ruota di spaziometria

Ciao Eugenio

 

[genios]

Su Su datemi una mano .

ciao Eugenio

 

[*blacklotto*]

se ti può interessare io ho questo prelevato in rete anni fa,
se riesci, modificalo per le tue esigenze, ciao

Sub Main()
Dim M(90,12) : Tot = 90*11
Fin = EstrazioneFin
Scrivi "Tabellone analitico calcolato all'estrazione del " + DataEstrazione(Fin),1
Scrivi ""
Titolo : Scrivi String(178,"-")
For Es = Fin To 1 Step - 1
Messaggio CStr(Es)
Riga = FormatSpace(Fin - Es,3) + " "
For R = 1 To 11
If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P)
If M(E,R) = "" Then
Riga = Riga + Format2(E) + " "
M(E,R) = E
T = T + 1
Else
Riga = Riga + "-- "
End If
Next
Riga = Riga + " "
Next
Scrivi CStr(Riga)
If T = Tot Then Es = 1
Next
Scrivi String(178,"-") : Titolo
End Sub
Sub Titolo()
Riga = FormatSpace("Rit",5)
For R = 1 To 11
If R = 11 Then R = 12
Riga = Riga + FormatSpace(NomeRuota(R),16)
Next
Scrivi CStr(riga),1
End Sub

 

[genios]

Grazie *blacklotto* non è quello che volevo .Provero a modificarlo ma non credo di riuscirci.

ciao Eugenio

 

[genios]

Dovrei riprodurre in script il tabellone di spaziometria in foto.

 

[Master]

Salve
provi a vedere se fa a caso suo

 

[genios]

Sarebbe perfetto Master .

Ciao Eugenio

 

[Mike58]

Lo script di Master è perfetto e invito a postarlo giusto per valutare i codici utilizzati.
per lo stesso scopo vi posto la mia versione.
ciao

Sub Main
   Dim nu(5),ru(1),T,V,aN(90)
   Ini = EstrazioneFin - 25
   fin = EstrazioneFin
   r = ScegliRuota
   Scrivi "Tabellone in Decina Ruota di : " & NomeRuota(r) & Space(10) & " By Mike58",1,,,,3,,1
   ReDim T(92)'--------------------------------------------------------
   T(1) = "info data"
   T(2) = "Estratti"
   For x = 1 To 90
      T(x + 2) = Format2(x)
   Next
   Call InitTabella(T,,,1)
   For es = Ini To fin
      ' For r = 1 To 1
      ReDim V(92)'------------------------------------------------------
      ReDim freq(92)
      ReDim rit(92)
      ReDim sto(92)
      V(1) =(es)
      V(2) = StringaEstratti(es,r)
      For xx = 1 To 90
         aN(xx) = ""
         'aN(xx) = xx
         For p = 1 To 5
            nu(p) = Estratto(es,r,p)
            If nu(p) = xx Then aN(xx) = aN(xx) & Decina(nu(p))
            kk = kk + 1
            V(xx + 2) = aN(xx)
            'If V(xx + 2) > 0 Then kk = kk +1
         Next
         sf = EstrattoFrequenza(r,xx,Ini,fin)
         freq(1) = "Freq"
         freq(2) = " <> "
         freq(xx + 2) = sf
         sr = EstrattoRitardo(r,xx,Ini,fin)
         rit(1) = "Ritardo"
         rit(2) = " <> "
         rit(xx + 2) = sr
         st = EstrattoStorico(r,xx,Ini,fin)
         sto(1) = "Rit Sto"
         sto(2) = " <> "
         sto(xx + 2) = st
      Next
      Call AddRigaTabella(V,,,1)
      For y = 1 To 92
         If y < 10 Then Call SetColoreCella((y + 2),6,0)
         If y > 19 And y < 30 Then Call SetColoreCella((y + 2),6,0)
         If y > 39 And y < 50 Then Call SetColoreCella((y + 2),6,0)
         If y > 59 And y < 70 Then Call SetColoreCella((y + 2),6,0)
         If y > 79 And y < 90 Then Call SetColoreCella((y + 2),6,0)
      Next
   Next
   'Next
   Call AddRigaTabella(freq,,,1)
   Call AddRigaTabella(rit,,,1)
   Call AddRigaTabella(sto,,,1)
   Call SetTableWidth("100%")
   CreaTabella
End Sub

 

[genios]

In attesa dello script di Master.

Grazie Mike58 ottimo script il tuo che comunque salvo ma per quello che devo fare io è più indicato l' out di Master .

Ciao Eugenio

 

[joe]

Buon giorno a tutte/i.

Mike, qui di seguito inserisco questa mia soluzione alla richiesta.

Attendo anch'io, di verificare come Master,

al quale va il mio bravo ... ha risolto lo stesso problema.

Option Explicit
Sub Main
Dim R,Y,X,Es,N
'Quadro Analitico Estrazione (per Ruota)
'Script By Joe V.1.0 del 22/04/2020
   R= ScegliRuota 
   Scrivi "Estr  Data Est. | ",True,False
   For Y = 0 To 8
      For X = 0 To 8
         Scrivi Y & "",True,0
      Next
      Scrivi Y + 1 & " | ",True,0
   Next
   Scrivi Space(3) & NomeRuota (R),True
   For Es = EstrazioneFin - 45 To EstrazioneFin
   Scrivi Es & " " & DataEstrazione(Es) &" | ",True,False
      For N = 1 To 90
         If Posizione(Es,R,N) > 0 Then
            Scrivi Cadenza(N),True,0
         Else
         ColoreTesto 5 : Scrivi ".",0,0 : ColoreTesto 0
         End If
         If N Mod(10) <> 0 Then
            Scrivi "",0,0
         Else
            Scrivi " | ",0,0
         End If
      Next
      Scrivi StringaEstratti (Es,R),True
   Next
End Sub

 

[Master]

Ciao a tutti
Scusate il ritardo ma dopo le feste+ferie ho ripreso a lavorare
La mia soluzione è semplicemente uno script di Joe che ho in archivio
e l'ho velocemente adattato alla richiesta ma...causa turno non ho potuto postarlo

Option Explicit
Sub Main
   SetComportamentoACapo True
   Dim RD(90)
   Dim N,K,ES,PR,E,RU,X,P,M
   For N = 0 To 80 Step 10
      K = K + 1 : RD(K) =(N + 1) : K = K + 1 : RD(K) =(N + 2)
      K = K + 1 : RD(K) =(N + 3) : K = K + 1 : RD(K) =(N + 4)
      K = K + 1 : RD(K) =(N + 5) : K = K + 1 : RD(K) =(N + 6)
      K = K + 1 : RD(K) =(N + 7) : K = K + 1 : RD(K) =(N + 8)
      K = K + 1 : RD(K) =(N + 9) : K = K + 1 : RD(K) =(N + 10)
   Next
   RU = ScegliRuota
   Scrivi Space(7) & FormatSpace(NomeRuota(RU),11) & "| ",1,0
   For N = 0 To 8 : Scrivi "Decina Naturale " & N & Space(1) & " | ",1,0
   Next
   Scrivi ".. Estratti ..",1,0 : Scrivi:Scrivi
   Scrivi Space(18),1,0
   For N = 0 To 8 :For M = 0 To 8
      Scrivi "|" & N,1,0
   Next
   Scrivi "|" & N + 1 & " ",1,0
Next
Scrivi
For ES = EstrazioneFin - 46 To EstrazioneFin
   Scrivi ES & " - " & DataEstrazione(ES) & " |",1,0
   For X = 1 To K : PR = 0
      For P = 1 To 5 : E = Estratto(ES,RU,P)
         If E = RD(X) Then Scrivi Cadenza(E) & " ",1,0 : PR = 1
      Next
      If PR = 0 Then Scrivi "_ ",0,0,,RGB(127,127,127)
      If X/10 = Int(X/10) Then Scrivi "|",0,0,,RGB(127,127,127)
   Next
   Scrivi " " & StringaEstratti(ES,RU)
Next
End Sub

 

[genios]

Grazie Master Mike58 Joe semplicemente stupendi .

Ora le dolenti note : sapete benissimo come sono fatti coloro che richiedono script nel senso che devono aggiungere sempre qualcosa

Vi chiedo è possibile in Spazioscript intervenire via software graficamente su questo tabellone analitico ?

grazie di nuovo

ciao Eugenio

 

[joe]

Eugenio

la risposta per la domanda ... così come l'hai scritta ... è no.

L'output è un file html (o di testo) e quando è scritto è scritto.

Dunque o lo si prende così come è e lo si elabora successivamente.

Oppure lo stesso risultato che sia avrebbe dell'elaborazione successiva

deve essere ottenuto prima che la tabella sia mostrata in output.

Ovvero prima che lo script sia terminato.