Per joe91 e mike58

korokoro · 2 Luglio 2012

SFRUTTANDO QUESTI SCRIPT , SI POSSONO MODIFICARE PER FARLE CERCARE TUTTE LE DISTANZE E SOMME NELLE DIVERSE ESTRAZIONI.

CIAO E GRAZIE DA LEO

P.S.; JOE91 E MIKE58
MIKE58 E JOE91 SIETE GRANDI!!!

'Distanza Spia su Ruota Orrizontale
e

Sub main()
Dim ruote(1)
ruote(1)=r
r=InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)

gv=InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",10)
yy=CInt(InputBox("quale spia DISTANZA cerchi?(1-45)",,45))
fin=EstrazioneFin
ini=fin - gv
For es=ini To fin
AvanzamentoElab ini,fin,es
Dis = yy
'For r=12 To 12
For p= 1 To 4 : pp=p+1
a=Estratto(es,r,p):b=Estratto(es,r,pp)
For q=1 To 5
b=Estratto (es,r,q)
If Distanza (a,b)=yy Then
Messaggio " Distanza Spia "& (YY)&" Data "& DataEstrazione(es)

ColoreTesto 2
Scrivi "DISTANZA CERCATA "& (dis)&"",1
Scrivi : ColoreTesto 1
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r),3)&""&Space(5)&""& Format2(a)&_
""&Space(7)&"("&p&")",1
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r),3)&""&Space(5)&""& Format2(b)&_
""&Space(7)&"("&q&")",1 : Scrivi

End If

Next
Next
Next
'Next
End Sub

'Somma orizzontale su 1 ruota
Sub Main()
Dim anum(10),ruota(1)
ruota(1)=r1
r1=InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)

som = CInt(InputBox("Somma da cercare?","Somma",90))
nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",10)
ini = EstrazioneFin - nes
fin = EstrazioneFin
For es = ini To fin
Messaggio "Estrazione: " & es
'For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
ruota(1) = r1
a = Estratto(es,r1,p1)
' For r2 = r1 + 1 To 12
For p2 = p1 + 1 To 5
b = Estratto(es,r1,p2)
If a + b = som Then
anum(1) = som
'Call VerificaEsito(anum,ruota,es + 1,1,10,,retesito,retcolpi,retestratti,retidestr)
'If p1=p2 Then 'iso
Scrivi "SOMMA CERCATA "& (som)&"",1

Scrivi String(70,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(a) & " in " &(p1) & " pos.",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b) & " in " &(p2) & " pos.",1
Scrivi
ColoreTesto 2

End If
'End If
'Next
Next
Next
Next
'Next
End Sub

Mike58 · 2 Luglio 2012

Ciao Leo, questa è la prima versione del tuo script verifica la correttezza bastava mettere un ciclo for next per le somme.

'Somma orizzontale su 1 ruota
Sub Main()
Dim anum(10),ruota(1)
ruota(1) = r1
r1 = InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)
'som = CInt(InputBox("Somma da cercare?","Somma",90))
nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",10)
ini = EstrazioneFin - nes
fin = EstrazioneFin
For es = ini To fin
For som = 1 To 90
Messaggio "Estrazione: " & es
'For r1 = 1 To 12
'If r1 = 11 Then r1 = 12
For p1 = 1 To 5
ruota(1) = r1
a = Estratto(es,r1,p1)
' For r2 = r1 + 1 To 12
For p2 = p1 + 1 To 5
b = Estratto(es,r1,p2)
If Fuori90(a + b) = som Then
'anum(1) = som
'Call VerificaEsito(anum,ruota,es + 1,1,10,,retesito,retcolpi,retestratti,retidestr)
'If p1=p2 Then 'iso
ColoreTesto 2
Scrivi "SOMMA CERCATA " &(som) & "",1
ColoreTesto 0
Scrivi String(70,"=")
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(a) & " in " &(p1) & " pos.",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(b) & " in " &(p2) & " pos.",1
Scrivi
'ColoreTesto 2
End If
'End If
Next
Next
Next
Next
'Next
End Sub

Mentre questa è la mia VISIONE e versione dello stesso script.

'Somma orizzontale su 1 ruota
Sub Main()
Dim anum(10),ruota(1)
ruota(1) = r1
r1 = InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)
'som = CInt(InputBox("Somma da cercare?","Somma",90))
nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",20)
Scrivi" SOMME ESTRATTI PER POSIZIONE ***** script by Mike58 ***** ",1,- 1,3
Scrivi
ini = EstrazioneFin - nes
fin = EstrazioneFin
ReDim atitoli(13)
atitoli(1) = " DATA ESTR. "
atitoli(2) = " ruota "
atitoli(3) = " estratti "
atitoli(4) = " P.1,2 "
atitoli(5) = " P.1,3 "
atitoli(6) = " P.1,4 "
atitoli(7) = " P.1,5 "
atitoli(8) = " P.2,3 "
atitoli(9) = " P.2,4 "
atitoli(10) = " P.2,5 "
atitoli(11) = " P.3,4 "
atitoli(12) = " P.3,5 "
atitoli(13) = " P.4,5 "
Call InitTabella(atitoli,1,,2,5)
For es = ini To fin
Messaggio "Estrazione: " & es
ruota(1) = r1
a = Estratto(es,r1,1)
b = Estratto(es,r1,2)
c = Estratto(es,r1,3)
d = Estratto(es,r1,4)
e = Estratto(es,r1,5)
s1 = Fuori90(a + b)
s2 = Fuori90(a + c)
s3 = Fuori90(a + d)
s4 = Fuori90(a + e)
s5 = Fuori90(b + c)
s6 = Fuori90(b + d)
s7 = Fuori90(b + e)
s8 = Fuori90(c + d)
s9 = Fuori90(c + e)
s10 = Fuori90(d + e)
ReDim avalori(13)
avalori(1) = DataEstrazione(es)
avalori(2) = NomeRuota(r1)
avalori(3) = StringaEstratti(es,r1)
avalori(4) = s1
avalori(5) = s2
avalori(6) = s3
avalori(7) = s4
avalori(8) = s5
avalori(9) = s6
avalori(10) = s7
avalori(11) = s8
avalori(12) = s9
avalori(13) = s10
Call AddRigaTabella(avalori,,,2)
Next
CreaTabella()
End Sub

Per lo script sulle distanze cerca di arrivarci utilizzando gli esempi delle somma.

Ciao

korokoro · 2 Luglio 2012

Grazie mike ci provo

ciao da leo

Mike58 · 3 Luglio 2012

Somme & differenze estratti

Somme & differenze estratti

Codice:

'Somma orizzontale su 1 ruota
Sub Main()
 Dim anum(10),ruota(1)
 ruota(1) = r1
 r1 = InputBox("QUALE RUOTA Esaminiamo?","RUOTA",12)
 'som = CInt(InputBox("Somma da cercare?","Somma",90))
 nes = InputBox("Quante estrazioni vuoi controllare?","Estrazioni",20)
 Scrivi" SOMME & DIFFERENZE ESTRATTI PER POSIZIONE   *****   script by Mike58  *****  ",1,- 1,3
 Scrivi
 ini = EstrazioneFin - nes
 fin = EstrazioneFin
 ReDim atitoli(23)
 'atitoli(1) = "Casi"
 atitoli(1) = " DATA ESTR. "
 atitoli(2) = " RUOTA "
 atitoli(3) = " ESTRATTI "
 atitoli(4) = " S.1,2 "
 atitoli(5) = " S.1,3 "
 atitoli(6) = " S.1,4 "
 atitoli(7) = " S.1,5 "
 atitoli(8) = " S.2,3 "
 atitoli(9) = " S.2,4 "
 atitoli(10) = " S.2,5 "
 atitoli(11) = " S.3,4 "
 atitoli(12) = " S.3,5 "
 atitoli(13) = " S.4,5 "
 atitoli(14) = " D.1,2 "
 atitoli(15) = " D.1,3 "
 atitoli(16) = " D.1,4 "
 atitoli(17) = " D.1,5 "
 atitoli(18) = " D.2,3 "
 atitoli(19) = " D.2,4 "
 atitoli(20) = " D.2,5 "
 atitoli(21) = " D.3,4 "
 atitoli(22) = " D.3,5 "
 atitoli(23) = " D.4,5 "
 Call InitTabella(atitoli,1,,2,5)
 For es = ini To fin
 
 
  Messaggio "Estrazione: " & es
  ruota(1) = r1
  
  a = Estratto(es,r1,1)
  b = Estratto(es,r1,2)
  c = Estratto(es,r1,3)
  d = Estratto(es,r1,4)
  e = Estratto(es,r1,5)
  s1 = Fuori90(a + b)
  s2 = Fuori90(a + c)
  s3 = Fuori90(a + d)
  s4 = Fuori90(a + e)
  s5 = Fuori90(b + c)
  s6 = Fuori90(b + d)
  s7 = Fuori90(b + e)
  s8 = Fuori90(c + d)
  s9 = Fuori90(c + e)
  s10 = Fuori90(d + e)
  d1 = Differenza(a,b)
  d2 = Differenza(a,c)
  d3 = Differenza(a,d)
  d4 = Differenza(a,e)
  d5 = Differenza(b,c)
  d6 = Differenza(b,d)
  d7 = Differenza(b,e)
  d8 = Differenza(c,d)
  d9 = Differenza(c,e)
  d10 = Differenza(d,e)
  ReDim avalori(23)
  
  'atitoli(1) = es
  avalori(1) = DataEstrazione(es)
  avalori(2) = NomeRuota(r1)
  avalori(3) = StringaEstratti(es,r1)
  avalori(4) = s1
  avalori(5) = s2
  avalori(6) = s3
  avalori(7) = s4
  avalori(8) = s5
  avalori(9) = s6
  avalori(10) = s7
  avalori(11) = s8
  avalori(12) = s9
  avalori(13) = s10
  avalori(14) = d1
  avalori(15) = d2
  avalori(16) = d3
  avalori(17) = d4
  avalori(18) = d5
  avalori(19) = d6
  avalori(20) = d7
  avalori(21) = d8
  avalori(22) = d9
  avalori(23) = d10
  Call AddRigaTabella(avalori,,,2)
  Call SetColoreCella(2,,1)
  Call SetColoreCella(3,,7)
  
  Call SetColoreCella(4,vbYellow)
  Call SetColoreCella(13,vbYellow)
  Call SetColoreCella(14,vbMagenta)
  Call SetColoreCella(23,vbMagenta)
 Next
 CreaTabella()
End Sub

korokoro · 3 Luglio 2012

mike58 ha scritto:

Codice:

'somma orizzontale su 1 ruota
sub main()
 dim anum(10),ruota(1)
 ruota(1) = r1
 r1 = inputbox("quale ruota esaminiamo?","ruota",12)
 'som = cint(inputbox("somma da cercare?","somma",90))
 nes = inputbox("quante estrazioni vuoi controllare?","estrazioni",20)
 scrivi" somme & differenze estratti per posizione   *****   script by mike58  *****  ",1,- 1,3
 scrivi
 ini = estrazionefin - nes
 fin = estrazionefin
 redim atitoli(23)
 'atitoli(1) = "casi"
 atitoli(1) = " data estr. "
 atitoli(2) = " ruota "
 atitoli(3) = " estratti "
 atitoli(4) = " s.1,2 "
 atitoli(5) = " s.1,3 "
 atitoli(6) = " s.1,4 "
 atitoli(7) = " s.1,5 "
 atitoli(8) = " s.2,3 "
 atitoli(9) = " s.2,4 "
 atitoli(10) = " s.2,5 "
 atitoli(11) = " s.3,4 "
 atitoli(12) = " s.3,5 "
 atitoli(13) = " s.4,5 "
 atitoli(14) = " d.1,2 "
 atitoli(15) = " d.1,3 "
 atitoli(16) = " d.1,4 "
 atitoli(17) = " d.1,5 "
 atitoli(18) = " d.2,3 "
 atitoli(19) = " d.2,4 "
 atitoli(20) = " d.2,5 "
 atitoli(21) = " d.3,4 "
 atitoli(22) = " d.3,5 "
 atitoli(23) = " d.4,5 "
 call inittabella(atitoli,1,,2,5)
 for es = ini to fin
 
 
  messaggio "estrazione: " & es
  ruota(1) = r1
  
  a = estratto(es,r1,1)
  b = estratto(es,r1,2)
  c = estratto(es,r1,3)
  d = estratto(es,r1,4)
  e = estratto(es,r1,5)
  s1 = fuori90(a + b)
  s2 = fuori90(a + c)
  s3 = fuori90(a + d)
  s4 = fuori90(a + e)
  s5 = fuori90(b + c)
  s6 = fuori90(b + d)
  s7 = fuori90(b + e)
  s8 = fuori90(c + d)
  s9 = fuori90(c + e)
  s10 = fuori90(d + e)
  d1 = differenza(a,b)
  d2 = differenza(a,c)
  d3 = differenza(a,d)
  d4 = differenza(a,e)
  d5 = differenza(b,c)
  d6 = differenza(b,d)
  d7 = differenza(b,e)
  d8 = differenza(c,d)
  d9 = differenza(c,e)
  d10 = differenza(d,e)
  redim avalori(23)
  
  'atitoli(1) = es
  avalori(1) = dataestrazione(es)
  avalori(2) = nomeruota(r1)
  avalori(3) = stringaestratti(es,r1)
  avalori(4) = s1
  avalori(5) = s2
  avalori(6) = s3
  avalori(7) = s4
  avalori(8) = s5
  avalori(9) = s6
  avalori(10) = s7
  avalori(11) = s8
  avalori(12) = s9
  avalori(13) = s10
  avalori(14) = d1
  avalori(15) = d2
  avalori(16) = d3
  avalori(17) = d4
  avalori(18) = d5
  avalori(19) = d6
  avalori(20) = d7
  avalori(21) = d8
  avalori(22) = d9
  avalori(23) = d10
  call addrigatabella(avalori,,,2)
  call setcolorecella(2,,1)
  call setcolorecella(3,,7)
  
  call setcolorecella(4,vbyellow)
  call setcolorecella(13,vbyellow)
  call setcolorecella(14,vbmagenta)
  call setcolorecella(23,vbmagenta)
 next
 creatabella()
end sub

bravo mike , il risutato del tuo lavoro e fantastico, col tempo si capirà
grazie da leo

Cerca

Cerca

Per joe91 e mike58

korokoro

Super member

Mike58

Advanced Member >PLATINUM PLUS<

korokoro

Super member

Mike58

Advanced Member >PLATINUM PLUS<

korokoro

Super member

Ultima estrazione Lotto

Ultimi Messaggi