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 26 settembre 2026
    Bari
    22
    29
    63
    55
    38
    Cagliari
    02
    71
    47
    42
    75
    Firenze
    09
    21
    74
    71
    19
    Genova
    87
    52
    82
    72
    26
    Milano
    57
    19
    11
    37
    76
    Napoli
    72
    78
    31
    37
    07
    Palermo
    82
    15
    68
    28
    60
    Roma
    28
    67
    61
    82
    90
    Torino
    67
    78
    56
    18
    59
    Venezia
    84
    66
    75
    76
    43
    Nazionale
    06
    14
    62
    09
    88
    Estrazione Simbolotto
    Palermo
    34
    02
    23
    36
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto