x blackmore o baffoblu

paololotto · 23 Aprile 2012

ciao nella discussione "to-ve ottimo .....provate
ho provato a realizzare il listato del metodo ( lo trovi a pag 20) inserito da onei ma pultroppo nn sono propio bravo, nn è che uno di voi 2 riuscirebbe a correggere il mio errore
grazie

Roby · 23 Aprile 2012

Codice:

Sub Main()
	Scrivi String(30," ") & " Metodo di Onei...http://forum.lottoced.com/f8/ve-ottimo-provate-2405/"
	Dim ruote(2)
	Dim ambata(1)
	Dim ambo1(2)
	Dim ambo2(2)
	Dim ambo3(2)
	Dim ambo4(2)
	Dim lung(5)
	Dim posta(1)
	Dim poste(2)
	Dim postee(5)
	posta(1) = 1
	poste(2) = 1
	postee(2) = 1
	postee(3) = 1
	postee(4) = 1
	ruo1 = CInt(InputBox("1°RUOTA DI GIOCO?",,9))
	ruo2 = CInt(InputBox("2°RUOTA DI GIOCO?",,10))
	ec = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,300)
	k = CInt(InputBox("INSERISCI I COLPI DI GIOCO",,13))
	ini = EstrazioneFin - ec
	fin = EstrazioneFin
	co = 0
	ruote(1) = ruo1
	ruote(2) = ruo2
	For es = ini To fin
		Messaggio(es)
		xx = 13
		If Mese(es) = 2 Then xx = 12
		If IndiceMensile(es) = xx Then
			casi = casi + 1
			Scrivi String(72,"=") & " Caso n° " & casi,1
			ColoreTesto 1
			Scrivi DataEstrazione(es) & " - Ruote Di Gioco - " & SiglaRuota(ruo1) & " e " & SiglaRuota(ruo2)
			ColoreTesto 0
			Scrivi String(72,"="),1
			co = co + 1
			ambata(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ImpostaGiocata 1,ambata,ruote,posta,k,1
			ambo1(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ambo1(2) = Fuori90(Estratto(es,TO_,1) + 36)
			If ambo1(2) = ambo1(1) Then ambo1(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			ImpostaGiocata 2,ambo1,ruote,poste,k,2
			ambo2(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ambo2(2) = Fuori90(Estratto(es,TO_,1) + 57)
			If ambo2(2) = ambo2(1) Then ambo2(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			ImpostaGiocata 3,ambo2,ruote,poste,k,2
			ambo3(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ambo3(2) = Fuori90(Estratto(es,VE_,5) + 08)
			If ambo3(2) = ambo3(1) Then ambo3(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			ImpostaGiocata 4,ambo3,ruote,poste,k,2
			ambo4(1) = Fuori90(Estratto(es,VE_,5) + 40)
			ambo4(2) = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,3))
			If ambo4(2) = ambo4(1) Then ambo4(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			ImpostaGiocata 5,ambo4,ruote,poste,k,2
			lung(1) = Fuori90(Estratto(es,VE_,5) + 40)
			lung(2) = Fuori90(Estratto(es,TO_,1) + 36)
			lung(3) = Fuori90(Estratto(es,TO_,1) + 57)
			lung(4) = Fuori90(Estratto(es,VE_,5) + 08)
			lung(5) = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,3))
			If lung(2) = lung(1) Then lung(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			If lung(3) = lung(1) Then lung(3) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			If lung(4) = lung(1) Then lung(4) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			If lung(5) = lung(1) Then lung(5) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
			EliminaRipetuti lung
			ImpostaGiocata 6,lung,ruote,postee,k,2
			Gioca es
		End If
		If ScriptInterrotto Then Exit For
	Next
	Scrivi
	Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub

onei · 23 Aprile 2012

grazie black anche da parte mia sei sempre molto altruista e soprattutto bravo!!!!!!! ciao!!!!!

Baffoblu · 23 Aprile 2012

Blackmore ha scritto:
Per il mese di Febbraio, al momento non ho idee su come fare, se mi viene in mente l'aggiungo
Oppure aspetta Baffoblu....
Ciao

A quanto pare il problema sono quelle estrazioni

che hanno 12,13,14 estrazioni
------------------------------------------

si puo usare un trucchetto :

If IndiceMensile(n+1)=1 And IndiceMensile(es) = 12 Then

oppure:

If IndiceMensile(n+1)=1 And IndiceMensile(es) = 13 Then

Ancora :

If IndiceMensile(n+1)=1 And IndiceMensile(es) = 14 Then

è ovvio che lo script andrà "addomesticato" a dovere......

------------------------------------------------------------------
Oppure l'alternativa è una funzione fatta qualche mese fa da Luigi

funzione :

"IsUltimaDelMese"

IsUltimaDelMese(idEstr) As Boolean

Valore di ritorno:

Torna true se l'estrazione passata è l'ultima del mese

Parametri:

idEstr : Indice dell'estrazione

----------------------------------------------

Questa funzione però va benissimo per quelle estrazioni

"giovani" che sono state fatte solo da pochi anni

con il martedì, giovedì, sabato.......

O forse ho capito male.....

Roby · 24 Aprile 2012

Corretto con la funzione "mese"
sembra Ok
Bisognerebbe che una volta modificato un messaggio, questo tornasse su, invece che quotare o scriverne uno nuovo....

Baffoblu · 24 Aprile 2012

Scusa Blackmore

Non ti arrabbiare......

Ma se questo script deve ricavare all'ultima del mese,
non va bene nemmeno con l'ultima correzione che hai fatto.

Perchè ?

Guarda qui il resoconto che dice :

Codice:

======================================================================== Caso n° 7
29.03.2012 - Ruote Di Gioco - TO e VE
========================================================================
Estrazione generatrice del pronostico 08515 [ 38 - 29/03/2012]

======================================================================== Caso n° 4
29.12.2011 - Ruote Di Gioco - TO e VE
========================================================================
Estrazione generatrice del pronostico 08476 [156 - 29/12/2011]

======================================================================== Caso n° 11
29.03.2011 - Ruote Di Gioco - TO e VE
========================================================================
Estrazione generatrice del pronostico 08358 [ 38 - 29/03/2011]

Ma le date giuste dell'ultima del mese sono queste :

31/03/2012

31/12/2011

31/03/2011

---------------------------------------------

Ti ho suggerito come fare, ma forse non lo hai letto....

Baffoblu · 24 Aprile 2012

Script con la funzione ULTIMA DEL MESE
che la determina con certezza assoluta !

Codice:

Sub Main()
    Scrivi String(30," ") & " Metodo di Onei...http://forum.lottoced.com/f8/ve-ottimo-provate-2405/"
    Scrivi
    ColoreTesto 2
    Scrivi " Modifica con funzione ULTIMA DEL MESE   by Baffoblu",1
    ColoreTesto 0
    Dim ruote(2)
    Dim ambata(1)
    Dim ambo1(2)
    Dim ambo2(2)
    Dim ambo3(2)
    Dim ambo4(2)
    Dim lung(5)
    Dim posta(1)
    Dim poste(2)
    Dim postee(5)
    posta(1) = 1
    poste(2) = 1
    postee(2) = 1
    postee(3) = 1
    postee(4) = 1
    ruo1 = CInt(InputBox("1°RUOTA DI GIOCO?",,9))
    ruo2 = CInt(InputBox("2°RUOTA DI GIOCO?",,10))
    ec = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,300)
    k = CInt(InputBox("INSERISCI I COLPI DI GIOCO",,13))
    ini = EstrazioneFin - ec
    fin = EstrazioneFin
    co = 0
    ruote(1) = ruo1
    ruote(2) = ruo2
    For es = ini To fin
        Messaggio(es)
        If IsUltimaDelMese(es) Then
            casi = casi + 1
            Scrivi String(72,"=") & " Caso n° " & casi,1
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " - Ruote Di Gioco - " & SiglaRuota(ruo1) & " e " & SiglaRuota(ruo2)
            ColoreTesto 0
            Scrivi String(72,"="),1
            co = co + 1
            If ambo1(2) = ambo2(2) Then ambo2(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
            If ambo1(2) = ambo3(2) Then ambo3(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
            If ambo1(2) = ambo4(2) Then ambo4(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
            If ambo2(2) = ambo3(2) Then ambo3(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
            If ambo2(2) = ambo4(2) Then ambo4(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
            If ambo3(2) = ambo4(2) Then ambo4(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1))
            ambata(1) = Fuori90(Estratto(es,VE_,5) + 40)
            ImpostaGiocata 1,ambata,ruote,posta,k,1
            ambo1(1) = Fuori90(Estratto(es,VE_,5) + 40)
            ambo1(2) = Fuori90(Estratto(es,TO_,1) + 36)
            ImpostaGiocata 2,ambo1,ruote,poste,k,2
            ambo2(1) = Fuori90(Estratto(es,VE_,5) + 40)
            ambo2(2) = Fuori90(Estratto(es,TO_,1) + 57)
            ImpostaGiocata 3,ambo2,ruote,poste,k,2
            ambo3(1) = Fuori90(Estratto(es,VE_,5) + 40)
            ambo3(2) = Fuori90(Estratto(es,VE_,5) + 08)
            ImpostaGiocata 4,ambo3,ruote,poste,k,2
            ambo4(1) = Fuori90(Estratto(es,VE_,5) + 40)
            ambo4(2) = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,3))
            ImpostaGiocata 5,ambo4,ruote,poste,k,2
            lung(1) = Fuori90(Estratto(es,VE_,5) + 40)
            lung(2) = Fuori90(Estratto(es,TO_,1) + 36)
            lung(3) = Fuori90(Estratto(es,TO_,1) + 57)
            lung(4) = Fuori90(Estratto(es,VE_,5) + 08)
            lung(5) = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,3))
            ImpostaGiocata 6,lung,ruote,postee,k,2
            Gioca es
            'End If
            'End If
        End If
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub
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

Roby · 24 Aprile 2012

Baffo, magari ho capito male io, ma lo script non calcola l'ultima del mese, bensì la 13°, che non sempre è l'ultima

Codice:

======================================================================== Caso n° 23
29.03.2012 - Ruote Di Gioco - TO e VE
========================================================================
Estrazione generatrice del pronostico 08515 [ 38 - 29/03/2012]


======================================================================== Caso n° 20
29.12.2011 - Ruote Di Gioco - TO e VE
========================================================================
Estrazione generatrice del pronostico 08476 [156 - 29/12/2011]


======================================================================== Caso n° 11
29.03.2011 - Ruote Di Gioco - TO e VE
========================================================================
Estrazione generatrice del pronostico 08358 [ 38 - 29/03/2011]

Baffoblu · 24 Aprile 2012

Boooo, no non ci capisco piu, avevo letto che avevano difficolta a determinare l'ultima del mese,
Ma sinceramente non mi son messo a leggere tutto dall'inizio....

Allora a febbraio non si gioca, non esiste la 13° estrazione......

Baffoblu · 24 Aprile 2012

Blackmore ha scritto:
Corretto con la funzione "mese"
sembra Ok
Bisognerebbe che una volta modificato un messaggio, questo tornasse su, invece che quotare o scriverne uno nuovo....

Ho aperto una discussione con lo staff per questo fatto,
vedi se ti aggiungi anche tu.

Questa è la terza volta che lo faccio, ma.......

Roby · 24 Aprile 2012

Questo è quello che ha scritto Onei

onei ha scritto:
CIAO A TUTTI EFFETTIVAMENTE SEMBRA COMPLICATO MA NON LO E.............DAL PRIMO DEL MESE CONTA 13 ESTRAZIONI .ALLA TREDICESIMA FATE I CALCOLI E NATURALMENTE LE ESTRAZIONI DEL MESE SUCCESSIVO VERIFICARE......GIUSTAMENTE IL MESE DI FEBBRAIO SI CALCOLA L'ULTIMO DEL MESE XCHE E FORMATO DA 12 ESTRAZIONI SCUSATE X NON AVER SPECIFICATO.....NATURALMENTE SI CONTINUA SETTEMBRE (E SOTTOINTESO CHE LA VINCITA SI CONTROLLA NELL'ESTRAZIONI DI OTTOBRE)......SPERO DI AVER CHIARITO I DUBBI!!!!!!! CIAO E BUONE VINCITE A TUTTI

Quindi 13° estrazione del mese, ma a Febbraio, visto che non c'è la 13° si prende l'ultima che di solito è la 12° etc..

Comunque, se Onei guardasse gli script e controllasse la previsioni all'interno (esiti compresi) sarebbe tutto più chiaro

Ora vado a leggere la discussione, è assurdo che ogni volta bisogna riempire di quote o messaggi inutili i post, anche perchè alla fine non si capisce più nulla...

Baffoblu · 24 Aprile 2012

Adesso ho letto anchio.....
un po anomalo, ma va bene comunque.....
chiedo venia per il casino.....

paololotto · 24 Aprile 2012

ciao
prima cosa...... grazie per il listato
ho controllato e va bene ma c'e una piccola modifica che forse nn avete notato
estr del 29-01-2011
3°di to+3°di ve 60+9=69 il num in questione è gia presente come ambata
secondo onei quando un numero è gia presente bisogna sostituirlo facendo 1°di to + 1°di ve
grazie ciao

onei · 24 Aprile 2012

ciao a tutti black paololotto baffoblu .....voglio chiarire che questo metodo e stato creato con carta , penna ...lavorando x giorni sulle ambate piu frequenti e probabili dalla sez. metodi di spaziometria ....essendo negata con gli script....ecc. non posso rispondervi in merito!!!!!!!!! quelli che ho fatto sono calcoli , valutando anche compreso la 13° di febbraio, che poi sarebbe la 1° di marzo..valutando che quando esce un numero uguale va fatto 1°di to + 1° di ve ... conclusione metodo postato......adesso se qualcuno di voi riesce a considerare tutte queste cose , riesce a fare uno script. ben venga !!!! spero di aver chiarito tutti i dubbi ....qualsiasi modifica eventuale fatta ,non si riferisce al mio metodo e se dovesse dare risultati positivi, ben vengano !!!!!!!! bravissimi cmq. x il vostro lavoro in merito e grazie

Baffoblu · 24 Aprile 2012

Per il listato, io sono intervenuto solo sulla parte dell'indice mensile,
modificando lo script che c'era gia.
Ma non avevo capito che non era l'ultima del mese........

I calcoli non li ho guardati affatto, dando per scontato
che fossero giusti........

Roby · 24 Aprile 2012

paololotto ha scritto:
ciao
prima cosa...... grazie per il listato
ho controllato e va bene ma c'e una piccola modifica che forse nn avete notato
estr del 29-01-2011
3°di to+3°di ve 60+9=69 il num in questione è gia presente come ambata
secondo onei quando un numero è gia presente bisogna sostituirlo facendo 1°di to + 1°di ve
grazie ciao

In effetti per l'ambata non l'ho fatto, ho interpretato in un altro modo, ovvero se 1 o più abbinamenti fossero uguali tra loro
sostituire con 1 DI TO + 1 DI VE
No problem, si può correggere.............

Roby · 24 Aprile 2012

Modificato lo script

onei · 24 Aprile 2012

ciao blackmore grazie x lo script....ma non capisco xche quando vado ad eseguirlo mi da errore......siamo alle solite sono proprio imbranata accidenti!!!!!!!

Roby · 24 Aprile 2012

Onei se hai copiato il mio, riprova, sicuramente hai fatto un errore di copia/incolla
Quello che ha inserito Paolotto, non è formattato e quindi non va bene

onei · 24 Aprile 2012

ho provato e riprovato balck ho copiato il tuo ma mi da errore ...sono stata attenta a copia/incolla ma continua a darmi errore

x blackmore o baffoblu

Super member

Roby

Guest

Premium Member

Baffoblu

Guest

Roby

Guest

Baffoblu

Guest

Baffoblu

Guest

Roby

Guest

Baffoblu

Guest

Baffoblu

Guest

Roby

Guest

Baffoblu

Guest

Super member

Premium Member

Baffoblu

Guest

Roby

Guest

Roby

Guest

Premium Member

Roby

Guest

Premium Member