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
    giovedì 03 luglio 2025
    Bari
    33
    40
    47
    65
    61
    Cagliari
    78
    19
    74
    44
    05
    Firenze
    46
    50
    38
    79
    19
    Genova
    72
    48
    47
    66
    34
    Milano
    11
    19
    37
    61
    16
    Napoli
    66
    85
    20
    29
    74
    Palermo
    46
    10
    66
    76
    35
    Roma
    34
    66
    75
    79
    74
    Torino
    27
    33
    40
    59
    10
    Venezia
    50
    26
    68
    07
    30
    Nazionale
    04
    17
    74
    46
    41
    Estrazione Simbolotto
    Nazionale
    34
    03
    11
    07
    32
Indietro
Alto