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
    sabato 14 giugno 2025
    Bari
    43
    28
    11
    04
    79
    Cagliari
    44
    24
    17
    54
    40
    Firenze
    51
    68
    85
    05
    58
    Genova
    35
    40
    22
    31
    45
    Milano
    84
    30
    47
    28
    85
    Napoli
    12
    06
    24
    83
    82
    Palermo
    66
    03
    88
    41
    45
    Roma
    15
    77
    68
    70
    59
    Torino
    81
    25
    06
    33
    77
    Venezia
    77
    79
    12
    49
    87
    Nazionale
    01
    84
    11
    31
    45
    Estrazione Simbolotto
    Napoli
    06
    18
    07
    23
    13

Ultimi Messaggi

Indietro
Alto