Novità

Funzione ambetto in spaziometria

cybercesare

Junior Member
Buongiorno a tutti.
Vorrei sapere se esiste e come impostare la funzione ambetto per 4 numeri in gioco.

Ringrazio in anticipo chiunque mi aiuterà.
 
ciao qualcosa c'è ma non ricordo come si usa , forse Mike potrebbe dirti qualcosa ... a proposito Mike non ti leggo piu da un bel po' ... ci sei ?
 
Ciao Raga, nessuna problema, sono un pochetto impegnato con il lavoro.
Si il codice ambetto esiste ed è possibile verificarne sia gli esiti che la relativa vincita.
Purtroppo, ma per me è abbastanza solo in verificaAmbetto e TestAmbetto.

ecco un esempio.

Codice:
Sub Main
 Dim anum(10),aruo(1)
 Dim sRetNumeri,nRetVincita,nAmbetti
 r = InputBox("scegli Ruota",,5)
 aruo(1) = r
 ScegliNumeri(anum)
 Ini = EstrazioneFin - 100
 fin = EstrazioneFin
 Scrivi "Verifica Ambetti sui Numeri : " & StringaNumeri(anum) & "  Sulla Ruora di : " & SiglaRuota(r) & " **** Script By Mike58 ****",1,1,,1,4,,1
 Scrivi
 ReDim AT(10)
 AT(1) = " data "
 AT(2) = " Comb in gioco "
 AT(3) = " Esito "
 AT(4) = " Colpo "
 AT(5) = " Estratti "
 AT(6) = " Info ID Estraz. "
 AT(7) = " ambetti "
 AT(8) = " Ambetti "
 AT(9) = " Vincita "
 AT(10) = " Estrazioni "
 Call InitTabella(AT,2,,3,5)
 For idestr = fin To Ini Step - 1
  Call VerificaEsitoTurbo(anum,aruo,idEstr,1,1,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
  nAmbetti = VerificaAmbetto(anum,r,idestr,sRetNumeri,nRetVincita)
  c = c + 1
  If nAmbetti > 0 Then casi = casi + 1
  ReDim AV(10)
  AV(1) = GetInfoEstrazione(idestr)
  AV(2) = StringaNumeri(anum)
  AV(3) = RetEsito
  AV(4) = c
  AV(5) = RetEstratti
  If RetEsito <> "" Then AV(6) = GetInfoEstrazione(RetIdEstr)
  AV(7) = nAmbetti
  AV(8) = sRetNumeri
  posta = 1
  AV(9) = Round(nRetVincita * posta,2)
  AV(10) = StringaEstratti(idestr,r)
  Call AddRigaTabella(AV,,,3)
  nvincitaAmbetto = nvincitaAmbetto + AV(9)
 Next
 Call SetTableWidth("100%")
 Call CreaTabella()
 Scrivi "Casi totali di gioco " & c,True,True,5,1,3
 Scrivi "Casi Positivi di esito " & casi,True,True,1,5,3
 Scrivi "Totali Vincita Ambetto :" & nvincitaAmbetto,1
End Sub

esempio 2

Codice:
Sub Main

Dim nu(10),ru(1),num,vinc,ambetti

Dim aT,aV,Tt,vV,mM

r = InputBox("Ruota",,5)

ru(1) = r

ScegliNumeri(nu)

ab = UBound(nu)

Tt = Array(Tt,"Ambetto","2","3","4","5","6","7","8","9","10")

Call InitTabella(Tt,1,,3,5)

vV = Array(vV,"Vincita Lorda",(65*.94),(21.67*.94),(10.83*.94),(6.50*.94),(4.33*.94),(3.10*.94),(2.32*.94),(1.81*.94),(1.44*.94))

mM = Array(mM,"Moltiplicatore",4,12,24,40,60,84,112,144,180)

Call AddRigaTabella(vV,,,3)

Call SetColoreCella((ab),3,1)

Call AddRigaTabella(mM,,,3)

Call SetColoreCella((ab),3,1)

CreaTabella

Ini = EstrazioneFin - 40

fin = EstrazioneFin

Scrivi StringaNumeri(nu) & " scelti N," & ab,1

aT = Array(aT,"Caso","Info Estrazione","Estratti","N.ambetti","Numeri Vincenti","vincita")

Call InitTabella(aT,2,,3,5)

For es = Ini To fin

n = n + 1

ambetti = VerificaAmbetto(nu,r,es,num,vinc)

aV = Array(aV,n,GetInfoEstrazione(es),StringaEstratti(es,1),ambetti,num,vinc)

Call AddRigaTabella(aV,,,3)

If aV(6) > 0 Then Call SetColoreCella(5,3,0)

'Scrivi GetInfoEstrazione(es) & " " & ambetti & " " & num & " " & vinc

Next

CreaTabella

End Sub

Ciao a tutti
 
quest'altro invece permette di prelevare le formazioni in spaziometria e verificarne la relativa statistica.

Codice:
Option Explicit
Sub Main
 Dim idEstr,Ruota
 Dim Inizio,Fine
 Dim nClasseFrz
 Dim id,k
 Dim nElemFrz
 Dim nQAmbetti
 Dim nEstrTot
 Dim nFrqMedia
 Dim sNomeFrz
 Inizio = EstrazioneIni
 Fine = EstrazioneFin
 Ruota = ScegliRuota
 nEstrTot =(Fine + 1) - Inizio
 ReDim aElemFormazione(0)
 Call RichiediFormazione(aElemFormazione,nClasseFrz,sNomeFrz)
 nElemFrz = UBound(aElemFormazione)
 ReDim aValStat(nElemFrz,4)
 ' indice 0 il ritardo
 '        1 freq
 '        2 ritmax
 '        3 incr rit max
 '        4 presenze
 
 If Ruota > 0 And nClasseFrz > 1 Then
  For id = 1 To nElemFrz
   ReDim aNumInGioco(0)
   Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
   For idEstr = Inizio To Fine
    ' inserire qui il codice che analizza l'estrazione corrente
    nQAmbetti = VerificaAmbetto(aNumInGioco,Ruota,idEstr,"",0)
    If nQAmbetti > 0 Then
     aValStat(id,0) = 0
     aValStat(id,1) = aValStat(id,1) + nQAmbetti
     aValStat(id,3) = 0
     aValStat(id,4) = aValStat(id,4) + 1
    Else
     aValStat(id,0) = aValStat(id,0) + 1
     If aValStat(id,0) > aValStat(id,2) Then
      aValStat(id,2) = aValStat(id,0)
      aValStat(id,3) = aValStat(id,3) + 1
     End If
    End If
    If ScriptInterrotto Then Exit For
   Next
   Call AvanzamentoElab(1,nElemFrz,id)
   If ScriptInterrotto Then Exit For
  Next
  Dim aV
  aV = Array("","Formazione","Ritardo","Frequenza","RitardoMax","IncrRitMax","Presenze","I.C.")
  Call InitTabella(aV,2,,3,5)
  For id = 1 To nElemFrz
   ReDim aNumInGioco(0)
   Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
   aV(1) = StringaNumeri(aNumInGioco)
   aV(2) = aValStat(id,0)
   aV(3) = aValStat(id,1)
   aV(4) = aValStat(id,2)
   aV(5) = aValStat(id,3)
   aV(6) = aValStat(id,4)
   nFrqMedia = Dividi(nEstrTot,aValStat(id,4))
   aV(7) = Round(Dividi(aValStat(id,0),nFrqMedia),3)
   Call AddRigaTabella(aV)
  Next
  
  Call Scrivi("Statistica_Ambetto",1,1,2,4,3)
  Call Scrivi("Analisi su formazione : " & sNomeFrz)
  Call Scrivi("Sulla ruota           : " & NomeRuota(Ruota))
  Call Scrivi("Da                    : " & GetInfoEstrazione(Inizio))
  Call Scrivi("A                     : " & GetInfoEstrazione(Fine))
  Call Scrivi("Totali range          : " & nEstrTot)
  Call Scrivi
  Call CreaTabella(2)
 End If
End Sub
Sub GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
 Dim k
 ReDim aNumInGioco(nClasseFrz)
 For k = 1 To nClasseFrz
  aNumInGioco(k) = aElemFormazione(id,k)
 Next
End Sub
Sub RichiediFormazione(aElemFormazione,nClasseFrz,sNome)
 Dim s
 Dim n
 Dim id
 ReDim aNomiForm(0)
 Call ElencoFileInDirectory(GetDirectoryAppData & "formazioni\",aNomiForm,".frz")
 id = ScegliOpzioneMenu(aNomiForm,1,"Selezione formazione")
 If GetElementiFormazione(aNomiForm(id),aElemFormazione) Then
  nClasseFrz = GetClasseFormazione(aNomiForm(id))
  sNome = aNomiForm(id)
 End If
End Sub

Statistica_Ambetto
Analisi su formazione : QuartineRadicali
Sulla ruota : Bari
Da : [00001] [ 1 ] 07.01.1871
A : [09079] [134] 07.11.2015
Totali range : 9079

[TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #ff0000, align: center"]Formazione [/TD]
[TD="bgcolor: #ff0000, align: center"]Ritardo [/TD]
[TD="bgcolor: #ff0000, align: center"]Frequenza [/TD]
[TD="bgcolor: #ff0000, align: center"]RitardoMax [/TD]
[TD="bgcolor: #ff0000, align: center"]IncrRitMax [/TD]
[TD="bgcolor: #ff0000, align: center"]Presenze [/TD]
[TD="bgcolor: #ff0000, align: center"]I.C. [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]7.70.77.79 [/TD]
[TD="bgcolor: #ffffff, align: center"]92 [/TD]
[TD="bgcolor: #ffffff, align: center"]489 [/TD]
[TD="bgcolor: #ffffff, align: center"]226 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]393 [/TD]
[TD="bgcolor: #ffffff, align: center"]3,982 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]8.80.88.89 [/TD]
[TD="bgcolor: #ffffff, align: center"]49 [/TD]
[TD="bgcolor: #ffffff, align: center"]498 [/TD]
[TD="bgcolor: #ffffff, align: center"]190 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]428 [/TD]
[TD="bgcolor: #ffffff, align: center"]2,31 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]2.20.22.29 [/TD]
[TD="bgcolor: #ffffff, align: center"]37 [/TD]
[TD="bgcolor: #ffffff, align: center"]510 [/TD]
[TD="bgcolor: #ffffff, align: center"]174 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]433 [/TD]
[TD="bgcolor: #ffffff, align: center"]1,765 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]1.10.11.19 [/TD]
[TD="bgcolor: #ffffff, align: center"]13 [/TD]
[TD="bgcolor: #ffffff, align: center"]529 [/TD]
[TD="bgcolor: #ffffff, align: center"]200 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]470 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,673 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]3.30.33.39 [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[TD="bgcolor: #ffffff, align: center"]550 [/TD]
[TD="bgcolor: #ffffff, align: center"]174 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]491 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,433 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]4.40.44.49 [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[TD="bgcolor: #ffffff, align: center"]532 [/TD]
[TD="bgcolor: #ffffff, align: center"]195 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]480 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,423 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]5.50.55.59 [/TD]
[TD="bgcolor: #ffffff, align: center"]7 [/TD]
[TD="bgcolor: #ffffff, align: center"]539 [/TD]
[TD="bgcolor: #ffffff, align: center"]265 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]487 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,375 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]6.60.66.69 [/TD]
[TD="bgcolor: #ffffff, align: center"]7 [/TD]
[TD="bgcolor: #ffffff, align: center"]582 [/TD]
[TD="bgcolor: #ffffff, align: center"]181 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]508 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,392 [/TD]
[/TR]
[/TABLE]
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16

Ultimi Messaggi

Indietro
Alto