Novità

Mi aiutate per favore?

Ciao Marco,

se provi a diminuire, di 9 in 9, un numero ottieni la sua figura.

Codice:
Sub main()
N = CInt (InputBox ("Inserisci il numero","FIGURA",87)) : F=N
While F > 9 
F=F-9 
Wend 
Scrivi "Figura " & N & " = " & F
End Sub

dove naturalmente ...

While F > 9
F=F-9
Wend

è la parte ... che conta!


:) Buon proseguimento.

Ogni estrazione è unica ed irripetibile. (Joe91)
 
Ciao Joe,
ho provato il listato ed ho qualche domanda e qualche richiesta.

Cosa indica questo: Sc=1

Fin = EstrazioneFin : Ini = Fin-155
Cosi dovrebbe elaborare 156 previsioni, perchè l'output ne da solo 47 di cui alcune doppie?

Resoconto dal 21.10.2010 al 18.10.2011
Però l'output comincia dal 04.11.2010 e finisce al 29.09.2011

Il listato dovrebbe poi considerare solo l'uscita della prima ambata,
es. 30.11.2010, il calcolo sull'uscita della seconda ambata dovrebbe poter essere opzionale.

La giocata dovrebbe poter essere fatta su 1 o 2 ruote che possono essere diverse dalla ruota dove si calcola l'ambata.

Buona serata.


P.S.:
Per quanto riguarda le figure io ho un archivio in access e volevo creare una maschera dove compaiano le figure degli estratti, quindi mi serviva la stringa di codice per database access.

Marco
 
Ciao Marco,

"Sc" (Iniziali di Scrivi) è una sorte di interrutore Flip-Flop ...

o bi-stabile se preferisci che determina se "scrivere" o "non-scrivere" i calcoli effettuati.

Era necessario negli script precedenti ... ma ora può essere eliminato.

Ho corretto il posat precedente aggiornando lo script alla versione 6.1.

Riconfermo nuovamente che lo script "considera" tutte le estrazioni

entro i limiti ... stabiliti.

Se poi, non ci sono sempre, "Ambi" da conteggiare,

questo dipende sia dal caso, che dalle regole del gioco.

Ma, abbiamo appurato che, i risultati rientrano, nelle "medie teoriche".

Gioca?

Si, assomiglia un pò all'istruzione gioca ... ma, è tutt'altro script.

Avevo inteso che tu volessi conoscere l' ordine delle "frequenze",

che, di "tutti" i casi giocabili, sono solo quelli "vincenti".

Per cui, lo script, più che la simulazione di un metodo ...

(peraltro sconosciuto e non descritto, a priori)

è una utility idonea a fornire dati, su cui, imbastire un metodo.

No, due ruote su cui "testare" ... non lo posso fare,

perchè mi richiederebbe, troppo tempo, (specie per il "debug")

In ultimo, anche per access, non "uso" questo database

per cui non ti posso essere d'ulteriore aiuto. Mi spiace.

:) Un caro saluto.

Ogni estrazione è unica ed irripetibile. (Joe91)
 
La cortesia che ti chiedo è quello di farlo lavorare su tutte le estrazioni, anche se l'ambata non esce nei colpi stabiliti.

Ciao e grazie.

Marco
 
Codice:
'Ricerca LIBERA delle Frequenze dei Sommatori V.6.2 
'Scritto da Joe per Marconi. Alba 21/10/2011 
'http://forum.lottoced.com/topic.asp?whichpage=0.76&TOPIC_ID=138299 
Sub main()
Dim  Fr(90,2) 
Fin = EstrazioneFin : Ini = Fin-15  
R1 = 1 : R2 = 1 : C = 5
Scrivi "Resoconto dal " & DataEstrazione (Ini) & " al " & DataEstrazione (Fin) & ".",1 
For Es = Ini To Fin
 M = Fuori90(Estratto(Es,R1,1) + Estratto(Es,R1,5)) 
 For Ex = Es+1 To Es+C
  If Ex =< Fin Then 
   'If Posizione (Ex,R2,M) > 0 Then 
       K=K+1 : Scrivi FormatSpace (K,2,1) & "° "&  String(72,"=") & " "  ,1  
    For P = 1 To 5 
    A = Estratto (Ex,R2,P) 
     'If M <> A Then       
      If M >= A Then N = Fuori90(A+90-M) Else N = A-M 
       Fr(N,1)=N : Fr(N,2) = Fr(N,2) + 1    
       Scrivi DataEstrazione  (Es) & " " ,0,0
       Scrivi SiglaRuota (R1) & " " & StringaEstratti (Es,R1)  & "  " ,0,0
       Scrivi  Format2 (M) & "." & Format2(A) & "  +" & FormatSpace (N,2,1) & "  ",0,0
       Scrivi DataEstrazione (Ex) & " " ,0,0
       Scrivi SiglaRuota (R2) & " " & StringaEstratti (Ex,R2) & "  " & Ex-Es & "°C"
     'End If
    Next      
   'End If 
  End If 
 Next
Next
Scrivi String(69,"="),1,0
ColoreTesto 1 : Scrivi " By Joe",1 : ColoreTesto 0 : Scrivi 
OrdinaMatrice Fr,-1,2
For N=1 To 90
 If Fr(N,2)>0 Then Scrivi Format2 (N) & ") +" & Format2 (Fr(N,1)) & " Fr "  & FormatSpace (Fr(N,2),2,1) 
Next 
End Sub

ATTENZIONE: NON HO ESEGUITO NESSUN CONTROLLO

Ogni estrazione è unica ed irripetibile. (Joe91)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 ottobre 2025
    Bari
    81
    19
    12
    57
    40
    Cagliari
    20
    69
    66
    49
    48
    Firenze
    39
    15
    41
    70
    69
    Genova
    59
    83
    42
    07
    08
    Milano
    42
    25
    02
    14
    68
    Napoli
    29
    28
    38
    56
    82
    Palermo
    08
    28
    32
    90
    74
    Roma
    48
    07
    32
    55
    34
    Torino
    31
    85
    24
    54
    87
    Venezia
    86
    72
    67
    69
    34
    Nazionale
    67
    32
    58
    81
    34
    Estrazione Simbolotto
    43
    22
    12
    01
    33
Indietro
Alto