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
    giovedì 29 maggio 2025
    Bari
    45
    10
    60
    68
    59
    Cagliari
    04
    31
    24
    61
    63
    Firenze
    71
    59
    65
    53
    46
    Genova
    21
    26
    50
    63
    86
    Milano
    46
    52
    45
    21
    15
    Napoli
    88
    90
    17
    46
    12
    Palermo
    31
    40
    71
    32
    12
    Roma
    86
    81
    41
    12
    19
    Torino
    75
    32
    64
    46
    04
    Venezia
    26
    65
    38
    56
    60
    Nazionale
    16
    55
    64
    57
    12
    Estrazione Simbolotto
    Milano
    45
    26
    36
    08
    22

Ultimi Messaggi

Indietro
Alto