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 01 agosto 2026
    Bari
    46
    54
    36
    47
    01
    Cagliari
    77
    30
    04
    79
    18
    Firenze
    84
    76
    10
    27
    44
    Genova
    32
    13
    71
    38
    46
    Milano
    10
    23
    18
    20
    03
    Napoli
    73
    36
    10
    90
    07
    Palermo
    61
    46
    24
    57
    32
    Roma
    89
    78
    23
    07
    35
    Torino
    21
    59
    34
    73
    86
    Venezia
    74
    01
    30
    46
    54
    Nazionale
    71
    65
    17
    09
    20
    Estrazione Simbolotto
    Nazionale
    03
    09
    37
    30
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto