Mi aiutate per favore?

[Joe91]

Ciao Marco,

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

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)

 

[marconi]

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

 

[Joe91]

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)

 

[marconi]

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

 

[Joe91]

'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)

 

[marconi]

Joe davvero tanti ringraziamenti per la tua disponibiltà,
ti auguro tante buone cose.
Ciao.

Marco