Posizione da numeri primi

[Alien.]

Sono riuscito a mettere in modo corretto i numeri in Array accorpandoli con il Redim Preserve, la situazione non cambio in termini di gioco
dato che lo script è stato fatto ex-novo mancano le scelte in input box ed il controllo spoglio verifica agisce solo su 10 e lotto serale.

Il Mio scopo non è verificare un metodo ma rendere possibile un progetto in script.

L'array numeri e adattabile per ogni verifica che si voglia fare, semplicemente cambiando l'array numeri.

Sub Main
'Dim
Np = Array(0,2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89)
Scrivi "Numeri scelti.... : ",1,0
Scrivi StringaNumeri(Np),1,,,1
Scrivi "Numeri in Array : " & UBound(Np),1,,,2
'Nu = Split("0," & NP,",")
Ini = EstrazioneFin - 10
fin = EstrazioneFin
For es = Ini To fin
t = Array(t,"Ruota","estratti","Numeri Array","Num Array Prec","Numeri diff")
Call InitTabella(t,1,,2,5)
For r = 1 To 10
For p = 2 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p - 1)
'Next
For x = 1 To UBound(np)
If a = Np(x) Then
k = k + 1
kp = kp + 1
kd = kd + 1
kk = kk + 1
ReDim Preserve Nprimi(k)
Nprimi(k) = a
ReDim Preserve Nprimiprec(kp)
Nprimiprec(kp) = b
ReDim Preserve Ndiff(kd)
bb = Differenza(Nprimi(k),b)
Ndiff(kd) = bb
'bb = Differenza(Nprimi(k),b)
ReDim Preserve NprimiTot(kk)
NprimiTot(kk) = bb
End If
Next
Next
If k > 0 Then
v = Array(v,SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nprimi,,1),StringaNumeri(Nprimiprec,,1),StringaNumeri(Ndiff,,1))
Call AddRigaTabella(v)
End If
If k = 0 Then
v = Array(v,SiglaRuota(r),StringaEstratti(es,r),"","","")
Call AddRigaTabella(v)
End If
k = 0
kp = 0
kd = 0
Next
CreaTabella
Scrivi String(160,"=")
aa = NumeriRipetuti(NprimiTot)
EliminaRipetuti(NprimiTot)
Scrivi StringaNumeri(NprimiTot) & " Tot.. " & kk - aa,1,1,,1,3
Scrivi String(160,"=")
kk = 0
ImpostaArchivio10ELotto(1)
ess = es + 1
exx = es + 10
For xx = ess To exx
Call VerificaEsitoDL(NprimiTot,xx,1,1,esito,clp,est1,id1)
Scrivi xx & vbTab & GetInfoEstrazioneDL(id1) & vbTab & est1 & vbTab & esito
Next
Scrivi String(160,"=")
Scrivi
Next
End Sub

Ciao

Ma sbaglio o non vi è la data dell'estrazione da cui si ricava il pronostico?

 

[Mike58]

Anche se facilmente deducibile estrazione di verifica - 1, si è vero è stata omessa per dimenticanza.
Si può tranquillamente aggiungere.

Ciao, l'immagine delle teste china sugli smartfone è carina ma quanto è odioso vedere questo atteggiamento di tanti nel reale.

 

[Alien.]

gia vero si stava meglio quanto si stava peggiose gli dici quanto fa 2+2= ?

acc....ma poi lo hai corretto?

ovviamente questo gioco è per il 10elotto giusto?
ma i numeri dati quanti punti farebbero messi in gioco sul lotto?Puoi fare qualche cosa?

 

[Mike58]

Alien ti ho corretto la data ma, tutto il resto che chiede giorgiantonio non mi è possibile e poi come ogni cosa dopo un po' che si esce dallo script si perde interesse.

Sub Main
 'Dim
 Np = Array(0,2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89)
 Scrivi "Numeri scelti....  : ",1,0
 Scrivi StringaNumeri(Np),1,,,1
 Scrivi "Numeri in Array : " & UBound(Np),1,,,2
 'Nu = Split("0," & NP,",")
 Ini = EstrazioneFin - 10
 fin = EstrazioneFin
 For es = Ini To fin
  t = Array(t,"Id Data","Ruota","estratti","Numeri Array","Num Array Prec","Numeri diff")
  Call InitTabella(t,1,,2,5)
  For r = 1 To 10
   For p = 2 To 5
    a = Estratto(es,r,p)
    b = Estratto(es,r,p - 1)
    'Next
    For x = 1 To UBound(np)
     If a = Np(x) Then
      k = k + 1
      kp = kp + 1
      kd = kd + 1
      kk = kk + 1
      ReDim Preserve Nprimi(k)
      Nprimi(k) = a
      ReDim Preserve Nprimiprec(kp)
      Nprimiprec(kp) = b
      ReDim Preserve Ndiff(kd)
      bb = Differenza(Nprimi(k),b)
      Ndiff(kd) = bb
      'bb = Differenza(Nprimi(k),b)
      ReDim Preserve NprimiTot(kk)
      NprimiTot(kk) = bb
     End If
    Next
   Next
   If k > 0 Then
    v = Array(v,DataEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nprimi,,1),StringaNumeri(Nprimiprec,,1),StringaNumeri(Ndiff,,1))
    Call AddRigaTabella(v)
   End If
   If k = 0 Then    
   v = Array(v,DataEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),"","","")
    Call AddRigaTabella(v)
   End If
   k = 0
   kp = 0
   kd = 0
  Next
  CreaTabella
  Scrivi String(160,"=")
  aa = NumeriRipetuti(NprimiTot)
  EliminaRipetuti(NprimiTot)
  Scrivi StringaNumeri(NprimiTot) & "    Tot.. " & kk - aa,1,1,,1,3
  Scrivi String(160,"=")
  kk = 0
  ImpostaArchivio10ELotto(1)
  ess = es + 1
  exx = es + 10
  For xx = ess To exx
   Call VerificaEsitoDL(NprimiTot,xx,1,1,esito,clp,est1,id1)
   Scrivi xx & vbTab & GetInfoEstrazioneDL(id1) & vbTab & est1 & vbTab & esito
  Next
  Scrivi String(160,"=")
  Scrivi
 Next
End Sub

ciao

 

[Alien.]

gia vero si stava meglio quanto si stava peggio

se gli dici quanto fa 2+2= ?



ovviamente questo gioco è per il 10elotto giusto?
ma i numeri dati ,quanti punti farebbero messi in gioco sul lotto?Puoi fare qualche cosa?

Mi accorgo che ti stiamo martellando ben bene.........tutti attaccati alla stessa ciambella in mare hahahahahah........

 

[giorgioantonio]

Salve a tutti, riporto in primo piano questa discussione visto che molte volte è stata visitata e a chi ne sta
facendo uso dello script scritto da Mike58 chiedo se e come consigliare di poter inserire un accorgimento
per eliminare alcuni numeri e portarli a 7-8 quando i numeri primi abbondano in una estrazione.
NON INDICAZIONI CASUALI MA SOLO PER ESPERIENZE DI GIOCO.

Grazie a chi vorrà partecipare fattivamente in modo utile e se di richiesta invitare l'autore dello script
o a chi ne ha voglia di intervenire all'inserimento per il consiglio/accorgimento da apportare nello script.

Giorgioantonio.