Aiuto per listato

Rispondi
Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Aiuto per listato

Messaggio da SeeLe8 » 15/11/2014, 15:42

Ciao,
faccio prima a fare un esempio che a spiegare tutto

Lo script dovrebbe sommarmi le cifre di tutti i 5 estratti
es: TO 49.69.86.35.60

4+9+6+9+8+6+3+5+6+0 = 56

poi deve fare

56-4 = 52 = figura 7
56-9 = 47 = figura 2
primo numero 72

56-6= 50 = figura 5
56-9 = 47 = figura 2
secondo numero 52

56-8= 48 = figura 3
56-6 = 50 = figura 5
terzo numero 35

56-3= 53 = figura 8
56-5= 50 = figura 5
quarto numero 85

56-6= 50 = figura 5
56-9= 47 = figura 2
quinto numero 52

numeri trovati 72.52.35.85.52

il 52 si ripete, quindi sarà l'ambata
Ultima modifica di SeeLe8 il 15/11/2014, 16:12, modificato 1 volta in totale.
Immagine

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Aiuto per listato

Messaggio da SeeLe8 » 18/11/2014, 1:50

up :dent:
Immagine

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

Re: Aiuto per listato

Messaggio da Enplein » 18/11/2014, 18:30

Ciao SeeLe8, controlla se ci sono errori...

Ciao, Enplein.

Codice: Seleziona tutto


Sub Main()
'Forum Pentambo X SeeLe8_Listed by Enplein
Dim ruote(2),ruota(1)
Dim amb(1),nn(5),dec(5),cad(5)
Dim poste(2)
Dim posta(1)
posta(1) = 1
poste(2) = 1
casi = 0
rs = InputBox("Quante estrazioni vuoi controllare?",,100)
cl = InputBox("In quante estrazioni vuoi la ricerca?",,24)
fin = EstrazioneFin
ini = fin - rs
For es = ini To fin
AvanzamentoElab ini,fin,es
	For r1 = 1 To 11
	If r1=11 Then r1=12
	se=0
	For i=1 To 5
	e=Estratto (es,r1,i)
	dec(i)=Decina (e):cad(i)=Cadenza (e):se=se+dec(i)+cad(i)
	Next
	For i=1 To 5
	x1=Figura (Fuori90 ((se+90)-dec(i)))
	x2=Figura (Fuori90 ((se+90)-cad(i)))
	nn(i)=CInt (Fuori90 (x1&x2))
	Next
	g=0 
	For i=1 To 4 : For j=i+1 To 5
	If nn(i)=nn(j) Then g=g+1 : ne=nn(i)
	Next : Next 
		If g=1 Then 'Conta i numeri ripetuti
	 	amb(1) = ne
		ruote(1) = r1 : ruote(2) = 11
		ruota(1) = r1 
		casi = casi + 1
Scrivi "----------------------------------------------------------------------"
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " Somma Dec. + Cad.[" & Format2(se)& "]"& Chr (10)&_
"Numeri Ricalcolati : "& StringaNumeri (nn),1
Scrivi "------------------------------------------------------------Giocata n°" & casi
ImpostaGiocata 1,amb,ruota,posta,cl,1
ImpostaGiocata 2,nn,ruote,poste,cl,2
Gioca es
		End If
			
	Next
Next
ScriviResoconto
End Sub

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Aiuto per listato

Messaggio da SeeLe8 » 18/11/2014, 20:25

grazie mille enplein!!

:abb: :abb:
Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Bing [Bot] e 4 ospiti