Novità

PER FAVORE UNA MODIFICA

mastrogino

mastrogino

Advanced Premium Member
Buona serata vi chiedo se era possibile modificare questo listato in questo modo ;
che dia il calcolo piramidale per ogni ruota a scelta con questo criterio
il 1° estratto con il 1° chiave settenario e cosi via vi faccio un esempio
bari
Piramide a - 9
54821
9313
344
78
Risulatato---> 78
Piramide a - 9
50372
5319
841
35
Risulatato---> 35
Piramide a - 9
84463
3819
291
21
Risulatato---> 21
Piramide a - 9
64554
1919
111
22
Risulatato---> 22
Piramide a - 9
63645
9919
911
12
Risulatato---> 12


la la somma dei 5
78+35+21+22+12=78.
questa è l'ambata da mettere in gioco su BA MI NA VE

GRAZIE IN ANTICIPO A CHI LO RISOLVE
QUESTO è IL LISTATO
Sub Main()
ColoreTesto 2
Scrivi String(75,"*")
ColoreTesto 1
Scrivi String(30," ") & "<<< Piramide >>>" & String(15," "),1
ColoreTesto 2
Scrivi String(75,"*")
ColoreTesto 0
nr = InputBox("Inserisci il numero da Piramidare 1° ESTRATTO 281,2°ESTRATTO 372,3° 463,4° 554, 5° 645","Piramide °°°esselotto°°",281372463554645)
If nr = False Then Exit Sub
pir = nr ' Assegnamo a pir il numero
Piramidiza9(pir) '<------------ richiamo la Funzione
ColoreTesto 2
Scrivi "Risulatato---> " & pir,1
ColoreTesto 1
Scrivi String(75,"_"),1
Scrivi
Scrivi "°°°esselotto°°°",1
End Sub


'Functio Aggiuntiva
Dim pir
Function Piramidiza9(Piramide)
s = 0
lun = Len(pir)
Piramide = pir
Scrivi "Piramide a - 9" ' visuallizare a video la piramide
Scrivi Piramide,1 ' visuallizare a video la piramide
Do Until lun < 3
For i = 1 To Len(Piramide) - 1
vt1 = CInt(Mid(Piramide,i,1)) + CInt(Mid(Piramide,i + 1,1))
If vt1 > 9 Then vt1 = vt1 - 9
vatmp = vatmp & vt1
Next
Piramide = vatmp
s = s + 1
Scrivi String(s," ") & Piramide,1 ' visuallizare a video la piramide
lun = Len(vatmp)
vatmp = ""
Loop
pir = Fuori90(Piramide)
End Function
 
Ultima modifica:
mastrogino

mastrogino

Advanced Premium Member
Cinzia27 ha scritto:
Ciao, Mastrogino.
Se mi spieghi il calcolo, ci posso provare.

Bari
54.50.84.64.62
Piramide a - 9
54821
9313
344
78
Clicca per espandere...
CIAO il calcolo e semplice il listato deve fare la piramidazione degli 5 estratti su singola ruota con gli estratti piu la chiave settenaria
esempio
ba
1° estratto 54 chiave 281
quindi
54281
e cosi via
avendo fatto tutti i 5 estratti li somma
78+35+21+22+12=78.
il 78 è l'ambata da mettere in gioco sulle ruote di famiglia ( io intendo di famiglia quelle ruote che siano collegate in gemelli e diametrali)
 
mastrogino

mastrogino

Advanced Premium Member
le chiavi sono
x il 1° estreatto 281
x il 2° estratto 372
x il 3° estratto 463
x il 4° estratto 554
x il 5° estratto 645
 
BaffoBlù

BaffoBlù

Advanced Member >PLATINUM<
mastrogino ha scritto:
le chiavi sono
x il 1° estreatto 281
x il 2° estratto 372
x il 3° estratto 463
x il 4° estratto 554
x il 5° estratto 645
Clicca per espandere...
meno male che hai messo qui le chiavi, perché dai calcoli fatti all'inizio hai messo 821 al posto di 281 e si è scombinato tutto

Ho fatto sto mezzo script eliminando quella funzione obsoleta

Penso si possa fare di meglio, magari se interviene salvo50...

Codice: 
Option Explicit
Sub Main()
   Dim ruota(1)
   Dim Ini,fin,nr1,nr2,nr3,nr4,nr5,es,r
   Dim a1,b1,c1,d1,e1,a2,b2,c2,d2,e2,a3,b3,c3,d3,e3
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 1
   Scrivi String(30," ") & "<<< Piramide >>>" & String(15," "),1
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 0
   r = CInt(InputBox(" Scegli la ruota ",,"1"))
   Ini = EstrazioneFin
   fin = EstrazioneFin
   For es = Ini To fin
      ruota(1) = r
      a1 = Estratto(es,r,1)
      b1 = Estratto(es,r,2)
      c1 = Estratto(es,r,3)
      d1 = Estratto(es,r,4)
      e1 = Estratto(es,r,5)
      a2 =(a1 * 1000)
      b2 =(b1 * 1000)
      c2 =(c1 * 1000)
      d2 =(d1 * 1000)
      e2 =(e1 * 1000)
      a3 =(a2 + 281)
      b3 =(b2 + 372)
      c3 =(c2 + 463)
      d3 =(d2 + 554)
      e3 =(e2 + 645)
      nr1 = Piramide(a3,,2)
      nr2 = Piramide(b3,,2)
      nr3 = Piramide(c3,,2)
      nr4 = Piramide(d3,,2)
      nr5 = Piramide(e3,,2)
      Scrivi " " & Format2(nr1) & " - " & Format2(nr2) & " - " & Format2(nr3) & " - " & Format2(nr4) & " - " & Format2(nr5) & " - ",1,,,,2
      Scrivi String(75,"_"),1
   Next
End Sub
 
mastrogino

mastrogino

Advanced Premium Member
BaffoBlù ha scritto:
meno male che hai messo qui le chiavi, perché dai calcoli fatti all'inizio hai messo 821 al posto di 281 e si è scombinato tutto

Ho fatto sto mezzo script eliminando quella funzione obsoleta

Penso si possa fare di meglio, magari se interviene salvo50...

Codice: 
Option Explicit
Sub Main()
   Dim ruota(1)
   Dim Ini,fin,nr1,nr2,nr3,nr4,nr5,es,r
   Dim a1,b1,c1,d1,e1,a2,b2,c2,d2,e2,a3,b3,c3,d3,e3
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 1
   Scrivi String(30," ") & "<<< Piramide >>>" & String(15," "),1
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 0
   r = CInt(InputBox(" Scegli la ruota ",,"1"))
   Ini = EstrazioneFin
   fin = EstrazioneFin
   For es = Ini To fin
      ruota(1) = r
      a1 = Estratto(es,r,1)
      b1 = Estratto(es,r,2)
      c1 = Estratto(es,r,3)
      d1 = Estratto(es,r,4)
      e1 = Estratto(es,r,5)
      a2 =(a1 * 1000)
      b2 =(b1 * 1000)
      c2 =(c1 * 1000)
      d2 =(d1 * 1000)
      e2 =(e1 * 1000)
      a3 =(a2 + 281)
      b3 =(b2 + 372)
      c3 =(c2 + 463)
      d3 =(d2 + 554)
      e3 =(e2 + 645)
      nr1 = Piramide(a3,,2)
      nr2 = Piramide(b3,,2)
      nr3 = Piramide(c3,,2)
      nr4 = Piramide(d3,,2)
      nr5 = Piramide(e3,,2)
      Scrivi " " & Format2(nr1) & " - " & Format2(nr2) & " - " & Format2(nr3) & " - " & Format2(nr4) & " - " & Format2(nr5) & " - ",1,,,,2
      Scrivi String(75,"_"),1
   Next
End Sub
Clicca per espandere...

Buongiorno a tutti , scusatemi ma i turni lavorativi mi stanno massacrando e a volte capita che un numero scappa via
lo so è importante che il listato si deve essere chiaro , perdonate la mia mancanza .
il listato e ok Baffo ma non da la somma dei 5 numeri da mettere in prev. sulle ruote di famiglia
in questo caso su bari
48+35+21+22+71=17
17 è l'ambata in gioco
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti



In attesa dello script di Cinzia che sicuramente sarà migliore del mio
mi è più facile farne uno nuovo che modificare quello postato

Alla terza domanda puoi scegliere se visualizzare le piramidi, di default ho messo SI
col numero 1, con un qualsiasi altro numero non vengono visualizzate

Codice: 
Option Explicit
Sub Main
   Dim Fin,Clp,Ini,Es,R1,Caso,Casi,P1
   Dim BaseA,BaseB,BaseC,BaseD,BaseE
   Dim XA1,XA2,XA3,XA4,XA5,TotCusp
   Dim Cua1,Cua2,Cua3,Cua4,Cua5,Pir
   Dim Amba(1),Ru,Posta(1),A(5)
   Posta(1) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10323)
   Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
   Pir = InputBox("Vuoi visualizzare le piramidi? Metti 1 per SI, altro numero per NO ",,1)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(1) & " Estratti Uniti a Chiavi Settenarie e Somma Cuspidi - Script Salvo50",1,,4,,3,,1
   R1 = ScegliRuota
   For Es = Ini To Fin
      ' If IndiceMensile(Es) = 1 Then
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
      Next
      If A(1) > 0 Then
         BaseA = A(1) & 281
         BaseB = A(2) & 372
         BaseC = A(3) & 463
         BaseD = A(4) & 554
         BaseE = A(5) & 645
         For XA1 = 1 To Len(BaseA) - 2
            Cua1 =(Piramide(BaseA,XA1))
         Next
         For XA2 = 1 To Len(BaseB) - 2
            Cua2 =(Piramide(BaseB,XA2))
         Next
         For XA3 = 1 To Len(BaseC) - 2
            Cua3 =(Piramide(BaseC,XA3))
         Next
         For XA4 = 1 To Len(BaseD) - 2
            Cua4 =(Piramide(BaseD,XA4))
         Next
         For XA5 = 1 To Len(BaseE) - 2
            Cua5 =(Piramide(BaseE,XA5))
         Next
         TotCusp = Fuori90(90 + Cua1 + Cua2 + Cua3 + Cua4 + Cua5)
         Amba(1) = TotCusp
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
         '
         If Pir = 1 Then
            Scrivi
            'Visualizzazione 1ª Piramide
            Scrivi Space(27) & Format2(BaseA),1,,,2,3
            For XA1 = 1 To Len(BaseA) - 2
               Scrivi Space(27) &(Piramide(BaseA,XA1)),1,,,,3
            Next
            Scrivi
            'Visualizzazione 2ª Piramide
            Scrivi Space(27) & Format2(BaseB),1,,,2,3
            For XA2 = 1 To Len(BaseB) - 2
               Scrivi Space(27) &(Piramide(BaseB,XA2)),1,,,,3
            Next
            Scrivi
            'Visualizzazione 3ª Piramide
            Scrivi Space(27) & Format2(BaseC),1,,,2,3
            For XA3 = 1 To Len(BaseC) - 2
               Scrivi Space(27) &(Piramide(BaseC,XA3)),1,,,,3
            Next
            Scrivi
            'Visualizzazione 4ª Piramide
            Scrivi Space(27) & Format2(BaseD),1,,,2,3
            For XA4 = 1 To Len(BaseD) - 2
               Scrivi Space(27) &(Piramide(BaseD,XA4)),1,,,,3
            Next
            Scrivi
            'Visualizzazione 5ª Piramide
            Scrivi Space(27) & Format2(BaseE),1,,,2,3
            For XA5 = 1 To Len(BaseE) - 2
               Scrivi Space(27) &(Piramide(BaseE,XA5)),1,,,,3
            Next
            Scrivi
            Scrivi Format2(Cua1) & " + " & Format2(Cua2) & " + " & Format2(Cua3),1,0
            Scrivi " + " & Format2(Cua4) & " + " & Format2(Cua5) & " = ",1,0
            Scrivi Format2(TotCusp),1,0,,2
            Scrivi " <-- Ambata uguale alla somma dei 5 cuspidi",1
         End If
         Scrivi
         If R1 = 1 Or R1 = 5 Or R1 = 6 Or R1 = 10 Then Ru = Array(0,BA_,MI_,NA_,VE_)
         If R1 = 2 Or R1 = 4 Or R1 = 7 Or R1 = 9 Then Ru = Array(0,CA_,GE_,PA_,TO_)
         If R1 = 3 Or R1 = 8 Then Ru = Array(0,FI_,RO_)
         ImpostaGiocata 1,Amba,Ru,Posta,Clp
         Gioca Es,1
      End If
      'End If
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Rileggendo i post di Mastrogino, mi sono accorto che le ruote di gioco non sono sempre le stesse

Mastrogini ha scritto
l'ambata da mettere in gioco sulle ruote di famiglia ( io intendo di famiglia quelle ruote che siano collegate in gemelli e diametrali)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------


Come esempio la ruota base diciamo che è Bari, quindi le ruote in cui giocare sono

Bari = prima ruota
Venezia = ruota gemella
Napoli = ruota diametrale

quindi dato che con Bari ruota base di esempio hai messo 4 ruote Bari, Milano, Napoli e Venezia,

MI chiedevo Milano in che rapporti è con Bari?

Per modificare il mio script ed aggiustare l'errore mi serve questo dato
 
mastrogino

mastrogino

Advanced Premium Member
salvo50 ha scritto:
Rileggendo i post di Mastrogino, mi sono accorto che le ruote di gioco non sono sempre le stesse

Mastrogini ha scritto
l'ambata da mettere in gioco sulle ruote di famiglia ( io intendo di famiglia quelle ruote che siano collegate in gemelli e diametrali)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------


Come esempio la ruota base diciamo che è Bari, quindi le ruote in cui giocare sono

Bari = prima ruota
Venezia = ruota gemella
Napoli = ruota diametrale

quindi dato che con Bari ruota base di esempio hai messo 4 ruote Bari, Milano, Napoli e Venezia,

MI chiedevo Milano in che rapporti è con Bari?

Per modificare il mio script ed aggiustare l'errore mi serve questo dato
Clicca per espandere...
Ciao
Ba.mi diametrali
Mi ve diametrali
Ba na gemelli
Na Ve gemelli
Chiedo venia se sbaglio
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
A me risulta che il diametrale di Bari è Napoli

Mastrogino se tu hai un tuo modo di interpretare il diametrale di una ruota
me lo devi spiegare perchè se per te il diametrale di Bari è Napoli
io lo faccio come lo interpreti tu, ma ripeto me lo devi spiegare
 
mastrogino

mastrogino

Advanced Premium Member
salvo50 ha scritto:
A me risulta che il diametrale di Bari è Napoli

Mastrogino se tu hai un tuo modo di interpretare il diametrale di una ruota
me lo devi spiegare perchè se per te il diametrale di Bari è Napoli
io lo faccio come lo interpreti tu, ma ripeto me lo devi spiegare
Clicca per espandere...
Certo tu ai ragione ,
Diametrali Ba Na mi ve
Questi fanno parte della famiglia sia di diametrali che gemelle.
Come
Ca.pa.to ge.
Come fi.ro.
 
joe

joe

Advanced Member >PLATINUM PLUS<
Ho provato a compattare lo script di BaffoBlù, eliminando molte delle variabili utilizzate.

Codice: 
Option Explicit
Sub Main()
   Dim ruota(1)
   Dim Ini,Fin,Es,R,P,Nr(5)
   Dim Chiave,T,Nu(1),Ru,Posta(1),Clp
   Posta(1) = 1 : Clp = 13
   Chiave = Array(0,281,372,463,554,645)
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 1
   Scrivi String(30," ") & "<<< Piramide >>>" & String(15," "),1
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 0
   R = CInt(InputBox(" Scegli la ruota ",,"1"))
   Ini = 10323
   Fin = EstrazioneFin
   For Es = Ini To Fin
      T = 0
      For P = 1 To 5
         Nr(P) = Piramide(Estratto(Es,R,P) * 1000 + Chiave(P),,2)
         T = T + Nr(P)
      Next
      Scrivi " " & StringaNumeri(Nr," + ",True),1,0,,,2
      Nu(1) = Fuori90(T)
      Scrivi " = " & Format2(T),1
      Scrivi String(75,"_"),1
      If R = 1 Or R = 5 Or R = 6 Or R = 10 Then Ru = Array(0,BA_,MI_,NA_,VE_)
      If R = 2 Or R = 4 Or R = 7 Or R = 9 Then Ru = Array(0,CA_,GE_,PA_,TO_)
      If R = 3 Or R = 8 Then Ru = Array(0,FI_,RO_)
      ImpostaGiocata 1,Nu,Ru,Posta,Clp
      Gioca Es,1
   Next
   ScriviResoconto
End Sub

successivamente l'ho interfacciato ed impiantato sulla parte invece fatta da Salvo.

Ad un veloce controllo ... ha gli stessi risultati.

:)
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Lo script è da riprendere ho modificato in modo che le ruote giocate corrispondono
alla famiglia della ruota appartenente
 
BaffoBlù

BaffoBlù

Advanced Member >PLATINUM<
joe ha scritto:
Ho provato a compattare lo script di BaffoBlù, eliminando molte delle variabili utilizzate.

Codice: 
Option Explicit
Sub Main()
   Dim ruota(1)
   Dim Ini,Fin,Es,R,P,Nr(5)
   Dim Chiave,T,Nu(1),Ru,Posta(1),Clp
   Posta(1) = 1 : Clp = 13
   Chiave = Array(0,281,372,463,554,645)
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 1
   Scrivi String(30," ") & "<<< Piramide >>>" & String(15," "),1
   ColoreTesto 2
   Scrivi String(75,"*")
   ColoreTesto 0
   R = CInt(InputBox(" Scegli la ruota ",,"1"))
   Ini = 10323
   Fin = EstrazioneFin
   For Es = Ini To Fin
      T = 0
      For P = 1 To 5
         Nr(P) = Piramide(Estratto(Es,R,P) * 1000 + Chiave(P),,2)
         T = T + Nr(P)
      Next
      Scrivi " " & StringaNumeri(Nr," + ",True),1,0,,,2
      Nu(1) = Fuori90(T)
      Scrivi " = " & Format2(T),1
      Scrivi String(75,"_"),1
      If R = 1 Or R = 5 Or R = 6 Or R = 10 Then Ru = Array(0,BA_,MI_,NA_,VE_)
      If R = 2 Or R = 4 Or R = 7 Or R = 9 Then Ru = Array(0,CA_,GE_,PA_,TO_)
      If R = 3 Or R = 8 Then Ru = Array(0,FI_,RO_)
      ImpostaGiocata 1,Nu,Ru,Posta,Clp
      Gioca Es,1
   Next
   ScriviResoconto
End Sub

successivamente l'ho interfacciato ed impiantato sulla parte invece fatta da Salvo.

Ad un veloce controllo ... ha gli stessi risultati.

:)
Clicca per espandere...
Penso che questo è quello che stava cercando MastroGino

:cool:
 
C

Cinzia27

Premium Member
Grazie a Salvo, Baffoblù e Joe per essere intervenuti.
Mastrogino se lo merita.
Salvo, cosa dici? Tu sei bravissimo e ho molto da imparare da te.
Intanto, leggo e vedo di capire.
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Cinzia27 ha scritto:
Grazie a Salvo, Baffoblù e Joe per essere intervenuti.
Mastrogino se lo merita.
Salvo, cosa dici? Tu sei bravissimo e ho molto da imparare da te.
Intanto, leggo e vedo di capire.
Clicca per espandere...
Cinzia che tu hai da imparare da me non lo dire neanche per scherzo, io ti ammiro moltissimo
insieme a Joe, Mike58, ILegend, Enplein, Claudio8, e qualche altro che non ricordo il nome
per me siete irraggiungibili
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 15 giugno 2024
    Bari
    89
    58
    65
    39
    09
    Cagliari
    39
    42
    79
    30
    28
    Firenze
    40
    61
    78
    34
    54
    Genova
    22
    80
    70
    40
    69
    Milano
    47
    31
    28
    72
    53
    Napoli
    33
    50
    63
    27
    57
    Palermo
    34
    87
    08
    25
    63
    Roma
    53
    28
    36
    01
    90
    Torino
    33
    15
    61
    80
    13
    Venezia
    23
    79
    03
    85
    36
    Nazionale
    04
    55
    67
    56
    19
    Estrazione Simbolotto
    Napoli
    37
    26
    20
    11
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto