Novità

Aiuto per uno script di ricerca sos lanciato a tutti gli scripter

Codicebinario

Codicebinario

Advanced Member >PLATINUM<
Ciao a tutti,avrei bisogno di uno script che produca questo.

Esempio reale,estrazione ultima del13 febbraio c.a...sommare gli estratti ruota x ruota in orizzontale e verticale,la somma devo vederla per intero senza fuori 90 e a lato mi restituisca automaticamente il responso col fuori 90...

BA 34 57 69 14 52-------> somma estratti = 226----->fuori 90 = 46
CA 83 86 56 60 33-------> somma estratti = 318----->fuori 90 = 48
FI 45 41 89 60 43-------> somma estratti = 278----->fuori 90 = 8
etc etc cosi per tutte le ruote (Chiamiamole somme orizzontali)

Ora con la stessa metodica andremo a sommare gli estratti in verticale il1° di BA con il 1°di CA con il 1° di FI e cosi via fino a NZ

1° di BA+1°CA+1°FI = 162------> fuori 90 ------> =72
2° di BA+2°Ca+ 2°FI = 184 -----> fuori 90 ------> 4
3° di BA+3°CA+3°FI = 214------> fuori 90 ------> 34
4° di BA+4°CA+4°FI = 134------> fuori 90 ------> 44
5° di BA+5°CA+5°FI = 128------> fuori 90-------> 38
etc etc cosi' per tutte le ruote (chiamiamole somme verticali)

Hò usato solo le prime 3 ruote per comodità e i calcoli sono giusti,controllati e verificati a calcolatrice e calamaio ma ormai la mia vista è quello che è ed è per questo che chiedo aiuto.Grazie a chiunque riesca a dedicare un pochino di tempo suo a questa mia ennesima "idea"di gioco...Questo e' l'embrione...Ideale sarebbe poter aver la scelta in input in tabella dover poter scegliere le ruote 1,2,3,4 max o tutte e poter scegliere quale estrazione testare(quella presa in esame nell'esempio e' la 10387 di Spaziometria) esempio se io volessi l'estrazione del 15/09/2009 sarebbe la 8117...Di nuovo grazie a chi può dedicare tempo e voglia per generare questo script.Un saluto a tutti gli "abitanti del 3d".
 
Prova questo:

Codice: 
Option Explicit
Sub Main
   Dim Es,R,P,T
   Es = InputBox ("Inserisci quale numero","SCELTA ESTRAZIONE",EstrazioneFin)
   For R = 1 To 12 : If R = 11 Then R = 12
      Scrivi SiglaRuota(R) & " " & Format2(Fuori90(SommaEstratti(Es,R)))
   Next
   Scrivi
   For P = 1 To 5
      Scrivi P & "° ",1,0
      T = 0
      For R = 1 To 12 : If R = 11 Then R = 12
         T = T + Estratto(Es,R,P)
      Next
      Scrivi Fuori90(T)
   Next
End Sub

Però, ricorda che NON sono numeri e non si sommano.

Altrimenti si arrabbiano e sono guai !

:)
 
joe ha scritto:
Prova questo:

Codice: 
Option Explicit
Sub Main
   Dim Es,R,P,T
   Es = InputBox ("Inserisci quale numero","SCELTA ESTRAZIONE",EstrazioneFin)
   For R = 1 To 12 : If R = 11 Then R = 12
      Scrivi SiglaRuota(R) & " " & Format2(Fuori90(SommaEstratti(Es,R)))
   Next
   Scrivi
   For P = 1 To 5
      Scrivi P & "° ",1,0
      T = 0
      For R = 1 To 12 : If R = 11 Then R = 12
         T = T + Estratto(Es,R,P)
      Next
      Scrivi Fuori90(T)
   Next
End Sub

Però, ricorda che NON sono numeri e non si sommano.

Altrimenti si arrabbiano e sono guai !

:)
Clicca per espandere...
Grazie joe del tuo tempo dedicatomi,come sempre grazie. Domani lo faccio girare....ora sono stanco ,devo riposare.stanco io.
 
Codicebinario ha scritto:
Grazie joe del tuo tempo dedicatomi,come sempre grazie. Domani lo faccio girare....ora sono stanco ,devo riposare.stanco io.
Clicca per espandere...
Non ho'resistito alla tentazione Joe....ok i calcoli sono giustissimi andando anche a vedere le estrazioni passate(alcune a campione e solo per Bari) ok.Se vedi bene la richiesta è stata parzialmente esaudita ....vedo il computo del "fuori 90" ma non vedo la "somma" degli estratti integra...sempre prendendo ad esempiol'ultima estrazione Su BA la somma che devo vedere è 226 e a latere il suo "fuori90"cosi:

BA 34 57 69 14 52-------> somma estratti = 226----->fuori 90 = 46
idem per le somme verticali

Va' benissimol'impostazione di visualizzazzione in output ma dovrei vedere anche la somma totale oltre che il fuori 90.... e poi,nell box di scelta,non mi fa' scegliere quali e quante ruote osservare,ma solo l'estrazione scelta.Questo perche' la mia osservazione si basa su un "concetto " funambolico,non da tutti accettato (parlo di ricerca pura ,non di condizioni di gioco) Se rileggi le richieste ho' parlato delle richieste nell'input box...a me serve si quello che hai fatto,ma poter scegliere anche su quali ruote (max 4 e a finire a tutte) perche' la mia idea si basa su un mio pensiero(non e' un dogma è la mia idea)Cioe': con l''avvento delle VENUS tutta la statistica passata e' diventata obsoleta,ancora oggi nessuno sa' per certo quante siano le venus nelle 3 sedi estrazionali.....secondo il mio "cervello datato e bacato" esistono solo 3 venus NORD ,CENTRO,SUD ognuna di queste estrae dalle 15 a 20 palline cambiando il set di palline a secondo dell'assegnazione della ruota...nelle mie osservazioni ho'visto cose"strane" se tu dividi le estrazioni per VENUS ti accorgi che ognuna ha "una diversa attitudine" sia per le decine,sia per qualita' dei segmenti attivi sulle decine....ed per questo chiedevo di avere nell'imputbox di poter scegliere le ruote da 1 a 4 (o se preferisci dividerle per VENUS.... o tutte la data di inizio estrazione 8117 e' sempre quella (15/9/2009).Questo discorso comincio già nel 2013 dove io,alexix corner ed altri cominciammo a fare valutazioni e discussioni,ed ora a distanza di un decennio credo sia arrivato il momento di verificare alcune cose....trovi traccia qui su CED .ora sono stanco davvero,ma se interessa domani ti metto il linkCiao e Grazie Joe.
 
Ok,

Non intendo discutere di convinzioni lottologiche.

Ognuno ha le sue.

Ho già riscritto tutto, perche selezionare delle ruote ... è tutt'altra cosa.

Per fortuna avevo chiesto a Luigi ... di apportare alcune modifiche a spaziometria, così diventa più semplice farlo.

Prima di sostituire lo script al messaggio precedente però intendo fare alcune prove.

:)
 
Ultima modifica:
Questo è l'output del nuovo script:

CB.png

Si deve notare che a differnza della maggior parte degli altri script, questo,

INTERAGISCE MAGGIORMENTE CON L'INTERFACCIA GRAFICA DI SPAZIOMETRIA.

Il risultato per BA-CA-FI dipende dalle ruote che si sono selezionate.

Dunque, posto che esse corrispondano ad una preferenza personale o ad una delle VENUS ... lo script

somma gli estratti delle ruote selezionate nelle righe e colonne dell'estrazione finale

o in quella che si è inserita manualmente nelle sue veci.

Risultati sono esposti, con e senza il Fuori90.

:)
 
joe ha scritto:
Questo è l'output del nuovo script:

Vedi l'allegato 2278461

Si deve notare che a differnza della maggior parte degli altri script, questo,

INTERAGISCE MAGGIORMENTE CON L'INTERFACCIA GRAFICA DI SPAZIOMETRIA.

Il risultato per BA-CA-FI dipende dalle ruote che si sono selezionate.

Dunque, posto che esse corrispondano ad una preferenza personale o ad una delle VENUS ... lo script

somma gli estratti delle ruote selezionate nelle righe e colonne dell'estrazione finale

o in quella che si è inserita manualmente nelle sue veci.

Risultati sono esposti, con e senza il Fuori90.

:)
Clicca per espandere...
Buogiorno JOE ,ottimo lavoro aspetto di vedere lo script finito e definitivo!!!! GRAZIEEEE !
 
Codice: 
Option Explicit
Sub Main
'Somme Estratti in Estrazione e Ruote Selezionate.
'Script By Joe V.1.0 del 14/02/2024

' *** NB)  LE  RUOTE SI SELEZIONANO NELLA SCHERMATA di SPAZIOMETRIA. ***

   Dim Es,R,P,T,S(5)
   Es = InputBox("Inserisci quale numero","SCELTA ESTRAZIONE",EstrazioneFin)
   Scrivi(Es) & " - " & DataEstrazione(Es,,,"/") & Chr(13),1
   Ruote(Es)
   For P = 1 To 5
      T = 0
      S(P) = Pos(Es,P)
   Next
   Scrivi Space(3),0,0
   For P = 1 To 5
      Scrivi "===" & Space(2),0,0
   Next
   Scrivi
   Scrivi Space(2),0,0
   For P = 1 To 5
      Scrivi FormatSpace(S(P),4,1) & Space(1),0,0
   Next
   Scrivi 
   Scrivi Space(4),0,0
   For P = 1 To 5
      Scrivi FormatSpace("||",5),0,0
   Next
   Scrivi
   Scrivi Space(2),0,0
   For P = 1 To 5
      Scrivi FormatSpace(Fuori90(S(P)),4,1) & Space(1),0,0
   Next
   Scrivi
End Sub
Sub Ruote(Es)
   Dim RS()
   Dim N
   RuoteSel(RS)
   For N = 1 To UBound(RS)
      If(RS(N)) Then Scrivi " " & SiglaRuota(RS(N)) & " ",1,0
      Scrivi StringaEstratti(Es,RS(N)," + "),0,0
      Scrivi " = ",0,0
      Scrivi SommaEstratti(Es,RS(N)) & " = " & Format2(Fuori90(SommaEstratti(Es,RS(N))))
   Next
End Sub
Function Pos(es,P)
   Dim RS()
   Dim N,T
   RuoteSel(RS)
   For N = 1 To UBound(RS)
      If(RS(N)) Then T = T + Estratto(es,RS(N),P)
   Next
   Pos = T
End Function

:)
 
Ultima modifica:
joe ha scritto:
Codice: 
Option Explicit
Sub Main
'Somme Estratti in Estrazione e Ruote Selezionate.
'Script By Joe V.1.0 del 14/02/2024

' *** NB)  LE  RUOTE SI SELEZIONANO NELLA SCHERMATA di SPAZIOMETRIA. ***

   Dim Es,R,P,T,S(5)
   Es = InputBox("Inserisci quale numero","SCELTA ESTRAZIONE",EstrazioneFin)
   Scrivi(Es) & " - " & DataEstrazione(Es,,,"/") & Chr(13),1
   Ruote(Es)
   For P = 1 To 5
      T = 0
      S(P) = Pos(Es,P)
   Next
   Scrivi Space(3),0,0
   For P = 1 To 5
      Scrivi "===" & Space(2),0,0
   Next
   Scrivi
   Scrivi Space(2),0,0
   For P = 1 To 5
      Scrivi FormatSpace(S(P),4,1) & Space(1),0,0
   Next
   Scrivi Space(4),0,0
   For P = 1 To 5
      Scrivi FormatSpace("||",5),0,0
   Next
   Scrivi
   Scrivi Space(2),0,0
   For P = 1 To 5
      Scrivi FormatSpace(Fuori90(S(P)),4,1) & Space(1),0,0
   Next
   Scrivi
End Sub
Sub Ruote(Es)
   Dim RS()
   Dim N
   RuoteSel(RS)
   For N = 1 To UBound(RS)
      If(RS(N)) Then Scrivi " " & SiglaRuota(RS(N)) & " ",1,0
      Scrivi StringaEstratti(Es,RS(N)," + "),0,0
      Scrivi " = ",0,0
      Scrivi SommaEstratti(Es,RS(N)) & " = " & Format2(Fuori90(SommaEstratti(Es,RS(N))))
   Next
End Sub
Function Pos(es,P)
   Dim RS()
   Dim N,T
   RuoteSel(RS)
   For N = 1 To UBound(RS)
      If(RS(N)) Then T = T + Estratto(es,RS(N),P)
   Next
   Pos = T
End Function

:)
Clicca per espandere...
Perdonami Joe,mi spieghi come fare a scegliere le ruote su spaziometria...primao dopo lanciato lo script? A me,a script mi fa' vedere solo l'ultima con tutte le ruote x estrazione .....dove sbaglio?
 
TROVATO !!!!GRAZIEEEEEEE !!! Non ho mai provato,trovato,un approccio di questo tipo di interazione di script a Spaziometria "!!!!! GRAZIE joe.
 
Intanto che mi esplico le mie elucubrazioni e ragionamenti su quasta ricerca mi "faccio" di musica buona...e questa te la dedico a ringraziamento del tuo tempo dedicatomi....
 
i legend ha scritto:
Ciao a tutti,
Joe , non Conoscevo questa possibilità e funzione.
Grazie:)
Clicca per espandere...

E' che essendo un pigro e non piacendomi gli inputbox ...

... retaggio della programmazione stile anni 80 avevo chiesto a Luigi ...

di poter leggere le selezioni fatte ... nell'interfaccia grafica utente.

Perchè è molto più comodo che dover inserire i valori di volta in volta, ed ogni volta,

con la possibilità di commettere errori.

Poi anchè così perchè li si ha "a vista" senza dover necesariamente prevedere ...

una routine di output per la loro descrizione e per non lasciare i dati esposti,

privi del riferimento relativo la loro appartenenza e derivazione.

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 gennaio 2025
    Bari
    47
    06
    65
    72
    48
    Cagliari
    75
    33
    52
    59
    73
    Firenze
    08
    05
    35
    74
    81
    Genova
    33
    59
    68
    27
    07
    Milano
    68
    12
    60
    51
    65
    Napoli
    49
    17
    10
    71
    87
    Palermo
    31
    64
    45
    04
    47
    Roma
    18
    84
    43
    28
    31
    Torino
    14
    23
    33
    16
    84
    Venezia
    39
    41
    08
    02
    86
    Nazionale
    63
    41
    58
    16
    01
    Estrazione Simbolotto
    Bari
    45
    03
    38
    41
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto