PER DISARONNO RICHIESTA SCRIPT

[rosce14]

[LIST]
[*]CIAO DISARONNO CHIEDO A TE PERCHE GIA IN PASSATO HAI FATTO LOSCRIPT DEI NUMERETTI A GOGO', CHE PURTROPPO HO PERSO PERCHE' HO RINSTALLATO SPAZIOMETRIA
[*]RIMETTTO LA SPIEGAZIONE DEL METODO.
[*]
[*]CERCARE AD OGNI ESTRAZIONE X OGNI RUOTA LA DOPPIA FIG.( OGNI NUMERO HA LA SUA FIGURA)
[*]
[*]ES: ESTRAZIONE DEL 24 12 12
[*]
[*]FI 24 17 89 41 68// RELATIVE FIG. 6/ 8/ 8 /5 /5 COME VEDETE SONO PRESENTI LE DOPPIE FIG. 5/8.
[*]SI FA LA SOMMA DELLE FIG. 5+8=13.
[*]FI 13 AMBATA PRINCIPALE X ABBINAMENTO LE 2 FIG. CHE HANNO GENERATO IL PRONOSTICO 5 / 8.
[*]
[*]PER METTERLA IN GIOCO LA REGOLA VUOLE CHE NELL'ESTRAZIONE DELLA RUOTA ESAMINATA NON SIA PRESENTE NESSUN NUMERETTO, E CHE LE AMBATE SIANO 2 E NON 3 (ES: XXX/YY)
[*]
[*]SICURA CHE MI RISPONDERAI TI AUGURO BUON POMERIGGIO
[/LIST]
O.

 

[Master]

ciao,
nel frattempo che aspettiamo DISARONNO ti posto lo script che aveva fatto Sospetto (con piccole modifiche),
spero di aver fatto cosa gradita..

Sub Main()
Scrivi:Scrivi String(40," ") & " Metodo di Rosce14 script by Sospetto (mod)",1
Scrivi
Dim ruote(12)
Dim amba1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim lg(3)
Dim poste(2)
Dim posta(3)
poste(1) = 1
posta(2) = 1
inizio = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA :",,8495)
k = InputBox("INSERISCI I COLPI DI GIOCO :",,9)
gio = CInt(InputBox("VUOI ANCHE LA TERZINA IN GIOCO ?" & Chr(13) & "1 = SI " & Chr(13) & "2= NO",,2))
ini = inizio
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
a = Figura(Estratto(es,r1,1)) : b = Figura(Estratto(es,r1,2))
c = Figura(Estratto(es,r1,3)) : d = Figura(Estratto(es,r1,4)): e = Figura(Estratto(es,r1,5))
k1 = 0
k2 = 0
k3 = 0
k4 = 0
If a = b Then
k1 = k1 + 1
End If
If a = c Then
k1 = k1 + 1
End If
If a = d Then
k1 = k1 + 1
End If
If a = e Then
k1 = k1 + 1
End If
If b = c Then
k2 = k2 + 1
End If
If b = d Then
k2 = k2 + 1
End If
If b = e Then
k2 = k2 + 1
End If
If c = d Then
k3 = k3 + 1
End If
If c = e Then
k3 = k3 + 1
End If
If d = e Then
k4 = k4 + 1
End If
dec = 0
If Decina(Estratto(es,r1,1)) = 0 Then
dec = dec + 1
End If
If Decina(Estratto(es,r1,2)) = 0 Then
dec = dec + 1
End If
If Decina(Estratto(es,r1,3)) = 0 Then
dec = dec + 1
End If
If Decina(Estratto(es,r1,4)) = 0 Then
dec = dec + 1
End If
If Decina(Estratto(es,r1,5)) = 0 Then
dec = dec + 1
End If
If dec = 0 Then
If k1 + k2 + k3 + k4 = 2 Then
ColoreTesto 1
casi = casi + 1
Scrivi String(105,"*") & " Caso N° " & casi,1
Scrivi DataEstrazione(es) & " " & FormatSpace(NomeRuota(r1),10) & " " & StringaEstratti(es,r1) & " Figure " & a & " " & b & " " & c & " " & d & " " & e & ""
ruote(1) = r1
ColoreTesto 0
n1 = 0
If k1 = 1 And k2 = 1 Then
n1 = a + b
End If
If k1 = 1 And k3 = 1 Then
n1 = a + c
End If
If k1 = 1 And k4 = 1 Then
n1 = a + d
End If
n2 = 0
If k2 = 1 And k3 = 1 Then
n2 = b + c
End If
If k2 = 1 And k4 = 1 Then
n2 = b + d
End If
abb1 = 0
If a + b = a*2 Or a + c = a*2 Or a + d = a*2 Or a + e = a*2 Then
abb1 = a
End If
If b + c = b*2 Or b + d = b*2 Or b + e = b*2 Then
abb1 = b
End If
If c + d = c*2 Or c + e = c*2 Then
abb1 = c
End If
If d + e = d*2 Then
abb1 = d
End If
'------------------------------------------------------Giocate
amba1(1) = n1 + n2
ImpostaGiocata 1,amba1,ruote,poste,k,1
'------------------------------------------------------
ambo2(1) = n1 + n2
ambo2(2) = abb1
ImpostaGiocata 2,ambo2,ruote,posta,k,2
'------------------------------------------------------
abb2 =(amba1(1)) - abb1
ambo3(1) = n1 + n2
ambo3(2) = abb2
ImpostaGiocata 3,ambo3,ruote,posta,k,2
'------------------------------------------------------
If gio = 1 Then
lg(1) = n1 + n2
lg(2) = abb1
lg(3) = abb2
ImpostaGiocata 5,lg,ruote,posta,k,2
Else
lg(1) = " "
lg(2) = " "
lg(3) = " "
End If
'-------------------------------------------------------
For x = 1 To 5 : For z = x + 1 To 5
ImpostaInterruzioni x,z,1
ImpostaInterruzioni z,x,1
Next : Next
Gioca es
End If
End If
Next
Next
ScriviResoconto
End Sub

 

[rosce14]

GRAZIEEEEEEEE, MASTER, GENTILISSIMO.