Xbaffo

[Elbaz]

Ciao.
Gennaro visto che sei così disponibile ne approfitto anch'io, quando vuoi naturalmente.

Da un'idea di IB63:

'27 68 28 42 34 Torino sabato 07-01-2012
'74 11 12 34 90 Torino sabato 14-01-2012

'09 50 47 53 35 Torino sabato 21-01-2012
'03 65 45 49 78 Torino sabato 28-01-2012​

DECINE

03.09
11.12
27.28
34.35
42.47.45.49
50.53
68.65
74.78
NULLA
90


FIGURE

28
11.47.65.74
03.12
49
50.68
42.78
34
35.53
09.27.45.90


CADENZE

11
12.42
03.53
34.74
35.45.65
NULLA
27.47
28.68.78
09.49
50.90

Riesci a farmi uno script con queste caratteristiche:
ad esempio scelgo il sabato estrattivo di ogni settimana del mese di gennaio, scrivo le estrazioni e le ordino come sopra, poi li gioco tutti i sabati del mese di febbraio.

Grazie.

 

[gennaro]

Li giochi tutti? eheheh ...

.. dammi un po di tempo
PS: Solo quelle del sabato?

 

[Elbaz]

Li giochi tutti? eheheh ...

.. dammi un po di tempo
PS: Solo quelle del sabato?

Ciao Gennaro, ti do tutto il tempo che vuoi.
No non penso di giocarle tutte, ora come ora solo le cadenze, infatti sabato è andata bene è uscito l'ambata 11.
Guarda sarebbe interessante a livello statistico prendere tutte le estrazioni del mese di una determinata ruota e formare tutte le relative decine, cadenze e figure e testare quello che può uscire nel mese successivo su tutte le estrazioni per quella ruota.
Per ora concentriamoci su quelle del sabato del mese precedente e testiamole sui sabati del mese successivo sempre sulla medesima ruota.
Grazie ancora per l'interessamento.

 

[Roby]

Ciao Gennaro, ti do tutto il tempo che vuoi.
No non penso di giocarle tutte, ora come ora solo le cadenze, infatti sabato è andata bene è uscito l'ambata 11.
Guarda sarebbe interessante a livello statistico prendere tutte le estrazioni del mese di una determinata ruota e formare tutte le relative decine, cadenze e figure e testare quello che può uscire nel mese successivo su tutte le estrazioni per quella ruota.
Per ora concentriamoci su quelle del sabato del mese precedente e testiamole sui sabati del mese successivo sempre sulla medesima ruota.
Grazie ancora per l'interessamento.

ciao caro
io non ho dimistichezza con le impostazioni del nuovo forum ma a suo tempo ebbi modo scrivere un articoletto a concetto €ureka vedi se riesci trovarlo se cosi non fosse apriamo altro topic e discutiamo di quel che vogliamo visto che il presente era nato come semplice richiesta di un qualcosa....

per quanto concerne poi giocarle tutte o no...
Impostando dei parametri sui soliti giochi a percentuale si possono giocarle anche tutte basta accontentarsi di poco purchè costante ma credimi si può

Un saluto
IB63

Per gennaro ... Cià Gennàry si sem ruoss

 

[rosa962]

buon giorno IB63

grazie per per il tuo buona fortuna anche a te auguro altrettanto
sai l'educazione e il buon senso sono aramai diventati cose rare virtù
ma sono fatta così e sono qui per imparare qualcosa in più
vi seguo tanto

un grazia ancora a GENNARO

CIAOO

 

[Roby]

tranuqilla e serena
sappi solo che san Gennaro è san Gennaro non a caso è amico mio...

Ciao Gennary
Ciao Rosa...

 

[gennaro]

Mò Jatevenn....

Mò Jatevenn....

Elbaz, vedi se è come dici tu ... nn so nemmeno io come ho fatto
Tra un rimprovero di LuigiB ed un pò di pazienza sembro aver risolto il problema.
Come al solito non sarà ottimizzato "alla Luigi", avro sbagliato ad usare funzioni e procedure...

' --------> gennaro v1.0, x Elbaz, scritto per SpazioMetria 1.3.40 o superiore
Sub Main()
 Dim ru(1),vettore(30)
 RuoScelta = CInt(InputBox("Su quale ruota elaboro?","...Ruota...",1))
 ru(1) = RuoScelta
 GioEstr = CInt(InputBox("Quali estrazioni considero? Quelle del... " & vbCrLf & vbLf & _
 "1 = Martedi " & vbCrLf & vbLf & _
 "2 = Giovedi " & vbCrLf & vbLf & _
 "3 = Sabato  " & vbLf,"...Quali estrazioni...",3))
 Select Case GioEstr
 Case 1
  GioEstrNOME = "martedi"
 Case 2
  GioEstrNOME = "giovedi"
 Case 3
  GioEstrNOME = "sabato"
 End Select
 MeseAttuale = ConvertiNUMinMESE(Mese(EstrazioneFin))
 If MeseAttuale = "Gennaio" Then
  MesePrecedente = "Dicembre"
 Else
  MesePrecedente = ConvertiNUMinMESE(Mese(EstrazioneFin) - 1)
 End If
 Scrivi("Rilevo dal PC che il tuo archivio estrazionale è settato al mese di " & MeseAttuale & "." & _
 " Precisamente al " & DataEstrazione(EstrazioneFin))
 Scrivi("...quindi preleveremo le estrazioni su " & NomeRuota(RuoScelta) & ", del " & GioEstrNOME & ", avute in " & MesePrecedente)
 Scrivi
 k = 0
 For estr = EstrazioneFin - 30 To EstrazioneFin 'Torno indietro di 30 x stare sicuro di prevelare tutto il mese
  If CheGiornoE(estr) = GioEstr And ConvertiNUMinMESE(Mese(estr)) = MesePrecedente Then
   Scrivi estr & " " & DataEstrazione(estr) & " " & NomeRuota(RuoScelta) & " " & StringaEstratti(estr,RuoScelta,".")
   For p = 1 To 5
    k = k + 1
    vettore(k) = Estratto(estr,RuoScelta,p)
   Next 'p
  End If
 Next 'estr
 Scrivi
 EliminaRipetuti vettore
 'Scrivi StringaNumeri(vettore,"-")
 For k = 0 To 8
  Call ChiAppartieneADecina(vettore,k)
 Next 'k
 Scrivi String(120,"°")
 For k = 0 To 9
  Call ChiAppartieneACadenza(vettore,k)
 Next 'k
 Scrivi String(120,"°")
 For k = 1 To 9
  Call ChiAppartieneAFigura(vettore,k)
 Next 'k
 Call TestoInBandaPassante(Chr(14) & " /\ /\ /\ /\ /\ scripted by gennaro! " & Chr(169) & _
 " 2012 ... San Gennà, pienz'c tu! /\ /\ /\ /\ /\ " & Chr(14),1,vbYellow,1)
End Sub
Function ChiAppartieneAFigura(idVett,idFIG)
 ReDim vettFig(0)
 ReDim vettFig(UBound(idVett))
 conta = 0
 For k = 1 To UBound(idVett)
  If Figura(idVett(k)) = idFIG Then
   conta = conta + 1
   vettFig(conta) = Format2(idVett(k))
  End If
 Next 'k
 Scrivi("Figura " & idFIG & " -> " & StringaNumeri(vettFig,"."))
End Function
Function ChiAppartieneACadenza(idVett,idCAD)
 ReDim vettCad(0)
 ReDim vettCad(UBound(idVett))
 conta = 0
 For k = 1 To UBound(idVett)
  If Cadenza(idVett(k)) = idCAD Then
   conta = conta + 1
   vettCad(conta) = Format2(idVett(k))
  End If
 Next 'k
 Scrivi("Cadenza " & idCAD & " -> " & StringaNumeri(vettCad,"."))
End Function
Function ChiAppartieneADecina(idVett,idDEC)
 ReDim vettDec(0)
 ReDim vettDec(UBound(idVett))
 conta = 0
 For k = 1 To UBound(idVett)
  If idVett(k) >=(10*idDEC + 1) And idVett(k) <=(10*idDEC + 10) Then
   conta = conta + 1
   vettDec(conta) = Format2(idVett(k))
  End If
 Next 'k
 Scrivi("Decina " & idDEC & " -> " & StringaNumeri(vettDec,"."))
End Function
Function ConvertiNUMinMESE(idNUM)
 Select Case idNUM
 Case 1
  ConvertiNUMinMESE = "Gennaio"
 Case 2
  ConvertiNUMinMESE = "Febbraio"
 Case 3
  ConvertiNUMinMESE = "Marzo"
 Case 4
  ConvertiNUMinMESE = "Aprile"
 Case 5
  ConvertiNUMinMESE = "Maggio"
 Case 6
  ConvertiNUMinMESE = "Giugno"
 Case 7
  ConvertiNUMinMESE = "Luglio"
 Case 8
  ConvertiNUMinMESE = "Agosto"
 Case 9
  ConvertiNUMinMESE = "Settembre"
 Case 10
  ConvertiNUMinMESE = "Ottobre"
 Case 11
  ConvertiNUMinMESE = "Novembre"
 Case 12
  ConvertiNUMinMESE = "Dicembre"
 End Select
End Function
Function CheGiornoE(idEstr) 'by LuigiB, adapted by Gennaro
 Dim sData
 Dim sGiorno
 sData = Mese(idEstr) & "/" & giorno(idEstr) & "/" & Anno(idEstr)
 Select Case WeekDay(sData)
 Case 3
  sGiorno = 1
 Case 5
  sGiorno = 2
 Case 7
  sGiorno = 3
 End Select
 CheGiornoE = sGiorno
End Function

 

[Roby]

San genna' embe' sapete che io so negato con sto qua...
Dell'altro nessuna traccia?

A rapporto in privato grz..
ib63

 

[Elbaz]

Ciao.
Molte grazie Gennaro ora guardo e poi ti so dire.

 

[Elbaz]

Ciao Gennaro, grazie ancora per il listato.
Va bene con qualche piccolo problemino sui primi sabati del mese:

1. come vedi quello sottolineato, il 12.01.12 non è sabato ma il giovedì successivo; (vedi sotto)
2. quando i giorni estrattivi nel mese sono cinque il primo non lo mette mentre il secondo lo sbaglia; (vedi più sotto).

[I]Rilevo dal PC che il tuo archivio estrazionale è settato al mese di Febbraio. Precisamente al 21.02.2012
...quindi preleveremo le estrazioni su Torino, del sabato, avute in Gennaio

[U][B]8482 12.01.2012 Torino 10.61.52.85.51[/B][/U]
8483 14.01.2012 Torino 74.11.12.34.90
8486 21.01.2012 Torino 09.50.47.53.35
8489 28.01.2012 Torino 03.65.45.49.78

Decina 0 -> 03.09.10
Decina 1 -> 11.12
Decina 2 -> 
Decina 3 -> 34.35
Decina 4 -> 45.47.49.50
Decina 5 -> 51.52.53
Decina 6 -> 61.65
Decina 7 -> 74.78
Decina 8 -> 85.90
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Cadenza 0 -> 10.50.90
Cadenza 1 -> 11.51.61
Cadenza 2 -> 12.52
Cadenza 3 -> 03.53
Cadenza 4 -> 34.74
Cadenza 5 -> 35.45.65.85
Cadenza 6 -> 
Cadenza 7 -> 47
Cadenza 8 -> 78
Cadenza 9 -> 09.49
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Figura 1 -> 10
Figura 2 -> 11.47.65.74
Figura 3 -> 03.12
Figura 4 -> 49.85
Figura 5 -> 50
Figura 6 -> 51.78
Figura 7 -> 34.52.61
Figura 8 -> 35.53
Figura 9 -> 09.45.90[/I]

Cinque martedì estrattivi: 3-10-17-24-31

[I]Rilevo dal PC che il tuo archivio estrazionale è settato al mese di Febbraio. Precisamente al 21.02.2012
...quindi preleveremo le estrazioni su Torino, del martedi, avute in Gennaio

[U][B]8479 05.01.2012 Torino 37.19.82.86.58[/B][/U]
8484 17.01.2012 Torino 53.36.76.82.22
8487 24.01.2012 Torino 07.69.60.67.46
8490 31.01.2012 Torino 54.56.01.12.18

Decina 0 -> 01.07
Decina 1 -> 12.18.19
Decina 2 -> 22
Decina 3 -> 36.37
Decina 4 -> 46
Decina 5 -> 53.54.56.58.60
Decina 6 -> 67.69
Decina 7 -> 76
Decina 8 -> 82.86
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Cadenza 0 -> 60
Cadenza 1 -> 01
Cadenza 2 -> 12.22.82
Cadenza 3 -> 53
Cadenza 4 -> 54
Cadenza 5 -> 
Cadenza 6 -> 36.46.56.76.86
Cadenza 7 -> 07.37.67
Cadenza 8 -> 18.58
Cadenza 9 -> 19.69
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Figura 1 -> 01.19.37.46.82
Figura 2 -> 56
Figura 3 -> 12
Figura 4 -> 22.58.67.76
Figura 5 -> 86
Figura 6 -> 60.69
Figura 7 -> 07
Figura 8 -> 53
Figura 9 -> 18.36.54

[/I]

Grazie per la disponibilità.

Problema risolto vedi post successivo

 

[Elbaz]

Function CheGiornoE(idEstr) 'by LuigiB, adapted by Gennaro
 Dim sData
 Dim sGiorno
 sData = [B]Mese(idEstr) & "/" & giorno(idEstr) & "/" & [/B]Anno(idEstr)
 Select Case WeekDay(sData)
 Case 3
  sGiorno = 1
 Case 5
  sGiorno = 2
 Case 7
  sGiorno = 3
 End Select
 CheGiornoE = sGiorno
End Function

Problema risolto erano invertiti mese - giorno in sdata.

Function CheGiornoE(idEstr) 'by LuigiB, adapted by Gennaro
	Dim sData
	Dim sGiorno
	sData = [B]giorno(idEstr) & "/" & Mese(idEstr) & "/" &[/B] Anno(idEstr)
	Select Case WeekDay(sData)
	Case 3
  sGiorno = 1
	Case 5
  sGiorno = 2
	Case 7
  sGiorno = 3
	End Select
	CheGiornoE = sGiorno
End Function

Grazie ancora.

 

[gennaro]

Si, tra le varie prove avevo lasciato invertito le cose...