Novità

quadro analitico per ruota

genios

Advanced Member >PLATINUM<
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
 

*blacklotto*

Super Member >PLATINUM<
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

Advanced Member >PLATINUM<
Grazie *blacklotto* non è quello che volevo .Provero a modificarlo ma non credo di riuscirci.

ciao Eugenio
 

Mike58

Advanced Member >PLATINUM PLUS<
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

Codice:
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

Advanced Member >PLATINUM<
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
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
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.

Codice:
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

Advanced Member >PLATINUM<
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


Codice:
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

Advanced Member >PLATINUM<
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

Advanced Member >PLATINUM PLUS<
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.

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto