Novità

UN RICHIESTA A TUTTI VOI SPECIAL ONE DI SCIPT

mastrogino

mastrogino

Advanced Premium Member
Buongiorno e buona Domenica a tutti voi
ho una richiesta particolare se è fattibile o no!

vi spiego :
inserire un estrazione intera con i numeri diversi dall'estrazione reale e che mi dia la somma dei 5 numeri.
La somma fuori 90 sia in comune nella ruota diversa o in comune
come questo esempio non reale
CA 56.88.79.61.47...61.
il listato deve segnalare il 61 su cagliari e anche se vi è un'altro 61 nelle altre ruote
non mi interessa se lo mette in gioco
basta che lo segnali con il 1° estratto e il 5°
esempio
61.56.47.
GRAZIE A TUTTI COLORO CHE PARTECIPANO A QUEST'OPERA
 
Mastrogino si capisce poco.
Per dare una prima risposta ti metto
tutte le estrazioni,
tutte le ruote
la somma di tutti gli estratti
evidenzia la somma 61
con affiancato il 1° e 5* estratto.
Valuta.
Se non confacente sarebbe meglio non essere avari circa i dettagli dei progetti.

Codice: 
Sub Main
   Dim Nu(5),Ru(1)
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   For es = Ini To fin
   ColoreTesto 0
   Scrivi GetInfoEstrazione(es),1
      For r = 1 To 12
         If r <> 11 Then
            For p = 1 To 5
               Nu(p) = Estratto(es,r,p)
               sm = Format2(Fuori90(SommaEstratti(es,r))) 
            Next
            If sm = 61 Then
            ColoreTesto 2
            Scrivi SiglaRuota(r) & " - " & StringaEstratti(es,r) & " | Somma Estratti : " & sm & " | Numeri p1 e p5 ... " & Nu(1) & "." & Nu(5)
         Else
         ColoreTesto 0
          Scrivi SiglaRuota(r) & " - " & StringaEstratti(es,r) & " | Somma Estratti : " & sm & " | Numeri p1 e p5 ... " & Nu(1) & "." & Nu(5)
         End If

         End If
      Next
      Scrivi
   Next
End Sub
Ciao
 
oppure solo la somma richiesta
Codice: 
Sub Main
   Dim Nu(5),Ru(1)
   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   For es = Ini To fin
      For r = 1 To 12
         If r <> 11 Then
            For p = 1 To 5
               Nu(p) = Estratto(es,r,p)
               sm = Format2(Fuori90(SommaEstratti(es,r)))
            Next
            If sm = 61 Then
               k = k + 1
               Scrivi FormatSpace(k,5),0,0
               Scrivi GetInfoEstrazione(es) & " | ",1,0
               Scrivi SiglaRuota(r) & " - " & StringaEstratti(es,r) & " | Somma Estratti : " & sm & " | Numeri p1 e p5 ... " & Nu(1) & "." & Nu(5)
               Scrivi
            End If
         End If
      Next
   Next
End Sub
 
Ciao Mike, sostituendo questa riga:
If sm = 61 Then
in
If Posizione (es,r,sm)>0 Then

Si ottengono tutti i casi in cui la somma della cinquina
è presente tra gli estratti.
Questa ricerca genera il Vincolo 90 determinata dalla
somma degli estratti senza l'elemento somma.
Codice: 
55   [10234] [ 54] 06.05.2023 | FI - 82.36.61.12.25 | Somma Estratti : 36 | Numeri p1 e p5 ... 82.25
Infatti : 82+61+12+25=con F 90 =90

Nella speranza di essere stato d'aiuto, saluto.
Con stima, Enplein
 
Buongiorno grazie Mike58 e Enplein....... stasera vi spiego tutto il metodo .....nel listato fatto bene ma al contrario dei numeri sortiti nell'estrazione , a caso i numeri si devono inserire manualmente su ogni ruota
 
non So cosa ci devi fare con i numeri immessi manualmente e come dopo esserci u pochetto impazzito eccotene una bozza
Codice: 
Sub Main
   Dim aN(12)
   '---------------------------------
   aN(1) = "01,02,03,04,05"
   aN(2) = "56,88,79,61,47"
   aN(3) = "03,04,05,06,07"
   aN(4) = "04,05,06,07,08"
   aN(5) = "05,07,08,09,10"
   aN(6) = "06,07,44,55,66"
   aN(7) = "07,24,53,65,78"
   aN(8) = "08,12,13,14,15"
   aN(9) = "09,22,23,24,25"
   aN(10) = "10,33,34,35,36"
   aN(11) = "00,00,00,00,00"
   aN(12) = "12,13,25,60,50"
   '---------------------------------
   Scrivi "Trova Somma Su Numeri Immessi manualmente che è uguale ad un estratto ",1,,,1,3,,1
   Scrivi
   For r = 1 To UBound(aN)
   If r = 11 Then r = 12
      Nu = Split("0," & Format2(aN(r)),",")
      For ub = 1 To UBound(nu)
         sum = Fuori90(sum +(nu(ub)))
      Next
      'If sum = 61 Then
      If CInt(nu(1)) =(sum) Or CInt(nu(2)) =(sum) Or CInt(nu(3)) =(sum) Or CInt(nu(4)) =(sum) Or CInt(nu(5)) =(sum) Then
         Scrivi SiglaRuota(r) & vbTab & StringaNumeri(nu) & vbTab &(sum) & "  Numeri p1 & p5 : " & nu(1) & "." & nu(5),1,,,2
      Else
         Scrivi SiglaRuota(r) & vbTab & StringaNumeri(nu) & vbTab &(sum) & "  Numeri p1 & p5 : ",0,,,0
      End If
      sum = 0
   Next
End Sub
 
Buon pomeriggio ....il metodo


avete presente la tavola settenaria ?
bene
vi farò vedere cio che succede
estrazione del 04/05/2023 prendiamo in esame la ruota di mILANO
MA NON QUELO REALE 70.13.60.82.22.
MA QUELLO DELLA TAVOLA . ora vi spiego come estraggo i numeri
70=54.
13=75.
60=04.
82=51.
22=48.
54.75.04.51.48. questi numeri non sono altro che il
numero diagonale a sx della cella in considerazione saltando un numero

72xx19
xx54xx
18xx37
il numero 18 in diagonal ea sx lo si salta , in basso a sx cè il 82. e cosi via ottenendo la cinquina ( in cui io in
seriro manualmente nel listato , o meglio ancora mi fa lui il calcolo
MI 54.75.04.51.48. somma dei 5 numeri è 52.......
il 52 è importante poiche ci dira la ruota in cui viene giocata la prev.
facendo lo stesso procedimento su tutte le ruote ho un 52 a Bari
e in questa ruota che ci fara giocare la terzina 54.48.52.
a colpo 54.48. appunto bari

ragazzi e complicato lo so , ma se insistiamo ad uscirne fuori abbiamo un metodo fortissimo gia testato in passato e funziona
unaltro caso e che la somma reale di milano
70+13+60+82+22 = 67 questo numero lo trovo a bari invertendo i numeri
quindi due realta di uscita
 
SALVE ,C I SONO .......se un numero si trova in periferia cioeee
01.11.
21.
31.41.51.61.71.81.
81.82.83.84.85.86.87.88.89.90.
si procede in questo modo
esempio

31 si tira la diagonale 31.22.13.04. il 4 e la cella in cui si estrapola il numero cioeee il 12.
51...................................42.33.24.15.06. numero 76.
e cosi via
sullla riga inferiore 8182.83.84.85.86.87.88..89.90.
ugualmente si tira l ariga diagonale fino alla fine cioeee
86. 77.68.59.50. numero 44.
sono on line per ogni vostra domanda
 
Ciao Mastrogino,ho letto velocemente quello che vorresti ottenere, e ho capito ben poco.
Chiaro.. ho letto velocemente e se per te è chiaro il tutto per me adesso rappresentano una accozzaglia di numeri senza un senso.

La Mia domanda è perchè mi hai fatto impazzire a fare lo script dei numeri immessi manualmente e farli interagire con una qualche condizione e ricavarne con escamotage la somma,se poi come vedo i tuoi numeri partono comunque da numeri estratti sulle ruote.

Comunque la vedo complicata.

Ciao
 
CIAO si e dura e complicata dal resto le cose reali stanno nelle cose complicate

all'inizio ho chiesto un listato che inseriva manualmente i 5 numeri e non dall'estrazione reale

poi come tu mi hai chiesto di non essere confacente e ti ho inserito il metodo
ho anche detto che è molto difficile che si realizzi . va bhe ci abbiamo provato grazi elo stesso
 
Se non confacente sarebbe meglio non essere avari circa i dettagli dei progetti.
Clicca per espandere...
No io non ti ho detto che il metodo non era confacente, ma il mio primo script postato se non era confacente( adatto appropriato ) con la tua richiesta con qualche altra dritta e dettaglio in più si potevano apportare correttivi.

Capisco che è difficile capirsi, ma a capire malissimo ne passa tanto.

Pazienza.
 
Ultima modifica:
mastrogino ha scritto:
SALVE ,C I SONO .......se un numero si trova in periferia cioeee
01.11.
21.
31.41.51.61.71.81.
81.82.83.84.85.86.87.88.89.90.
si procede in questo modo
esempio

31 si tira la diagonale 31.22.13.04. il 4 e la cella in cui si estrapola il numero cioeee il 12.
51...................................42.33.24.15.06. numero 76.
e cosi via
sullla riga inferiore 8182.83.84.85.86.87.88..89.90.
ugualmente si tira l ariga diagonale fino alla fine cioeee
86. 77.68.59.50. numero 44.
sono on line per ogni vostra domanda
Clicca per espandere...
Ciao a Tutti

Ciao Mastrogino

Concordo con Mike che questo metodo l'hai spiegato malissimo, con gli interventi di Mike ed Enplein ho cominciato a capirci qualcosa, nel post #1 dici che la somma della cinquina estratta deve essere anche uno degli estratti, ma con gli esempi che fai al post #8 e 10 questa regola non la vedo più, per i numeri in periferia (come li chiami tu)
01 11 21 31 41 51 61 71 81 82 83 84 85 86 87 88 89 90
per ognuno di questi numeri mi dovresti dire a quale numero corrispondono, anche perché seguendo il tuo ragionamento per il numero 82 a me risulta il corrispondente 24 non 51, quindi sembra che ci sia una regola dentro un altra regola, (ecco perché Mike ti ha detto che per lui rappresentano un accozzaglia di numeri) comunque se per ognuno di questi 18 numeri mi dici a quali numeri corrispondono io posso farti lo script, per gli altri numeri non c'è problema si può applicare un algoritmo, per la ruota in cui giocare la vedo complicata quindi la giocata la imposto per tutte le ruote, poi vedi tu in quale ruota giocare
 
salvo50 ha scritto:
Ciao a Tutti

Ciao Mastrogino

Concordo con Mike che questo metodo l'hai spiegato malissimo, con gli interventi di Mike ed Enplein ho cominciato a capirci qualcosa, nel post #1 dici che la somma della cinquina estratta deve essere anche uno degli estratti, ma con gli esempi che fai al post #8 e 10 questa regola non la vedo più, per i numeri in periferia (come li chiami tu)
01 11 21 31 41 51 61 71 81 82 83 84 85 86 87 88 89 90
per ognuno di questi numeri mi dovresti dire a quale numero corrispondono, anche perché seguendo il tuo ragionamento per il numero 82 a me risulta il corrispondente 24 non 51, quindi sembra che ci sia una regola dentro un altra regola, (ecco perché Mike ti ha detto che per lui rappresentano un accozzaglia di numeri) comunque se per ognuno di questi 18 numeri mi dici a quali numeri corrispondono io posso farti lo script, per gli altri numeri non c'è problema si può applicare un algoritmo, per la ruota in cui giocare la vedo complicata quindi la giocata la imposto per tutte le ruote, poi vedi tu in quale ruota giocare
Clicca per espandere...
Grazie Salvo più tardi ti mando la tabella ,
Buona giornata
 
CIAO sALVO E A TUTTI VOI GRAZIE toom x la tAVOLA

ecco i 90 numeri in nero i numeri reali in rosso quelli da inserire
 

Allegati

  • Screenshot (261).png
    Screenshot (261).png
    235,6 KB · Visite: 69
mastrogino ha scritto:
CIAO sALVO E A TUTTI VOI GRAZIE toom x la tAVOLA

ecco i 90 numeri in nero i numeri reali in rosso quelli da inserire
Clicca per espandere...
Nel 1 io invece del 40 metterei il 78 perché nei rossi il 78 manca ed invece il 40 c'è 2 volte sia con l'uno che con il 78
che ne dici, mettere il 78 nell'uno è più logico e non metterlo verrebbe a mancare
 
I 18 numeri che avevo chiesto spiegazioni, ho notato che hanno una sequenza regolare, quindi avrei potuto fare degli algoritmi,
ma poi ho preferito fare 18 IF-THEN, la somma che deve essere uguale ad uno dei numeri della cinquina non l'ho fatto perche
non ho capito a quale cinquina la devo fare oppure a tutte e due le cinquine cioè su quello mi devi dare più spiegazioni
Ecco lo script salvo errori o dimenticanze

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,Clp1,Clp2,Es,Salvo50,R1,P1,Casi,Somma,R,Som_R
   Dim Ruo(1),Po1(3),Num(3),A(5),B(5),Amba(1),Po2(1)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10130))
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,1))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare ambo e terno?",Salvo50,9))
   Scrivi Space(3) & " Chiesto Da Mastrogino Estrapolazioni nella tavola settenaria - SCRIPT SALVO50" & Space(2),1,,4,,3,,1
   Po2(1) = 1
   Po1(2) = 1
   Po1(3) = 1
   R1 = ScegliRuota
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Somma = SommaEstratti(Es,R1)
      Somma = Fuori90(Somma)
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
         B(P1) = Fuori90((A(P1) + 9)*13)
         B(P1) = 91 - B(P1)
         If A(P1) = 1 Then B(P1) = 78
         If A(P1) = 11 Then B(P1) = 65
         If A(P1) = 21 Then B(P1) = 52
         If A(P1) = 31 Then B(P1) = 39
         If A(P1) = 41 Then B(P1) = 26
         If A(P1) = 51 Then B(P1) = 13
         If A(P1) = 61 Then B(P1) = 90
         If A(P1) = 71 Then B(P1) = 77
         If A(P1) = 81 Then B(P1) = 64
         If A(P1) = 82 Then B(P1) = 51
         If A(P1) = 83 Then B(P1) = 11
         If A(P1) = 84 Then B(P1) = 61
         If A(P1) = 85 Then B(P1) = 21
         If A(P1) = 86 Then B(P1) = 71
         If A(P1) = 87 Then B(P1) = 31
         If A(P1) = 88 Then B(P1) = 81
         If A(P1) = 89 Then B(P1) = 41
         If A(P1) = 90 Then B(P1) = 1
      Next
      Num(1) = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
      Num(2) = B(1)
      Num(3) = B(5)
      Amba(1) = Num(1)
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
      Scrivi("Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
      Scrivi " Somma Estr. Reali " & Format2(Somma),1,,,1
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(B," ",True),1,0
      Scrivi " Somma Estrapolati " & Num(1),1,,,2
      Scrivi
      Scrivi " SOMME COL FUORI 90 IN TUTTE LE RUOTE",1,,,1
      Scrivi
      For R = 1 To 12
         If R = 11 Then R = 12
         Som_R = Fuori90(SommaEstratti(Es,R))
       
Scrivi Space(5) & SiglaRuota(R) & " " & StringaEstratti(Es,R)& "    Somma " & Format2(Som_R),1

      Next
      'Call ScriviEstrazione(Es,1,1,1)
      Ruo(1) = TT_
      Scrivi
      ImpostaGiocata 1,Amba,Ruo,Po2,Clp1
      ImpostaGiocata 2,Num,Ruo,Po1,Clp2
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto