LottoPassion

Il lotto per passione

Passa al contenuto


/* /* ]]> */

Codice

In questa sezione è possibile postare gli script relativi a metodi e ricerche.
Rispondi al messaggio

Codice

Messaggioda antonio65 il 05/02/2018, 10:42

Buongiorno , chiedo aiuto per un codice :
ho 5 numeri :
a=1
b=2
c=3
d=4
e=5
e li devo accoppiare a 2 a 2 senza alcune operazione di somma, sottrazione etc etc
aa=(1,2)
aa2=(1,3) etc etc
chiedo cortesemente il codice per questo esempio cioè quante volte(esempio)
1e2 quindi aa=(1,2) si accoppiano o meglio vengono estratti…
Grazie in anticipo Antonio65
antonio65
 
Messaggi: 23
Iscritto il: 17/04/2017, 16:51
Top

Re: Codice

Messaggioda lottopassion il 06/02/2018, 12:47

Ciao Antonio innanzitutto ti crei una matrice di 5 elementi
Dim e(5)
Poi assegni i valori ad ogni elemento della matrice.
e(1)=..
e(2)=..
Fino al quinto elemento dopodiché ti generi la routine che li accoppia a due a due.

for k1=1 to 4
for k2=k1+1 to 5
Scrivi e(k1)+"-"+e(k2)
Next
Next
lottopassion
Amministratore
 
Messaggi: 565
Iscritto il: 25/01/2013, 18:18
Top

Re: Codice

Messaggioda antonio65 il 08/02/2018, 10:28

Buongiorno Lottopassion, intanto grazie per l'intervento...tuttavia oltre la spiegazione chiara ho capito ben poco...sono nuovo ,alle prime armi...In pratica devo accoppiare 5 elementi che chiamiamo men(5) una volta data la previsione(si tratta di uno script sommativo) da un ambo, nella cella accanto con la funzione che ho richiesto , in caso di sortita mi segnala la previsione appunto sortita.
ad esempio : 1-5 ....la ringrazio in anticipo...le allego lo script se può grazie ...se non può grazie ugualmente...Antonio!!!


Sub Main
Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5)
Dim Ru(1),T
Ini = EstrazioneFin - 200
fin = EstrazioneFin
r = InputBox("Quale Ruota",,10)
pos = CInt(InputBox("Quale posizione",,1))
Ind = CInt(InputBox("Quale indiceMensile",,2))
clp = CInt(InputBox("Quanti Colpi di Gioco",,10))
smm = CInt(InputBox("Quante righe ",,5))
'For pos = 1 To 5
'c = c + 1
T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","Pos")
Call InitTabella(T,6)
For es = Ini To fin
If IndiceMensile(es) = Ind Then


For Y = 1 To 4
For X = Y + 1 To 5
A = MEN(1)
B = MEN(1)
Next
Next

For p = 1 To 5
Num(p) = Estratto(es,r,p)
Next
DNA(1) =(Num(1) + Num(2))
DNA(2) =(Num(1) + Num(3))
DNA(3) =(Num(1) + Num(4))
DNA(4) =(Num(1) + Num(5))
DNA(5) =(Num(2) + Num(3))
DNA(6) =(Num(2) + Num(4))
DNA(7) =(Num(2) + Num(5))
DNA(8) =(Num(3) + Num(4))
DNA(9) =(Num(3) + Num(5))
DNA(10) =(Num(4) + Num(5))
stE = StringaEstratti(es,r)
casi = casi + 1
co = 0
Ru(1) = r
es1 = es + 1
es2 = es1 + clp
est = Estratto(es,r,pos)
'------- calcolo sommativo ---------------
For sm = 1 To 90
co = co + 1
Nu(1) = Fuori90(est + sm)
NuFr(co,1) = sm
sf = SerieFreq(es1,es2,Nu,Ru,1)
If sf > 0 Then
NuFr(co,2) = NuFr(co,2) + 1
End If
Next
End If
Next
' scrivi testo ............................
Scrivi "Ruota di rilevamento : " & NomeRuota(r)
Scrivi "Stringa estratti : " & stE
Scrivi "Indice mensile : " & Ind
Scrivi "Colpi di Gioco : " & clp
Scrivi "Righe visualizzate : " & smm
'------------------------------------------
Call OrdinaMatrice(NuFr,- 1,2)
For i = 1 To smm
NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
ReDim V(16)
V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
V(2) = " + " & Format2(CStr(NuFr(i,1)))
V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
V(4) = NuAdd(1)
V(5) = NuAdd(1) ' MEN
MEN(1) = Fuori90(Abs(V(5) - DNA(1)))
MEN(2) = Fuori90(Abs(V(5) - DNA(2)))
MEN(3) = Fuori90(Abs(V(5) - DNA(3)))
MEN(4) = Fuori90(Abs(V(5) - DNA(4)))
MEN(5) = Fuori90(Abs(V(5) - DNA(5)))
V(6) = StringaNumeri(DNA)
V(7) = MEN(1)
V(8) = MEN(2)
V(9) = MEN(3)
V(10) = MEN(4)
V(11) = MEN(5)
sr = SerieRitardo(Ini,fin,MEN,Ru,1)
Call VerificaEsito(MEN,Ru,es1,1,10,,esito,colpi,estratti,id)
V(12) = esito
V(13) = estratti
V(14) = colpi
V(15) = sr
V(16) = A
Call AddRigaTabella(V)
Next
casi = 0
Call CreaTabella()
'c = 0
'Next
End Sub
antonio65
 
Messaggi: 23
Iscritto il: 17/04/2017, 16:51
Top

Re: Codice

Messaggioda lottopassion il 10/02/2018, 13:45

Ciao Antonio non capisco fondamentalmente quale sia il problema lo script ti ricava i 5 numeri poi la routine postata li accoppia a due a due formando 10 ambo secchi che per 5 numeri si potrebbe fare anche manualmente.
Se vuoi ti modifico lo script per darti in output i 10 ambi se è quello di cui hai bisogno.
Saluti.
lottopassion
Amministratore
 
Messaggi: 565
Iscritto il: 25/01/2013, 18:18
Top

Re: Codice

Messaggioda antonio65 il 10/02/2018, 21:29

Buonasera, a me interessa che accanto alle previsioni da 5 numeri ...in caso di sortita di ambo o terno mi dia le posizioni....la ringrazio....ovviamente se è possibile dentro la tabella...
Ultima modifica di antonio65 il 10/02/2018, 21:34, modificato 1 volta in totale.
antonio65
 
Messaggi: 23
Iscritto il: 17/04/2017, 16:51
Top

Re: Codice

Messaggioda antonio65 il 10/02/2018, 21:32

Per posizioni intendo ad esempio: numeri ricavati ...23-40-51-62-75 supponiamo sorte il 23 ed il 62 quindi avremmo posizione 1-4.....
antonio65
 
Messaggi: 23
Iscritto il: 17/04/2017, 16:51
Top

Re: Codice

Messaggioda Master il 10/02/2018, 22:12

Ciao
Sviluppando la cinquina in ambi credi vada bene così?

Antonio1.jpg
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
Master
 
Messaggi: 190
Iscritto il: 22/01/2014, 11:22
Top

Re: Codice

Messaggioda antonio65 il 10/02/2018, 22:33

Ciao, siiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiquello che cercavo....grazie di cuore.....
antonio65
 
Messaggi: 23
Iscritto il: 17/04/2017, 16:51
Top

Re: Codice

Messaggioda antonio65 il 10/02/2018, 23:02

Me lo può postare per favore??? grazie Antonio!!!
antonio65
 
Messaggi: 23
Iscritto il: 17/04/2017, 16:51
Top

Re: Codice

Messaggioda Master il 11/02/2018, 17:47

Ciao,
Ecco l'output in 10 ambi come da richiesta
buona serata

Codice: Seleziona tutto
 Sub Main
Scrivi "Listato Sommativo post di antonio65 http://www.lottopassion.it/forum/viewtopic.php?f=10&t=3350":scrivi
   Dim Nu(1),NuFr(90,5),NuAdd(1),aN(10),Num(5),DNA(10),MEN(5)
   Dim m1(2),m2(2),m3(2),m4(2),m5(2),m6(2),m7(2),m8(2),m9(2),m10(2)
   Dim Ru(1),T,x1,x2,x3,x4,x5
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   r = InputBox("Quale Ruota",,3)
   pos = CInt(InputBox("Quale posizione",,1))
   Ind = CInt(InputBox("Quale indiceMensile",,9))
   clp = CInt(InputBox("Quanti Colpi di Gioco",,10))
   smm = CInt(InputBox("Quante righe ",,20))
   'For pos = 1 To 5
   'c = c + 1
   T = Array(T,"Estratto","SOMMATIVO","FREQ SU CASI","ESTR + SOMMATIVO","MEN","10 somme DNA","nu1","nu2","nu3","nu4","nu5","Esito","Verifica","Colpo","Ritardo x 1","Pos","n1-n2","n1-n3","n1-n4","n1-n5","n2-n3","n2-n4","n2-n5","n3-n4","n3-n5","n4-n5")
   Call InitTabella(T,6)
   For es = Ini To fin
      If IndiceMensile(es) = Ind Then
         For Y = 1 To 4
            For x = Y + 1 To 5
               A = MEN(1)
               B = MEN(1)
            Next
         Next
         For p = 1 To 5
            Num(p) = Estratto(es,r,p)
         Next
         DNA(1) =(Num(1) + Num(2))
         DNA(2) =(Num(1) + Num(3))
         DNA(3) =(Num(1) + Num(4))
         DNA(4) =(Num(1) + Num(5))
         DNA(5) =(Num(2) + Num(3))
         DNA(6) =(Num(2) + Num(4))
         DNA(7) =(Num(2) + Num(5))
         DNA(8) =(Num(3) + Num(4))
         DNA(9) =(Num(3) + Num(5))
         DNA(10) =(Num(4) + Num(5))
         stE = StringaEstratti(es,r)
         casi = casi + 1
         co = 0
         Ru(1) = r
         es1 = es + 1
         es2 = es1 + clp
         est = Estratto(es,r,pos)
         '------- calcolo sommativo ---------------
         For sm = 1 To 90
            co = co + 1
            Nu(1) = Fuori90(est + sm)
            NuFr(co,1) = sm
            sf = SerieFreq(es1,es2,Nu,Ru,1)
            If sf > 0 Then
               NuFr(co,2) = NuFr(co,2) + 1
            End If
         Next
      End If
   Next
   ' scrivi testo ............................
   Scrivi "Ruota di rilevamento : " & NomeRuota(r) & " - " & DataEstrazione(es1 - 1)
   Scrivi "Stringa estratti : " & stE
   Scrivi "Indice mensile : " & Ind
   Scrivi "Colpi di Gioco : " & clp
   Scrivi "Righe visualizzate : " & smm
   '------------------------------------------
   Call OrdinaMatrice(NuFr,- 1,2)
   For i = 1 To smm
      NuAdd(1) = Fuori90(Nu(1) + NuFr(i,1))
      MEN(1) = Fuori90(Abs(NuAdd(1) - DNA(1)))
      MEN(2) = Fuori90(Abs(NuAdd(1) - DNA(2)))
      MEN(3) = Fuori90(Abs(NuAdd(1) - DNA(3)))
      MEN(4) = Fuori90(Abs(NuAdd(1) - DNA(4)))
      MEN(5) = Fuori90(Abs(NuAdd(1) - DNA(5)))
      '---------------------------------------------------
      m1(1) = MEN(1) : m1(2) = MEN(2)
      m2(1) = MEN(1) : m2(2) = MEN(3)
      m3(1) = MEN(1) : m3(2) = MEN(4)
      m4(1) = MEN(1) : m4(2) = MEN(5)
      m5(1) = MEN(2) : m5(2) = MEN(3)
      m6(1) = MEN(2) : m6(2) = MEN(4)
      m7(1) = MEN(2) : m7(2) = MEN(5)
      m8(1) = MEN(3) : m8(2) = MEN(4)
      m9(1) = MEN(3) : m9(2) = MEN(5)
      m10(1) = MEN(4) : m10(2) = MEN(5)
      '-------------------------------------------------
      ReDim V(26)
      V(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & est
      V(2) = " + " & Format2(CStr(NuFr(i,1)))
      V(3) = Format2(NuFr(i,2)) & " su " & casi & " Casi "
      V(4) = NuAdd(1)
      V(5) = NuAdd(1) ' MEN
      V(6) = StringaNumeri(DNA)
      V(7) = MEN(1)
      V(8) = MEN(2)
      V(9) = MEN(3)
      V(10) = MEN(4)
      V(11) = MEN(5)
      sr = SerieRitardo(Ini,fin,MEN,Ru,1)
      Call VerificaEsito(MEN,Ru,es1,1,10,,esito,colpi,estratti,id)
      V(12) = esito
      V(13) = estratti
      V(14) = colpi
      V(15) = sr
      V(16) = A
      V(17) = m1(1) & "." & m1(2)
      V(18) = m2(1) & "." & m2(2)
      V(19) = m3(1) & "." & m3(2)
      V(20) = m4(1) & "." & m4(2)
      V(21) = m5(1) & "." & m5(2)
      V(22) = m6(1) & "." & m6(2)
      V(23) = m7(1) & "." & m7(2)
      V(24) = m8(1) & "." & m8(2)
      V(25) = m9(1) & "." & m9(2)
      V(26) = m10(1) & "." & m10(2)
      '-------------------------------------------------------------
      Call VerificaEsito(m1,Ru,es1,1,10,,esito1,colpi1,estratti1,id1)
      Call VerificaEsito(m2,Ru,es1,1,10,,esito2,colpi2,estratti2,id2)
      Call VerificaEsito(m3,Ru,es1,1,10,,esito3,colpi3,estratti3,id3)
      Call VerificaEsito(m4,Ru,es1,1,10,,esito4,colpi4,estratti4,id4)
      Call VerificaEsito(m5,Ru,es1,1,10,,esito5,colpi5,estratti5,id5)
      Call VerificaEsito(m6,Ru,es1,1,10,,esito6,colpi6,estratti6,id6)
      Call VerificaEsito(m7,Ru,es1,1,10,,esito7,colpi7,estratti7,id7)
      Call VerificaEsito(m8,Ru,es1,1,10,,esito8,colpi8,estratti8,id8)
      Call VerificaEsito(m9,Ru,es1,1,10,,esito9,colpi9,estratti9,id9)
      Call VerificaEsito(m10,Ru,es1,1,10,,esito10,colpi10,estratti10,id10)
      '-------------------------------------------------------------
      Call AddRigaTabella(V)
      '------------------------------------------------------------
      If esito1 = "Ambo" Then Call SetColoreCella(17,3,0)
      If esito2 = "Ambo" Then Call SetColoreCella(18,3,0)
      If esito3 = "Ambo" Then Call SetColoreCella(19,3,0)
      If esito4 = "Ambo" Then Call SetColoreCella(20,3,0)
      If esito5 = "Ambo" Then Call SetColoreCella(21,3,0)
      If esito6 = "Ambo" Then Call SetColoreCella(22,3,0)
      If esito7 = "Ambo" Then Call SetColoreCella(23,3,0)
      If esito8 = "Ambo" Then Call SetColoreCella(24,3,0)
      If esito9 = "Ambo" Then Call SetColoreCella(25,3,0)
      If esito10 = "Ambo" Then Call SetColoreCella(26,3,0)
      '----------------------------------------------------------
   Next
   casi = 0
   Call CreaTabella()
   'c = 0
   'Next
End Sub
 
Master
 
Messaggi: 190
Iscritto il: 22/01/2014, 11:22
Top
Prossimo
Rispondi al messaggio

Torna a Script


Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite

  • Tutti gli orari sono UTC + 1 ora
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzione Italiana phpBBItalia.net basata su phpBB.it 2010
LottoPassion Il lotto per passione
cron