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
    giovedì 22 ottobre 2026
    Bari
    89
    68
    23
    07
    50
    Cagliari
    21
    80
    04
    51
    43
    Firenze
    34
    25
    05
    77
    90
    Genova
    77
    34
    37
    90
    54
    Milano
    18
    07
    61
    35
    03
    Napoli
    41
    90
    40
    76
    78
    Palermo
    18
    80
    78
    12
    84
    Roma
    40
    03
    07
    86
    30
    Torino
    34
    56
    21
    10
    41
    Venezia
    63
    78
    43
    68
    80
    Nazionale
    76
    38
    65
    21
    03
    Estrazione Simbolotto
    12
    17
    04
    39
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto