Novità

nuovo script, chi me lo fa????

margot

Super Member >GOLD<
per sviluppare lo script, bisogna tenere in considerazione il primo e il secondo estratto delle ruote
esempio del 24 agosto:
mi 87 - 41
na 73 - 01

87+01= 88
73+41= 24

8824 piramide
716
87
87 e vertibile 78 abbinamento 24 88 su mi na

il tutto da verificare per tutte le ruote incluso la nazionale

grazie a chi mi darà una mano, ciaooo da margot
 
Passavo da queste parti (anche se il server ti fa aspettare una vita x il logn)
Per eventuali modifiche, richieste etc... lascio il posto a Lanfranco :D
Ciao

Codice:
*************************************************************** Caso n°35
24.08.2013  MI  87.41.42.19.16  87-41
24.08.2013  NA  73.01.83.79.51  73-01

[COLOR="#0000CD"]NUMERO PIRAMIDATO: 87  --->  Vertibile: 78
Abbinamenti: 88-24[/COLOR]

Estrazione generatrice del pronostico 08734 [102 - 24/08/2013]
G 0001 Numeri in gioco : 87.88.24 su MI NA per Ambo
V N. [87.88.24                      ] [MI]     [.. 24 .. 88 ..] C.   6 Ambo       08740 [108 - 07/09/2013]
Interrotta per esito verificato

G 0002 Numeri in gioco : 78.88.24 su MI NA per Ambo
V N. [78.88.24                      ] [MI]     [.. 24 .. 88 78] C.   6 Terno      08740 [108 - 07/09/2013]
Interrotta per esito verificato



Codice:
Sub Main
	Scrivi:Scrivi "Metodo di margot script by Blackmore": Scrivi
	Dim ruote(10)
	Dim terzina1(3),terzina2(3),poste(2)
	poste(2) = 1
	ini = InputBox("INIZIO",,8734)
	k = InputBox("COLPI",,10)
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			For r2 = r1 + 1 To 12
				If r2 = 11 Then r2 = 12
				a = Estratto(es,r1,1) : b = Estratto(es,r1,2)
				c = Estratto(es,r2,1) : d = Estratto(es,r2,2)
				xx = Fuori90(a + d) : xy = Fuori90(b + c)
				y = xx & xy
				yy = Fuori90(Piramide(y,,2))
				xz = Vert(yy)
				co = co + 1
				ruote(1) = r1 : ruote(2) = r2
				Scrivi String(90,"*") & " Caso n°" & Format2(co),1
				Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  " & Format2(a) & "-" & Format2(b)
				Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & "  " & Format2(c) & "-" & Format2(d)
				ColoreTesto 1:Scrivi "NUMERO PIRAMIDATO: " & Format2(yy) & "  --->  Vertibile: " & Format2(xz)
				Scrivi "Abbinamenti: " & Format2(xx) & "-" & Format2(xy):ColoreTesto 0
				terzina1(1) = yy
				terzina1(2) = xx
				terzina1(3) = xy
				ImpostaGiocata 1,terzina1,ruote,poste,k,2
				terzina2(1) = xz
				terzina2(2) = xx
				terzina2(3) = xy
				ImpostaGiocata 2,terzina2,ruote,poste,k,2
				Gioca es,1
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi:Scrivi
	ScriviResoconto
End Sub
 
eccoti lo script, fammi sapere se va bene, comunque adesso ne hai due e puoi sbizzarrirti......
vedi come due script quasi diversi arrivano alla stessa soluzione :-) ciao Blackmore :-)

PS : margot, ti ho inserito delle inputbox dove puoi scegliere a piacere la sequenza delle ruote


Codice:
Sub Main()
    Dim es,Ini,Fin,r1,r2,ee,clp
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim n1(2)
    Dim n2(4)
    posta(1) = 1
    poste(2) = 1
    r1 = CInt(InputBox(" Scegli la 1°ruota ",,"1"))
    r2 = CInt(InputBox(" Scegli la 2°ruota ",,"2"))' per la Nazionale metti 11
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    Ini = EstrazioneFin - ee
    Fin = EstrazioneFin
    co = 0
    For es = Ini To Fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,Fin,es)
        ruote(1) = r1
        ruote(2) = r2
        a = Estratto(es,r1,1)
        b = Estratto(es,r1,2)
        c = Estratto(es,r2,1)
        d = Estratto(es,r2,2)
        '---------------------
        s1 = Fuori90(a + d)
        s2 = Fuori90(c + b)
        s3 =(s1 * 100)
        pid =(s3 + s2)
        '--------------------------
        ok = 0
        If pid > 999 Then
            pid1 = Piramide(pid,2,due)
            ok = 1
        End If
        '--------------------------
        If pid < 1000 Then
            pid1 = Piramide(pid,1,due)
            ok = 1
        End If
        '--------------------------
        n1(1) = pid1
        If n1(1) > 90 Then
            n1(1) =(n1(1) - 90)
            ok = 1
        End If
        n1(2) = Vert(n1(1))
        n2(1) = s1
        n2(2) = s2
        n2(3) = n1(1)
        n2(4) = n1(2)
        If ok = 1 Then
            '-----------------------------------------------
            ruote(1) = r1
            ruote(2) = r2
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
            Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
            Scrivi String(65,"°"),1
            ImpostaGiocata 1,n1,ruote,posta,clp
            ImpostaGiocata 2,n2,ruote,poste,clp
            Gioca es,1,,1
            If ScriptInterrotto Then Exit For
        End If
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" Idea di Margot listato by Lanfranco60 "),1,3,0
    ScriviResoconto
End Sub
 
Ultima modifica:
Bravissimi tutti e due pero si potrebbe inserire quando fate gli script delle spiegazioni per far capire a quelli che come me partono da zero e vogliono imparare, grazie ciao.
 
Bravissimi tutti e due pero si potrebbe inserire quando fate gli script delle spiegazioni per far capire a quelli che come me partono da zero e vogliono imparare, grazie ciao.

Se vuoi imparare sul serio devi studiare ed impegnarti veramente, ti assicuro che all'inizio è dura, ma qui sul forum trovi tutte le informazioni, guide fatte da Joe91, LuigiB, Baffoblu ed altri, devi solo essere disposto a leggere post su post da qui ad almeno 4 o 5 anni

Io stesso spesso chiedo aiuto, a volte me lo danno e a volte se non ci sbatti la testa non ne vieni a capo, so fare gli script, ma ti assicuro che sono ad un livello molto basso confronto a quelli che ti dicevo sopra, io ci ho messo un sacco di tempo per imparare la lettera A di tutto l'alfabeto dello script.

Ciao:-)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 agosto 2025
    Bari
    67
    05
    41
    45
    12
    Cagliari
    29
    78
    54
    88
    28
    Firenze
    57
    58
    15
    45
    44
    Genova
    53
    33
    89
    34
    77
    Milano
    09
    31
    36
    03
    21
    Napoli
    82
    35
    45
    06
    65
    Palermo
    25
    40
    82
    48
    62
    Roma
    21
    24
    74
    52
    09
    Torino
    28
    78
    50
    90
    84
    Venezia
    38
    87
    03
    25
    41
    Nazionale
    56
    09
    42
    57
    33
    Estrazione Simbolotto
    Nazionale
    41
    44
    04
    07
    21

Ultimi Messaggi

Indietro
Alto