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
    martedì 27 maggio 2025
    Bari
    15
    61
    19
    34
    80
    Cagliari
    69
    10
    33
    22
    25
    Firenze
    18
    55
    30
    29
    78
    Genova
    64
    18
    35
    56
    57
    Milano
    41
    86
    61
    17
    89
    Napoli
    87
    31
    27
    57
    16
    Palermo
    31
    69
    53
    64
    14
    Roma
    14
    24
    02
    08
    29
    Torino
    83
    04
    79
    49
    27
    Venezia
    19
    57
    53
    10
    33
    Nazionale
    14
    68
    86
    56
    58
    Estrazione Simbolotto
    Milano
    42
    04
    44
    34
    07
Indietro
Alto