X tutti

[morena59]

Avevo letto da qualche parte della funzione per incrementare la puntata a ogni colpo,
grazie a chi vorrà aiutarmi.

 

[Mike58]

Imposta progressione

Imposta progressione

Ciao Antaleo mi sembra di capire che la funzione che cerchi e quella di impostaprogressione.
Visto che sai leggere gli script prendi spunto dal mio script con la funzione citata.

Vedi se è quello che hai bisogno.
Ti ho anche aggiunto altre funzioni getvincita-spesa-e guadagno sia parziale di giocata che progressive.
ciao.

Sub Main()
 'con progressione giocata e rendiconto parziale e progressivo
 Dim ruote(10)
 Dim numeri1(10)
 Dim numeri2(10)
 Dim poste(5)
 Dim posta(5)
 poste(1) = 5
 poste(2) = 0
 poste(3) = 0
 poste(4) = 0
 poste(5) = 0
 colpi = 5
 Dim Importi(1,5)' 1 = ambata x numero di giocate-colpi
 Importi(1,1) = 5
 Importi(1,2) = 10
 Importi(1,3) = 20
 Importi(1,4) = 40
 Importi(1,5) = 80
 ruote(1) = 1
 Scrivi String(125,"="),1
 Scrivi "      5 AMBATE SUPERFREQUENTI SU BARI CON IMPOSTAPROGRESSIONE E RESOCONTO PARZIALE E PROGRESSIVO ",1
 Scrivi String(115,"=") & " By Mike58 ",1
 For n = 8000 To EstrazioneFin
  If IndiceMensile(n) = 1 Then
   co = co + 1
   Scrivi String(115,"_") & " caso n° " & co
   numeri1(1) = 5
   numeri1(2) = 34
   numeri1(3) = 48
   numeri1(4) = 11
   numeri1(5) = 17
   ImpostaGiocata 1,numeri1,ruote,poste,colpi,1
   ImpostaProgressione 1,Importi
   Gioca n,,,1
   Scrivi "Rendiconto parziale       ",1,- 1,6
   Scrivi "Toatale spesa   : " & GetSpesa(True)
   Scrivi "Totale vincite  : " & GetVincita(True)
   Scrivi "Totale guadagno : " & GetGuadagno(True)
   Scrivi "Resoconto progressivo     ",1,- 1,3
   Scrivi "Toatale spesa   : " & GetSpesa(False)
   Scrivi "Totale vincite  : " & GetVincita(False)
   Scrivi "Totale guadagno : " & GetGuadagno(False)
   If GetGuadagno(False) > 0 Then
    Scrivi"SEI ANCORA IN ATTIVO      ",1,- 1,2
   Else
    Scrivi" ****  ATTENZIONE STAI COMINCIANDO A PERDERE **** ",1,- 1,4
   End If
  End If
 Next
 ScriviResoconto
 For x = 1 To 5
  fr1 = EstrattoFrequenza(1,numeri1(x),EstrazioneFin - 100,EstrazioneFin,1)
  rt1 = EstrattoRitardo(1,numeri1(x),EstrazioneFin - 100,EstrazioneFin,1)
  rc1 = RitardoCombinazione(ruote,numeri1,1)
  rc = RitardoCombinazione(ruote,numeri1,2)
  rct = RitardoCombinazione(ruote,numeri1,3)
  rt1p = EstrattoRitardo(1,numeri1(x),EstrazioneFin - 100,EstrazioneFin - rt1 - 1,1)
  rt2p = EstrattoRitardo(1,numeri1(x),EstrazioneFin - 100,EstrazioneFin - rt1 - 1 - rt1p - 1,1)
  mdu = Int(100/fr1)
  Scrivi "estratto n° " & Format2(numeri1(x)) & " - freq.100 estraz. " & Space(2) & Format2(fr1) & " - ritardo ... " & Format2(rt1) & _
  Space(2) & " Ritardo precedente..." & Format2(rt1p) & _
  Space(1) & "- Ritardo preced.2..." & Format2(rt2p) & Space(2) & " ---> Media uscita di..." & Format2(mdu)
 Next
 Scrivi"-----------------------------------------"
 Scrivi"Ritardo x ambata... " & rc1
 Scrivi"Ritardo x ambo..... " & rc
 Scrivi"Ritardo x terno.... " & rct
End Sub

 

[Roby]

Oppure....

http://forum.lottoced.com/f12/aiuto-su-vettore-progressioni-89797/

 

[morena59]

Tenkyù ragazzi

 

[keeper]

x mike88 ho una richiesta di script

 

[Mike58]

x mike88 ho una richiesta di script

Ciao Keeper in questi giorni ho pochissimo tempo non credo di riuscire a fare script e quanto altro.
Comunque ogni tanto passo e leggo il forum tu esponi il problema e magari e qualcosa che si può fare al volo oppure altri vogliono e sanno intervenire.

Un saluto.

 

[keeper]

credo che per te sia molto semplice mi occorre salere quante volte una sesista è sortita nellarchivio 10elotto5m ma deve creare un file dova annotare i risultati ma non un elaborazione integrale altrimente sarebbe molto pesante e lento

 

[Mike58]

Ciao Keeper, se ti occorre sapere quante volte una sestina cercata in modo manuale quante volte è uscita, mi pare che ti avevo postato uno script ELENCO RITARDI che in base ai numeri immessi calcolava tutte le frequenze 1-10 ed il ritardo della sorte cercata.
Mentre se cerchi che il lavoro della sestina migliore in fatto di frequenza lo faccia lo script, la soluzione è abbastanza complessa e soprattutto ci vuole molto tempo al computer per eseguire il calcolo.

 

[keeper]

tutte le sestine che si sono formate nell'archivio leggi qeusto
http://forum.lottoced.com/f12/da-keeper-e-rubino-per-luigib-90988/

 

[Mike58]

Letto e come immaginavo la cosa è abbastanza complessa e di difficile attuazione.

 

[morena59]

Ciao Mike,
ho seguito i tuoi consigli e ora se faccio un piccolo pronostico
ci aggiungo l'incremento di puntata.Però andando per gradi,
mi sembra di capire che questa funzione non abiliti la giocata
del estratto determinato.
Se io scrivo "importi (6,1)=1" dovrebbe riconoscermi la prima
posizione,giocando 1 euro al 1° colpo ma ciò non avviene

 

[Baffoblu]

Ciao Mike,
ho seguito i tuoi consigli e ora se faccio un piccolo pronostico
ci aggiungo l'incremento di puntata.Però andando per gradi,
mi sembra di capire che questa funzione non abiliti la giocata
del estratto determinato.
Se io scrivo "importi (6,1)=1" dovrebbe riconoscermi la prima
posizione,giocando 1 euro al 1° colpo ma ciò non avviene

Mi interessa anche a me questa cosa
perchè con gli estratti determinati
non mi è chiaro come va impostata la cosa