 | alessandro74h |
| | Ciao Amici, sono un fan di scaravetti e tra i suoi studi arrivai con l aiuto di mike,ad alcuni script (con spaziometria),in effetti si parla sempre della base F, e ho cercato spero di carpire un minimo di quello che puo essere una "ripetizione di un aggregato", posto uno script per cui...suscitera molte domande e risposte ...incertezze dubbi.. Sub Main
Dim Ru(4),Nu(1),T,V
Ini = EstrazioneFin - 100
fin = EstrazioneFin
r = InputBox("Quale ruote Venus" & Chr(13) & "1 - Venus Nord" & Chr(13) & "2 - Venus Centro" & Chr(13) & "3 - Venus Sud",,1)
q = CInt(InputBox("Quante estrazioni a ritroso",,4))'6x4
f = CInt(InputBox("Quale Frequenza",,3))
If r = 1 Then
Scrivi Space(25) & " Venus Nord",1,,,2,4
Ru(1) = 4 : Ru(2) = 5 : Ru(3) = 9 : Ru(4) = 10
End If
If r = 2 Then
Scrivi Space(25) & " Venus Centro",1,,,2,4
Ru(1) = 2 : Ru(2) = 3 : Ru(3) = 8 : Ru(4) = 12
End If
If r = 3 Then
Scrivi Space(25) & " Venus Sud",1,,,2,4
Ru(1) = 1 : Ru(2) = 6 : Ru(3) = 7 : Ru(4) = 12 ' aggiunta
End If
T = Array(T,"Ruote","Es - " & q & " - Es","Numeri Estrapolati","Qtà","Esito","clp")
Call InitTabella(T,3)
For es = Ini To fin
For n = 1 To 90
Nu(1) = n
sf = SerieFreqTurbo(es -(q - 1),es,Nu,Ru,1)
If sf => f Then ' " maggiore?"
k = k + 1
ReDim Preserve Num(k)
Num(k) = n
ReDim Preserve fre(k)
fre(k) = sf
End If
Next
If k > 5 And k < 7 Then ' qunatita aggregato
Call VerificaEsito(Num,Ru,es + 1,2,20,,esito,clp,es1,id)'aumento colpi poi segui
If clp < 20 And esito = "" Then colpo = "C In corso "
V = Array(V,StringaRuote(Ru),es - q & " - " & es,StringaNumeri(Num,,1),k,es1,clp & colpo) ' q-1 ??
Vv = Array(Vv,"Freq"," -- ",StringaNumeri(fre,,1)," - ","-",id)
Call AddRigaTabella(V,,,2,,"arial black")
Call AddRigaTabella(vv)
Call AddRigaTabella(T,3,,2)
End If
k = 0
Next
Call SetTableWidth("100%")
CreaTabella
End Sub Partiamo da qui..in sommi capi... lo script pubblicato in precedenza e' modificabile..e rispettando le ruote come "unite x venus" mi aspetto il miglior settaggio o comunque intuizione da voi..va bene anche solo riflessioni o punti di vista.. | | | |
| |
|
