Novità

X gli scripter

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

Roby

Guest
Chiedo nuovamente aiuto a voi geni:D
Condizione di rilevamento:
rilevare in forma isotopa 2 numeri in distanza ciclometrica 30
Fare la somma con eventuale fuori 90
Il risultato viene moltiplicato x2 con fuori 90
poi sommare il fisso 30 x calcolare l'ambata
i 2 abbinamenti fissi x tentare l'ambo i fissi 24 e 33
un grazie a chi vorrà aiutarmi:)



Parlar sensa pensar xè come sparar sensa mirar
 
Incomincia a farlo poi vado avanti io!!!!
:D:D
Mo me vado a magnà na pizza e poi ce provo, ma me sa che sia na cosa molto ma molto difficile!!!
:D:D:D:D
Ciao

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
 
Vai tranquillo,
e non prendermi x i fondelli:D
x te queste....sono stronzatine;)



Parlar sensa pensar xè come sparar sensa mirar
 
Se è possibile,
mettici una variabile che aumenti la posta dell'ambata:D
Perchè se...esce al nono colpo con 1 euro si è in perdita:D
Ad esempio io che lavoro con le frese CNC se devo fare
una cosa analoga scrivo:
R1=1
R2=5
R1=R1++1
IF R1 NE R2 GO TO....



Parlar sensa pensar xè come sparar sensa mirar
 
Forse te conviene non giocà le progressioni....qualche eurino lo guadagni!!
Salvo errori.
Ciao

Codice:
Sub main()
Dim num(1)
Dim num1(2)
Dim num2(2)
Dim num3(3)
Dim ruote(10)
Dim post(1)
post(1)=1
Dim poste(2)
poste(2)=1
Dim postt(3)
postt(2)=1
postt(3)=1
Dim prog(1,100) 
prog(1,1)=1
prog(1,2)=1
prog(1,3)=1
prog(1,4)=1
prog(1,5)=1.50
prog(1,6)=2
prog(1,7)=2.50
prog(1,8)=3.50
prog(1,9)=4.50
prog(1,10)=6
tmp=InputBox("Quante estrazioni controllo?",,50) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
If Distanza(a,b)=30 Then
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "&StringaEstratti(es,r)&" --> "&Format2(a)
Scrivi Left(NomeRuota(r1),3)&" "&StringaEstratti(es,r1)&" --> "&Format2(b)
a1=Fuori90(a+b)
a2=Fuori90(a1*2)
a3=Fuori90(a2+30)'ambata
ruote(1)=r
ruote(2)=r1
num(1)=a3
ImpostaGiocata 1,num,ruote,post,10
ImpostaProgressione 1,prog
num1(1)=a3
num1(2)=24
ImpostaGiocata 2,num1,ruote,poste,10
num2(1)=a3
num2(2)=33
ImpostaGiocata 3,num2,ruote,poste,10
num3(1)=a3
num3(2)=24
num3(3)=33
ImpostaGiocata 4,num3,ruote,postt,10
Gioca es
Scrivi"***************************************"
End If
Next
Next
Next
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
 
Ciao Metus,
come sempre hai fatto un bel lavoro:)
Diciamo che....tra il listato e il gioco reale,un pò di differenza passa,cmq serve per capire il range dei colpi.
74 ambi su 300 casi esaminati non sembra male:D



Parlar sensa pensar xè come sparar sensa mirar
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28
Indietro
Alto