Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 listato lotto

Nota: Devi essere registrato per rispondere al messaggio.
Per registrarti, premi qui. La registrazione è GRATUITA!

Risoluzione schermo:
Nome utente:
Password:
Modo formattazione:
Formato: GrassettoCorsivoSottolineatoAttraversato Allinea sinistraCentratoAllinea destra Riga orizzontale Inserisci un indirizzo web (HYPERLINK)Inserisci indirizzo email (EMAIL)Inserisci un'immagine (IMAGE) Inserisci del codice (CODE)Inserisci una citazione (QUOTE)Inserisci elenco
   
Messaggio:

* HTML è attivo
* Il codice su forum è attivo
Smiles
Smile [:)] Grande Smile [:D] Importante [8D] Arrosisco[:I]
Lingua [:P] Diavolo [}:)] Ammicco[;)] Pagliaccio [:o)]
Occhio nero [B)] Palla N.8 [8] Accigliato[:(] Timido [8)]
Shoccato [:0] Arrabbiato [:(!] Morto [xx(] Assonnato [|)]
Baci [:X] Approvo [^] Disapprovo [V] Domanda [?]

 
 
   

R E V I S I O N E      D E L L A      D I S C U S S I O N E
qantonio Posted - 08 agosto 2019 : 14:10:54
cortesemente script lotto :bari cagliari distanza 26 in 2 posizione:ambata 61 ,abb per ambo 45,1,12,18,3,ruota di gioco roma colpi 5,grazie in anticipo buon ferro agosto a tt
2     U L T I M E      R E P L I C H E    (Newest First)
qantonio Posted - 09 agosto 2019 : 16:06:17
grazie
franca46 Posted - 09 agosto 2019 : 15:53:07

Sub main()
Dim num(4)
Dim num1(6)
Dim num2(8)
Dim ruote(10)
Dim ruot(1)
Dim posta(2)
Dim poste(3)
Dim post(4)
posta(1)=1
'posta(2)=1
poste(2)=0.5
poste(3)=0.5
post(3)=0.5
post(4)=0.5
tmp=InputBox("Quante estrazioni controllo?",,100)
fin=EstrazioneFin
ini=fin-tmp
ruot(1)=11
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 1
r1=r+1
For p= 2 To 2
a=Estratto (es,r,p)
b=Estratto (es,r1,p)
If Distanza(a,b)= 26 Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)& " ["&Format2(a)&"]"
Scrivi Left(NomeRuota(r+1),2)&" "& StringaEstratti(es,r+1)& " ["&Format2(b)&"]"



ruote(1)=8

num(1)=61

ImpostaGiocata 1,num,ruote,posta,12

num1(1)=61
num1(2)=45
num1(3)=1
num1(4)=12
num1(5)=18
num1(6)=3
ImpostaGiocata 2,num1,ruote,poste,12

num2(1)=61
num2(2)=45
num2(3)=1
num2(4)=12
num2(5)=18
num2(6)=3

ImpostaGiocata 3,num2,ruot,post,12

Gioca es
Scrivi"*****************************************"
End If
Next
Next
Next
ScriviResoconto
End Sub


Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000