Novità

x Lola

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)
 
L

lola

Super Member >PLATINUM<
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
 
C

cipisto

Member
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)
 
C

cipisto

Member
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)
 
L

lola

Super Member >PLATINUM<
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
 
C

cipisto

Member
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)
 
L

lola

Super Member >PLATINUM<
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
 
C

cipisto

Member
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)
 
C

cipisto

Member
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)
 
C

cipisto

Member
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
 
L

lola

Super Member >PLATINUM<
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
 
L

lola

Super Member >PLATINUM<
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
 
C

cipisto

Member
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
 
L

lola

Super Member >PLATINUM<
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
 
F

franca46

Advanced Member >PLATINUM PLUS<
;)

ciao lola ,ciao cipisto posso??

per quale versione è questo listato??

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

ci risiamo

ciao

Franca46
 
C

cipisto

Member
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)
 
D

demetraton

Junior Member
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
    venerdì 17 maggio 2024
    Bari
    63
    35
    59
    12
    69
    Cagliari
    13
    07
    23
    24
    38
    Firenze
    35
    80
    90
    76
    73
    Genova
    11
    54
    27
    06
    20
    Milano
    07
    72
    48
    37
    15
    Napoli
    65
    87
    82
    50
    35
    Palermo
    13
    88
    44
    67
    24
    Roma
    31
    05
    47
    33
    46
    Torino
    39
    57
    84
    82
    09
    Venezia
    09
    23
    49
    53
    63
    Nazionale
    37
    43
    26
    48
    81
    Estrazione Simbolotto
    Milano
    26
    07
    17
    44
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto