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".
 
joe

joe

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

:)
 
Codicebinario

Codicebinario

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

Codicebinario

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

joe

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

joe

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

:)
 
Codicebinario

Codicebinario

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

joe

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

Codicebinario

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

Codicebinario

Advanced Member >PLATINUM<
TROVATO !!!!GRAZIEEEEEEE !!! Non ho mai provato,trovato,un approccio di questo tipo di interazione di script a Spaziometria "!!!!! GRAZIE joe.
 
Codicebinario

Codicebinario

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

joe

Advanced Member >PLATINUM PLUS<
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
    sabato 27 aprile 2024
    Bari
    02
    74
    34
    72
    78
    Cagliari
    60
    62
    43
    58
    38
    Firenze
    88
    70
    85
    38
    50
    Genova
    18
    61
    70
    08
    80
    Milano
    85
    81
    16
    03
    26
    Napoli
    34
    31
    01
    41
    51
    Palermo
    52
    59
    54
    35
    05
    Roma
    34
    83
    23
    67
    61
    Torino
    86
    59
    61
    62
    48
    Venezia
    69
    50
    40
    05
    79
    Nazionale
    31
    30
    85
    45
    67
    Estrazione Simbolotto
    Genova
    37
    02
    21
    34
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto