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 13 giugno 2026
    Bari
    25
    62
    86
    19
    37
    Cagliari
    03
    65
    84
    69
    63
    Firenze
    84
    34
    83
    08
    26
    Genova
    19
    29
    90
    53
    32
    Milano
    75
    70
    86
    51
    35
    Napoli
    46
    48
    68
    37
    19
    Palermo
    16
    39
    87
    84
    74
    Roma
    29
    42
    65
    54
    80
    Torino
    77
    67
    68
    57
    45
    Venezia
    05
    82
    85
    42
    19
    Nazionale
    75
    27
    45
    33
    39
    Estrazione Simbolotto
    Napoli
    42
    15
    27
    08
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto