ambate velocia ruota

ago61
Messaggi: 13
Iscritto il: 27/10/2011, 17:40

Re: ambate velocia ruota

Messaggio da ago61 » 10/12/2011, 13:17

ambate veloci venezia ho preso in esame la prima del mese se ho fatto bene i calcoli ambata 90 abb 31 59 ciao

Avatar utente
DjNomade
Messaggi: 577
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: ambate velocia ruota

Messaggio da DjNomade » 10/12/2011, 15:37

Ciauz ho provato a farlo cosi'
speriamo sia giusto...

Codice: Seleziona tutto

 ColoreTesto 2 :Scrivi String(37,32)&"Ambate veloci a ruota  by nerisole",1


 Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)

Dim  ruote(10)
Dim poste(3)
Dim postee(3)
Dim posta(10)
posta(1) = 1 ' < - - - posta per estratto
posta(6) = 1 ' < - - - posta determ.1° posto
posta(10) = 1 ' < - - - posta determ.5° posto
poste(2) = 1 ' < - - - posta per ambo
postee(2) = 1 ' < - - - posta per ambo in terzina
postee(3) = 1 ' < - - - posta per terno
k = 9' < - - - Colpi di gioco


For n = 8408 To EstrazioneFin ' < - - - - Numero estrazzioni
																																																					
																																																
to1=Estratto(n,9,1)
to2=Estratto(n,9,2)
to3=Estratto(n,9,3)	
to4=Estratto(n,9,4)
to5=Estratto(n,9,5)																															
																																
ve1=Estratto(n,10,1)
ve2=Estratto(n,10,2)
ve3=Estratto(n,10,3)
ve4=Estratto(n,10,4)
ve5=Estratto(n,10,5)

ruote(1)=9' Ruota di verifica esito
ruote(2)=10' Ruota di verifica esito


a=Fuori90(to1+ve4)
b=Fuori90(to4+ve1)
c=Fuori90(a+b)'ambata

numeri1(1)=c
ImpostaGiocata 1,numeri1,ruote,posta,k,1

numeri2(1)=c
numeri2(2)=a
ImpostaGiocata 2,numeri2,ruote,poste,k,2
numeri2(1)=c
numeri2(2)=b
ImpostaGiocata 3,numeri2,ruote,poste,k,2

numeri3(1)=c
numeri3(2)=a
numeri3(3)=b
ImpostaGiocata 4,numeri3,ruote,postee,k,3



Gioca n
  
Next
ScriviResoconto
 ColoreTesto 2 :Scrivi String(37,32)&"Ambate veloci a ruota  by nerisole",1


 Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 3860
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: ambate velocia ruota

Messaggio da Tatoo64 » 10/12/2011, 17:25

grazie djnomade :good:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

ago61
Messaggi: 13
Iscritto il: 27/10/2011, 17:40

Re: ambate velocia ruota

Messaggio da ago61 » 10/12/2011, 17:55

grazie

Avatar utente
ciccio
Messaggi: 1096
Iscritto il: 24/10/2011, 20:59

Re: ambate velocia ruota

Messaggio da ciccio » 10/12/2011, 21:44

grazie,grazie :good:
chi di spada ferisce..di spada perisce...

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite