metodo somma 23

[antonioquagliozzi]

gentilmente:script somma 23 su ba ca 1^ e 4^ pos- ruote ric ba ca ruote gioco ro to,colpi 5, capo g 59,abb,6,25,58,10

 

[margot]

salve, cè qualcuno che può aiutarci????

 

[Cinzia27]

Vedo se posso fare qualcosa, ma non mi è chiara questa indicazione:
script somma 23 su ba ca 1^ e 4^ pos
cosa significa, che la somma del 1° e del 4° estratto dev' essere 23 sia su Ba che Ca ?
Potete chiarire ?
Ciao
Cinzia

 

[sorujoe]

ciao CInzia ho fatto ora richiesta di uno script potresti aiutarmi GRAZIE

 

[antonioquagliozzi]

somma 23 1di bari e 4 di cagliari somma 23

 

[Cinzia27]

Puoi fare un esempio di questa somma 23 ?

 

[joe]

Buon giorno, a tutte/i.

Purtroppo la mia curiosità ha prevalso

sul rifiutare di avere la conferma di quanto facilmente prevedibile.

Cioè che è l'ennesimo "ciapaciuck", come si direbbe nel carmagnolese.

Ovvero si è alla presentazione di un breve studio per dimostrare

l'esito un risultato noto a priori.

Lo script è molto più complesso del necessario ...

... avendo previsto che si sarebbe poi dovuto correggere.

E' quasi universale con la correzione di una riga aderisce

alla (nuova o più completa) descrizione.

Ecco dunque, la prova provabile:

Sub Main
   'script per Spaziometria By Joe V.1.1 del 27/07/2019
   'somma 23 su ba ca 1^ e 4^ pos
   'ruote ric ba ca ruote gioco ro To, colpi 5
   'capo g 59,abb,6,25,58,10
   Dim Ini,Fin,Es,R1,R2,P1,P2
   Dim A,B,C,D,S
   Dim X,K,RG,Nu(2),Po(2),Ru(2),Co,So
   RG = Array(59,6,25,58,10)
   Ru(1) = RO_
   Ru(2) = TO_
   Nu(1) = RG(0)
   Po(2) = 1 : Co = 5 : So = 2
   Ini = 9000
   Fin = EstrazioneFin
   S = 23
   R1 = BA_
   R2 = CA_
   P1 = 1
   P2 = 4
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      A = Estratto(Es,R1,P1)
      B = Estratto(Es,R1,P2)
      C = Estratto(Es,R2,P1)
      D = Estratto(Es,R2,P2)
      'If Fuori90(A + B) = S Or Fuori90(C + D) = S Then
      If Fuori90(A + D) = S Then
      K= K+1
         Scrivi String(106,"=") &FormatSpace (K,4,True)
         For X = 1 To UBound(RG)
            Nu(2) = RG(X)
            ImpostaGiocata X,Nu,Ru,Po,Co,So
         Next
         Gioca Es
      End If
   Next
   ScriviResoconto
End Sub

 

[Cinzia27]

Guardando l' ottimo script di Joe ho capito il calcolo.
E meglio di così !

Ciao a tutti
Cinzia

 

[antonioquagliozzi]

grazie a tt voi

 

[antonioquagliozzi]

metodo lotto su' bari :1 estratto di bari + 28+53+81+83 colpi 13 su bari

 

[antonioquagliozzi]

x metodo lotto su' bari alla 1' del

 

[joe]

Se cerchi tra gli esempi,

... di metodi simili a quello proposto ce ne sono decine e decine.

Sembra essere ... "Uno in Più" ... tra loro.

Io personalmente penso che i cosiddetti "Numeri del Lotto", non siano numeri

e tanto meno, non vadano sommati ...

... poi però ognuno è libero di regalare soldi all'erario come meglio crede.

Ho modificato lo script precedente per adattarlo alle nuove richieste...

considerando che ci vogliono 5 minuti ... però devi imparare il "fai da te".

Option Explicit
Sub Main
  'Script per Spaziometria By Joe V.1.0 del 31/07/2019
  'Bari : 1 Estratto del mese +28+53+81+83. Colpi 13
  Dim Ini,Fin,Es
  Dim X,K,RG,Nu(4),Po(2),Ru(1),Co,So
  Ru(1) = BA_
  RG = Array(0,28,53,81,83)
  Po(2) = 1 : Co = 13 : So = 2
  Ini = 7440
  Fin = EstrazioneFin
  For Es = Ini To Fin
    AvanzamentoElab Ini,Fin,Es
    If IndiceMensile(Es) = 1 Then
      RG(0) = Estratto(Es,Ru(1),1)
      K = K + 1
      For X = 1 To 4
        Nu(X) = Fuori90(RG(0) + RG(X))
      Next
      Scrivi String(106,"=") & FormatSpace(K,4,True)
      ImpostaGiocata 1,Nu,Ru,Po,Co,So
      Gioca Es
    End If
  Next
  ScriviResoconto
End Sub