Aiuto x Script

[jure]

Ho trovato questo Metodo del 1994

es. 13 09 2014

CA 22 85 = 1° 3° pos. Somma 17
NA 60 47 = 1° 3° pos. Somma 17
i due Ambi devono Avere la stessa somma e stessa posizione.

22 - 85 = 22 + 90 - 85 = 27
27 + 45 = 72
72 + 27 = 99 - 90 = 09 a 90 = 81


60 - 47 = 13 + 45 = 58
58 + 13 = 71 a 90 = 19

Ambo 81 19 il 2° Ambo si scambiano le cifre 89 11
da giocare anche a tutte.
Al 3° Colpo a CA 89 11 il 20/09
Le Cifre si scambiano il 1° numero da sinistra a destra il 2° numero da
destra a sinistra.
BA CA 59 83 i numeri vengono scambiati cosi' 53 89

 

[janez57]

Buon pomeriggio a tutti/e

Gentilmente se si può fare questo script,servirebbe anche a me per le convergenze.

Grazie mille per un riscontro.

Janez

 

[Mike58]

Ciao visto che ultimamente sono solo io che faccio script ed ho appena terminato una richiesta, qualche altro aspirante scripter sarebbe sicuramente di aiuto.
il codice per ricavare l'ambo sarebbe TRASPOSIZIONE.

vediamo se qualcuno si fa avanti... altrimenti vedrò entro domani.


Ciao

 

[Mike58]

In un attimo di lucidità ecco lo script.
Provate se non ci sono errori.

Sub Main
	Dim nu(2),ru(2),posta(2),rtt(1)
	posta(2) = 1
	er = InputBox("QUANTE ESTRAZIONI",,100)
	Ini = EstrazioneFin - er
	fin = EstrazioneFin
	For es = Ini To fin
		For r1 = 1 To 9
			For r2 = r1 + 1 To 10
				For p1 = 1 To 4
					For p2 = p1 + 1 To 5
						a = Estratto(es,r1,p1)
						b = Estratto(es,r1,p2)
						c = Estratto(es,r2,p1)
						d = Estratto(es,r2,p2)
						sm1 = Fuori90(a + b)
						sm2 = Fuori90(c + d)
						If sm1 = sm2 Then
							Call Messaggio("Elaboro estrazioni . . . . . . " & es & "     List By Mike58 ")
							Call AvanzamentoElab(Ini,fin,es)
							k = k + 1
							Scrivi String(130,"=")
							Scrivi GetInfoEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1),0,0
							Scrivi "  " & Format2(a) & "-" & Format2(b) & "  " & p1 & "/" & p2 & " Somma " & sm1
							Scrivi GetInfoEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2),0,0
							Scrivi "  " & Format2(c) & "-" & Format2(d) & "  " & p1 & "/" & p2 & " Somma " & sm2
							df1 = Distanza(a,b)
							df2 = Distanza(c,d)
							diam1 = Diametrale(df1)
							diam2 = Diametrale(df2)
							sm1 = Fuori90(df1 + diam1)
							sm2 = Fuori90(df2 + diam2)
							cm1 = ComplAdX(sm1,90)
							cm2 = ComplAdX(sm2,90)
							Scrivi
							Scrivi df1 & "  " & diam1 & "  ",0,0
							Scrivi cm1,1
							Scrivi df2 & "  " & diam2 & "  ",0,0
							Scrivi cm2,1
							nu(1) = Trasposizione(cm1,cm2)
							nu(2) = Trasposizione(cm2,cm1)
							ru(1) = r1
							ru(2) = r2
							rtt(1) = 11
							Scrivi "Ambo Trasposto.... " & StringaNumeri(nu,,1),1
							Scrivi String(60,"-") & " Caso N. " & k
							ImpostaGiocata 1,nu,ru,posta,10,2
							ImpostaGiocata 2,nu,rtt,posta,10,2
							Gioca es,1,,1
						End If
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[janez57]

Buona sera a tutti/e

Grazie mille Mike58 per la sollecitudine.

Janez