Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Abitte;n2110282 ha scritto:OOOOOOOO....YESSSSSS!!!!!! E se avessimo messo il 30 (errato ma segnalato da Alien) avremmo fatto doppio ambo e terno in lunghetta,maaaaa......MI ACCONTENTOOOOOO!!!!!!!
Sub Main()
Dim idEstr
Dim Inizio
Dim Fine
Dim ruota(10)
Dim ruote(10)
Dim posta(10)
Dim poste(10)
Dim r
Dim nric
Dim Clp
Dim am(2)
Dim n(2)
Dim Abb(6)
posta(1) = 1
poste(2) = 1
r = CInt(InputBox(" Scegli la ruota ",,"12"))
nric = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"225"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nric
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
If IndiceMensile(idEstr) = 10 Then
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruote(1) = r
a = Estratto(idEstr,r,3)
ok = 0
b = Fuori90(a + 10)
c = Fuori90(a + 40)
n(1) = b
n(2) = c
am(1) = b
am(2) = c
Abb(1) = b
Abb(2) = c
Abb(3) = Fuori90(b + c)
Abb(4) = DiametraleD(Abb(3))
Abb(5) = Vert(Abb(4))
Abb(6) = ComplAdX(Abb(3))
ok = 1
If ok = 1 Then
ruota(1) = r
ruote(1) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r) & " ** " & " Ambate : " & b & " - " & c,1
Scrivi " Abbinamenti : " & Abb(3) & " - " & Abb(4) & " - " & Abb(5) & " - " & Abb(6),1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruota,posta,Clp',1
ImpostaGiocata 2,am,ruota,poste,Clp',2
ImpostaGiocata 3,am,ruote,poste,Clp',2
ImpostaGiocata 4,Abb,ruota,poste,Clp',2
ImpostaGiocata 5,Abb,ruote,poste,Clp',2
Gioca idEstr
End If
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Da C e r b e r u s per A l i e n "),1,3,0
ScriviResoconto,False
Scrivi "Metodo da Alien su Nazionale e Tutte",1
End Sub
Alien.;n2116954 ha scritto:VEDIAMO SE...........................
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 320, colspan: 5"]Martedì 22 Maggio 2018Concorso n. 61[/TD]
[TD="width: 64"]vertibile[/TD]
[TD="width: 64"] [/TD]
[/TR]
[TR]
[TD]77[/TD]
[TD]17[/TD]
[TD] [/TD]
[TD]4[/TD]
[TD]9[/TD]
[TD]90[/TD]
[TD]86[/TD]
[/TR]
[/TABLE]
mar 22.05.2018 [9476]
G 1: M 77.17 Nz 2/12
in corso (2° su 12)
G 2: ATQ 77.17.04.09.90.86 Nz 2/12
in corso (2° su 12)
G 3: ATQ 77.17.04.09.90.86 Tu 2/12
A 09.04 su Tu (Fi) 1° colpo [9477/24.05.2018]
A 90.04 su Tu (Fi) 2° colpo [9478/26.05.2018]
in corso (2° su 12)