Novità

script metodo mi/na aiuto

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Ciao a tutti è un pò che seguo il forum ,devo fare i complimenti a tutti ,credo (non me ne vogliano gli altri)sia uno se non il miglior sito in circolazione,mi sono deciso a scrivere per chiedere se qualcuno può aiutarmi in uno script:
il 5°estratto di milano più il 1° estratto di napoli,il risultato è l'ambata con il suo vertibile.
A mano mi da discreti risultati.
Mi servirebbe come statistica
Grazie a tutti per l'attenzione.ciao
Marco
 
Ciao e benvenuto,
in quale estrazione mensile vuoi calcolare l'ambata?
su che ruota vuoi giocarla?
quanti colpi?
Ciao

Blackmore
 
Ciao (intanto grazie)vorrei ricavare la previsione a ogni estrazione mensile,le ruote sono MI e NA ,per quattro colpi
ciao .
Marco
 
Marco non posso aiutarti, c'è un calcolo che non mi torna, mi dà sempre gli stessi numeri, sicuramente dimentico qualcosa,
Aspetta e vedrai che qualcuno te lo farà
Domanda: sei sicuro che 2 ambate su 2 ruote ad ogni estrazione ti fanno essere in attivo?
Ho dato un occhiata veloce e Per me (ripeto per me) è una follia, ma tu sei libero di fare ciò che credi

Blackmore
 
Ciao, Marco, controlla se va bene.
Codice:
Sub main()
Dim rt(2),pte(2),pta(2),am(2),ambo(5),nr(5)

estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",100))
clpe=CInt(InputBox("Quanti colpi di gioco per l'ambata?","Colpi ambata",4))
clpa=CInt(InputBox("Quanti colpi di gioco per l'ambo?","Colpi ambo",12))
n1=CInt(InputBox("1° numero da abbinare?","N1",8))
n2=CInt(InputBox("2° numero da abbinare?","N2",13))
n3=CInt(InputBox("3° numero da abbinare?","N3",20))
n4=CInt(InputBox("4° numero da abbinare?","N4",45))
n5=CInt(InputBox("5° numero da abbinare?","N5",79))
ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio es

pte(1)=1
pte(2)=1
pta(2)=1
rt(1)=5
rt(2)=6
ng=0

am(1)=Fuori90(Estratto(es,5,5)+Estratto(es,6,1))
am(2)=Vert(am(1))
ng=ng+1
ImpostaGiocata ng,am,rt,pte,clpe

nr(1)=n1
nr(2)=n2
nr(3)=n3
nr(4)=n4
nr(5)=n5

For x=1 To 5
ambo(1)=am(1)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clpa
Next

For x=1 To 5
ambo(1)=am(2)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clpa
Next

co=co+1
Scrivi String(70,"=")&" Caso n° "&co,1
Scrivi

Gioca es
Next
ScriviResoconto
End Sub
ciauz
:)

Fortuna non omnibus aeque.
 
quote:Originally posted by Blackmore

Meno male che c'è Thauk :D:D:D

Blackmore
:D:D:D

Più che altro, meno male che in questo periodo ho un po' più di tempo - a orari improbabili - per dare una sbirciata al forum...

Fortuna non omnibus aeque.
 
Ciao a tutti ,grazie Blackmore ,si così è molto dispendioso ,solo che voglio cercare di abbinargli alcuni numeri x ambo.
Un altrettanto ringraziamento a Thauk ,(la classe non è acqua)proprio come volevo complimenti ,io non saprei nemmeno da dove iniziare,ma sarebbe possibile abbinargli alle ambate 5 numeri x ambo(i più frequenti nelle ultime 50 o 100 estrazioni .
Solo se è possibile ,prometto non chiedo altro.
Ciao Marco
 
Ciao, Marco, ho modificato lo script precedente aggiungendo alcuni InputBox. Ho impostato i colpi per l'ambata a 4 e quelli per l'ambo a 12. I numeri da abbinare sono 5 (8.13.20.45.79), ma li puoi modificare a tuo piacimento di volta in volta. Quest'ultimi sono/sono stati i più frequenti sulle ruote unite di Milano-Napoli dal 2005 a oggi, ma ciò non significa che continueranno a esserlo in futuro.

Buone vincite.
:D

Fortuna non omnibus aeque.
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 04 luglio 2025
    Bari
    08
    45
    67
    28
    03
    Cagliari
    70
    57
    26
    88
    80
    Firenze
    83
    77
    22
    86
    67
    Genova
    04
    20
    78
    36
    47
    Milano
    12
    53
    34
    18
    57
    Napoli
    07
    19
    35
    75
    10
    Palermo
    06
    65
    11
    07
    23
    Roma
    01
    53
    48
    80
    46
    Torino
    30
    44
    71
    05
    21
    Venezia
    45
    67
    14
    44
    40
    Nazionale
    22
    27
    05
    18
    67
    Estrazione Simbolotto
    Nazionale
    12
    31
    32
    04
    44

Ultimi Messaggi

Indietro
Alto