Cerco codice

Marco-elle · 2 Settembre 2021

Chiedo aiuto a tutti gli scripter per codice che identifichi la 1° estrazione mensile annuale,
Voglio trasformare in listato una mia ricerca,basata su quartine statistiche che "escono"
ogni anno in un determinato mese con Partenza dalla 1° mensile di ogni anno,
Non so se mi sono spiegato bene e provo a inserire un esempio

dalla 1° di gennaio 2010
dalla 1° di febbraio 2010
dalla 1° di marzo 2010
.....
.....
.....
......
fino ai giorni nostri

un grazie a tutti

Cinzia27 · 2 Settembre 2021

Ciao, Marco.
Non so se su Spaziometria funziona e non posso provare perché sta girando uno script.

Sub main()
For es= 8000 To EstrazioneFin
If IndiceAnnuale(es)=1 Then Scrivi DataEstrazione(es)&" "&es
next
End Sub

claudio8 · 2 Settembre 2021

Sub main()
For es= 8000 To EstrazioneFin
If IndiceMensile(es)=1 Then Scrivi DataEstrazione(es)&" "&es
next
End Sub

Marco-elle · 2 Settembre 2021

Cinzia27 ha scritto:
Ciao, Marco.
Non so se su Spaziometria funziona e non posso provare perché sta girando uno script.

Sub main()
For es= 8000 To EstrazioneFin
If IndiceAnnuale(es)=1 Then Scrivi DataEstrazione(es)&" "&es
next
End Sub

Grazie Cinzia,
sto provando senza esito...c'è da dire che ormai sono celebroleso
e ritento domani.....
io ho iniziato con questo ma non fa quello che mi dice
if indiceannuale(es)1 and indicemensile(es)=1 tnen
end if

Cinzia27 · 2 Settembre 2021

Questo codice rileva la prima di tutti i mesi
Sub main()
For es= 8000 To EstrazioneFin
If Indicemensile(es)=1 Then Scrivi DataEstrazione(es)&" "&es
Next
End Sub

Marco-elle · 2 Settembre 2021

Cinzia27 ha scritto:
Questo codice rileva la prima di tutti i mesi
Sub main()
For es= 8000 To EstrazioneFin
If Indicemensile(es)=1 Then Scrivi DataEstrazione(es)&" "&es
Next
End Sub

OK ma.....a me serve rilevare la 1° del mese di tot anno

Marco-elle · 2 Settembre 2021

Cioè, ambi usciti in un dato mese di ogni anno

Marco-elle · 2 Settembre 2021

Se metto il codice
if indiceannuale(es) = 1 then
end if

mi legge il listato ma mi da tutte le previsioni del mese di gennaio
e a me serve solo vincolare la prima del mese di gennaio

Marco-elle · 3 Settembre 2021

Questa è la mia statistica basata su 12 anni e ringrazio a chi sistema il mio casino

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi " FORMAZIONI STATISTICHE SU INDICI MENSILI ANNUALI "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim a1(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 1900
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      ok = 0
      If IndiceMensile(es) = 1 Then Scrivi DataEstrazione(es) & " " & es
   Next
   a1(1) = 5
   a1(2) = 21
   a1(3) = 64
   a1(4) = 82
   ruota(1) = 2
   ruota(2) = 6
   ok = 1
   If IndiceMensile(es) = 2 Then Scrivi DataEstrazione(es) & " " & es
Next
a1(1) = 4
a1(2) = 34
a1(3) = 39
a1(4) = 80
ruota(1) = 2
ruota(2) = 5
ok = 1
If IndiceMensile(es) = 3 Then Scrivi DataEstrazione(es) & " " & es
Next
a1(1) = 20
a1(2) = 23
a1(3) = 24
a1(4) = 44
ruota(1) = 1
ruota(2) = 7
ok = 1
If IndiceAnnuale(es) = 4 Then IndiceMensile(es) = 1
End If
a1(1) = 12
a1(2) = 24
a1(3) = 35
a1(4) = 61
ruota(1) = 4
ruota(2) = 8
End If
ok = 1
If IndiceMensile(es) = 5 Then Scrivi DataEstrazione(es) & " " & es
Next
a1(1) = 11
a1(2) = 14
a1(3) = 38
a1(4) = 59
ruota(1) = 3
ruota(2) = 10
ok = 1
If IndiceAnnuale(es) = 6 Then IndiceMensile(es) = 1
a1(1) = 3
a1(2) = 27
a1(3) = 30
a1(4) = 37
ruota(1) = 1
ruota(2) = 7
End If
ok = 1
If IndiceMensile(es) = 7 Then Scrivi DataEstrazione(es) & " " & es
Next
a1(1) = 9
a1(2) = 32
a1(3) = 45
a1(4) = 78
ruota(1) = 1
ruota(2) = 6
ok = 1
If IndiceAnnuale(es) = 8 Then IndiceMensile(es) = 1
a1(1) = 23
a1(2) = 39
a1(3) = 61
a1(4) = 62
ruota(1) = 1
ruota(2) = 3
End If
ok = 1
If IndiceMensile(es) = 9 Then Scrivi DataEstrazione(es) & " " & es
Next
a1(1) = 14
a1(2) = 62
a1(3) = 88
a1(4) = 90
ruota(1) = 5
ruota(2) = 7
End If
ok = 1
If IndiceMensile(es) = 10 Then Scrivi DataEstrazione(es) & " " & es
Next
a1(1) = 5
a1(2) = 9
a1(3) = 16
a1(4) = 30
ruota(1) = 1
ruota(2) = 6
ok = 1
If IndiceAnnuale(es) = 11 Then IndiceMensile(es) = 1
a1(1) = 4
a1(2) = 22
a1(3) = 26
a1(4) = 57
ruota(1) = 1
ruota(2) = 8
ok = 1
If IndiceMensile(es) = 12 Then Scrivi DataEstrazione(es) & " " & es
Next
a1(1) = 27
a1(2) = 29
a1(3) = 60
a1(4) = 73
ruota(1) = 1
ruota(2) = 9
ok = 1
If ok = 1 Then
   co = co + 1
   ColoreTesto 1
   Scrivi String(80,"^") & " Caso n°" & co,1
   Scrivi DataEstrazione(es) & "  indice annuale   " & IndiceAnnuale(es) & " - " & IndiceMensile(es),1
   Scrivi String(80,"^"),1
   ColoreTesto 0
   ImpostaGiocata 1,a1,ruota,poste,clp
   Gioca es,2
End If
Next
ScriviResoconto
End Sub

Cinzia27 · 3 Settembre 2021

Sub main()
For es= 8000 To EstrazioneFin
If Anno(es)=2020 Then
If Indicemensile(es)=1 Then Scrivi DataEstrazione(es)&" "&es
End if
Next
End Sub

oppure

Sub main()
For es= 8000 To EstrazioneFin
If Anno(es)<2020 And Anno(es)>2015 Then
If Indicemensile(es)=1 Then Scrivi DataEstrazione(es)&" "&es
End if
Next
End Sub

Marco-elle · 3 Settembre 2021

Cinzia27 ha scritto:
Sub main()
For es= 8000 To EstrazioneFin
If Anno(es)=2020 Then
If Indicemensile(es)=1 Then Scrivi DataEstrazione(es)&" "&es
End if
Next
End Sub

oppure

Sub main()
For es= 8000 To EstrazioneFin
If Anno(es)<2020 And Anno(es)>2015 Then
If Indicemensile(es)=1 Then Scrivi DataEstrazione(es)&" "&es
End if
Next
End Sub

Grazie Cinzia,
ho inserito la ricerca e se puoi....prova a farlo girare come voglio io

claudio8 · 3 Settembre 2021

Sub Main()
Dim A,M,I,es

A = CInt (InputBox("Da quale anno inizio","estrazioni controllo",2010))
M = CInt (InputBox("Quale mese controllo","estrazioni controllo",1))
I = CInt (InputBox("Quale indicemese controllo","estrazioni controllo",1))

For es = EstrazioneIni To EstrazioneFin

If Anno(es) => A And Mese(es) = M And IndiceMensile(es)= I Then Scrivi DataEstrazione(es) & " n° estr. "& es

Next
End Sub

sono presenti le tre condizioni, sbizzarrisciti

Marco-elle · 3 Settembre 2021

Non ci siamo!
i codici non fanno quello da me richiesto e fanno esattamente quello che avevo impostato inizialmente alla cazzum de dog,
ormai è tardi,sono deficente e me ne vado in branda
grazie a tutti

Cinzia27 · 3 Settembre 2021

L' ho fatto per tutti gli indici, se vuoi l' anno togli apice
'If Anno(es)=2020 Then 'Togli apice se vuoi un anno determinato

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi " FORMAZIONI STATISTICHE SU INDICI MENSILI ANNUALI "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim a1(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 1900 ' inizio dev' essere compatibile con l' anno
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
'If Anno(es)=2020 Then 'Togli apice se vuoi un anno determinato
   If Indicemensile(es) = 1   Then
   a1(1) = 5
   a1(2) = 21
   a1(3) = 64
   a1(4) = 82
  ruota(1) = 2
  ruota(2) = 6
Scrivi " Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

  If Indicemensile(es) = 2   Then
   a1(1) = 4
   a1(2) = 34
   a1(3) = 39
   a1(4) = 84
  ruota(1) = 2
  ruota(2) = 5
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 3   Then
   a1(1) = 20
   a1(2) = 23
   a1(3) = 24
   a1(4) = 44
  ruota(1) = 1
  ruota(2) = 7
Scrivi "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 4   Then
   a1(1) = 12
   a1(2) = 24
   a1(3) = 35
   a1(4) = 61
  ruota(1) = 4
  ruota(2) = 8
Scrivi "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 5   Then
   a1(1) = 11
   a1(2) = 14
   a1(3) = 38
   a1(4) = 59
  ruota(1) = 3
  ruota(2) = 10
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If


If Indicemensile(es) = 6   Then
   a1(1) = 03
   a1(2) = 27
   a1(3) = 30
   a1(4) = 37
  ruota(1) = 1
  ruota(2) = 7
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If


If Indicemensile(es) = 7   Then
   a1(1) = 09
   a1(2) = 32
   a1(3) = 45
   a1(4) = 78
  ruota(1) = 1
  ruota(2) = 6
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If



If Indicemensile(es) = 8   Then
   a1(1) = 23
   a1(2) = 39
   a1(3) = 61
   a1(4) = 62
  ruota(1) = 1
  ruota(2) = 3
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If


If Indicemensile(es) = 9   Then
   a1(1) = 14
   a1(2) = 62
   a1(3) = 88
   a1(4) = 90
  ruota(1) = 1
  ruota(2) = 3
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 10   Then
   a1(1) = 5
   a1(2) = 9
   a1(3) = 16
   a1(4) = 30
  ruota(1) = 1
  ruota(2) = 6
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 11   Then
   a1(1) = 4
   a1(2) = 22
   a1(3) = 26
   a1(4) = 57
  ruota(1) = 1
  ruota(2) = 8
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 12   Then
   a1(1) = 27
   a1(2) = 29
   a1(3) = 60
   a1(4) = 73
  ruota(1) = 1
  ruota(2) = 9
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If
'End If
Next

ScriviResoconto
End Sub

claudio8 · 3 Settembre 2021

Allora prova a ripetere con calma la spiegazione del processo che deve fare il costrutto.
a domani

Marco-elle · 3 Settembre 2021

Ok,allora le quartine che sono inserite nella bozza sono x ogni mese dell'anno
a partire da gennaio fino ad arrivare a dicembre
La ricerca ha una valenza di 10 anni e il listato deve leggere tutto di conseguenza,
come fanno le altre mie ricerche (per chi le segue)

Marco-elle · 3 Settembre 2021

Cinzia27 ha scritto:

L' ho fatto per tutti gli indici, se vuoi l' anno togli apice
'If Anno(es)=2020 Then 'Togli apice se vuoi un anno determinato

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi " FORMAZIONI STATISTICHE SU INDICI MENSILI ANNUALI "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim a1(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 1900 ' inizio dev' essere compatibile con l' anno
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
'If Anno(es)=2020 Then 'Togli apice se vuoi un anno determinato
   If Indicemensile(es) = 1   Then
   a1(1) = 5
   a1(2) = 21
   a1(3) = 64
   a1(4) = 82
  ruota(1) = 2
  ruota(2) = 6
Scrivi " Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

  If Indicemensile(es) = 2   Then
   a1(1) = 4
   a1(2) = 34
   a1(3) = 39
   a1(4) = 84
  ruota(1) = 2
  ruota(2) = 5
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 3   Then
   a1(1) = 20
   a1(2) = 23
   a1(3) = 24
   a1(4) = 44
  ruota(1) = 1
  ruota(2) = 7
Scrivi "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 4   Then
   a1(1) = 12
   a1(2) = 24
   a1(3) = 35
   a1(4) = 61
  ruota(1) = 4
  ruota(2) = 8
Scrivi "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 5   Then
   a1(1) = 11
   a1(2) = 14
   a1(3) = 38
   a1(4) = 59
  ruota(1) = 3
  ruota(2) = 10
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If


If Indicemensile(es) = 6   Then
   a1(1) = 03
   a1(2) = 27
   a1(3) = 30
   a1(4) = 37
  ruota(1) = 1
  ruota(2) = 7
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If


If Indicemensile(es) = 7   Then
   a1(1) = 09
   a1(2) = 32
   a1(3) = 45
   a1(4) = 78
  ruota(1) = 1
  ruota(2) = 6
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If



If Indicemensile(es) = 8   Then
   a1(1) = 23
   a1(2) = 39
   a1(3) = 61
   a1(4) = 62
  ruota(1) = 1
  ruota(2) = 3
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If


If Indicemensile(es) = 9   Then
   a1(1) = 14
   a1(2) = 62
   a1(3) = 88
   a1(4) = 90
  ruota(1) = 1
  ruota(2) = 3
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 10   Then
   a1(1) = 5
   a1(2) = 9
   a1(3) = 16
   a1(4) = 30
  ruota(1) = 1
  ruota(2) = 6
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 11   Then
   a1(1) = 4
   a1(2) = 22
   a1(3) = 26
   a1(4) = 57
  ruota(1) = 1
  ruota(2) = 8
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If

If Indicemensile(es) = 12   Then
   a1(1) = 27
   a1(2) = 29
   a1(3) = 60
   a1(4) = 73
  ruota(1) = 1
  ruota(2) = 9
Scrivi  "Indice mensile "&Indicemensile(es)&" "&DataEstrazione(es) & " " & es
ImpostaGiocata 1,a1,ruota,poste,clp
Gioca es
End If
'End If
Next

ScriviResoconto
End Sub

Grazie Cinzia x l'impegno ma....anche qui,fa quello che non voglio e quello che già riesco a fare,
deve darmi una sola previsione mensile nei ultimi 10/11 anni e non ripeterla per 12/13 volte a seconda delle estrazioni del indice mensile
Notte a tutti (io ne ho bisogno)

Marco-elle · 3 Settembre 2021

Poi giuro che vado a nanna!
Devo ricavare 120 previsioni basate su 10 anni di statistica e sui 12 mesi.
Esempio:
Nei ultimi 10 anni
Nel mese di gennaio
La formazione 1-2-3-4
Ha sempre dato un ambo
Sulle ruote di Pisa e Taormina

Xeroxs · 3 Settembre 2021

Buongiorno a Tutti

Avendo a disposizione il PC che sto sistemando delle mie care Nipotine, Guardando quando da Voi richiesto e fatto ho voluto provare a fare qualche modifica, premetto non mi ritengo all'altezza di Cinzia27 e del Bravissimo Claudio8.

Quindi ho incastrato quanto proposto da Cluadio8 sulle correzioni di Cinzia27, elaborando il solo caso di Gennaio sperando ovvio di aver compreso la richiesta di Marco.

Penso che si possano incastrare le altre verifiche con degli If che al momento non riesco ad applicare, esempio chiamandole B ed abbinarle al mese di Febbraio e così via.

Chiedo scusa se ho fatto modifiche non gradite ma volevo provare a dare un piccolo contributo, grazie anche a quanto ho imparato grazie agli altri.

Spero di sistemare alcune cose e provvedere al PC nuovo cosi da poter intervenire nei vari post.

Questo è lo script

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "FORMAZIONI STATISTICHE SU INDICI MENSILI ANNUALI "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   Scrivi "Con la collaborazione di Cinzia27 e Cludio8 "
   Scrivi : ColoreTesto 0
   Dim A,M,I
   Dim es,Clp,K
   Dim poste(2)
   Dim ruota(2)
   Dim a1(4)
   poste(2) = 1
   Clp = 12
   A = CInt(InputBox("Da quale anno inizio","estrazioni controllo",2010))
   M = CInt(InputBox("Quale mese controllo","estrazioni controllo",1))
   I = CInt(InputBox("Quale indicemese controllo","estrazioni controllo",1))
   For es = EstrazioneIni To EstrazioneFin
      If Anno(es) = > A And Mese(es) = M And IndiceMensile(es) = I Then
         a1(1) = 5
         a1(2) = 21
         a1(3) = 64
         a1(4) = 82
         ruota(1) = 2
         ruota(2) = 6
         ColoreTesto 1 : K = K + 1 : Scrivi "Estraz. " &(es) & " " & String(14,"*") & " " & IndiceMensile(es) & "°Estrazione del Mese" & " *** " & Mese(es) & "-" & Anno(es) & " ** ",1,0 : ColoreTesto 2
         Scrivi "Metodo o Statistica di Marco ",1,0: ColoreTesto 1: Scrivi "** Caso n° " & Format2(K),1
         Scrivi
         ImpostaGiocata 1,a1,ruota,poste,Clp
         Gioca es
      End If
   Next
   ScriviResoconto
End Sub

Marco-elle · 3 Settembre 2021

Grazie Xeroxs,
ho copiato il tuo lavoro ma ci deve essere un errore perchè Spaziometria non me lo fa girare.
Cmq, per quel che ho visto,bisogna impostare le varie annate e mesi per avere una previsione.
Io,come ho già ribadito,sono una mezza sega come scripter ma.....piace leggere un resoconto
che sia poesia,che dia quella sensazione di felicità nel visualizzare la statistica.Insomma,voglio
leggere tutto consecutivamente con un semplice click

Cerco codice

Banned

Premium Member

Premium Member

Banned

Premium Member

Banned

Banned

Banned

Banned

Premium Member

Banned

Premium Member

Banned

Premium Member

Premium Member

Banned

Banned

Banned

Advanced Member >PLATINUM<

Banned