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
    martedì 29 aprile 2025
    Bari
    03
    07
    32
    05
    33
    Cagliari
    66
    62
    27
    39
    26
    Firenze
    07
    41
    70
    75
    53
    Genova
    10
    26
    64
    44
    74
    Milano
    30
    76
    66
    51
    65
    Napoli
    56
    80
    34
    11
    29
    Palermo
    74
    37
    48
    13
    38
    Roma
    02
    21
    18
    51
    68
    Torino
    64
    06
    32
    88
    54
    Venezia
    66
    01
    11
    74
    54
    Nazionale
    65
    63
    50
    55
    33
    Estrazione Simbolotto
    Genova
    45
    10
    12
    24
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto