X gli scripter

[Roby]

Chiedo nuovamente aiuto a voi geni
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

 

[Roby]

Incomincia a farlo poi vado avanti io!!!!

Mo me vado a magnà na pizza e poi ce provo, ma me sa che sia na cosa molto ma molto difficile!!!

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

 

[imported_n/a]

Vai tranquillo,
e non prendermi x i fondelli
x te queste....sono stronzatine


Parlar sensa pensar xè come sparar sensa mirar

 

[imported_n/a]

Se è possibile,
mettici una variabile che aumenti la posta dell'ambata
Perchè se...esce al nono colpo con 1 euro si è in perdita
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

 

[Roby]

Forse te conviene non giocà le progressioni....qualche eurino lo guadagni!!
Salvo errori.
Ciao

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

 

[imported_n/a]

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


Parlar sensa pensar xè come sparar sensa mirar