Novità

Aiuto per modifica a script, grazie.

L

laken

Member
Salve, chiedo aiuto per la modifica di questo script. Vorrei poter inserire degli "Input Box" nella parte del listato dove compaiono le sequenze delle ruote con la parte sommativa (esempio:cinquina(1) = Fuori90(Estratto(es,GE_,4) + 46) ). In pratica vorrei poter selezionare la ruota(GE, e mi sembra che già lo faccia :)), la posizione (4) e il numero da sommare (+46) con le finestre come questo script fa con altri dati all'inizio, mantenendo invariato quello che fa lo script che per me va bene.

Grazie


Codice: 
Sub Main()
    Scrivi
    ColoreTesto 2
    Scrivi String(40," ") & "METODO "
    Scrivi
    ColoreTesto 3
    Scrivi String(40," ") & "INDICE MENSILE 1 GENOVA"
    Scrivi
    ColoreTesto 0
    Dim ruota(1)
    Dim cinquina(6)
    Dim poste(6)
    poste(2) = 1    ' QUI SI SCEGLIE DI VEDERE LE VINCITE PER AMBO(2) , TERNO(3) , QUATERNA(4), CINQUINA (5)
    poste(3) = 1
    poste(4) = 1
    poste(5) = 1
    ruo = CInt(InputBox("RUOTA DI GIOCO?",,4))
    zz = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,158)
    k = CInt(InputBox("QUANTI COLPI?",,3))
    ini = EstrazioneFin - zz
    fin = EstrazioneFin
    co = 0
    ruota(1) = ruo
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 1 Then    'CAMBIO INDICE MENSILE
            casi = casi + 1
            Scrivi String(60,"=") & " Caso n° " & casi,1
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " - Sestina alla " & IndiceMensile(es) & "° del mese su: " & NomeRuota(ruo),1
            ColoreTesto 0
            Scrivi String(60,"="),1
            co = co + 1
            cinquina(1) = Fuori90(Estratto(es,GE_,4) + 46)
            cinquina(2) = Fuori90(Estratto(es,GE_,4) + 55)
            cinquina(3) = Fuori90(Estratto(es,GE_,4) + 74)
            cinquina(4) = Fuori90(Estratto(es,GE_,4) + 64)
            cinquina(5) = Fuori90(Estratto(es,GE_,4) + 81)
            cinquina(6) = Fuori90(Estratto(es,GE_,4) + 83)
            ImpostaGiocata 1,cinquina,ruota,poste,k,3
            Gioca es
        End If
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub
 
Ultima modifica:
Codice: 
Sub Main()
    Scrivi
    ColoreTesto 2
    Scrivi String(40," ") & "METODO "
    Scrivi
    ColoreTesto 3
    Scrivi String(40," ") & "INDICE MENSILE 1 GENOVA"
    Scrivi
    ColoreTesto 0
    Dim ruota(1)
    Dim cinquina(6)
    Dim poste(6)
    poste(2) = 1 ' QUI SI SCEGLIE DI VEDERE LE VINCITE PER AMBO(2) , TERNO(3) , QUATERNA(4), CINQUINA (5)
    poste(3) = 1
    poste(4) = 1
    poste(5) = 1
    ruo = CInt(InputBox("RUOTA DI GIOCO?",,4))
    zz = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,158)
    k = CInt(InputBox("QUANTI COLPI?",,3))
    p = CInt(InputBox(" Scegli la posizione voluta ",,"4"))
    idm = CInt(InputBox(" Scegli Indice mensile ",,"1"))
    nu1 = CInt(InputBox(" Scegli il 1° numero ",,"46"))
    nu2 = CInt(InputBox(" Scegli il 2° numero ",,"55"))
    nu3 = CInt(InputBox(" Scegli il 3° numero ",,"74"))
    nu4 = CInt(InputBox(" Scegli il 4° numero ",,"64"))
    nu5 = CInt(InputBox(" Scegli il 5° numero ",,"81"))
    nu6 = CInt(InputBox(" Scegli il 6° numero ",,"83"))
    ini = EstrazioneFin - zz
    fin = EstrazioneFin
    co = 0
    ruota(1) = ruo
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = idm Then 'CAMBIO INDICE MENSILE
            casi = casi + 1
            Scrivi String(60,"=") & " Caso n° " & casi,1
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " - Sestina alla " & IndiceMensile(es) & "° del mese su: " & NomeRuota(ruo),1
            ColoreTesto 0
            Scrivi String(60,"="),1
            co = co + 1
            cinquina(1) = Fuori90(Estratto(es,ruo,p) + nu1)
            cinquina(2) = Fuori90(Estratto(es,ruo,p) + nu2)
            cinquina(3) = Fuori90(Estratto(es,ruo,p) + nu3)
            cinquina(4) = Fuori90(Estratto(es,ruo,p) + nu4)
            cinquina(5) = Fuori90(Estratto(es,ruo,p) + nu5)
            cinquina(6) = Fuori90(Estratto(es,ruo,p) + nu6)
            ImpostaGiocata 1,cinquina,ruota,poste,k,3
            Gioca es
        End If
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub
 
Ultima modifica di un moderatore:
Guardati anche questo...


Codice: 
Sub Main()
	Scrivi String(50," ") & "SCRIPT BY BLACK",1
	Scrivi
	Dim ruote(1)
	Dim poste(5),n6(6)
	poste(2) = 1
	poste(3) = 1
	poste(4) = 1
	poste(5) = 1
	es = InputBox("Quante Estrazioni precedenti vuoi controllare? ",,158)
	im = InputBox("Scegli l'estrazione che vuoi analizzare? 0 ultima,:",,1)
	ru1 = CInt(InputBox(" RUOTA DI GIOCO?",,4))
	k = CInt(InputBox("QUANTI COLPI?",,3))
	ww = InputBox("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 3.1= 3^estr.di BA)","POS.-RUOTA","4.4")
	ww = "0." & ww
	y = Split(ww,".")
	p = CInt(y(1)) : r = CInt(y(2))
	ff = InputBox("Digita i 6 Fissi da sommare all'estratto scelto","FISSI","46.55.74.64.81.83")
	ff = "0." & ff
	h = Split(ff,".")
	f1 = CInt(h(1))
	f2 = CInt(h(2))
	f3 = CInt(h(3))
	f4 = CInt(h(4))
	f5 = CInt(h(5))
	f6 = CInt(h(6))
	co = 0
	ini = EstrazioneFin - eval(es)
	fin = EstrazioneFin
	For n = ini To fin
		Messaggio(n)
		co = co + 1
		If(((eval(im) = 0)And(n = fin))Or((IndiceMensile(n) = eval(im)And(eval(im) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(im) = 0))))Then
			a = Estratto(n,r,p)
			casi = casi + 1
			ruote(1) = ru1
			Scrivi String(95,"x") & " Caso n° " & casi,1
			ColoreTesto 1
			Scrivi DataEstrazione(n) & " - Estratti su Genova - " & StringaEstratti(n,r)
			Scrivi "Sommiamo i Fissi: " & f1 & "," & f2 & "," & f3 & "," & f4 & "," & f5 & "," & f6 & "  al  " & p & "^ estr. di " & SiglaRuota(r) & " (" & a & ")"
			ColoreTesto 0
			Scrivi
			n6(1) = Fuori90(a + f1)
			n6(2) = Fuori90(a + f2)
			n6(3) = Fuori90(a + f3)
			n6(4) = Fuori90(a + f4)
			n6(5) = Fuori90(a + f5)
			n6(6) = Fuori90(a + f6)
			ImpostaGiocata 1,n6,ruote,poste,k,2
			Gioca n
		End If
	Next
	Scrivi
	Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub
 
X baffoblu come si fa ad utilizzare gli script.......GRAZIE......

X baffoblu come si fa ad utilizzare gli script.......GRAZIE......

Baffoblu ha scritto:
Codice: 
Sub Main()
    Scrivi
    ColoreTesto 2
    Scrivi String(40," ") & "METODO "
    Scrivi
    ColoreTesto 3
    Scrivi String(40," ") & "INDICE MENSILE 1 GENOVA"
    Scrivi
    ColoreTesto 0
    Dim ruota(1)
    Dim cinquina(6)
    Dim poste(6)
    poste(2) = 1 ' QUI SI SCEGLIE DI VEDERE LE VINCITE PER AMBO(2) , TERNO(3) , QUATERNA(4), CINQUINA (5)
    poste(3) = 1
    poste(4) = 1
    poste(5) = 1
    ruo = CInt(InputBox("RUOTA DI GIOCO?",,4))
    zz = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,158)
    k = CInt(InputBox("QUANTI COLPI?",,3))
    p = CInt(InputBox(" Scegli la posizione voluta ",,"4"))
    nu1 = CInt(InputBox(" Scegli il 1° numero ",,"46"))
    nu2 = CInt(InputBox(" Scegli il 2° numero ",,"55"))
    nu3 = CInt(InputBox(" Scegli il 3° numero ",,"74"))
    nu4 = CInt(InputBox(" Scegli il 4° numero ",,"64"))
    nu5 = CInt(InputBox(" Scegli il 5° numero ",,"81"))
    nu6 = CInt(InputBox(" Scegli il 6° numero ",,"83"))
    ini = EstrazioneFin - zz
    fin = EstrazioneFin
    co = 0
    ruota(1) = ruo
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 1 Then 'CAMBIO INDICE MENSILE
            casi = casi + 1
            Scrivi String(60,"=") & " Caso n° " & casi,1
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " - Sestina alla " & IndiceMensile(es) & "° del mese su: " & NomeRuota(ruo),1
            ColoreTesto 0
            Scrivi String(60,"="),1
            co = co + 1
            cinquina(1) = Fuori90(Estratto(es,ruo,p) + nu1)
            cinquina(2) = Fuori90(Estratto(es,ruo,p) + nu2)
            cinquina(3) = Fuori90(Estratto(es,ruo,p) + nu3)
            cinquina(4) = Fuori90(Estratto(es,ruo,p) + nu4)
            cinquina(5) = Fuori90(Estratto(es,ruo,p) + nu5)
            cinquina(6) = Fuori90(Estratto(es,ruo,p) + nu6)
            ImpostaGiocata 1,cinquina,ruota,poste,k,3
            Gioca es
        End If
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub
Clicca per espandere...
:confused::confused:
 
laken ha scritto:
Grazie per l'aiuto, ora vado a mangiare poi li testo e vi saprò dire se tutto è ok... ;)
Clicca per espandere...

Potete controllare se anche a voi una volta eseguito lo script e tentate di farlo eseguire una seconda volta si impianta il processo ?

Inoltre x Baffo, mi ero dimenticato di specificare di mettere l'input box pure per la scelta dell'indice mensile sullo script che hai fatto.
 
Ultima modifica:
si, capita anche a me, comunque entrambi i listati fanno ciò che chiedi
Ciao
 
laken ha scritto:
Potete controllare se anche a voi una volta eseguito lo script e tentate di farlo eseguire una seconda volta si impianta il processo ?

Inoltre x Baffo, mi ero dimenticato di specificare di mettere l'input box pure per la scelta dell'indice mensile sullo script che hai fatto.
Clicca per espandere...


Personalmente , non mi è mai capitato.....

Ti ho messo la modifica per l'indice mensile......
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 08 agosto 2026
    Bari
    10
    78
    17
    03
    02
    Cagliari
    88
    32
    59
    64
    50
    Firenze
    28
    90
    84
    17
    65
    Genova
    66
    35
    09
    80
    68
    Milano
    55
    37
    75
    15
    50
    Napoli
    01
    80
    45
    05
    10
    Palermo
    24
    27
    04
    87
    19
    Roma
    49
    85
    34
    82
    03
    Torino
    54
    50
    31
    61
    26
    Venezia
    36
    47
    08
    19
    89
    Nazionale
    01
    49
    77
    10
    06
    Estrazione Simbolotto
    Nazionale
    27
    24
    12
    39
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto