Richiesta Script Numeri Vertibili

[CocoNut]

Entro poco in questa sezione ( mi vergogno persino a chiedere ) ...

Sto valutando i vertibili estratti in isotopia (ultimo esempio 15 Maggio Ba Ve 18 - 81 )

Di conseguenza questi i requisiti dello script:

L8 e/o Spaziometria

Numeri vertibili puri e impuri isotopi su 2 ruote anche non contigue

Statistica minima 12 mesi di sortite

Grazie a chi si renderà disponibile !

 

[Roby]

Ti va bene così?

Sub Main()
	Scrivi String(30," ") & " PER COCONUT : NUMERO VERTIBILE ISOTOPO SU 2 RUOTE : BY BLACKMORE"
	t = 0
	esaritroso = InputBox("Inserisci le estrazioni di controllo","Blackmore",100)
	fin = EstrazioneFin
	ini = EstrazioneFin - esaritroso
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 10
			For r1 = r + 1 To 12
				If r1 = 11 Then r1 = 12
				For p = 1 To 5
					a = Estratto(es,r,p)
					b = Estratto(es,r1,p)
					If b = Vert(a) Then
						ColoreTesto 1
						Scrivi
						ColoreTesto 0
						Scrivi String(110,"*"),1
						Scrivi
						ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione",1
						Scrivi DataEstrazione(es) & "   " & SiglaRuota(r1) & "  " & StringaEstratti(es,(r1)) & "      " & Left(SiglaRuota(r1),3) & " " & Format2(b) & " in " & p & "° Posizione (Vertibile Isotopo)",1
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
End Sub

 

[CocoNut]

Mi va benissimo, grazie Blackissimo!

 

[Roby]

 

[CocoNut]

Lo so che Black è bravissimo e intuivo che uno di voi due mi sarebbe venuto in soccorso.

Il fatto che tu l'abbia letto tardi però, non deve rammaricarti...
per me è già tanto che tu sia stato presente in alcun modo .

 

[Antonin]

Ciao paesana,hai detto giusto.

 

[Baffoblu]

Lo so che Black è bravissimo e intuivo che uno di voi due mi sarebbe venuto in soccorso.

Il fatto che tu l'abbia letto tardi però, non deve rammaricarti...
per me è già tanto che tu sia stato presente in alcun modo .