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 28 marzo 2026
    Bari
    53
    04
    01
    11
    09
    Cagliari
    67
    19
    47
    35
    64
    Firenze
    13
    48
    58
    39
    15
    Genova
    52
    87
    51
    79
    67
    Milano
    07
    79
    84
    28
    37
    Napoli
    26
    90
    68
    82
    67
    Palermo
    38
    57
    65
    20
    56
    Roma
    81
    66
    45
    53
    08
    Torino
    29
    47
    55
    78
    71
    Venezia
    07
    29
    76
    14
    15
    Nazionale
    17
    10
    21
    29
    15
    Estrazione Simbolotto
    Firenze
    02
    38
    33
    11
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto