Novità

Aiuto per sviluppare uno script " tecnica lotto 4 ambi".

N

nicotina

Super Member >PLATINUM<
AIUTO PER SVILUPPARE UNO SCRIPT " TECNICA LOTTO 4 AMBI".

La mia TECNICA, si compone di soli 4 ambi secchi, e in passato mi ha dato alcune vincite ripetitive, chiedo aiuto per uno SCRIPT, se qualche anima buona mi aiuta perchè io modestamente non ci capisco un 'h, ringrazio anticipatamente
Per ricavare la giusta previsione, dovremo agire esclusivamente all'ultima estrazione del mese prendendo in considerazione la ruota di TORINO per ricavare la previsione, con semplici operazioni i 4 ambi secchi da giocare sulla ruota stessa.
A presto Nicotina
 
Ultima modifica:
Eccoti lo script....... Ciao !!! :)

Codice: 
Sub Main()
	Dim ruota(10)
	Dim amb1(2)
	Dim amb2(2)
	Dim amb3(2)
	Dim amb4(2)
	Dim poste(2)
	poste(2) = 1
	rr = InputBox("RUOTA DI GIOCO",,9)
	kc = InputBox("COLPI DI GIOCO",,12)
	ini = InputBox("ESTRAZIONE DI PARTENZA",,8300)
	fin = InputBox("ESTRAZIONE FINALE",,EstrazioneFin)
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		Messaggio "Metodo di Nicotina - Script By Blackmore"
		If IsUltimaDelMese(es) Then
			casi = casi + 1
			Scrivi String(110,"*") & " caso n°" & Format2(casi),1 :ColoreTesto 1
			Scrivi DataEstrazione(es) & " - " & SiglaRuota(rr) & " - " & StringaEstratti(es,rr) & "  ---> Ultima estrazione del mese",1
			ColoreTesto 0: ruota(1) = rr
			amb1(1) = Fuori90(Estratto(es,TO_,1)* 82)
			amb1(2) = Fuori90(Estratto(es,GE_,1)* 24)
			ImpostaGiocata 1,amb1,ruota,poste,kc,2
			amb2(1) = Fuori90(Estratto(es,TO_,1) + 15)
			amb2(2) = Fuori90(Estratto(es,VE_,2) + 43)
			ImpostaGiocata 2,amb2,ruota,poste,kc,2
			amb3(1) = Fuori90(Estratto(es,TO_,1)* 27)
			amb3(2) = Fuori90(Estratto(es,TO_,3)* 48)
			ImpostaGiocata 3,amb3,ruota,poste,kc,2
			amb4(1) = Fuori90(Estratto(es,TO_,1)* 31)
			amb4(2) = Fuori90(Estratto(es,NZ_,4) + 30)
			ImpostaGiocata 4,amb4,ruota,poste,kc,2
			Gioca es,1 'togliere la virgola e l'1 se si usa L8
		End If
	Next
	Scrivi:ScriviResoconto
End Sub
'Funzione creata da Joe
Function IsUltimaDelMese(idEstr)
	Dim sData,sDataNew
	Dim idGiornoSettimana
	Dim gMancanti
	Dim nMeseCorr
	sData = Replace(DataEstrazione(idEstr),".","/")
	nMeseCorr = Month(sData)
	idGiornoSettimana = WeekDay(sData)
	Select Case idGiornoSettimana
	Case vbTuesday ' martedi
		gMancanti = 2
	Case vbThursday ' giovedi
		gMancanti = 2
	Case vbSaturday ' sabato
		gMancanti = 3
	End Select
	sDataNew = DateAdd("d",gMancanti,sData)
	If Month(sDataNew) <> nMeseCorr Then
		IsUltimaDelMese = True
	Else
		IsUltimaDelMese = False
	End If
End Function
 
Salve a tutti voi del forum
ringrazio di cuore il signor blackmore per il lavoro svolto veramente un lavoro eseguito benissimo, grazie !!!
Al prossimo nicotina
 
Solo un piccolo appunto ...

La funzione "IsUltimaDelMese" non è mia, l'ho promossa, ne ho un pò contribuito ...

ma è a Luigi a cui va riconosciuto il merito di averla scritta.

Peraltro essendo cresciuta sino a diventare "istruzione" può essere richiamata dallo script (di Spaziometria)

senza la necessità di doverla aggiungere, come funzione, allo script-stesso.

Se poi, ricordo bene, Luigi l'ha anche resa funzionante nei periodi in cui le estrazioni settimanali

erano diversi da tre. Un limite, della funzione qui citata.

:) Cordiali saluti a tutte/i.
 
Ultima modifica:
nicotina ha scritto:
AIUTO PER SVILUPPARE UNO SCRIPT " TECNICA LOTTO 4 AMBI".

La mia TECNICA, si compone di soli 4 ambi secchi, e in passato mi ha dato alcune vincite ripetitive, chiedo aiuto per uno SCRIPT, se qualche anima buona mi aiuta perchè io modestamente non ci capisco un 'h, ringrazio anticipatamente
Per ricavare la giusta previsione, dovremo agire esclusivamente all'ultima estrazione del mese prendendo in considerazione la ruota di TORINO per ricavare la previsione, con semplici operazioni i 4 ambi secchi da giocare sulla ruota stessa.
A presto Nicotina
Clicca per espandere...

Salve! si può avere la tecnica?
Grazie. Ciao Cavaleri.
 
Blackmore ha scritto:
Eccoti lo script....... Ciao !!! :)

Codice: 
Sub Main()
    Dim ruota(10)
    Dim amb1(2)
    Dim amb2(2)
    Dim amb3(2)
    Dim amb4(2)
    Dim poste(2)
    poste(2) = 1
    rr = InputBox("RUOTA DI GIOCO",,9)
    kc = InputBox("COLPI DI GIOCO",,12)
    ini = InputBox("ESTRAZIONE DI PARTENZA",,8300)
    fin = InputBox("ESTRAZIONE FINALE",,EstrazioneFin)
    For es = ini To fin
        Call AvanzamentoElab(ini,fin,es)
        Messaggio "Metodo di Nicotina - Script By Blackmore"
        If IsUltimaDelMese(es) Then
            casi = casi + 1
            Scrivi String(110,"*") & " caso n°" & Format2(casi),1 :ColoreTesto 1
            Scrivi DataEstrazione(es) & " - " & SiglaRuota(rr) & " - " & StringaEstratti(es,rr) & "  ---> Ultima estrazione del mese",1
            ColoreTesto 0: ruota(1) = rr
            amb1(1) = Fuori90(Estratto(es,TO_,1)* 82)
            amb1(2) = Fuori90(Estratto(es,GE_,1)* 24)
            ImpostaGiocata 1,amb1,ruota,poste,kc,2
            amb2(1) = Fuori90(Estratto(es,TO_,1) + 15)
            amb2(2) = Fuori90(Estratto(es,VE_,2) + 43)
            ImpostaGiocata 2,amb2,ruota,poste,kc,2
            amb3(1) = Fuori90(Estratto(es,TO_,1)* 27)
            amb3(2) = Fuori90(Estratto(es,TO_,3)* 48)
            ImpostaGiocata 3,amb3,ruota,poste,kc,2
            amb4(1) = Fuori90(Estratto(es,TO_,1)* 31)
            amb4(2) = Fuori90(Estratto(es,NZ_,4) + 30)
            ImpostaGiocata 4,amb4,ruota,poste,kc,2
            Gioca es,1 'togliere la virgola e l'1 se si usa L8
        End If
    Next
    Scrivi:ScriviResoconto
End Sub
'Funzione creata da Joe
Function IsUltimaDelMese(idEstr)
    Dim sData,sDataNew
    Dim idGiornoSettimana
    Dim gMancanti
    Dim nMeseCorr
    sData = Replace(DataEstrazione(idEstr),".","/")
    nMeseCorr = Month(sData)
    idGiornoSettimana = WeekDay(sData)
    Select Case idGiornoSettimana
    Case vbTuesday ' martedi
        gMancanti = 2
    Case vbThursday ' giovedi
        gMancanti = 2
    Case vbSaturday ' sabato
        gMancanti = 3
    End Select
    sDataNew = DateAdd("d",gMancanti,sData)
    If Month(sDataNew) <> nMeseCorr Then
        IsUltimaDelMese = True
    Else
        IsUltimaDelMese = False
    End If
End Function
Clicca per espandere...

Per poterla usare con L8+, cosa bisogna fare?
Grazie Cavaleri
 
Scusa ma c'è scritto!

Gioca es,1 'togliere la virgola e l'1 se si usa L8

Comunque sia questo a me con L8 Funziona.

Codice: 
Sub Main()
    Dim ruota(10)
    Dim amb1(2)
    Dim amb2(2)
    Dim amb3(2)
    Dim amb4(2)
    Dim poste(2)
    poste(2) = 1
    rr = InputBox("RUOTA DI GIOCO",,9)
    kc = InputBox("COLPI DI GIOCO",,12)
    ini = InputBox("ESTRAZIONE DI PARTENZA",,8300)
    fin = InputBox("ESTRAZIONE FINALE",,EstrazioneFin)
    For es = ini To fin
        Call AvanzamentoElab(ini,fin,es)
        Messaggio "Metodo di Nicotina - Script By Blackmore"
        If IsUltimaDelMese(es) Then
            casi = casi + 1
            Scrivi String(110,"*") & " caso n°" & Format2(casi),1 :ColoreTesto 1
            Scrivi DataEstrazione(es) & " - " & SiglaRuota(rr) & " - " & StringaEstratti(es,rr) & "  ---> Ultima estrazione del mese",1
            ColoreTesto 0: ruota(1) = rr
            amb1(1) = Fuori90(Estratto(es,TO_,1)* 82)
            amb1(2) = Fuori90(Estratto(es,GE_,1)* 24)
            ImpostaGiocata 1,amb1,ruota,poste,kc,2
            amb2(1) = Fuori90(Estratto(es,TO_,1) + 15)
            amb2(2) = Fuori90(Estratto(es,VE_,2) + 43)
            ImpostaGiocata 2,amb2,ruota,poste,kc,2
            amb3(1) = Fuori90(Estratto(es,TO_,1)* 27)
            amb3(2) = Fuori90(Estratto(es,TO_,3)* 48)
            ImpostaGiocata 3,amb3,ruota,poste,kc,2
            amb4(1) = Fuori90(Estratto(es,TO_,1)* 31)
            amb4(2) = Fuori90(Estratto(es,NZ_,4) + 30)
            ImpostaGiocata 4,amb4,ruota,poste,kc,2
            Gioca es 'togliere la virgola e l'1 se si usa L8
        End If
    Next
    Scrivi:ScriviResoconto
End Sub
'Funzione creata da LuigiB 
Function IsUltimaDelMese(idEstr)
    Dim sData,sDataNew
    Dim idGiornoSettimana
    Dim gMancanti
    Dim nMeseCorr
    sData = Replace(DataEstrazione(idEstr),".","/")
    nMeseCorr = Month(sData)
    idGiornoSettimana = WeekDay(sData)
    Select Case idGiornoSettimana
    Case vbTuesday ' martedi
        gMancanti = 2
    Case vbThursday ' giovedi
        gMancanti = 2
    Case vbSaturday ' sabato
        gMancanti = 3
    End Select
    sDataNew = DateAdd("d",gMancanti,sData)
    If Month(sDataNew) <> nMeseCorr Then
        IsUltimaDelMese = True
    Else
        IsUltimaDelMese = False
    End If
End Function

:) Auguri
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 09 maggio 2026
    Bari
    65
    02
    64
    85
    33
    Cagliari
    28
    76
    58
    69
    64
    Firenze
    15
    87
    69
    64
    22
    Genova
    36
    34
    40
    55
    52
    Milano
    66
    27
    36
    11
    56
    Napoli
    51
    75
    66
    38
    24
    Palermo
    28
    41
    02
    40
    44
    Roma
    38
    34
    07
    36
    16
    Torino
    54
    62
    73
    64
    30
    Venezia
    81
    41
    84
    64
    89
    Nazionale
    05
    56
    68
    71
    31
    Estrazione Simbolotto
    Milano
    32
    27
    22
    20
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto