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
    giovedì 19 giugno 2025
    Bari
    32
    64
    67
    30
    17
    Cagliari
    39
    56
    77
    12
    35
    Firenze
    11
    16
    59
    72
    02
    Genova
    80
    79
    05
    03
    33
    Milano
    09
    87
    23
    88
    82
    Napoli
    56
    74
    85
    16
    61
    Palermo
    84
    21
    08
    18
    85
    Roma
    71
    84
    20
    54
    86
    Torino
    28
    36
    68
    49
    53
    Venezia
    14
    45
    39
    43
    42
    Nazionale
    73
    11
    46
    20
    26
    Estrazione Simbolotto
    Napoli
    43
    35
    11
    26
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto