help x uno scipt

[donatella]

Ciao a Tutti
ho postato un metodo " - 45 metodo da BRIVIDI..." e mi è stato richiesto lo script....cosa che però non sono in grado di fare ( sono ancora ferma a carta e penna!!)
Chiedo gentilmente se qualcuno lo possa fare
-----------------------------------------------------------------------------------
Metodo di cui fare lo script :
Per poter calcolare il metodo ci serviremo del 01° estratto di Cagliari e del 02° estratto di Firenze sortiti 45 estrazioni prima
Il metodo gioca :
un'ambata sulle ruote di Cagliari ( ruota principale) e Firenze ( ruota secondaria) : PER LA SOLA RUOTA DI CAGLIARI : ambetto
2 ambi secchi :
Ambata.fisso : 47 - ambata.fisso : 74 > giocare a Cagliari - Napoli - Tutte ( NO alla NAZIONALE)
E/O :
2 AMBI.TERNI SECCHI :
A) AMBATA.47.74
B) AMBATA.74.77
Giocare a : Cagliari. Napoli - Tutte ( No alla Nazionale)
Giocare x 12 estrazioni
Come calcolare l'ambata :
Per poter calcolare il metodo ci serviremo del 01° estratto di Cagliari e del 02° estratto di Firenze sortiti 45 estrazioni prima
Il metodo gioca :
un'ambata sulle ruote di Cagliari ( ruota principale) e Firenze ( ruota secondaria) : PER LA SOLA RUOTA DI CAGLIARI : ambetto
2 ambi secchi :
Ambata.fisso : 47 - ambata.fisso : 74 > giocare a Cagliari - Napoli - Tutte ( NO alla NAZIONALE)
E/O :
2 AMBI.TERNI SECCHI :
A) AMBATA.47.74
B) AMBATA.74.77
Giocare a : Cagliari. Napoli - Tutte ( No alla Nazionale)
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Come calcolare l'ambata :
Ambata : per l'estrazione di calcolo dovremo ritornare indietro di 45 estrazioni
Esempio : se vogliamo iniziare il gioco all'estrazione n° 45 andremo all'estrazione n° 01 ( il mio consiglio è di partire sempre dalla prima estrazione del mese quindi 01 > 45 - 14 > 59 - 26 > 71 ....)
Giocare x 12 estrazioni massimo :
Esempio reale :
Gennaio 2018 : estrazione di calcolo n° 01 - inizio giochi : estrazione n° 45
01° estratto di Cagliari : 58 - 02° estratto di Firenze : 07 Sommiamo i due estratti ( col fuori 90) : 58 + 07 = 65 > elemento a
Differenza tra i due estratti ( il maggiore meno il minore dei due ) : 58 - 07 = 51 > elemento b
Sommiamo i due elementi : 65 + 51 = 26 ambata da giocare a Cagliari e Firenze
AMBI Secchi : 26.74 - 26.47
Ambi.terni secchi :
26.74.47 - 26.74.77
Esito :
Nota :
NELL'ESTRAZIONE N° 43 A BARI SONO PRESENTI GLI AMBI 26.47 - 26.74 E IL TERNO SECCO 26.47.74
nell'estrazione n° 44 è presente l'ambata 26 e l'ambo secco 26.47 sulla ruota di Firenze
03° colpo ambo in terzina 74.77 a Bari ( tutte)
05° colpo ambata 26 a Firenze
se nei due o tre colpi precedenti è già presente l'ambo o il terno come in questo caso consiglio la massima prudenza
Proseguiamo con la prima estrazione di febbraio 2018 > estrazione n° 14 > inizio giochi estrazione n° 59
Ambata : 50 ( 01° estratto di Cagliari : 70 - 02° estratto di Firenze : 01)
Esito :
09° colpo ambata 50 e ambo secco 50.47 a Cagliari
e poi con il pronostico calcolato sul successivo mese di marzo : al 02°- 12° colpo ambata 68 a Firenze - 05° colpo ambo secco 68.47 a Milano - 07° colpo ambo in terzina 68.77 a Bari - 11° colpo ambo in terzina 68.77 a Roma - e al 13° colpo ( fuori tempo) ambo secco 68.74 e TERNO SECCO MANCATO X UN SOFFIO > 68.74 E ..46 a VENEZIA
Nota :
se i due estratti per calcolare l'ambata sono uguali la differenza sarà sempre 01
nella statistica il 01° numero si riferisce all'estrazione di calcolo - il secondo numero a quella d'inizio giochi

 

[antonioquagliozzi]

Il n 77 calcolo ??

 

[solare]

penso faccia parte dei fissi

 

[antonioquagliozzi]

Ok

 

[antonioquagliozzi]

solare: script per favore??

 

[solare]

dispiace, ma io non sono capace di fare script

 

[antonioquagliozzi]

grazie

 

[salvo50]

Ciao a Tutti.

Option Explicit
Sub Main
   Dim Caso,Casi,R1,R2,R3,R4,A,B
   Dim PP1,PP2,DAB,SAB,E1,E2,Ambet
   Dim FIn,Es,Ini,Clp1,Clp2,Ambata
   Dim Posta(2),Poste(2),Posts(3)
   Dim Ruota(1),Ruote(2),Ruots(3)
   Dim Amba(1),Ambo1(2),Ambo2(2)
   Dim Terno1(3),Terno2(3),Num(5)
   Dim Ambetto(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10015)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,12)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli ambi e i terni?",,12)
   Ambet = InputBox("Se vuoi giocare l'ambetto metti 1 altrimenti un qualsiasi altro numero",,1)
   Scrivi Space(15) & " -45 Metodo da BRIVIDI di Donatella - Script Salvo50" & Space(15),1,,4,,3,,1
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   R1 = CA_
   R2 = FI_
   R3 = PA_
   R4 = TT_
   Ruota(1) = R1
   Ruote(1) = R1 : Ruote(2) = R2
   Ruots(1) = R1 : Ruots(2) = R3 : Ruots(3) = R4
   For Es = Ini To FIn
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      A = Estratto(Es - 45,R1,1)
      B = Estratto(Es - 45,R2,2)
      SAB = Fuori90(A + B)
      If A <> B Then
         DAB = Differenza(A,B)
      Else
         DAB = 1
      End If
      Ambata = Fuori90(SAB + DAB)
      Amba(1) = Ambata
      Ambo1(1) = Ambata : Ambo1(2) = 74
      Ambo2(1) = Ambata : Ambo2(2) = 47
      Terno1(1) = Ambata : Terno1(2) = 74 : Terno1(3) = 47
      Terno2(1) = Ambata : Terno2(2) = 74 : Terno2(3) = 77
      Num(1) = Ambata : Num(2) = 74 : Num(3) = 47 : Num(4) = 77
      'If SerieFreqTurbo(Es - 3,Es,Num,Ruote,2) < 1 Then
      Caso = Caso + 1
      Casi = Casi + 1
      ColoreTesto 1
      Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
      ColoreTesto 2
      Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
      ColoreTesto 0
      Scrivi(" Estrazione n." & Format2(Es - 45) & " del " & DataEstrazione(Es - 45)),1,0
      Scrivi "  " & SiglaRuota(R1) & " ",1,0
      For PP1 = 1 To 5
         E1 = Estratto(Es - 45,R1,PP1)
         If E1 = A Then
            ColoreTesto 2
         Else
            ColoreTesto 0
         End If
         Scrivi Format2(E1) & " ",1,0
         ColoreTesto 0
      Next
      Scrivi " Estrazione di Calcolo"
      Scrivi(" Estrazione n." & Format2(Es - 45) & " del " & DataEstrazione(Es - 45)),1,0
      Scrivi "  " & SiglaRuota(R2) & " ",1,0
      For PP2 = 1 To 5
         E2 = Estratto(Es - 45,R2,PP2)
         If E2 = B Then
            ColoreTesto 2
         Else
            ColoreTesto 0
         End If
         Scrivi Format2(E2) & " ",1,0
         ColoreTesto 0
      Next
      Scrivi " Estrazione di Calcolo"
      Scrivi
      Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)) & " Estrazione di Inizio Gioco ",1
      Scrivi
      Scrivi Space(15) & "      Somma tra " & Format2(A) & " e " & Format2(B) & " = " & Format2(SAB),1
      Scrivi Space(15) & " Differenza tra " & Format2(A) & " e " & Format2(B) & " = " & Format2(DAB),1
      Scrivi Space(15) & "      Somma tra " & Format2(SAB) & " e " & Format2(DAB) & " = ",1,0
      Scrivi Format2(Ambata) & " <- Ambata",1,,,2
      Scrivi
      Scrivi Space(11) & " Abbinamenti Con Numeri Fissi 47 - 74 - 77 ",1,,,1
      Scrivi
      ImpostaGiocata 1,Amba,Ruote,Posta,Clp1
      ImpostaGiocata 2,Ambo1,Ruots,Poste,Clp2
      ImpostaGiocata 3,Ambo2,Ruots,Poste,Clp2
      ImpostaGiocata 4,Terno1,Ruots,Posts,Clp2
      ImpostaGiocata 5,Terno2,Ruots,Posts,Clp2
      Gioca Es - 1,1
      Scrivi
      If Ambet = 1 Then
         Scrivi Space(26) & " AMBETTO",1,,,2
         Scrivi
         Ambetto(1) = Ambata : Ambetto(2) = 73
         ImpostaGiocata 1,Ambetto,Ruota,Poste,Clp2
         Ambetto(2) = 75
         ImpostaGiocata 2,Ambetto,Ruota,Poste,Clp2
         Ambetto(2) = 46
         ImpostaGiocata 3,Ambetto,Ruota,Poste,Clp2
         Ambetto(2) = 48
         ImpostaGiocata 4,Ambetto,Ruota,Poste,Clp2
         Ambetto(1) = 74 : Ambetto(2) = Fuori90(90 + Ambata - 1)
         ImpostaGiocata 5,Ambetto,Ruota,Poste,Clp2
         Ambetto(2) = Fuori90(Ambata + 1)
         ImpostaGiocata 6,Ambetto,Ruota,Poste,Clp2
         Ambetto(1) = 47 : Ambetto(2) = Fuori90(90 + Ambata - 1)
         ImpostaGiocata 7,Ambetto,Ruota,Poste,Clp2
         Ambetto(2) = Fuori90(Ambata + 1)
         ImpostaGiocata 8,Ambetto,Ruota,Poste,Clp2
         Gioca Es - 1,1
      End If
      'End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[rudivall]

Santo Salvo....sempre in aiuto

 

[donatella]

Grazie grazie e ancora grazie salvo50 per la Tua disponibilità!!!!