Programma per somme 90 in verticale

[Roby]

Salve a tutti,

qualcuno ha un programma per trovare le somme a 90 in verticale?

es. BA 56
CA 34

ecc...

Grazie e saluti, Armaus

 

[solare]

Ciao armaus, ho trovato questo vedi se va bene, trova due numeri di somma 90 in due ruote in verticale.
ciao
Sub main()

Dim ruote(10)
Dim nu1(2),nu10(5),nu11(5)
Dim posta(2)
Dim poste(5)

posta(2)=2
poste(2)=3
poste(3)=1.3
poste(4)=0.5
poste(5)=0.2

casi=0

so=CInt(InputBox("Qual'è la somma da ricercare?","Somma da ricercare",90))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",13))
rs=InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)

ini=EstrazioneFin -rs
fin=EstrazioneFin
For es =ini To fin
Messaggio "elab. estr. del < "&DataEstrazione (es)&" >"

'For r1=1 To 9 '<<-- x ruote non consecutive
For r1=1 To 10 '<<-- x ruote consecutive

For p=1 To 5
a=Estratto(es,r1,p)

'For r2=r1+1 To 10 '<<-- x ruote non consecutive
r2=r1+1 '<<-- x ruote consecutive
If r1=10 Then r2=1 End If '<<-- x per ruote consecutive

b=Estratto(es,r2,p)
If a+b=so Then

Scrivi
ColoreTesto 2 : Scrivi String(65,"•"),1:ColoreTesto 0
Scrivi " < 2 numeri isotopi somma "&so&" su su "&siglaruota(r1)&" e "&siglaruota(r2)&" >",1
Scrivi String(65,"-")
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" "& StringaEstratti(es,r1)&" ]"
ColoreTesto 0 : Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r2)&" "& StringaEstratti(es,r2)&" ]"
Scrivi "< numero [ "&format2(a)&" ] in "&(p)&"a pos. su " & SiglaRuota(r1)&" >"
Scrivi "< numero [ "&format2(b)&" ] in "&(p)&"a pos. su " & SiglaRuota(r2)&" >"
Scrivi String(65,"-")

c=Fuori90((45-a)+90) '1a ambata
d=Fuori90((45-b)+90) '2a ambata
e=Vert(c)'abbin
f=Vert(d)'abbin
g=Fuori90(e+10)'abbin
h=Fuori90(f+10)'abbin

ruote(1)=r1
ruote(2)=r2

ng=0 'per numero giocate

nu1(1)=c
nu1(2)=d
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=c
nu1(2)=e
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=c
nu1(2)=f
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=c
nu1(2)=g
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=c
nu1(2)=h
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=d
nu1(2)=e
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=d
nu1(2)=f
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=d
nu1(2)=g
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu1(1)=d
nu1(2)=h
ng=ng+1
ImpostaGiocata ng,nu1,ruote,posta,k
nu10(1)=c
nu10(2)=e
nu10(3)=f
nu10(4)=g
nu10(5)=h
ImpostaGiocata 10,nu10,ruote,poste,k
nu11(1)=d
nu11(2)=e
nu11(3)=f
nu11(4)=g
nu11(5)=h
ImpostaGiocata 11,nu11,ruote,poste,k

Gioca es
casi=casi+1
End If
'Next '<<-- x per ruote consecutive togliere
Next
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)
ScriviResoconto




End Sub

 

[Thauk]

Ciao, Armaus.
Se può esserti di aiuto questo script per Spaziometria...

Sub main()
	
	ini = EstrazioneFin - 10
	fin = EstrazioneFin
	For es = ini To fin
	Messaggio "Estrazione: "&es
		
		For r1 = 1 To 9
			For p = 1 To 5
				a = Estratto(es,r1,p)
				For r2 = r1 + 1 To 10
					b = Estratto(es,r2,p)
					If a + b = 90 Then
						
					Scrivi DataEstrazione(es) & "	" & SiglaRuota(r1) & " " & Format2(a),1
					Scrivi DataEstrazione(es) & "	" & SiglaRuota(r2) & " " & Format2(b),1
					Scrivi
						
					End If
				Next
			Next
		Next
	Next
End Sub

ciauz


Fortuna non omnibus aeque.

 

[Thauk]

Eheheh... Solare e io abbiamo postato contemporaneamente.

Fortuna non omnibus aeque.

 

[korokoro]

x Solare e Thauk

si puo aver anche la Nazionale?????


P.s.: anche la distanza 45...............

Grazie Leo

 

[korokoro]

quote:Originally posted by korokoro

x Solare e Thauk

si puo aver anche la Nazionale?????


P.s.: anche la distanza 45 in verticale...............

Grazie Leo

 

[Armaus]

Grazie a tutti,

purtroppo non mastico di script ecc., non c'é qualcosa di scaricabile tipo excel??

Grazie e a presto, Armaus

 

[Thauk]

@Armaus
Mi dispiace, ma per excel non ho nulla.
Comunque, se hai Spaziometria, basta che copi/incolli lo script qui presente da Sub main() a End Sub dentro Gestione Script, lo salvi, e lo avvii con un click sull'iconcina con il fulmine.

@korokoro
Ho modificato lo script aggiungendo un paio di InputBox (somma cercata e nr. estrazioni) e la Nazionale.

Sub main()
	
	som = CInt(InputBox("Somma da cercare?","Somma",90))
	nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",10)
	ini = EstrazioneFin - nes
	fin = EstrazioneFin
	For es = ini To fin
	Messaggio "Estrazione: " & es
		
		For r1 = 1 To 10
			For p = 1 To 5
				a = Estratto(es,r1,p)
				For r2 = r1 + 1 To 12
					b = Estratto(es,r2,p)
					If a + b = som And r2 <> 11 Then
						
					Scrivi DataEstrazione(es) & "	" & SiglaRuota(r1) & " " & Format2(a),1
					Scrivi DataEstrazione(es) & "	" & SiglaRuota(r2) & " " & Format2(b),1
					Scrivi
						
					End If
				Next
			Next
		Next
	Next
End Sub

ciauz


Fortuna non omnibus aeque.

 

[korokoro]

x Thauk

1000 Thauk

ciao

 

[rodrigo]

quote:Originally posted by Armaus

Grazie a tutti,

purtroppo non mastico di script ecc., non c'é qualcosa di scaricabile tipo excel??

Grazie e a presto, Armaus

Ciao Armaus ce l'ha il programma Evidenzelotto, scorri il menù e vai ad "evidenze" e troverai quello che chiedi.
Un saluto


Rodrigo

_________________________
Io ho quel che ho donato
(G.D'Annunzio)