x i 3 tenori del forum:EnplainDjnomade e Lones

Rispondi
Avatar utente
tomlotto
Messaggi: 1101
Iscritto il: 26/10/2011, 11:40
Località: Sorrento

x i 3 tenori del forum:EnplainDjnomade e Lones

Messaggio da tomlotto » 03/09/2012, 11:55

Trattasi di un metodo commercializzato da Paolo Brizzi :

quando su una ruora si ripete un numero consecutivamente nella stessa casella si applica il complemento a 90 e si ottiene l'ambata principale il suo vertibile sara' la secondaria e si mette in gioco ambata a ruota e ambo secco a ruota e su tutte x 9 colpi di gioco.

esempio: ambata 6 ripetuta su napoli consecutivamente nella stessa casella:1) ambata principale 84
2)secondaria 48
3)ambo secco x napoli e tutte 48-84


Chiedo la gentilezza ai tre tenori di farne uno script per l8 e regalarlo a tutti,me compreso

grazie,ciao tom
Ultima modifica di tomlotto il 03/09/2012, 11:57, modificato 1 volta in totale.
Chi gioca per bisogno, Perde per necessità. .

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: x i 3 tenori del forum:EnplainDjnomade e Lones

Messaggio da Enplein » 03/09/2012, 17:35

Ciao tom, ecco la mia soluzione...controlla!!!

Ciao, Enplein.

Codice: Seleziona tutto

Sub main()
Dim rt1(1),rtt(2),posta(1),pt1(2)
Dim amb(2)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
casi=0
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
Messaggio "elab. del "&dataestrazione(es)&" [ by Enplein ]"
	For r1=1 To 11
	If r1=11 Then r1=12
		For p1=1 To 5
		a=Estratto(es-1,r1,p1) : b=Estratto(es,r1,p1)
			If a=b Then
			amb(1)=90-a : amb(2)=Vert (amb(1))
			rt1(1)=r1:rtt(1)=r1:rtt(2)=11
			posta(1)=1 :pt1(2)=1
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es-1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es-1,r1)&_
" ] [ "&Format2(a)&" in "&p1&"^ pos. ]"
Scrivi DataEstrazione(es)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] [ "&Format2(b)&" in "&p1&"^ pos. ]"
Scrivi String(64,"-")&" caso n° "&(casi),1
ImpostaGiocata 1,amb,rt1,posta,k,1
ImpostaGiocata 2,amb,rtt,pt1,k,2

Gioca es
			End If
		Next
	Next
Next
ScriviResoconto
ColoreTesto 1 : Scrivi "X tomlotto by Enplein",1 : End Sub

Avatar utente
tomlotto
Messaggi: 1101
Iscritto il: 26/10/2011, 11:40
Località: Sorrento

Re: x i 3 tenori del forum:EnplainDjnomade e Lones

Messaggio da tomlotto » 03/09/2012, 20:56

Enplein grazie della tua disponibilita' ,il lavoro e' perfetto .Ringrazio anche Djnomade e lones ,vi ho definiti i 3 tenori di questo forum.



:appl: :appl:
Chi gioca per bisogno, Perde per necessità. .

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

Re: x i 3 tenori del forum:EnplainDjnomade e Lones

Messaggio da DjNomade » 04/09/2012, 0:27

:-D Grazie!!!!

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

Re: x i 3 tenori del forum:EnplainDjnomade e Lones

Messaggio da ciccio » 04/09/2012, 14:54

grazie ai 3
Allegati
5a4d4dac116c04a9fad4f5f8710a629c_orig.jpg
chi di spada ferisce..di spada perisce...

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite