X CIPISTO

[Roby]

ciao Cipisto, ti chiedo cortesemente se puoi farmi un listato di un metodo di somma ciclometrica, ti spiego: trovare due ambi in posizione isotopa e consecutivi con la stessa SOMMA e poi ricavare una quaterna sommando un senso verticale e obbliquo i 4 numeri. es: estrazione 28/10 CAGLIARI,ROMA 84-70 e 9-55, sono isotopi e consecutivi. le loro somma verticali sono: 84+9=93-90= 3; 70+55=125-90= 35; ora somme oblique: 84+55=139-90= 49; 70+9= 79. quaterna da mettere in gioco: 3-35-49-79 CAGLIARI,ROMA (ruote di rilevamento) per 9 colpi! quando puoi e se vuoi mi farebbe piacere che tu mi facessi il listato, ed eventualmente come posso fare per far calcolare al pc i nuovi aggiornamenti? ti ringrazio infinitamente, ti ripeto se puoi mi fai un gran favore, grazie mille ciao!!!

 

[razde]

MI SEMBRA DI AVERE CAPITO CHE CIPISTO NON HA SEMPRE MOLTO TEMPO DA DEDICARE AL FORUM A CAUSA DI LAVORO.
TI CONSIGLIEREI DI CHIEDERE ANCHE A DANIEL.
CIAO

Razde

 

[maxma62]

Ciao, io non so fare i listati ma tento di modificarli. Questo dovrebbe fare al caso tuo. (Il listato è di danilo e mod. di ramco). Spero vada bene.

Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim am(4)
Dim am1(10)
Dim ruote(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)

poste(2)=2
poste(3)=1
poste(4)=0.5

For n=7400 To EstrazioneFin
Messaggio DataEstrazione
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
s1=Fuori90(n1+n2)
Scrivi
Scrivi String(75,"•"),1
Scrivi " < ambo somma uguale isotopo su 2 ruote consecutive >",1
Scrivi String(75,"-"),1
ColoreTesto 2 : Scrivi DataEstrazione(n,1)&" [ "&siglaruota(r1)&" "&stringaestratti(n,r1)&" ] [ "&siglaruota(r2)&" "&stringaestratti(n,r2)&" ]"
Scrivi "[ "&NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" = "&Cint(s1)&" ] [ "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" = "&Cint(s1)_
&" ] [ stessa somma = "&format2(s1)&" ]"
ColoreTesto 0 : Scrivi String(75,"-"),1

am1(1)=Fuori90(n1+n3)
am1(2)=Fuori90(n2+n4)
am1(3)=Fuori90(n1+n4)
am1(4)=Fuori90(n2+n3)
ImpostaGiocata 1,am1,ruote,poste,9,2
ImpostaGiocata 2,am1,ruota,poste,9,2
Gioca n
t=t+1
Loop
Next
ScriviResoconto 1
ScriviResoconto 2
End Sub


Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 9
For i= 1 To 4
j=i+1
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
c=Fuori90(a+b)
rr=r+1
aa=Estratto(estrazione,rr,i)
bb=Estratto(estrazione,rr,j)
cc=Fuori90(aa+bb)
If c=cc Then
trovati=trovati+1
If trovati=tentativo Then
numero1=a
numero2=b
numero3=aa
numero4=bb
ruota1=r
ruota2=rr
DISAMBO=True
Exit Function
End If
End If
Next
Next
DISAMBO=False
End Function


max

 

[imported_n/a]

Azzzzzzzzzzzzz........... max!!
Che hai scritto un poema?

Però mi sembra di aver capito che le ruote potrebbero anche non essere consecutive.
Ciao
Scrivi"Ambi posizione isotopa stessa somma-WOLO-"
Scrivi"******************************************"
Sub main()
Dim num(4)
Dim ruote(10)
Dim poste(4)
poste(2)=1
poste(3)=1
poste(4)=1
tmp=InputBox("QUANTE ESTRAZIONI CONTROLLO?",,100)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 9
For r1=r+1 To 10
For p= 1 To 4
p1=p+1
a=Estratto (es,r,p)
b=Estratto (es,r,p1)
c=Estratto (es,r1,p)
d=Estratto (es,r1,p1)
a1=Fuori90(a+b)
a2=Fuori90(c+d)
If a2=a1 Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" ["&Format2(a)&_
"]"&" ["&Format2(b)&"]"&" Somma --> ["&Format2(a1)&"]"
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" ["&Format2(c)&_
"]"&" ["&Format2(d)&"]"&" Somma --> ["&Format2(a2)&"]"
d1V=Fuori90(a+c)
d2V=Fuori90(b+d)
d1D=Fuori90(a+d)
d2D=Fuori90(b+c)
Scrivi"SommeVerticali --> "&Format2(d1V)&"."&Format2(d2V)
Scrivi"SommeDiagonali --> "&Format2(d1d)&"."&Format2(d2d)
ruote(1)=r
ruote(2)=r1
num(1)=d1V
num(2)=d2V
num(3)=d1D
num(4)=d2D
ImpostaGiocata 1,num,ruote,poste,9
Gioca es
Scrivi"*****************************************"
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!