Novità

per esselotto jackman o chi vuole aiuto script !

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

Roby

Guest
salve a tutti !!!
volevo chiedere a chi piu di me ne sa se potrebbe aiutarmi in un impresa del tipo :

ruota di calcolo nazionale
ruota di gioco nazionale
si esegue a tutte le estrazioni ( vorrei che la statistica partisse con le ultime 110 estrazioni se possibile fino a l'ultima )
calcoli da fare : a tutti gli estratti sommare i numeri fissi 18 72
il risultato sara 10 numeri da giocare per la sorte di ambo terno quaterna e cinquina sulla ruota nazionale in un unica lunghetta ( se ci sono numeri ripetuti vorrei venisse lasciato solo uno riducendo la lunghetta a 9 o meno numeri)
ogni gioco vorrei fosse separato ( mi spiego meglio vorrei che la giocata per l'ambo avesse un proprio resoconto per il terno lo stesso per la quaterna e cinquina separati )
i colpi di gioco sono 10 le progressioni le scrivo sotto
progressione per ambo
colpo - posta
1 - 1,00
2 - 1,00
3 - 1,00
4 - 1,00
5 - 2,00
6 - 2,00
7 - 3,00
8 - 4,00
9 - 5,00
10 - 6,00
terno sempre 1,00
quaterna sempre 1,00
cinquina 1,00 sempre

se ho chiesto molto ed e un po difficile non preoccupatevi farò tutto a mano se invece avete la possibilita di aiutarmi ve ne sarei grato moltissimo .
grazie ancora buon week
microchipper ___
 
Appena me ricordo come si mettono le progressioni te le inserisco, so un pò arrugginito!!!
Ho messo come posta dall'ambo alla cinquina 1 euro
Ciao

Codice:
Sub main() 
Dim num(10)
Dim ruote(1)
Dim poste(5)
poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=1
tmp=InputBox("Quante estrazioni controllo?",,110) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
r=12
a1=Estratto(es,r,1)
a2=Estratto(es,r,2)
a3=Estratto(es,r,3)
a4=Estratto(es,r,4)
a5=Estratto(es,r,5) 
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)
ruote(1)=r
num(1)=Fuori90(a1+18)
num(2)=Fuori90(a1+72)
num(3)=Fuori90(a2+18)
num(4)=Fuori90(a2+72)
num(5)=Fuori90(a3+18)
num(6)=Fuori90(a3+72)
num(7)=Fuori90(a4+18)
num(8)=Fuori90(a4+72)
num(9)=Fuori90(a5+18)
num(10)=Fuori90(a5+72)
ImpostaGiocata 1,num,ruote,poste,10
Gioca es
Scrivi"**********************************************" 
Next 
ScriviResoconto
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
 
grazie sei stato veramente gentile e tempestivo se dovessi ricordare come si fa per le progressioni sarebbe fantastico ma mi accontento di quello che gia mi hai postato grazie !
 
Metto anche il mio, vedi se ti va bene. :)
Codice:
Sub main()
Dim rt(1),pta(5),ptt(5),ptq(5),ptc(5),nr(10)
Dim prog(5,100)
prog(2,1)=1
prog(2,2)=1
prog(2,3)=1
prog(2,4)=1
prog(2,5)=2
prog(2,6)=2
prog(2,7)=3
prog(2,8)=4
prog(2,9)=5
prog(2,10)=6

pta(2)=1
ptt(3)=1
ptq(4)=1
ptc(5)=1
rt(1)=12
k=10

ex=InputBox("Quante estrazioni controllo?",,110) 

ini=EstrazioneFin-ex
fin=EstrazioneFin
For es=ini To fin
Messaggio(es)

nr(1)=Fuori90(Estratto(es,12,1)+18)
nr(2)=Fuori90(Estratto(es,12,1)+72)
nr(3)=Fuori90(Estratto(es,12,2)+18)
nr(4)=Fuori90(Estratto(es,12,2)+72)
nr(5)=Fuori90(Estratto(es,12,3)+18)
nr(6)=Fuori90(Estratto(es,12,3)+72)
nr(7)=Fuori90(Estratto(es,12,4)+18)
nr(8)=Fuori90(Estratto(es,12,4)+72)
nr(9)=Fuori90(Estratto(es,12,5)+18)
nr(10)=Fuori90(Estratto(es,12,5)+72)
ImpostaGiocata 1,nr,rt,pta,k
ImpostaProgressione 1,prog
ImpostaGiocata 2,nr,rt,ptt,k
ImpostaGiocata 3,nr,rt,ptq,k
ImpostaGiocata 4,nr,rt,ptc,k

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

Gioca es
Next
ScriviResoconto
ScriviResoconto 1
ScriviResoconto 2
ScriviResoconto 3
ScriviResoconto 4
End Sub
ciauz
:)

Fortuna non omnibus aeque.
 
grazie metus del lavoro che hai fatto pe me se ti va potresi dare un'occhiata anche qualcun'altro se volete a un altro mio questito nella sezione metodi che ripropongo qui sotto :


salve a tutti sono in cerca di un'aiuto
volevo sapere se ce qualcuno di buona volontà che possa realizzare per me lo script da usare con lottodesk del seguente metodo:

all'uscita di 2 numeri uguali isotopi su 2 ruote consecutive tipo venezia nazionale
nazionale bari
bari cagliari ecc

fare il seguente calcolo :
numero estratto isotopo come ambata

abbinamenti per ambo :
primo estratto prima ruota +88
seondo estratto prima ruota +23
terzo estratto prima ruota +20

totale previsione una quartina per ambo da giocare su tutte le ruote.

esempio pratico

nazionale 67-43-55-78-87
bari 66-65-55-90-43

calcoli
55 ambata
67+88 1 abbinamento eventuale fuori novanta
43+23 2 abbinamento evntuale fuori novanta
55+20 3 abbinamento eventuale fuori novanta
.
progressioni per il gioco del solo ambo su tutte :
colpi di gioco 13

colpo - puntata
1-1.00
2-1.00
3-1.00
4-1.5
5-2.00
6-3.00
7-4.00
8-5.5
9-7.5
10-10.5
11-14.5
12-20
13-28

sospendere il gioco al primo esito positivo di ambo su tutte

un grazie a tutti di cuore spero qualcuno possa aiutarmi a presto grazie mille:D:D
 
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