Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Estrarre numeri
Forum - Visual Basic 6 - Estrarre numeri

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
magicolotto (Banned user)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 23:24
Giovedì, 16/11/2017
Ciao ragazzi
Ho una necessità da eseguire
sempre riguardante  il  il lotto , in questo caso il 10elotto.

i 20 numeri vengono  prelevati dal primo e secondo estratto di ogni ruota
quindi da bari a venezia   sono 10 ruote

se i  numeri totale 20 sono tutto diversi allora  non ci sono problemi ...

invece sorge quando tra i 20  ci sono numeri ripetuti

quindi se nel caso cè un ripetuto tra i 20, ricordo che  i 20 numeri sono  il primo e  secondo estratto per ogni ruota

dicevo , se ci sono ripetuti allora  si prende il  terzo estratto iniziando da bari
, se  il terzo estratto di bari è a sua volta ripetuto si passa a cagliari .
il numero ripetuto per convenienza viene sostituito con uno zero , viene sempre zerato il secondo estratto dei numeri ripetuti, ed ancora se tutte  e due ripetuti sono al secondo estratto  viene zerato il primo numero dall'alto quindi seguendo l'ardine alfametico delle ruote.
allego un esempio


magicolotto ha allegato un file: 10elottonumeri.png (16496 bytes)
Clicca qui per guardare l'immagine


PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5651
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 23:33
Giovedì, 16/11/2017
Quanto tempo ... ! Sempre a dare numeri ... del lotto ... Fedele nei secoli ... :-)

A parte le battute, hai fatto un bel racconto ... ma manca la domanda ... te ne sei dimenticato?


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
magicolotto (Banned user)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 8:59
Venerdì, 17/11/2017
Ciao piacere  di leggerti.
Si sempre con i numeri :) per me è  una hobby  ed  una passione  e  ci smanetto alcune  e spesse volte  mi blocco  su delle logiche  come queste. ..
La domanda  è creare  la routine  che faccia  ciò che  ho spiegato.
Magari   ipotizzando  una matrice  di  controllo  numeri (50) già riempita  dei numeri  Dell estrazione
Quindi la matrice  contiene  i numeri  così divisi
Da 1 a 5 bari
Da 6 a 10 Cagliari
Da 11 a 15 Firenze
DA 16 a 20 Genova
Da 21  25 milano
DA 26 a 30 napoli
Da 31 a 35 Palermo
Da 36 a 40 Roma
Da 41  a 45 Torino
Da 46 a 50 Venezia
Da qui devo  estrarre quella logica.  


PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5651
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 9:54
Venerdì, 17/11/2017
Sarebbe molto più semplice se i dati di partenza fossero contenuti in una matrice di 10 righe per 5 colonne

Ma tu non hai nessuna idea o codice da proporre?


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5651
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 9:55
Venerdì, 17/11/2017
Poi ... seguire i consigli qui e contemporaneamente su

http://forum.html.it/forum/showthread.php?threadid=2961665 ...

ti potrebbe confondere ... sarebbe meglio decidersi ...


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5651
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 10:13
Venerdì, 17/11/2017
Comunque ... con un array di 10 righe e 5 colonne in cui sono contenuti i numeri (riga 1 Bari ...) puoi scrivere

Codice sorgente - presumibilmente VB.NET

  1. Dim estr(1 To 10, 1 To 5) As Byte
  2.     Dim numeri(1 To 90) As Byte
  3.     Dim cntnum As Byte
  4.     Dim i As Integer
  5.     Dim r As Integer
  6.     Dim c As Integer
  7.    
  8.     For i = 1 To 90
  9.         numeri(i) = 0
  10.     Next i
  11.    
  12.     cntnum = 0
  13.     For c = 1 To 5
  14.         For r = 1 To 10
  15.             If numeri(estr(r, c)) = 0 Then
  16.                 numeri(estr(r, c)) = 1
  17.                 cntnum = cntnum + 1
  18.             End If
  19.                        
  20.             If cntnum = 20 Then Exit For
  21.         Next r
  22.         If cntnum = 20 Then Exit For
  23.     Next c
  24.    
  25.     For i = 1 To 90
  26.         If numeri(i) Then
  27.             Print i
  28.         End If
  29.     Next i



E la Print finale visualizzerà i numeri scelti ...


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
magicolotto (Banned user)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 11:04
Venerdì, 17/11/2017
grazie della risposta ,  il link che hai messo si lo stesso argomento da me proposto pero' quello che dice è semplice ,il problema e quando ci sono  i ripetuti, ed in tanti casi i  ripetuti dei ripetuti.


PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5651
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 11:12
Venerdì, 17/11/2017
Hai visto il codice che ti ho proposto ?


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
magicolotto (Banned user)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 11:27
Venerdì, 17/11/2017
si , stavo cercando di capire come adattarlo alla connessione al db e provare cosa esce  fuori


PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo