Novità

PER DISARONNO RICHIESTA SCRIPT

rosce14

Premium Member
[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.
 
ciao,
nel frattempo che aspettiamo DISARONNO ti posto lo script che aveva fatto Sospetto (con piccole modifiche),
spero di aver fatto cosa gradita..
Codice:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 30 maggio 2025
    Bari
    72
    07
    04
    37
    54
    Cagliari
    15
    27
    54
    33
    16
    Firenze
    35
    54
    20
    80
    02
    Genova
    25
    76
    44
    21
    87
    Milano
    59
    44
    88
    77
    63
    Napoli
    35
    90
    85
    60
    12
    Palermo
    49
    61
    08
    32
    11
    Roma
    37
    40
    03
    06
    58
    Torino
    21
    46
    55
    24
    25
    Venezia
    58
    28
    42
    19
    35
    Nazionale
    74
    42
    32
    87
    60
    Estrazione Simbolotto
    Milano
    16
    22
    33
    36
    32

Ultimi Messaggi

Indietro
Alto