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
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto