Novità

terno metodo camaleonte

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Ciao a tutti ho provato a fare lo script ,
ma dovete verificare che i calcoli e i dati riportati sono corretti
nell input box di default vengono indicate tutte le ruote, ma si possono selezionare anche 1 o piu ruote l importante
è che siano separate dal punto
le x rappresentano dove si è verificato un caso di isotopiaconsecutiva
verificate e fatemi sapere
Salvo errori ed omissis
Ciao :)
Codice:
Option Explicit
' Controllare se lo script Fa quanto richiesto
' controllare se i dati riportati sono corretti
' Salvo errori ed omissis

Sub Main
   Dim aRuSpia,nRuSpia
   nRuSpia = Specchietto(aRuSpia)
   If nRuSpia = False Then
      Call MsgBox("Hai inserito una o piu ruote non valide",4,"Errore Ruota")
      Exit Sub
   End If
   Dim Ini,Fin
   Call ScegliRange(Ini,Fin,3950,EstrazioneFin)
   Dim nClp:nClp = CInt(InputBox("Scegli numero compreso tra 1 e 30","Seleziona Colpi di gioco",18)) + 1
   Dim IdEstr,R,p,pp,ps
   Dim E1p,E1,Eps,Es,v1,v2
   Dim nCasiTro,nCasiSin,nCasiDes
   Dim aAmbD,aAmbS,aTern1S,aTern2S,aTern1D,aTern2D
   Dim aRuVer(1),aRt(1)
   Dim FrzAsinRuota,FrezAsinTutte,FrzAsinRuotaTotale,FrezAsinTutteTotale
   Dim FrzADesRuota,FrzAdesTutte,FrzADesRuotaTotale,FrzAdesTutteTotale
   Dim FrzTern1SinRuota,FrzTern1SinTutte,FrzTern1SinRuotaTotale,FrzTern1SinTutteTotale
   Dim FrzTern2SinRuota,FrzTern2SinTutte,FrzTern2SinRuotaTotale,FrzTern2SinTutteTotale
   Dim FrzTern1DesRuota,FrzTern1DesTutte,FrzTern1DesRuotaTotale,FrzTern1DesTutteTotale
   Dim FrzTern2DesRuota,FrzTern2DesTutte,FrzTern2DesRuotaTotale,FrzTern2DesTutteTotale
   Dim sSep:sSep = "  |  "
   Dim LineaStitSup:LineaStitSup = "  _________ ________________ ____________________________ __________________ ______ _____________ ____________ ___________ "
   Dim LineaStitSup1:LineaStitSup1 = " |         |                |                            |                  |      |             |            |    Ambo   |"
   Dim sTit:sTit = " |   nCaso |  Ruota         |   Info Estrazione          |    Estrazione    | nRpt |  Laterali   | Formazioni |RSpia|Tutte|"
   Dim LineasTit:LineasTit = " |_________|________________|____________________________|__________________|______|_____________|____________|_____|_____|"
  
      aRt(1) = 11
   nCasiTro = 0
   nCasiSin = 0
   nCasiDes = 0
  
   Call SetColorSezione(RGB(0,0,0))
   For IdEstr = Ini To Fin
      For R = 1 To UBound(aRuSpia)
         aRuVer(1) = aRuSpia(R)
         If Estratto(IdEstr - 1,aRuVer(1),1) Then
            For p = 1 To 5
               E1p = Estratto(IdEstr - 1,aRuVer(1),p)
               E1 = Estratto(IdEstr,aRuVer(1),p)
               If E1p = E1 Then
                  Scrivi LineaStitSup,,,,vbCyan
                  Scrivi LineaStitSup1,,,,vbCyan
                  Scrivi sTit,,,,vbCyan
                  Scrivi LineasTit,,,,vbCyan
                  nCasiTro = nCasiTro + 1
                  pp = FuoriX(p - 1,5) ' estratto a sinistra
                  ps = FuoriX(p + 1,5) ' estratto a destra
                  ' prendo gli estratti a sinistra
                  Eps = Estratto(IdEstr - 1,aRuVer(1),pp) ' estratto a sinistra estrazione precedente
                  Es = Estratto(IdEstr,aRuVer(1),pp) ' estratto asinistra estrazionein corso
                  v1 = pari(Eps)
                  v2 = pari(Es)
                  
                  If v1 = v2 Then
                  
                     nCasiSin = nCasiSin + 1
                     Call Calcola(E1p,E1,Eps,Es,aAmbS,aTern1S,aTern2S)
                     ' Calcolo la frequenza dell ambo a sinistra su ruota di verifica
                     FrzAsinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbS,aRuVer,2)
                     'calcolo la frequenza totale dell ambo a sinistra su ruota
                     FrzAsinRuotaTotale = FrzAsinRuotaTotale + FrzAsinRuota
                     ' calcolo la frequenza dell ambo a sinistra su tutte
                     FrezAsinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbS,aRt,2)
                     ' calcolo la frequenza  totale dell ambo a sinistra su tutte
                     FrezAsinTutteTotale = FrezAsinTutteTotale + FrezAsinTutte
                     ' Terzina 1
                     ' -------------------------------------------------------------------
                     ' calcolo la frequenza della prima terzina a sinistra a ruota
                     FrzTern1SinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1S,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern1SinRuotaTotale = FrzTern1SinRuotaTotale + FrzTern1SinRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern1SinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1S,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern1SinTutteTotale = FrzTern1SinTutteTotale + FrzTern1SinTutte
                     ' Terzina 2
                     ' --------------------------------------------------------------------
                     ' calcolo la frequenza della seconda terzina a sinistra a ruota
                     FrzTern2SinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2S,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern2SinRuotaTotale = FrzTern2SinRuotaTotale + FrzTern2SinRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern2SinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2S,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern2SinTutteTotale = FrzTern2SinTutteTotale + FrzTern2SinTutte
                     '
                     Rem comincio a preparare l output
                     ' Rigo 1
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & _
                     FormatSpace("",2) & sSep & FormatSpace("",9) & sSep & FormatSpace(StringaNumeri(aAmbS,,True),8) & sSep & _
                     FrzAsinRuota & sSep & FrezAsinTutte & sSep,,,,vbCyan
                     ' rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern1S,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1SinRuota,,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1SinTutte,,0,,vbCyan
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace(nCasiTro,4,1) & sSep & FormatSpace(NomeRuota(aRuVer(1)),12) & sSep & GetInfoEstrazione(IdEstr - 1) & sSep & StringaEstratti(IdEstr - 1,aRuVer(1)) & sSep & FormatSpace(E1p,2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Es,2) & " ) ",1,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern2S,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern2SinRuota,,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern2SinTutte,,0,,vbCyan
                     Scrivi sSep,,,,vbCyan
                  Else
                     Rem Rigo 1
                    
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & _
                     FormatSpace("",2) & sSep & FormatSpace("",9) & sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace(nCasiTro,4,1) & sSep & FormatSpace(NomeRuota(aRuVer(1)),12) & sSep & GetInfoEstrazione(IdEstr - 1) & sSep & StringaEstratti(IdEstr - 1,aRuVer(1)) & sSep & FormatSpace(E1p,2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Es,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                    '
                  End If ' qui controllo se entrambi gli estratti sono pari o dispari
                  Eps = Estratto(IdEstr - 1,aRuVer(1),ps) ' estratto a Destra estrazione precedente
                  Es = Estratto(IdEstr,aRuVer(1),ps) ' estratto a Destra estrazionein corso
                  v1 = pari(Eps)
                  v2 = pari(Es)
                
                  If v1 = v2 Then
                  
                     nCasiDes = nCasiDes + 1
                     Call Calcola(E1p,E1,Eps,Es,aAmbD,aTern1D,aTern2D)
                     ' Calcolo la frequenza dell ambo a sinistra su ruota di verifica
                     FrzADesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbD,aRuVer,2)
                     'calcolo la frequenza totale dell ambo a sinistra su ruota
                     FrzADesRuotaTotale = FrzADesRuotaTotale + FrzADesRuota
                     ' calcolo la frequenza dell ambo a sinistra su tutte
                     FrzAdesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbD,aRt,2)
                     ' calcolo la frequenza  totale dell ambo a sinistra su tutte
                     FrzAdesTutteTotale = FrzAdesTutteTotale + FrzAdesTutte
                     ' Terzina 1
                     ' -------------------------------------------------------------------
                     ' calcolo la frequenza della prima terzina a sinistra a ruota
                     FrzTern1DesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1D,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern1DesRuotaTotale = FrzTern1DesRuotaTotale + FrzTern1DesRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern1DesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1D,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern1DesTutteTotale = FrzTern1DesTutteTotale + FrzTern1DesTutte
                     ' Terzina 2
                     ' --------------------------------------------------------------------
                     ' calcolo la frequenza della seconda terzina a sinistra a ruota
                     FrzTern2DesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2D,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern2DesRuotaTotale = FrzTern2DesRuotaTotale + FrzTern2DesRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern2DesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2D,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern2DesTutteTotale = FrzTern2DesTutteTotale + FrzTern2DesTutte
                     '
                     Rem comincio a preparare l output
                     ' Rigo 1
                     Scrivi " |   " & FormatSpace(" ",4) & sSep & FormatSpace(" ",12) & sSep & GetInfoEstrazione(IdEstr) & sSep & StringaEstratti(IdEstr,aRuVer(1)) & sSep & _
                     FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Eps,2) & " ) ",,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aAmbD,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzADesRuota & sSep & FrzAdesTutte & sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Es,2) & " ) ",,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern1D,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1DesRuota & sSep & FrzTern1DesTutte & sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & Space(2) & sSep & _
                     Space(9) & sSep & FormatSpace(StringaNumeri(aTern2D,,True),8) & sSep & _
                     FrzTern2DesRuota & sSep & FrzTern2DesTutte & sSep,,,,vbCyan
                     Rem rigo 4
                     Scrivi LineasTit,,,,vbCyan
                                      Else
                  
                     Scrivi " |   " & FormatSpace(" ",4) & sSep & FormatSpace(" ",12) & sSep & GetInfoEstrazione(IdEstr) & sSep & StringaEstratti(IdEstr,aRuVer(1)) & sSep & _
                     FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Es,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & Space(2) & sSep & _
                     Space(9) & sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 4
                     Scrivi LineasTit,,,,vbCyan
                                       End If ' controllo se sono entrambi pari o dispari
                  Scrivi
                                End If ' Verifico che esistano gli estratti isotopi
               If ScriptInterrotto Then Exit For
            Next ' p
            If ScriptInterrotto Then Exit For
         End If ' verifico se l estrazione esiste
      Next ' R
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(Ini,Fin,IdEstr)
   Next ' idestr
   Scrivi : Scrivi
   Scrivi " ",,0
   Scrivi "                                                                ",,,vbCyan
   Scrivi " ",,0
   Scrivi "                        RESOCONTO                               ",,,vbCyan
   Scrivi
   Scrivi "  Range Concorsi analizzati:               |  "& Ini&" - "&Fin,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero Casi Totali:                      |  " & nCasiTro,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero casi Giocabili a sinistra:        |  " & nCasiSin,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Ambi a Ruota a Sinistra:                 |  " & FrzAsinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi a Tutte a Sinistra:                 |  " & FrezAsinTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Ruota a Sinistra:    |  " & FrzTern1SinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Tutte a Sinistra:    |  " & FrzTern1SinTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Ruota a Sinistra:    |  " & FrzTern2SinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Tutte a Sinistra:    |  " & FrzTern2SinTutteTotale,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero casi Giocabili a Destra:          |  " & nCasiDes,,,,vbCyan
   Scrivi "  ------------------------------------------ -------------------",,,,vbCyan
   Scrivi "  Ambi a Ruota a Destra:                   |  " & FrzADesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi a Tutte a Destra:                   |  " & FrzAdesTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Ruota a Destra:      |  " & FrzTern1DesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Tutte a Destra:      |  " & FrzTern1DesTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Ruota a Destra:      |  " & FrzTern2DesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Tutte a Destra:      |  " & FrzTern2DesTutteTotale,,,,vbCyan
   Scrivi "  ---------------------------------------------------------------",,,,vbCyan
  
End Sub
Function Specchietto(aV)
   Dim R,s,s1,IdEstr,bRet,p,idR
   s = ""
   For R = 1 To 12
      If R = 11 Then R = 12
      s = s & Format2(R) & " )  " & SiglaRuota(R) & "... "
      s1 = ""
      For IdEstr = EstrazioneFin To EstrazioneFin - 9 Step - 1
         bRet = False
         For p = 1 To 5
            If Estratto(IdEstr,R,p) = Estratto(IdEstr - 1,R,p) Then bRet = True :Exit For
         Next 'p
         If bRet Then s1 = s1 & " x ":Else s1 = s1 & " 0 "
      Next 'idestr
      s = s & s1 & vbCrLf
   Next 'R
   idR = InputBox(s,"Seleziona Numero/i Ruota di Ricerca,separati da punto","1.2.3.4.5.6.7.8.9.10.12")
   If idR = "" Then Specchietto = False :Exit Function
   aV = Split("0." & idR,".")
   For p = 1 To UBound(aV)
      If isRuotaValidaLotto(aV(p)) And aV(p) <> 11 Then
         Specchietto = True
      Else
         Specchietto = False
         Exit For
      End If
   Next
End Function
Sub Calcola(E1p,E1S,E0p,E0s,aAmb,aTern1,aTern2)
   Dim op1:op1 = E1p + E1S
   Dim op2:op2 = Differenza(E0p,E0s)
   Dim op3:op3 = Fuori90((op1 + op2)/2)
   Dim op4:op4 = Fuori90(Differenza(op1,op3))
   Dim op5:op5 = Fuori90(op1 + 1)
   Dim op6:op6 = Fuori90(op1 + 2)
   aAmb = Array(0,op3,op4)
   aTern1 = Array(0,op3,op4,op5)
   aTern2 = Array(0,op3,op4,op6)
End Sub
Ciao a tutti :)
 
Messaggi
65
Punti reazione
1
Punti
8
vi rimetto la descrizione questo metodo non è mio. vedere l'allegato e fate caso a quanto scritto in rosso
Inter operativo
rintracciare su una qualsiasi ruota un numero ripetuto per due estrazioni consecutive nella stessa posizione
i numeri che saranno alla sua destra o sinistra devono essere ho tutti e

2 pari o dispari
esempio 17 32 40 num. sin, disp.dx pari
20 32 12 num. Sin pari dx pari
in questo esempio noterai che i numeri di sinistra uno è dispari e l’altro pari invece rispettano la condizione i numeri di destra 40 12 che sono

tutti e due pari
a condizione rispettata si opera ne seguente modo
facendo riferimento all’esempio
si prenderanno i numeri in verticale
40 12 abbiamo una somma 52 e distanza 28
32 32 abbiamo una somma 64 e distanza 0
si prende la somma del numero ripetuto somma 64 e si addiziona la distanza 28 (ambo a destra)
in questo caso avremmo 64 +28=92
92 :2=46
64-46=18
ambo unico 46 18
tentativo di terno secco
alla somma dell’ambo secco dobbiamo aggiungere +1 e +2
46+18=64
64 +1=65
64+2=66
così nasce la previsione ambo secco 46 18 terni 46 18 65 - 46 18 66



un unico ambo secco e due terni secchi attenti alla previsione che ne esce
il 60 ripetuto noi abbiamo elaborato con i numeri di destra in orizzontale ora li elaboriamo in verticale
60 piu 60 abbiamo somma 120 distanza 0
33 piu 75 abbiamo somma 108 distanza 42
adesso andremmo a inserire la distanza 42 nella somma 120
120 piu 42 avremmo 162 dividendo x2 il risultato e 81
120 meno 81 e 39
ambo secco a bari e tutte e 81 39
per il tentativo di terno secco bisogna sommare lambo e avremmo
81+39 =120 fuori 90 =30
al n°30 sommeremo semplicemente +1
al n°30 sommeremo+2
ok BARI
AMBO 81-39
TERNO
81-39-31
81-39-32
 
Messaggi
65
Punti reazione
1
Punti
8
Ciao a tutti ho provato a fare lo script ,
ma dovete verificare che i calcoli e i dati riportati sono corretti
nell input box di default vengono indicate tutte le ruote, ma si possono selezionare anche 1 o piu ruote l importante
è che siano separate dal punto
le x rappresentano dove si è verificato un caso di isotopiaconsecutiva
verificate e fatemi sapere
Salvo errori ed omissis
Ciao :)
Codice:
Option Explicit
' Controllare se lo script Fa quanto richiesto
' controllare se i dati riportati sono corretti
' Salvo errori ed omissis

Sub Main
   Dim aRuSpia,nRuSpia
   nRuSpia = Specchietto(aRuSpia)
   If nRuSpia = False Then
      Call MsgBox("Hai inserito una o piu ruote non valide",4,"Errore Ruota")
      Exit Sub
   End If
   Dim Ini,Fin
   Call ScegliRange(Ini,Fin,3950,EstrazioneFin)
   Dim nClp:nClp = CInt(InputBox("Scegli numero compreso tra 1 e 30","Seleziona Colpi di gioco",18)) + 1
   Dim IdEstr,R,p,pp,ps
   Dim E1p,E1,Eps,Es,v1,v2
   Dim nCasiTro,nCasiSin,nCasiDes
   Dim aAmbD,aAmbS,aTern1S,aTern2S,aTern1D,aTern2D
   Dim aRuVer(1),aRt(1)
   Dim FrzAsinRuota,FrezAsinTutte,FrzAsinRuotaTotale,FrezAsinTutteTotale
   Dim FrzADesRuota,FrzAdesTutte,FrzADesRuotaTotale,FrzAdesTutteTotale
   Dim FrzTern1SinRuota,FrzTern1SinTutte,FrzTern1SinRuotaTotale,FrzTern1SinTutteTotale
   Dim FrzTern2SinRuota,FrzTern2SinTutte,FrzTern2SinRuotaTotale,FrzTern2SinTutteTotale
   Dim FrzTern1DesRuota,FrzTern1DesTutte,FrzTern1DesRuotaTotale,FrzTern1DesTutteTotale
   Dim FrzTern2DesRuota,FrzTern2DesTutte,FrzTern2DesRuotaTotale,FrzTern2DesTutteTotale
   Dim sSep:sSep = "  |  "
   Dim LineaStitSup:LineaStitSup = "  _________ ________________ ____________________________ __________________ ______ _____________ ____________ ___________ "
   Dim LineaStitSup1:LineaStitSup1 = " |         |                |                            |                  |      |             |            |    Ambo   |"
   Dim sTit:sTit = " |   nCaso |  Ruota         |   Info Estrazione          |    Estrazione    | nRpt |  Laterali   | Formazioni |RSpia|Tutte|"
   Dim LineasTit:LineasTit = " |_________|________________|____________________________|__________________|______|_____________|____________|_____|_____|"
 
      aRt(1) = 11
   nCasiTro = 0
   nCasiSin = 0
   nCasiDes = 0
 
   Call SetColorSezione(RGB(0,0,0))
   For IdEstr = Ini To Fin
      For R = 1 To UBound(aRuSpia)
         aRuVer(1) = aRuSpia(R)
         If Estratto(IdEstr - 1,aRuVer(1),1) Then
            For p = 1 To 5
               E1p = Estratto(IdEstr - 1,aRuVer(1),p)
               E1 = Estratto(IdEstr,aRuVer(1),p)
               If E1p = E1 Then
                  Scrivi LineaStitSup,,,,vbCyan
                  Scrivi LineaStitSup1,,,,vbCyan
                  Scrivi sTit,,,,vbCyan
                  Scrivi LineasTit,,,,vbCyan
                  nCasiTro = nCasiTro + 1
                  pp = FuoriX(p - 1,5) ' estratto a sinistra
                  ps = FuoriX(p + 1,5) ' estratto a destra
                  ' prendo gli estratti a sinistra
                  Eps = Estratto(IdEstr - 1,aRuVer(1),pp) ' estratto a sinistra estrazione precedente
                  Es = Estratto(IdEstr,aRuVer(1),pp) ' estratto asinistra estrazionein corso
                  v1 = pari(Eps)
                  v2 = pari(Es)
                 
                  If v1 = v2 Then
                 
                     nCasiSin = nCasiSin + 1
                     Call Calcola(E1p,E1,Eps,Es,aAmbS,aTern1S,aTern2S)
                     ' Calcolo la frequenza dell ambo a sinistra su ruota di verifica
                     FrzAsinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbS,aRuVer,2)
                     'calcolo la frequenza totale dell ambo a sinistra su ruota
                     FrzAsinRuotaTotale = FrzAsinRuotaTotale + FrzAsinRuota
                     ' calcolo la frequenza dell ambo a sinistra su tutte
                     FrezAsinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbS,aRt,2)
                     ' calcolo la frequenza  totale dell ambo a sinistra su tutte
                     FrezAsinTutteTotale = FrezAsinTutteTotale + FrezAsinTutte
                     ' Terzina 1
                     ' -------------------------------------------------------------------
                     ' calcolo la frequenza della prima terzina a sinistra a ruota
                     FrzTern1SinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1S,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern1SinRuotaTotale = FrzTern1SinRuotaTotale + FrzTern1SinRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern1SinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1S,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern1SinTutteTotale = FrzTern1SinTutteTotale + FrzTern1SinTutte
                     ' Terzina 2
                     ' --------------------------------------------------------------------
                     ' calcolo la frequenza della seconda terzina a sinistra a ruota
                     FrzTern2SinRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2S,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern2SinRuotaTotale = FrzTern2SinRuotaTotale + FrzTern2SinRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern2SinTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2S,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern2SinTutteTotale = FrzTern2SinTutteTotale + FrzTern2SinTutte
                     '
                     Rem comincio a preparare l output
                     ' Rigo 1
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & _
                     FormatSpace("",2) & sSep & FormatSpace("",9) & sSep & FormatSpace(StringaNumeri(aAmbS,,True),8) & sSep & _
                     FrzAsinRuota & sSep & FrezAsinTutte & sSep,,,,vbCyan
                     ' rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern1S,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1SinRuota,,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1SinTutte,,0,,vbCyan
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace(nCasiTro,4,1) & sSep & FormatSpace(NomeRuota(aRuVer(1)),12) & sSep & GetInfoEstrazione(IdEstr - 1) & sSep & StringaEstratti(IdEstr - 1,aRuVer(1)) & sSep & FormatSpace(E1p,2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Es,2) & " ) ",1,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern2S,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern2SinRuota,,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern2SinTutte,,0,,vbCyan
                     Scrivi sSep,,,,vbCyan
                  Else
                     Rem Rigo 1
                   
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & _
                     FormatSpace("",2) & sSep & FormatSpace("",9) & sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace(nCasiTro,4,1) & sSep & FormatSpace(NomeRuota(aRuVer(1)),12) & sSep & GetInfoEstrazione(IdEstr - 1) & sSep & StringaEstratti(IdEstr - 1,aRuVer(1)) & sSep & FormatSpace(E1p,2) & sSep,,0,,vbCyan
                     Scrivi "S ( " & FormatSpace(Es,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                    '
                  End If ' qui controllo se entrambi gli estratti sono pari o dispari
                  Eps = Estratto(IdEstr - 1,aRuVer(1),ps) ' estratto a Destra estrazione precedente
                  Es = Estratto(IdEstr,aRuVer(1),ps) ' estratto a Destra estrazionein corso
                  v1 = pari(Eps)
                  v2 = pari(Es)
               
                  If v1 = v2 Then
                 
                     nCasiDes = nCasiDes + 1
                     Call Calcola(E1p,E1,Eps,Es,aAmbD,aTern1D,aTern2D)
                     ' Calcolo la frequenza dell ambo a sinistra su ruota di verifica
                     FrzADesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbD,aRuVer,2)
                     'calcolo la frequenza totale dell ambo a sinistra su ruota
                     FrzADesRuotaTotale = FrzADesRuotaTotale + FrzADesRuota
                     ' calcolo la frequenza dell ambo a sinistra su tutte
                     FrzAdesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aAmbD,aRt,2)
                     ' calcolo la frequenza  totale dell ambo a sinistra su tutte
                     FrzAdesTutteTotale = FrzAdesTutteTotale + FrzAdesTutte
                     ' Terzina 1
                     ' -------------------------------------------------------------------
                     ' calcolo la frequenza della prima terzina a sinistra a ruota
                     FrzTern1DesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1D,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern1DesRuotaTotale = FrzTern1DesRuotaTotale + FrzTern1DesRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern1DesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern1D,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern1DesTutteTotale = FrzTern1DesTutteTotale + FrzTern1DesTutte
                     ' Terzina 2
                     ' --------------------------------------------------------------------
                     ' calcolo la frequenza della seconda terzina a sinistra a ruota
                     FrzTern2DesRuota = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2D,aRuVer,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a ruota
                     FrzTern2DesRuotaTotale = FrzTern2DesRuotaTotale + FrzTern2DesRuota
                     ' Calcolo la frequenza della prima terzina a sinistra a tutte
                     FrzTern2DesTutte = SerieFreqTurbo(IdEstr + 1,IdEstr + nClp,aTern2D,aRt,2)
                     'calcolo la frequenza totale della prima terzina a sinistra a tutte
                     FrzTern2DesTutteTotale = FrzTern2DesTutteTotale + FrzTern2DesTutte
                     '
                     Rem comincio a preparare l output
                     ' Rigo 1
                     Scrivi " |   " & FormatSpace(" ",4) & sSep & FormatSpace(" ",12) & sSep & GetInfoEstrazione(IdEstr) & sSep & StringaEstratti(IdEstr,aRuVer(1)) & sSep & _
                     FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Eps,2) & " ) ",,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aAmbD,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzADesRuota & sSep & FrzAdesTutte & sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Es,2) & " ) ",,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FormatSpace(StringaNumeri(aTern1D,,True),8),,0,,vbCyan
                     Scrivi sSep,,0,,vbCyan
                     Scrivi FrzTern1DesRuota & sSep & FrzTern1DesTutte & sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & Space(2) & sSep & _
                     Space(9) & sSep & FormatSpace(StringaNumeri(aTern2D,,True),8) & sSep & _
                     FrzTern2DesRuota & sSep & FrzTern2DesTutte & sSep,,,,vbCyan
                     Rem rigo 4
                     Scrivi LineasTit,,,,vbCyan
                                      Else
                 
                     Scrivi " |   " & FormatSpace(" ",4) & sSep & FormatSpace(" ",12) & sSep & GetInfoEstrazione(IdEstr) & sSep & StringaEstratti(IdEstr,aRuVer(1)) & sSep & _
                     FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Eps,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem  Rigo 2
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & FormatSpace("",2) & sSep,,0,,vbCyan
                     Scrivi "D ( " & FormatSpace(Es,2) & " ) ",1,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 3
                     Scrivi " |   " & FormatSpace("",4) & sSep & FormatSpace("",12) & sSep & Space(24) & sSep & Space(14) & sSep & Space(2) & sSep & _
                     Space(9) & sSep,,0,,vbCyan
                     Scrivi String(8,"-"),,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,0,,vbCyan
                     Scrivi "-",,0,,vbRed
                     Scrivi sSep,,,,vbCyan
                     Rem rigo 4
                     Scrivi LineasTit,,,,vbCyan
                                       End If ' controllo se sono entrambi pari o dispari
                  Scrivi
                                End If ' Verifico che esistano gli estratti isotopi
               If ScriptInterrotto Then Exit For
            Next ' p
            If ScriptInterrotto Then Exit For
         End If ' verifico se l estrazione esiste
      Next ' R
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(Ini,Fin,IdEstr)
   Next ' idestr
   Scrivi : Scrivi
   Scrivi " ",,0
   Scrivi "                                                                ",,,vbCyan
   Scrivi " ",,0
   Scrivi "                        RESOCONTO                               ",,,vbCyan
   Scrivi
   Scrivi "  Range Concorsi analizzati:               |  "& Ini&" - "&Fin,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero Casi Totali:                      |  " & nCasiTro,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero casi Giocabili a sinistra:        |  " & nCasiSin,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Ambi a Ruota a Sinistra:                 |  " & FrzAsinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi a Tutte a Sinistra:                 |  " & FrezAsinTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Ruota a Sinistra:    |  " & FrzTern1SinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Tutte a Sinistra:    |  " & FrzTern1SinTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Ruota a Sinistra:    |  " & FrzTern2SinRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Tutte a Sinistra:    |  " & FrzTern2SinTutteTotale,,,,vbCyan
   Scrivi "  --------------------------------------------------------------",,,,vbCyan
   Scrivi "  Numero casi Giocabili a Destra:          |  " & nCasiDes,,,,vbCyan
   Scrivi "  ------------------------------------------ -------------------",,,,vbCyan
   Scrivi "  Ambi a Ruota a Destra:                   |  " & FrzADesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi a Tutte a Destra:                   |  " & FrzAdesTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Ruota a Destra:      |  " & FrzTern1DesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 1 a Tutte a Destra:      |  " & FrzTern1DesTutteTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Ruota a Destra:      |  " & FrzTern2DesRuotaTotale,,,,vbCyan
   Scrivi "  Ambi In Terzina 2 a Tutte a Destra:      |  " & FrzTern2DesTutteTotale,,,,vbCyan
   Scrivi "  ---------------------------------------------------------------",,,,vbCyan
 
End Sub
Function Specchietto(aV)
   Dim R,s,s1,IdEstr,bRet,p,idR
   s = ""
   For R = 1 To 12
      If R = 11 Then R = 12
      s = s & Format2(R) & " )  " & SiglaRuota(R) & "... "
      s1 = ""
      For IdEstr = EstrazioneFin To EstrazioneFin - 9 Step - 1
         bRet = False
         For p = 1 To 5
            If Estratto(IdEstr,R,p) = Estratto(IdEstr - 1,R,p) Then bRet = True :Exit For
         Next 'p
         If bRet Then s1 = s1 & " x ":Else s1 = s1 & " 0 "
      Next 'idestr
      s = s & s1 & vbCrLf
   Next 'R
   idR = InputBox(s,"Seleziona Numero/i Ruota di Ricerca,separati da punto","1.2.3.4.5.6.7.8.9.10.12")
   If idR = "" Then Specchietto = False :Exit Function
   aV = Split("0." & idR,".")
   For p = 1 To UBound(aV)
      If isRuotaValidaLotto(aV(p)) And aV(p) <> 11 Then
         Specchietto = True
      Else
         Specchietto = False
         Exit For
      End If
   Next
End Function
Sub Calcola(E1p,E1S,E0p,E0s,aAmb,aTern1,aTern2)
   Dim op1:op1 = E1p + E1S
   Dim op2:op2 = Differenza(E0p,E0s)
   Dim op3:op3 = Fuori90((op1 + op2)/2)
   Dim op4:op4 = Fuori90(Differenza(op1,op3))
   Dim op5:op5 = Fuori90(op1 + 1)
   Dim op6:op6 = Fuori90(op1 + 2)
   aAmb = Array(0,op3,op4)
   aTern1 = Array(0,op3,op4,op5)
   aTern2 = Array(0,op3,op4,op6)
End Sub

il colore di fondo rispetto al colore dei numeri da un pò fastidio, il programma è ok manca eventuale ricerca del terno,  grazie. 
volvo chiederti se io lo volessi far giraare su excelvba e non su spaziometria, quale istruzione dovrei cambiare per la ricerca dell'rchivio? grazie.
Ciao a tutti :)
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Hanno partecipato attivamente alla discussione una decina di persone , ovviamente non mi aspettavo un grazie per il tempo dedicato allo script,( nessuno me l ha chiesto e l ho fatto volentieri) ma almeno una risposta alla domanda : fatemi sapere se va bene, quello si .
Non mi piace rilasciare lavori non funzionanti .
Cordialmente i legend.
 
Messaggi
65
Punti reazione
1
Punti
8
Hanno partecipato attivamente alla discussione una decina di persone , ovviamente non mi aspettavo un grazie per il tempo dedicato allo script,( nessuno me l ha chiesto e l ho fatto volentieri) ma almeno una risposta alla domanda : fatemi sapere se va bene, quello si .
Non mi piace rilasciare lavori non funzionanti .
Cordialmente i legend.
ciao io ho risposto al tuo script vedi sottoil listato, funziona solo che non so se nel listato sono previsti solo ambi e anche terni. grazie
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Ciao .
Lo script calcola gli ambi in terzina ,quindi se viene estratto un terno vengono calcolati 3 ambi.
Se nelle estrazioni di verifica sortiscono 2 ambi vengono conteggiati.
Non vengono conteggiati i casi positivi, non era nella descrizione che avete dato del metodo.
Ciao .
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Ciao allego immagine
con le voci casi coperti , la multifrequenza in un caso viene considerata 1 a copertura
resocontoTestScript1.png
Non so se la statistica che ho ottenuto sia esatta . fate voi le vostre verifiche con altre fonti
Ciao
 

vengio

Super member
Messaggi
155
Punti reazione
4
Punti
18
Ciao legend, non prendertela troppo. Se leggi i post dietro ti renderai conto che neanche io ho mai avuto conferma sul funzionamento dello script anzi io stesso mi accorgevo degli errori commessi e lo riproponevo e, come detto, io non sono un esperto, ciò che tu sei in grado di fare in mezz'ora a me implica un paio di giorni.
Con stima Giovanni.
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Ciao vengio,
Fa sempre piacere vedere qualcuno che si diletta a fare i listati.
La velocità viene con l esercizio .:)
Grazie e buona serata.
Se lo script fa i calcoli esatti sono contento :)
 

vengio

Super member
Messaggi
155
Punti reazione
4
Punti
18
Tutti e due gli script danno gli stessi risultati quindi penso siano ok entrambi. Ciao.
 

ciccioriccio

Advanced Member >PLATINUM<
Messaggi
1.434
Punti reazione
52
Punti
48
Buonasera a tutti ho notato un altro evento con l'ultima estrazione con il 55 isotopo su Bari e Cagliari sapreste fornire una previsione?
 

vengio

Super member
Messaggi
155
Punti reazione
4
Punti
18
Capisco ma ora cosa si può giocare?
26.11.2019 BA 88.26.64.43.61 BA 61 in 5° Posizione
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
53 69 33 34 Posizione destra 88 e 72
**************************************************************************************************************
Estrazione generatrice del pronostico 09714 [143 - 28/11/2019]
G 0004 Numeri in gioco : 53.69 su BA TT per Ambo,Terno

In corso per altre 11 estrazioni
G 0005 Numeri in gioco : 53.69.33 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
G 0006 Numeri in gioco : 53.69.34 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
26.11.2019 BA 88.26.64.43.61 BA 61 in 5° Posizione
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
77 45 33 34 Posizione sinistra 43 e 75
**************************************************************************************************************
Estrazione generatrice del pronostico 09714 [143 - 28/11/2019]
G 0001 Numeri in gioco : 77.45 su BA TT per Ambo,Terno

In corso per altre 11 estrazioni
G 0002 Numeri in gioco : 77.45.33 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
G 0003 Numeri in gioco : 77.45.34 su BA TT per Ambo,Terno
In corso per altre 11 estrazioni
Queste non si sono ancora sfaldate
 
Messaggi
65
Punti reazione
1
Punti
8
Ciao legend, non prendertela troppo. Se leggi i post dietro ti renderai conto che neanche io ho mai avuto conferma sul funzionamento dello script anzi io stesso mi accorgevo degli errori commessi e lo riproponevo e, come detto, io non sono un esperto, ciò che tu sei in grado di fare in mezz'ora a me implica un paio di giorni.
Con stima Giovanni.
ho sempre risposta ai tuoi listati grazie comunque
 

vengio

Super member
Messaggi
155
Punti reazione
4
Punti
18
ho sempre risposta ai tuoi listati grazie comunque
Mi riferivo solo alla conferma dell'esattezza dei calcoli, quella effettivamente non c' mai stata, infatti come scritto i stesso mi accorgevo dei problemi degli script. Comunque non era una polemica ma per quietare i legend che tra gli scripter è sul serio una leggenda. Se ti ho offeso chiedo scusa.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 dicembre 2019
    Bari
    31
    35
    51
    16
    17
    Cagliari
    74
    45
    88
    04
    02
    Firenze
    58
    79
    71
    32
    70
    Genova
    35
    36
    74
    19
    67
    Milano
    37
    22
    09
    03
    50
    Napoli
    67
    32
    06
    82
    37
    Palermo
    59
    41
    52
    31
    06
    Roma
    17
    79
    01
    58
    19
    Torino
    41
    31
    57
    60
    03
    Venezia
    50
    31
    41
    01
    68
    Nazionale
    05
    12
    65
    02
    13
Alto