Novità

Modifica script,chi riesce?

Marcorun

Marcorun

Advanced Member >GOLD<
Qualcuno riesce a fare una piccolissima modifica a questo script?
Vorrei che calcolasse SOLO la sorte di ambetto , senza ambo.....GRAZIE!
Codice: 
Sub Main
Dim idEstr,Ruota
Dim Inizio,Fine
Dim nClasseFrz
Dim id,k
Dim nElemFrz
Dim nQAmbetti
Dim nEstrTot
Dim nFrqMedia
Dim sNomeFrz
Inizio = EstrazioneFin - 100
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
 
Ciao, prova questo :

questo è il resoconto finale

Estrazione generatrice del pronostico 10415 [ 53 - 02/04/2024]
G 0001 Numeri in gioco : 02.39 su GE RO per Estratto, Ambo
In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 02.40 su GE RO per Ambo
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 02.38 su GE RO per Ambo
In corso per altre 13 estrazioni
G 0004 Numeri in gioco : 03.39 su GE RO per Ambo
In corso per altre 13 estrazioni
G 0005 Numeri in gioco : 01.39 su GE RO per Ambo
In corso per altre 13 estrazioni

Sub Main()
Dim Ambate(2),Ruotadigioco(2),Poste(2),Posta(2)
Ruotadigioco(1) = GE_ : Poste(1) = 4 : Poste(2) = 1 : Posta(2) = 1
Ruotadigioco(2) = RO_
fin = EstrazioneFin
ini = EstrazioneFin - 50
For es = ini To fin
AvanzamentoElab ini,fin,es
If IndiceMensile(es) = 1 Then
Ambate(1) = Figura(Estratto(Es,BA_,2))
Ambate(2) = Fuori90(Estratto(Es,CA_,2))
ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,13,3
Ambate(1) = Figura(Estratto(Es,BA_,2))
Ambate(2) = Fuori90(Estratto(Es,CA_,2) + 1)
ImpostaGiocata 2,Ambate,Ruotadigioco,Posta,13,3
Ambate(1) = Figura(Estratto(Es,BA_,2))
Ambate(2) = Fuori90(Estratto(Es,CA_,2) - 1)
ImpostaGiocata 3,Ambate,Ruotadigioco,Posta,13,3
Ambate(1) = Figura(Estratto(Es,BA_,2) + 1)
Ambate(2) = Fuori90(Estratto(Es,CA_,2))
ImpostaGiocata 4,Ambate,Ruotadigioco,Posta,13,3
Ambate(1) = Figura(Estratto(Es,BA_,2) - 1)
Ambate(2) = Fuori90(Estratto(Es,CA_,2))
ImpostaGiocata 5,Ambate,Ruotadigioco,Posta,13,3
Gioca Es,1
End If
Next
'ScriviResoconto
End Sub

Oppure prova questo :

questo è il resoconto finale

02.04.2024 1° Estrazione del mese

Ambo Principale 68-39 RITARDO SU TUTTE --> 8 ESTRAZIONI

1° Ambetto 68-38 RITARDO SU TUTTE --> 16 ESTRAZIONI
2° Ambetto 68-40 RITARDO SU TUTTE --> 48 ESTRAZIONI
3° Ambetto 39-67 RITARDO SU TUTTE --> 19 ESTRAZIONI
4° Ambetto 39-69 RITARDO SU TUTTE --> 53 ESTRAZIONI

Estrazione generatrice del pronostico 10415 [ 53 - 02/04/2024]
G 0001 Numeri in gioco : 68.39 su TT per Ambo
In corso per altre 12 estrazioni
G 0002 Numeri in gioco : 68.38 su TT per Ambo
In corso per altre 12 estrazioni
G 0003 Numeri in gioco : 68.40 su TT per Ambo
In corso per altre 12 estrazioni
G 0004 Numeri in gioco : 39.67 su TT per Ambo
In corso per altre 12 estrazioni
G 0005 Numeri in gioco : 39.69 su TT per Ambo
In corso per altre 12 estrazioni

Sub Main()
Dim ruota(1),n1(2),n2(2),n3(2),n4(2),n5(2)
Dim ambo(2)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim ambo5(2)
Dim poste(2)
poste(2) = 1
ini = InputBox("INIZIO",,10363)
k = InputBox("COLPI DI GIOCO",,12)
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then ' <---- <---- ESTRAZIONE DI INIZIO RICERCA
'---------------------------------------- Ambo principale
n1(1) = Fuori90(Estratto(es,FI_,1) + 10)
n1(2) = Fuori90(Estratto(es,FI_,1) + 71)
'---------------------------------------- 1° Ambetto
n2(1) = n1(1)
n2(2) = Fuori90(n1(2) - 1)
'---------------------------------------- 2° Ambetto
n3(1) = n1(1)
n3(2) = Fuori90(n1(2) + 1)
'---------------------------------------- 3° Ambetto
n4(1) = n1(2)
n4(2) = Fuori90(n1(1) - 1)
'---------------------------------------- 4° Ambetto
n5(1) = n1(2)
n5(2) = Fuori90(n1(1) + 1)
'----------------------------------------
ruota(1) = TU_
a = SerieRitardo(ini,fin,n1,ruota,2)
b = SerieRitardo(ini,fin,n2,ruota,2)
c = SerieRitardo(ini,fin,n3,ruota,2)
d = SerieRitardo(ini,fin,n4,ruota,2)
e = SerieRitardo(ini,fin,n5,ruota,2)
co = co + 1
Scrivi String(80,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & IndiceMensile(es) & "° Estrazione del mese",1
ColoreTesto 1
Scrivi
Scrivi "Ambo Principale " & Format2(n1(1)) & "-" & Format2(n1(2)) & " RITARDO SU TUTTE --> " & a & " ESTRAZIONI",1
Scrivi
Scrivi "1° Ambetto " & Format2(n2(1)) & "-" & Format2(n2(2)) & " RITARDO SU TUTTE --> " & b & " ESTRAZIONI",1
Scrivi
Scrivi "2° Ambetto " & Format2(n3(1)) & "-" & Format2(n3(2)) & " RITARDO SU TUTTE --> " & c & " ESTRAZIONI",1
Scrivi
Scrivi "3° Ambetto " & Format2(n4(1)) & "-" & Format2(n4(2)) & " RITARDO SU TUTTE --> " & d & " ESTRAZIONI",1
Scrivi
Scrivi "4° Ambetto " & Format2(n5(1)) & "-" & Format2(n5(2)) & " RITARDO SU TUTTE --> " & e & " ESTRAZIONI",1
Scrivi
ColoreTesto 0
ambo(1) = n1(1)
ambo(2) = n1(2)
ImpostaGiocata 1,ambo,ruota,poste,k,2
ambo2(1) = n2(1)
ambo2(2) = n2(2)
ImpostaGiocata 2,ambo2,ruota,poste,k,2
ambo3(1) = n3(1)
ambo3(2) = n3(2)
ImpostaGiocata 3,ambo3,ruota,poste,k,2
ambo4(1) = n4(1)
ambo4(2) = n4(2)
ImpostaGiocata 4,ambo4,ruota,poste,k,2
ambo5(1) = n5(1)
ambo5(2) = n5(2)
ImpostaGiocata 5,ambo5,ruota,poste,k,2
Gioca es,1
End If
Next
Scrivi:Scrivi:ScriviResoconto,0
End Sub

ne vuoi altri di script per ambetto ?
 
Ciao,grazie ....sono interessanti i tuoi script,ci faccio un po di prove,ma quello che ho messo io sarebbe utile soprattutto x esaminare le formazioni cosi da provare anche lunghette di varie dimensioni..pensavo che uno ai tuoi livelli avrebbe modificato qualche riga x escludere l'ambo.
GRAZIE tante comunque ...se vuoi ,qualche script x ambetto potrebbe interessare anche ad altri. (y)
 
Marcorun ha scritto:
Qualcuno riesce a fare una piccolissima modifica a questo script?
Vorrei che calcolasse SOLO la sorte di ambetto , senza ambo.....GRAZIE!
Codice: 
Sub Main
......
nQAmbetti = VerificaAmbetto(aNumInGioco,Ruota,idEstr,"",0)  
-------
aV = Array("","Formazione","Ritardo","Frequenza","RitardoMax","IncrRitMax","Presenze","I.C.")
------
End Sub
Clicca per espandere...
Lo script calcola SOLO ed "esclusivamente" la classe di ambetto come da te richiesto, della formazione da te specificata , tra l'altro è scritto a chiare lettere nell'output.

1712248415334.png
Saluti
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 06 ottobre 2026
    Bari
    50
    20
    35
    06
    04
    Cagliari
    22
    56
    17
    89
    74
    Firenze
    44
    41
    61
    08
    02
    Genova
    55
    90
    74
    42
    52
    Milano
    03
    80
    84
    33
    87
    Napoli
    27
    30
    50
    80
    87
    Palermo
    61
    31
    40
    48
    42
    Roma
    79
    58
    44
    52
    51
    Torino
    46
    05
    40
    39
    52
    Venezia
    39
    22
    68
    21
    27
    Nazionale
    54
    84
    43
    06
    12
    Estrazione Simbolotto
    36
    45
    21
    43
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto