Novità

X CIPISTO

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
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!!!

001254.gif
 
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
 
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 (n)
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
 
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!!!
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11

Ultimi Messaggi

Indietro
Alto