Novità

x Lola

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
quote:OGNI QUAL VOLTA SULLA RUOTA DI BARI SORTISCE UN NUMERETTO, BISOGNA MOLTIPLICARLO COL SUO ISOTOPO DI CAGLIARI. IL PRODOTTO USCITO SI DIVIDE PER DUE ( SE E' DISPARI AGGIUNGERE +1) E COL FUORI 90 SI OTTIENE L'AMBATA CHE CON IL RELATIVO VERTIBILE VANNO MESSI IN GIOCO SULLE DUE RUOTE ACCOPPIANDOLE CON LA CADENZA 8 OPPURE CON LA DECINA 80.
Clicca per espandere...

ho bisogno di alcuni chiarimenti:
  • nel caso esca più di un numeretto su BA si mettono in gioco tutte le previsioni?
  • il Fuori90 deve essere fatto dopo la divisione o dopo il prodotto?
  • visto che i numeri da accoppiare non sono pochi che tipo di formazioni vuoi?
Fammi sapere, ciao.

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
Ciao Cipisto,

ho letto il tuo post di chiarimento, se ci sono piu' numeretti
si fanno piu' previsioni; il fuori 90 va fatto dopo il prodotto;
accoppiali con la cadenza 8. ciao resto in attesa

lola

livia
 
tutto chiaro. per gli abbinamenti come formazioni intendevo ambi terzine quartine ecc...

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
Spero di aver capito la tua richiesta, nel caso volessi delle modifiche fammelo sapere. L'intervallo di ricerca inizia dal 2006.

Codice: 
Sub main()

Dim Ambata(1)
Dim Terzina(3)
Dim Ruote(10)
Dim PosteM(5)
Dim PosteT(5)
Dim PosteL(5)
Dim es
Dim iEstratto
Dim iPosizione
Dim iTmp
Dim iGiocata
Dim iColpi
Dim iCadenza
Dim iDecina
Dim iEsitoT
Dim iEsitoA
Dim k

   Ruote(1) = 1
   Ruote(2) = 2
   PosteM(1) = 1
   PosteT(2) = 1
   PosteT(3) = 1

   iColpi = CInt(InputBox("per quanti colpi vuoi giocare le previsioni?", "Numero Colpi", "9"))
   iCadenza = MsgBox("vuoi giocare gli abbinamenti con la Cadenza 8?", 32 + 4, "Numeretto su BA")
   iDecina = MsgBox("vuoi giocare gli abbinamenti con la Decina 80?", 32 + 4, "Numeretto su BA")

   iEsitoA = CInt(InputBox("il gioco delle ambate a quale esito vuoi che si fermi?" _
                         & vbCrLf & vbCrLf & "0 - Il gioco continua per qualsiasi esito" _
                         & vbCr & "1 - Il gioco si ferma al primo esito di Ambata", "Esito Giocate", "0"))
   If iDecina = 6 Or iCadenza = 6 Then
      iEsitoT = CInt(InputBox("il gioco delle terzine a quale esito vuoi che si fermi?" _
                            & vbCrLf & vbCrLf & "0 - Il gioco continua per qualsiasi esito" _
                            & vbCr & "2 - Il gioco si ferma al primo esito di Ambo" _
                            & vbCr & "3 - Il gioco si ferma al primo esito di Terno", "Esito Giocate", "0"))
   End If

   For es = 7538 To EstrazioniArchivio
      AvanzamentoElab 7538, EstrazioniArchivio, es
      iGiocata = 1
      For iPosizione = 1 To 5
         iEstratto = Estratto(es, BA_, iPosizione)
         If iEstratto <= 9 Then
            iTmp = Fuori90((iEstratto * (Estratto(es, CA_, iPosizione))))
            If (iTmp Mod 2) <> 0 Then iTmp = Fuori90((iTmp + 1))

            Ambata(1) = iTmp
            ImpostaGiocata iGiocata, Ambata, Ruote, PosteM, iColpi, iEsitoA
            iGiocata = iGiocata + 1

            Ambata(1) = Vert(iTmp)
            ImpostaGiocata iGiocata, Ambata, Ruote, PosteM, iColpi, iEsitoA
            iGiocata = iGiocata + 1

            If iCadenza = 6 Then
               For k = 1 To 90
                  If Cadenza(k) = 8 Then
                     Terzina(1) = iTmp
                     Terzina(2) = Vert(iTmp)
                     Terzina(3) = k
                     ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, iColpi, iEsitoT
                     iGiocata = iGiocata + 1
                  End If
               Next
            End If

            If iDecina = 6 Then
               For k = 1 To 90
                  If DecinaCabalistica(k) = 9 Then
                     Terzina(1) = iTmp
                     Terzina(2) = Vert(iTmp)
                     Terzina(3) = k
                     ImpostaGiocata iGiocata, Terzina, Ruote, PosteT, iColpi, iEsitoT
                     iGiocata = iGiocata + 1
                  End If
               Next
            End If
         End If
      Next
      Gioca es, False, False
   Next
   ScriviResoconto
End Sub

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
Ciao Cipisto,

ho ricevuto il tuo bellissimo listato, in effetti è quasi ingiocabile,
adesso me lo studio bene e poi eventualmente lo modifichiamo.Ancora
grazie e salutoni cordiali

lola

livia
 
non è poi tanto ingiocabile, le ambate rispondo bene ma sono gli abbinamenti ad essere troppi e con pochi riscontri.
Ciao :)

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
Ciao Cipisto,

ho consultato il risultato del listato ci sono piccole cose da
modificare e cioè :
1- innanzitutto desidererei solo ambi niente terzine;
2- è raro, ma quando si verificano due o più combinazioni giocabili
nella stessa estrazione, deve essere ognuna per conto suo;
3- sotto la data dell' estrazione fai risaltare la combinazione come
per esempio BA 1 CA 6 come hai fatto col "CENTRO DI MASSA";
4- alcuni conti non mi tornano come per esempio il :
5 gennaio 2006 BA 7 CA 37 prodotto 259 (essendo dispari si aggiunge
+1 uguale 260 diviso 2 uguale 130 meno novanta uguale 40 e 4 inve-
ce di 79 e 77 come da listato, così anche il 12 gennaio,il 28 feb
ed ultimo il 19 settembre appena trascorso.
5- visto le ambate sono prolifiche, perchè nel resoconto finale non
risaltare in che posizione escono ?(come ambate determinate).

Spero prioprio di non essere esigente , non ho fretta prenditi il
tempo che vuoi, GRAZIE ANTICIPATAMENTE cordialmente

lola

livia
 
non c'è problema a fare le modifiche, mi serve solo un pò di tempo.
Ciao

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
quote:
2- è raro, ma quando si verificano due o più combinazioni giocabili nella stessa estrazione, deve essere ognuna per conto suo
Clicca per espandere...
mi spieghi questa? perchè ad occhio mi sa che non si possa fare.

quote:
5- visto le ambate sono prolifiche, perchè nel resoconto finale non
risaltare in che posizione escono ?(come ambate determinate)
Clicca per espandere...
per questo punto l'unica cosa è fare la puntata per estratto determinato in tutte le posizioni e poi dal resconto finale vedi le percentuali di uscita.

Ora ti posto lo script con le ultime modifiche, fallo girare e fammi sapere. Naturalemente il calcolo è stato corretto ;)
Ciao

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
Codice: 
Sub main()

Dim Ambata(1)
Dim Ambo(2)
Dim Ruote(10)
Dim PosteM(10)
Dim PosteA(5)
Dim es
Dim iEstratto
Dim iPosizione
Dim iTmp
Dim iGiocata
Dim iColpi
Dim iCadenza
Dim iDecina
Dim iEsitoA
Dim iEsitoM
Dim k
Dim t
Dim iCaso

   Ruote(1) = 1
   Ruote(2) = 2
   PosteM(1) = 1
   PosteM(6) = 1
   PosteM(7) = 1
   PosteM(8) = 1
   PosteM(9) = 1
   PosteM(10) = 1
   PosteA(2) = 1

   iColpi = CInt(InputBox("per quanti colpi vuoi giocare le previsioni?", "Numero Colpi", "9"))
   iCadenza = MsgBox("vuoi giocare gli abbinamenti con la Cadenza 8?", 32 + 4, "Numeretto su BA")
   iDecina = MsgBox("vuoi giocare gli abbinamenti con la Decina 80?", 32 + 4, "Numeretto su BA")

   iEsitoM = CInt(InputBox("il gioco delle ambate a quale esito vuoi che si fermi?" _
                         & vbCrLf & vbCrLf & "0 - Il gioco continua per qualsiasi esito" _
                         & vbCr & "1 - Il gioco si ferma al primo esito di Ambata", "Esito Giocate", "0"))
   If iDecina = 6 Or iCadenza = 6 Then
      iEsitoA = CInt(InputBox("il gioco degli ambi a quale esito vuoi che si fermi?" _
                            & vbCrLf & vbCrLf & "0 - Il gioco continua per qualsiasi esito" _
                            & vbCr & "2 - Il gioco si ferma al primo esito di Ambo", "Esito Giocate", "0"))
   End If

   For es = 7538 To EstrazioniArchivio
      AvanzamentoElab 7538, EstrazioniArchivio, es
      iGiocata = 1
      iCaso = 0
      For iPosizione = 1 To 5
         iEstratto = Estratto(es, BA_, iPosizione)
         If iEstratto <= 9 Then
            If iCaso = 0 Then Scrivi "$$====================================$$"
            iCaso = iCaso + 1
            Scrivi "____________________"
            Scrivi "  BA" & iPosizione & ": " & iEstratto & " - CA" & iPosizione & ": " & Estratto(es, CA_, iPosizione)
            For t = 1 To 20
               If t <> 20 Then
                  Scrivi Chr(175), False, False
               Else
                  Scrivi Chr(175), False, True
               End If
            Next
            iTmp = Fuori90((iEstratto * (Estratto(es, CA_, iPosizione))))
            If (iTmp Mod 2) <> 0 Then
               iTmp = Fuori90((iTmp + 1)) / 2
            Else
               iTmp = iTmp / 2
            End If

            Ambata(1) = iTmp
            ImpostaGiocata iGiocata, Ambata, Ruote, PosteM, iColpi, iEsitoM
            iGiocata = iGiocata + 1

            Ambata(1) = Vert(iTmp)
            ImpostaGiocata iGiocata, Ambata, Ruote, PosteM, iColpi, iEsitoM
            iGiocata = iGiocata + 1

            If iCadenza = 6 Then
               For k = 1 To 90
                  If Cadenza(k) = 8 Then
                     Ambo(1) = iTmp
                     Ambo(2) = k
                     ImpostaGiocata iGiocata, Ambo, Ruote, PosteA, iColpi, iEsitoA
                     iGiocata = iGiocata + 1
                     Ambo(1) = Vert(iTmp)
                     Ambo(2) = k
                     ImpostaGiocata iGiocata, Ambo, Ruote, PosteA, iColpi, iEsitoA
                     iGiocata = iGiocata + 1
                  End If
               Next
            End If

            If iDecina = 6 Then
               For k = 1 To 90
                  If DecinaCabalistica(k) = 9 Then
                     Ambo(1) = iTmp
                     Ambo(2) = k
                     ImpostaGiocata iGiocata, Ambo, Ruote, PosteA, iColpi, iEsitoA
                     iGiocata = iGiocata + 1
                     Ambo(1) = Vert(iTmp)
                     Ambo(2) = k
                     ImpostaGiocata iGiocata, Ambo, Ruote, PosteA, iColpi, iEsitoA
                     iGiocata = iGiocata + 1
                  End If
               Next
            End If
         End If
      Next
      Gioca es, False, False
   Next
   ScriviResoconto
End Sub

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)</font id="m
 
Ciao Cipisto,

grazie, grazie tante del listato.Ho dato uno sguardo fugace e ho
riscontrato che gli errori del precedente non ci sono più, quindi
ne deduco che tutto è a posto. Di nuovo grazie e a risentirci su
questo magnifico forum. ciao

lola

livia
 
Ciao Cipisto,

faccio seguito al mio precedente post di ringraziamento per,
segnalarti che il listato mi evidenzia ancora un errore e
precisamente il giorno 18 luglio ci sono due previsioni :
BA 3 CA 53 3X53=159 +1 (perchè dispari) = 160 : 2 = 80( prima
ambata) e 8( seconda ambata ) il listato mi calcola 35 e 53;
BA 4 CA 31 4x31=124 : 2 = 62 (prima ambata) e 26 (seconda ambata)
invece il listato mi calcola 17 e 71.
Non si può far niente ? forse ti sto scocciando, se così fosse
lascia pur stare .Di nuovo GRAZIE di tutto ciao

lola

livia
 
devo andare ad occhio perchè non ho modo di testarlo ma credo di aver individuato il problema:
Codice: 
iTmp = Fuori90((iEstratto * (Estratto(es, CA_, iPosizione))))
facevo il Fuori90 sul prodotto e di conseguenza cambiava il risultato, quindi testa in questo modo e fammi sapere:
Codice: 
Sub main()

Dim Ambata(1)
Dim Ambo(2)
Dim Ruote(10)
Dim PosteM(10)
Dim PosteA(5)
Dim es
Dim iEstratto
Dim iPosizione
Dim iTmp
Dim iGiocata
Dim iColpi
Dim iCadenza
Dim iDecina
Dim iEsitoA
Dim iEsitoM
Dim k
Dim t
Dim iCaso

   Ruote(1) = 1
   Ruote(2) = 2
   PosteM(1) = 1
   PosteM(6) = 1
   PosteM(7) = 1
   PosteM(8) = 1
   PosteM(9) = 1
   PosteM(10) = 1
   PosteA(2) = 1

   iColpi = CInt(InputBox("per quanti colpi vuoi giocare le previsioni?", "Numero Colpi", "9"))
   iCadenza = MsgBox("vuoi giocare gli abbinamenti con la Cadenza 8?", 32 + 4, "Numeretto su BA")
   iDecina = MsgBox("vuoi giocare gli abbinamenti con la Decina 80?", 32 + 4, "Numeretto su BA")

   iEsitoM = CInt(InputBox("il gioco delle ambate a quale esito vuoi che si fermi?" _
                         & vbCrLf & vbCrLf & "0 - Il gioco continua per qualsiasi esito" _
                         & vbCr & "1 - Il gioco si ferma al primo esito di Ambata", "Esito Giocate", "0"))
   If iDecina = 6 Or iCadenza = 6 Then
      iEsitoA = CInt(InputBox("il gioco degli ambi a quale esito vuoi che si fermi?" _
                            & vbCrLf & vbCrLf & "0 - Il gioco continua per qualsiasi esito" _
                            & vbCr & "2 - Il gioco si ferma al primo esito di Ambo", "Esito Giocate", "0"))
   End If

   For es = 7538 To EstrazioniArchivio
      AvanzamentoElab 7538, EstrazioniArchivio, es
      iGiocata = 1
      iCaso = 0
      For iPosizione = 1 To 5
         iEstratto = Estratto(es, BA_, iPosizione)
         If iEstratto <= 9 Then
            If iCaso = 0 Then Scrivi "$$====================================$$"
            iCaso = iCaso + 1
            Scrivi "____________________"
            Scrivi "  BA" & iPosizione & ": " & iEstratto & " - CA" & iPosizione & ": " & Estratto(es, CA_, iPosizione)
            For t = 1 To 20
               If t <> 20 Then
                  Scrivi Chr(175), False, False
               Else
                  Scrivi Chr(175), False, True
               End If
            Next
            
            iTmp = iEstratto * (Estratto(es, CA_, iPosizione))
            If (iTmp Mod 2) <> 0 Then iTmp = iTmp + 1
            iTmp = Fuori90((iTmp / 2))

            Ambata(1) = iTmp
            ImpostaGiocata iGiocata, Ambata, Ruote, PosteM, iColpi, iEsitoM
            iGiocata = iGiocata + 1

            Ambata(1) = Vert(iTmp)
            ImpostaGiocata iGiocata, Ambata, Ruote, PosteM, iColpi, iEsitoM
            iGiocata = iGiocata + 1

            If iCadenza = 6 Then
               For k = 1 To 90
                  If Cadenza(k) = 8 Then
                     Ambo(1) = iTmp
                     Ambo(2) = k
                     ImpostaGiocata iGiocata, Ambo, Ruote, PosteA, iColpi, iEsitoA
                     iGiocata = iGiocata + 1
                     Ambo(1) = Vert(iTmp)
                     Ambo(2) = k
                     ImpostaGiocata iGiocata, Ambo, Ruote, PosteA, iColpi, iEsitoA
                     iGiocata = iGiocata + 1
                  End If
               Next
            End If

            If iDecina = 6 Then
               For k = 1 To 90
                  If DecinaCabalistica(k) = 9 Then
                     Ambo(1) = iTmp
                     Ambo(2) = k
                     ImpostaGiocata iGiocata, Ambo, Ruote, PosteA, iColpi, iEsitoA
                     iGiocata = iGiocata + 1
                     Ambo(1) = Vert(iTmp)
                     Ambo(2) = k
                     ImpostaGiocata iGiocata, Ambo, Ruote, PosteA, iColpi, iEsitoA
                     iGiocata = iGiocata + 1
                  End If
               Next
            End If
         End If
      Next
      Gioca es, False, False
 
Ciao Cipisto,

credo che ci siamo, per adesso tutto fila liscio, se dovesse venir
fuori qualche cosetta te lo faccio sapere. Di nuovo grazie e ciao

lola


livia
 
;)

ciao lola ,ciao cipisto posso??

per quale versione è questo listato??

Scrivi Chr(175), False, False (riga 62 mi dà errore)

ci risiamo

ciao

Franca46
 
quote:Originally posted by franca46

;)

ciao lola ,ciao cipisto posso??

per quale versione è questo listato??

Scrivi Chr(175), False, False (riga 62 mi dà errore)

ci risiamo

ciao

Franca46
Clicca per espandere...
siamo sempre lì [V].... ho impressione che la tua 6 si comporti come la 5. mi spiego... nella versione 5 "Scrivi" non accetta paramentri successivi mentre la 6 si. quindi con questa modifica:

Codice: 
For t = 1 To 20
    If t <> 20 Then
       Scrivi Chr(175)
    Else
       Scrivi Chr(175)
    End If
Next
non dovrebbe darti errore, ma si sposta tutto. mi dai conferma?
Ciao

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)
 
Ciao ragazzi,scusate se mi intrometto ma i numeretti di bari mi hanno sempre affascinata.Non potendo resistere alla tentazione ho controllato il simpatico sistema proposto da Iola e ho provato a modificarlo:tenete conto che lavoro con cartapen perciò (ti prego)Cipisto ricontrolla se puoi.Dell'ambata ottenuta metto in gioco solo il vertibile e sulla sola ruota di ca in 2° e 4°pos. abbinando per ambo il 1°/4°/5° di ba e il 2°/3° di ca dell'estrazione di calcolo.Sperando di non essere stata invadente un caro saluto Demetraton
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 30 ottobre 2025
    Bari
    53
    07
    12
    77
    21
    Cagliari
    17
    74
    24
    69
    44
    Firenze
    08
    47
    25
    83
    33
    Genova
    02
    68
    29
    43
    67
    Milano
    84
    90
    75
    45
    72
    Napoli
    49
    06
    09
    12
    20
    Palermo
    13
    65
    34
    86
    07
    Roma
    15
    02
    10
    13
    83
    Torino
    59
    67
    80
    35
    26
    Venezia
    73
    04
    06
    74
    27
    Nazionale
    62
    79
    38
    36
    48
    Estrazione Simbolotto
    07
    01
    28
    12
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto