| Autore |
 Discussione  |
|
|
AARBI
Utente Nuovo
Italy
2 invii |
 Spedito - 25 dicembre 2024 : 11:05:37
|
Buongiorno, e Buon Natale a tutti.
Ho uno script di DJNOMADE che allego, però fa le bizze.
Ovvero quando si mette in gioco 7 su dieci risulta postivo me in realtà non è così.
QUESTO SCRIPT CALCOLA I 5 AMBI PIù FREQUENTI DOPO NUMERO SPIA come enuncia in avvio ma 7 volte su dieci gli abbinamenti si rimescolano conle nuove estrazioni, quindi tiene in considerazione le nuove uscite.
Chiedo se gentilmente Mr. DJNOMADE mi può dare maggiori indicazioni, semmai corregere lo script.
Grazie anticipate e buone feste a tutti. |
|
|
AARBI
Utente Nuovo
Italy
2 invii |
Spedito - 25 dicembre 2024 : 11:07:20
|
Allego lo Scritp:
'OK Gioca,dopo la sortita di un numero Spia, i numeri piu' frequenti
'QUESTO SCRIPT CALCOLA I 5 AMBI PIù FREQUENTI DOPO NUMERO SPIA
' Spia 52 su Bari - Ambi più frequenti, 10 colpi, 10 casi dal 19.01.2012 ad oggi
'Ambi a ruota
' Ambo Frequenza
' 01-05 03
' 07-29 03
' 14-78 03
' 25-45 03
' 06-86 02
Sub Main()
Scrivi : ColoreTesto 1 : Scrivi"QUESTO SCRIPT CALCOLA I 5 AMBI PIU' FREQUENTI DOPO NUMERO SPIA"
Scrivi : ColoreTesto 0 : Scrivi
Dim ru(2) : Dim ambi(4005,5) : Dim nn(2),n(2),ambo(3),poste(5),ruote(1)
r = InputBox("SU quale Ruota?",,1)
tot = 5 'InputBox("Quanti ambi Frequenti vuoi ricercare?",,5)
e = InputBox("Quante estrazioni controllo?",,300)
c = InputBox("Entro quanti colpi?",,8)
n1 = InputBox("Quale Numero Spia?",,5)
poste(2)=1
ruote(1)=r
For i = 1 To 4005
ambi(i,4) = 0 : ambi(i,1) = 0 : ambi(i,2) = 0 : ambi(i,3) = 0
Next
casi = 0 : co = 0 : fin = EstrazioneFin : ini = EstrazioneFin - e
For es = ini To fin
Messaggio " Spia " & CInt(n1) & " est. " & es & " su " & NomeRuota(r) & " dal " & DataEstrazione(ini) & " ad oggi"
If Posizione(es,r,n1) > 0 Then
casi = casi + 1 : ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 90
For y = x + 1 To 90
co = co + 1 : ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y : nn(1) = x : nn(2) = y : ru(1) = r
ambi(co,4) = ambi(co,4) + SerieFreq(es + 1,ess,nn,ru,2)
Next
Next
End If
Next
OrdinaMatrice ambi,- 1,4
ColoreTesto 1
Scrivi " Spia " & CInt(n1) & " su " & NomeRuota(r) & " - Ambi più frequenti, " & c & " colpi, " & CInt(casi) & " casi" & " dal " & DataEstrazione(ini) & " ad oggi"
Scrivi
Scrivi " Ambi a ruota"
ColoreTesto 2
Scrivi String(10," ") & "Ambo Frequenza"
ColoreTesto 0
For x = 1 To tot
riga = Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & " " & Format2(ambi(x,4))
Scrivi String(9," ") & riga
riga = ""
Next
Scrivi "********************************************************"
'--------------------------------- Terzina
iniz=ini 'estrazione di partenza
fine=EstrazioneFin'-cl 'estrazione finale
For es1=iniz To fine
If Posizione(es1,r,n1)>0 Then
ambo(1) =(ambi(1,2))
ambo(2) =(ambi(1,3))
ImpostaGiocata 1,ambo,ruote,poste,c,3
ambo(1) =(ambi(2,2))
ambo(2) =(ambi(2,3))
ImpostaGiocata 2,ambo,ruote,poste,c,3
ambo(1) =(ambi(3,2))
ambo(2) =(ambi(3,3))
ImpostaGiocata 3,ambo,ruote,poste,c,3
ambo(1) =(ambi(4,2))
ambo(2) =(ambi(4,3))
ImpostaGiocata 4,ambo,ruote,poste,c,3
ambo(1) =(ambi(5,2))
ambo(2) =(ambi(5,3))
ImpostaGiocata 5,ambo,ruote,poste,c,3
End If
Gioca es1
Next
ScriviResoconto
End Sub
|
 |
|
|
DjNomade
Utente Molto Appassionato
340 invii |
Spedito - 27 dicembre 2024 : 00:22:03
|
|
Purtroppo non saprei dove mettere le mani in questi tipi di ricerche |
|
|
| |
Discussione |
|
|
|
Script L8 per DJNOMADE
