Modifica script,chi riesce?

[Marcorun]

Qualcuno riesce a fare una piccolissima modifica a questo script?
Vorrei che calcolasse SOLO la sorte di ambetto , senza ambo.....GRAZIE!

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

 

[*blacklotto*]

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 ?

 

[Marcorun]

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.

 

[claudio8]

Qualcuno riesce a fare una piccolissima modifica a questo script?
Vorrei che calcolasse SOLO la sorte di ambetto , senza ambo.....GRAZIE!

Sub Main
......
nQAmbetti = VerificaAmbetto(aNumInGioco,Ruota,idEstr,"",0)  
-------
aV = Array("","Formazione","Ritardo","Frequenza","RitardoMax","IncrRitMax","Presenze","I.C.")
------
End Sub

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.


Saluti

 

[Marcorun]

Allora avevo visto male..........Grazie Claudio8