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 11 luglio 2026
    Bari
    42
    14
    74
    44
    05
    Cagliari
    81
    77
    15
    50
    53
    Firenze
    81
    12
    77
    67
    64
    Genova
    49
    32
    61
    33
    17
    Milano
    53
    24
    41
    83
    38
    Napoli
    31
    02
    68
    25
    74
    Palermo
    27
    90
    75
    40
    10
    Roma
    52
    68
    56
    78
    37
    Torino
    54
    33
    64
    42
    05
    Venezia
    49
    70
    73
    16
    06
    Nazionale
    02
    58
    06
    70
    84
    Estrazione Simbolotto
    Nazionale
    11
    42
    35
    36
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto