Per gli scripter

rabberto · 16 Novembre 2011

Ciao ragazzi per un mio nuovo studio avrei bisogno per favore di uno script che mi calcoli la distanza su due ruote in qualsiasi posizione sia in orizzontale che in verticale , e mi chieda :

1) Quante estrazioni vuoi controllare
2) qual'e' la distanza da cercare
3) poi cosa piu' importante mi faccia la quadratura con disegno dei 4 numeri di distanza uguale

Spero di essere stato chiaro e che mi possiate aiutare , grazie , ciao .

kabb77 · 17 Novembre 2011

ciao rabberto , guarda se ti può interesare questo nonè mio! puoi cambiare anche la distanza è in orizzontale !!!

Sub main()
Dim ruote(2)
di=27 '<--------per cambiare distanza, sostituire il n°36
fin=EstrazioneFin
ini=fin-100
For es = ini To fin
AvanzamentoElab ini,fin,es
For 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)
If Distanza (a,b)=di Then
For r2 =r1+1 To 10
For p3= 1 To 4
For p4= p3+1 To 5
c= Estratto (es,r2,p3)
d= Estratto (es,r2,p4)
If Distanza (c,d)=di Then
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a) &" "& Format2 (b)
Scrivi Space(11)& Left(NomeRuota(r2),2) & " " & Format2(c) & " " & Format2 (d)
End If : Next : Next : Next
End If : Next : Next : Next : Next : End Sub

mauro kabb77

kabb77 · 17 Novembre 2011

anche questo non mio! ma trovato, calcola la distanza in verticale,non sò se questi 2 script sono al caso tuo. ciao

Dim ruote(2)
di=5 '<--------per cambiare distanza, sostituire il n°5
fin=EstrazioneFin
ini=fin-100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 5
For p2=p1+1 To 5
a= Estratto (es,r1,p1)
b= Estratto (es,r1,p2)

If Distanza (a,b)=di Then
For r2 =r1+1 To 10
c= Estratto (es,r2,p1)
d= Estratto (es,r2,p2)
If Distanza (c,d)=di Then
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a) &" "& Format2 (c)&" - "&p1&"/"&p2&"^ pos."
Scrivi Space(11)& Left(NomeRuota(r2),2) & " " & Format2(b) & " " & Format2 (d)&" - "&p1&"/"&p2&"^ pos."
End If : Next
End If : Next : Next : Next : Next : End Sub

mauro kabb77

rabberto · 17 Novembre 2011

Ciao kabb77 ti ringrazio per la risposta il secondo script mi da errore , ma purtroppo non e quello che cerco , grazie lo stesso , spero che qualcuno possa fare qualcosa , ciao .

rabberto · 18 Novembre 2011

Ragazzi nessuno puo'fare niente , per favore , grazie , ciao .

rabberto · 19 Novembre 2011

E' proprio cosi' difficile ?
Almeno rispondetemi per favore .
[V]

Roby · 19 Novembre 2011

Ricopia il secondo ...

Codice:

Sub Main
	Dim ruote(2)
	di = 5 '<--------per cambiare distanza, sostituire il n°5
	Fin = EstrazioneFin
	Ini = Fin - 100
	For es = Ini To Fin
		AvanzamentoElab Ini,Fin,es
		For r1 = 1 To 10
			For p1 = 1 To 5
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					If Distanza(a,b) = di Then
						For r2 = r1 + 1 To 10
							c = Estratto(es,r2,p1)
							d = Estratto(es,r2,p2)
							If Distanza(c,d) = di Then
								Scrivi
								Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),2) & " " & Format2(a) & " " & Format2(c) & " - " & p1 & "/" & p2 & "^ pos."
								Scrivi Space(11) & Left(NomeRuota(r2),2) & " " & Format2(b) & " " & Format2(d) & " - " & p1 & "/" & p2 & "^ pos."
							End If
						Next
					End If
				Next
			Next
		Next
	Next
End Sub

rabberto · 19 Novembre 2011

Ciao gennaro ti ringrazio per la correzzione del secondo script , ma la mia richiesta era di uno script diverso , con il disegno della quadratura dei 4 numeri di distanza uguale , come ho scritto a inizio pagina , grazie , ciao .

rabberto · 19 Novembre 2011

Ciao gennaro ti ringrazio per la correzzione del secondo script , ma la mia richiesta era di uno script diverso , con il disegno della quadratura dei 4 numeri di distanza uguale , come ho scritto a inizio pagina , grazie , ciao .

DjNomade · 19 Novembre 2011

Ciauz ho trovato questo nel mio archivio con qualche mia modifica per il tuo uso spero possa andare bene

Ciauz

Sub main()
Dim am(1),ab(6),numeri(2),cic(4)
Dim ruote(2),posta(1),poste(2)
posta(1)=1 : poste(2)=1
Dim prog(5,100)
prog(1,1)=1
prog(1,2)=1
prog(1,3)=1
prog(1,4)=1
prog(1,5)=1.50
prog(1,6)=2
prog(1,7)=2.50
prog(1,8)=3.50
prog(1,9)=4.50
prog(1,10)=6

Scrivi String(41,32)&"DISTANZE UGUALI",1
Scrivi String(40,32)&"stessa estrazione",1

q=CInt(InputBox("QUAL' E' LA DISTANZA ORIZZONTALE?" &vblf&_
vblf&"Scrivi la distanza orizzontale:","•damper•",12))

w=CInt(InputBox("QUAL' E' LA DISTANZA VERTICALE ?" &vblf&_
vblf&"Scrivi la distanza verticale :","•damper•",3))

quante= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","•damper•",200))

For es = (EstrazioneFin - quante) To EstrazioneFin

Messaggio "Elaboro la DISTANZA "&q&" con la "&w&" "&Space(7)&" ["&(es)&"]ª"

For r=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r,p1)
b=Estratto(es,r,p2)
d1=Distanza(a,b)'dist orrizz.
If d1=q Then

For r1=r+1 To 12
For p3=1 To 4
For p4= p3+1 To 5
c=Estratto(es,r1,p3)
d=Estratto(es,r1,p4)
d2=Distanza(c,d)'dist orrizz.
If r1<>11 Then
If d2=q Then

dv1=Distanza(a,c) 'distanza vert
dv2=Distanza(b,d) 'distanza vert
dd1=Distanza(a,d)
dd2=Distanza(b,c)

If (dv1=w And dv2=w) Then

so1=Fuori90(a+b)
so2=Fuori90(c+d)
sv1=Fuori90(a+c)
sv2=Fuori90(b+d)
sd1=Fuori90(a+d)
sd2=Fuori90(c+b)

cont=cont+1
Scrivi : Scrivi
ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi

Scrivi String(98,164)
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&""&_
Left(NomeRuota(r),3)&""&Space(1)&""& Format2(a)&""&Space(1)&""& Format2(b)&_
""&Space(3)&"Dist." & Format2(d1)&""&Space(3)&"{Pos."& Format2 (p1)&_
"-"& Format2(p2)&"}"&Space(10)&"So1: "& Format2(so1)&_
" Sv1: "& Format2(sv1)&" Sd1: "& Format2(sd1)&"",1
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&""&_
Left(NomeRuota(r1),3)&""&Space(1)&""& Format2(c)&""&Space(1)&""& Format2(d)&_
""&Space(3)&"Dist." & Format2(d2)&""&Space(3)&"{Pos."& Format2 (p3)&_
"-"& Format2(p4)&"}"&Space(10)&"So2: "& Format2(so2)&_
" Sv2: "& Format2(sv2)&" Sd2: "& Format2(sd2)&"",1

Scrivi String(98,164) : Scrivi
cic(1)=a:cic(2)=b:cic(3)=c:cic(4)=d
OrdinaMatrice(cic)

Scrivi "Quadratura "&Format2(cic(4))&""&Space(1)&"- "& Format2(cic(1)),1
Scrivi
Scrivi "---------- "&Format2(cic(3))&""&Space(1)&"- "& Format2(cic(2)) ,1

ab(1)=so1 : ab(2)=so2
If sv1=sv2 Then am(1)=sv1 : ab(3)=sd1 : ab(4)=sd2
ab(5)=Fuori90(am(1)*2)

If sd1=sd2 Then am(1)=sd1 : ab(3)=sv1 : ab(4)=sv2
ab(5)=Fuori90(am(1)*2)
ruote(1)=r : ruote(2)=r1

co=1
numeri(1)=am(1)
ab(6)=am(1)
ColoreTesto 1

If numeri(1)= PiuRitardatario (es,r) Then
Scrivi "ATTENZIONE!!! - L'AMBATA " & Format2(numeri(1))&_
" E' LA PIU' RITARDATARIA DI " & NomeRuota(r)&"",1
End If
If numeri(1)= PiuRitardatario(es,r1) Then
Scrivi "ATTENZIONE!!! - L'AMBATA " & Format2(numeri(1))&_
" E' LA PIU' RITARDATARIA DI " & NomeRuota(r1)&"",1
End If
Scrivi

If Posizione (es,(r),numeri(1)) Then
Scrivi "ATTENZIONE!!! - L'AMBATA " & Format2(numeri(1))&_
" E' PRESENTE A " & NomeRuota(r)&": "&_
DataEstrazione((es),1)&" alla ["& (es)&"]ª",1
End If
If Posizione (es,(r1),numeri(1)) Then
Scrivi "ATTENZIONE!!! - L'AMBATA " & Format2(numeri(1))&_
" E' PRESENTE A " & NomeRuota(r1)&": "&_
DataEstrazione((es),1)&" alla ["& (es)&"]ª",1
End If
Scrivi

For z=0 To 20
ex=es-z
ep=es-ex
ColoreTesto 2

For h= 1 To 5

If Posizione (ex,r,numeri(1))>0 And Posizione (ex,r,ab(h))>0 Then
Scrivi Left(NomeRuota(r),2)&" "& Format2(am(1))&" "&_
Format2(ab(h))&" - AMBO GIA' USCITO "& Format2(ep)&" estrazioni prima: "&_
DataEstrazione((ex),1)&" alla ["& (ex)&"]ª",1
End If

If Posizione (ex,r1,numeri(1))>0 And Posizione (ex,r1,ab(h))>0 Then
Scrivi Left(NomeRuota(r1),2)&" "& Format2(am(1))&" "&_
Format2(ab(h))&" - AMBO GIA' USCITO "& Fo

Baffoblu · 19 Novembre 2011

Me cojoni che script ![8D]

Joe91 · 19 Novembre 2011

VERO.
Gaetano è un grande!

Ogni estrazione è unica ed irripetibile. (Joe91)

rabberto · 19 Novembre 2011

Ciao DjNomade ti ringrazio per lo script che mi hai fatto , pero' volevo dirti mi da errore in spaziometria 1.3.4. (
OrdinaMatrice(cic) ) , poi volevo dirti per favore non mi deve chiedere qual'e' la distanza orizzontale , qual'e' la distanza verticale , li deve cercare in entrambi i casi , e fare il disegno della quadratura con i risultati .
Spero di essere stato piu' chiaro e che si possa fare , grazie infinitamente .

DjNomade · 19 Novembre 2011

Ciauz rabberto
infatti io l'avevo preparato per L8+ quindi per l'errore che dici tu cambia

OrdinaMatrice(cic)

in

OrdinaMatrice(cic),1

poi per le distanze cosa intendi le deve cercare in entrambi i casi ?
deve essere uguali?
mentre per quanto riguarda il disegnino non credo di esserti di aiuto..
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

rabberto · 19 Novembre 2011

Ciao DjNomade di nuovo grazie , per le distanze io intendo che mi chieda qual'e' la distanza da cercare , io ci metto ad esempio 30 e lui mi cerca la distanza 30 sia in orizzontale su due ruote , e sia in verticale su due ruote , e in qualsiasi posizione , ad esempio :

BARI = 1 2 3 50 80
CAGLIARI = 4 5 6 14 44

e lui mi trova un ambo di distanza 30 in orizzontale ( 50 - 80 ) ( 14 - 44 )

BARI = 1 2 3 30 38
CAGLIARI = 4 5 6 68 60

e luoi mi trova un ambo di distanza 30 in verticale ( 30 - 60 ) ( 38 - 68 )
Poi quando trova la distanza mi fa il diseqno della quadratura con i risultati .

Senza effettuare nessuna giocata solo trovare le distanze e fare la quadratura con i risultati .

Vedi quello che puoi fare , grazie infinitamente , ciao .

DjNomade · 19 Novembre 2011

Purtroppo continuo a non capire....
le distanze verticali e orrizzontali vanno cercate su due ruote
nella stessa estrazione?
perche' hai fatto l'esempio di BA*Ca con estratti diversi?

Puoi trovarmi un esempio REALE?

Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

rabberto · 20 Novembre 2011

Ciao DjNomade si le distanze verticali e orrizzontali vanno cercate su due ruote e nella stessa estrazione , l'esempio che ho fatto era solo per farmi capire meglio , ora ti faccio un esempio reale , mettendo il caso che io quando mi chiede la distanza da cercare ci metto 30 :

ESTRAZIONE DEl 17/NOVEMBRE 2011

NAPOLI = 70 71 88 49 58

TORINO = 86 43 70 10 7

IN QUESTA ESTRAZIONE C'E' UNA DISTANZA 30 ORIZZONTALE SU DUE RUOTE , SU NAPOLI C'E' ( 88 - 58 ) , SU TORINO C'E' ( 70 - 10 ) , NON IMPORTA CHE LA DISTANZA DA CERCARE DEVE ESSERE ISOTOPA , L'IMPORTANTE E CHE ME LA TROVA

ESTRAZIONE DEL 06/OTTOBRE 2011

CAGLIARI = 62 8 73 80 42

NAZIONALE = 32 66 10 89 50

IN QUESTA ESTRAZIONE C'E' UNA DISTANZA 30 IN VERTICALE SU DUE RUOTE , ( 62 - 32 ) ( 80 - 50 )

POI SE IL DISEGNO DELLA QUADRATURA CON I RISULTATI E' TROPPO COMPLICATO , FA NIENTE , BASTA SCRIVERE PURE SOLO I NUMERI CON I RELATIVI RISULTATI , VA BENE LO STESSO .

SPERO DI ESSERE STATO PIU' CHIARO , GRAZIE , CIAO .

DjNomade · 21 Novembre 2011

Spero di aver capito ora

prova questo

Ciauz

Sub main()
Dim am(1),ab(6),numeri(2),cic(4)
Dim ruote(2),posta(1),poste(2)
posta(1)=1 : poste(2)=1

Scrivi String(41,32)&"RICERCA DISTANZE UGUALI ORRIZ. O VERTIC.",1
Scrivi String(40,32)&"stessa estrazione",1

q=CInt(InputBox("QUAL' E' LA DISTANZA ORIZZONTALE O VERTICALE DA TROVARE?" &vblf&_
vblf&"Scrivi la distanza orizzontale:","•damper•",30))

quante= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","•damper•",50))

For es = (EstrazioneFin - quante) To EstrazioneFin

Messaggio "Elaboro la DISTANZA "&q&" "&Space(7)&" ["&(es)&"]ª"

For r=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r,p1)
b=Estratto(es,r,p2)
d1=Distanza(a,b)'dist orrizz.
'If d1=q Then

For r1=r+1 To 12
For p3=1 To 4
For p4= p3+1 To 5
c=Estratto(es,r1,p3)
d=Estratto(es,r1,p4)
d2=Distanza(c,d)'dist orrizz.
If r1<>11 Then

dv1=Distanza(a,c) 'distanza vert
dv2=Distanza(b,d) 'distanza vert
dd1=Distanza(a,d)
dd2=Distanza(b,c)

If (dv1=q And dv2=q)Or (d2=q And d1=q) Then

cont=cont+1
Scrivi : Scrivi
ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
If (d2=q And d1=q) Then Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª--"&stringaestratti(es,r)&"---"&_
Left(NomeRuota(r),3)&""&Space(1)&""& Format2(a)&""&Space(1)&""& Format2(b)&_
""&Space(3)&"Dist.orrizz." & Format2(d1)&""&Space(3)&"{Pos."& Format2 (p1)&_
"-"& Format2(p2)&"}",1
If (d2=q And d1=q) Then Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª--"&stringaestratti(es,r1)&"---"&_
Left(NomeRuota(r1),3)&""&Space(1)&""& Format2(c)&""&Space(1)&""& Format2(d)&_
""&Space(3)&"Dist.orrizz." & Format2(d2)&""&Space(3)&"{Pos."& Format2 (p3)&_
"-"& Format2(p4)&"}",1

If (dv1=q And dv2=q) Then Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª--"&stringaestratti(es,r)&"---"&_
Left(NomeRuota(r),3)&""&Space(1)&""& Format2(a)&""&Space(1)&""& Format2(b)&_
""&Space(3)&"Dist.vert." & Format2(dv1)&""&Space(3)&"{Pos."& Format2 (p1)&_
"-"& Format2(p2)&"}",1
If (dv1=q And dv2=q) Then Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª--"&stringaestratti(es,r1)&"---"&_
Left(NomeRuota(r1),3)&""&Space(1)&""& Format2(c)&""&Space(1)&""& Format2(d)&_
""&Space(3)&"Dist.vert." & Format2(dv2)&""&Space(3)&"{Pos."& Format2 (p3)&_
"-"& Format2(p4)&"}",1

Scrivi String(98,164) : Scrivi
cic(1)=a:cic(2)=b:cic(3)=c:cic(4)=d
OrdinaMatrice(cic)

Scrivi "Quadratura "&Format2(cic(4))&""&Space(1)&"- "& Format2(cic(1)),1
Scrivi
Scrivi "---------- "&Format2(cic(3))&""&Space(1)&"- "& Format2(cic(2)) ,1

End If

End If
Next : Next

Next

Next : Next

'Gioca es

Next : Next :

ColoreTesto 2
Scrivi Now,1
ColoreTesto 1
Scrivi "•List. base by damper modificato x rabberto da DjNomade•",1
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

rabberto · 21 Novembre 2011

Ciao DjNomade ti ringrazio veramente di cuore sei stato molto gentile lo script e' proprio come lo volevo io , solo volevo chiederti una piccola modifica se possibile , affianco alla quadratura si potrebbe aggiungere le somme dei numeri della quadratura .

Solo se si puo' fare , anche se non e' possibile io ti ringrazio lo stesso , hai fatto gia' abbastanza , GRAZIE , ciao .

DjNomade · 21 Novembre 2011

Fammi un esempio cosi vado sul sicuro...

tipo questo?

Quadratura 84 - 23 = 17

-------------- 54 - 53 = 17
--------------==---==
--------------48 - 76
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

Per gli scripter

Advanced Member

Super member

Super member

Advanced Member

Advanced Member

Advanced Member

Roby

Guest

Advanced Member

Advanced Member

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<