Esercizi VISUAL BASIC

[leadergl]

aleeee oh oh, aleeeee oh oh..........ciao proprio adesso HO FINITO!!!!!

Beh proprio finito no...però ho fatto LA RICERCA NEL DATABASE....e tutto da solo....certo non sarà delle più raffinate ed efficienti.....ma la fa!!!!!!

Ho usato un ciclo while finchè non finiva di scorrere tutto il recordset e IF trovava una parola uguale a quella che ho ricercato bene e mi estraeva il CODICE PAESE.......ancora non c'ho inserito i controlli, ma funziona e per me è una soddisfazione!!!

Cmq il programma è finito, tranne i controlli nella ricerca nel database e per le varianti di codice fiscale....come si chiamavano???

Cmq quelle è una sciocchezza farle, penso che stasera lo ultimo!!
Per ora ti posto l'eseguibile ed il database......poi una volta finito TUTTO ti darò il codice completo e le form!!! ok?

Per la tabella comuni, x farla funzionare col VB6 l'ho aperta con Access XP e l'ho convertita per Access 97...tutto qui, altrimenti non me la accetta valida!! Sfigatamente per raggioni di spazio non me la fanno inviare.......cmq ti invio l'eseguibile

[matpez]

Allora la tua ricerca nn va affatto bene...perchè nn puoi fare una ricerca su 9000 comuni a mano...altrimenti usi un file normale di testo e ti risolvi il problema...i database sono nati apposta per memorizzare e velocizzare le ricerchè

Cmq altro errorino è il puntamento al database (punta dieretto al driver D:\), ma nn tutti hanno D:\

Consiglio di usare il metodo App.Path che torna la path di dove sta il tuo exe...almeno cos' basta ch eil database lo dai in coppia con l'exe!!

Dai ora fai l'omocodia e correggi tutti gli errorini!

Aspetto con pazienza il risultato finale!

[leadergl]

si per il fatto di D:\ già lo sapevo infatti ho già corretto, solo k nn l'ho postato xkè m'è mancata la corrente e poi sono sceso.....!!!!
Mo stasera ci lavoro un po e completo.....anche L'OMOCODIA!!!

Cmq x il database....beh ke ti devo dire....così l'ho saputo fare.....PER IL MOMENTO l'importante è che funziona!!1

[matpez]

Originariamente inviato da leadergl
....
Cmq x il database....beh ke ti devo dire....così l'ho saputo fare.....PER IL MOMENTO l'importante è che funziona!!1

Si ma ti ho spiegato, ti ho anche postato un esempio sull'utilizzo del database ....

Cmq l'importante nn è farlo funzionare....l'importante è farlo funzionare al meglio di come potrebbe funzionare

Per cui secondo me anzichè mandarmi un pezzo alla volta...mandami la versione finita al 100%

Aspetto con impazienza

[leadergl]

........cattivo..........

Ma non eri tu a dire che per i database si parlava di programmazione AVANZATA?????

Beh sono alle prime armi col VB........dovresti lodare il cielo che ce l'ho fatta.............per me k di DATABASE e VB nn so nulla o pochissimo (e qui m rif al VB nn ai database)....è già un miracolo essere riuscito a fare sta ricerca, poi capire quello che m'avevi mandato.......beh sinceramente?? NON CI SON RIUSCITO....mi mancano ancora troppe nozioni!!!

Cmq non preoccuparti, mi metterò con tanta pazienza ed imparerò!!!

Ma per il momento so farlo andare così!!!

Ho messo i controlli nel database, si sull'esistenza del comune che sulla presenza del database!!!

Ora faccio un attimo l'omocodia.....anche se questo mi porterà a modificare la FORM.....ci devo aggiungere la comboBox con la lista delle varie Omocodie......ed anche questo credo sarà un problema......ovvero FARLE USCIRE TUTTE E NON SOLO LA PRIMA NELLA COMBO!!!!

A dopo!!!

[matpez]

Non sono cattivo..voglio che impari bene

[leadergl]

CIAO, ho notato che ho un problema con la lettera di controllo.....eh si, perchè ho fatto un test sul mio Codice Fiscale e mi trovo K invece di U........e nn so spiegarmelo.....tutto il codice è corretto è solo l'ultima lettera (quella d controllo appunto) che è sballata!!!!


Ti posto il codice, magari tu riesci a vedere dove è il casino.....ah senti non sai nu modo per eliminare tutti sti SELECT CASE?!?! mi stanno un po sulle @@ !!!!!

Aspetto una risp, thanks

[matpez]

Ti posto proprio la versione di VBS di quelle pagine ASP

controlla se magari poi ho sbagliato io (anche se tutte le prove sono risultate corrette)

PS: così vedi come togliere i CASE

  'calcolo lettera di controllo
  Function CarattereControllo(sCFAux)
    
	Dim nAux,nI
     
	Aux=cInt(Aux)
    'conta valori caratteri in posizione dispari
    For nI = 1 To Len(sCFAux) Step 2
      Select Case Mid(sCFAux, nI, 1)
        Case "A", "0": nAux = nAux + 1
        Case "C", "2": nAux = nAux + 5
        Case "D", "3": nAux = nAux + 7
        Case "E", "4": nAux = nAux + 9
        Case "F", "5": nAux = nAux + 13
        Case "G", "6": nAux = nAux + 15
        Case "H", "7": nAux = nAux + 17
        Case "I", "8": nAux = nAux + 19
        Case "J", "9": nAux = nAux + 21
        Case "K": nAux = nAux + 2
        Case "L": nAux = nAux + 4
        Case "M": nAux = nAux + 18
        Case "N": nAux = nAux + 20
        Case "O": nAux = nAux + 11
        Case "P": nAux = nAux + 3
        Case "Q": nAux = nAux + 6
        Case "R": nAux = nAux + 8
        Case "S": nAux = nAux + 12
        Case "T": nAux = nAux + 14
        Case "U": nAux = nAux + 16
        Case "V": nAux = nAux + 10
        Case "W": nAux = nAux + 22
        Case "X": nAux = nAux + 25
        Case "Y": nAux = nAux + 24
        Case "Z": nAux = nAux + 23
      End Select
    Next
	
	'conta valori caratteri in posizioni pari
	For nI = 2 To Len(sCFAux) Step 2
      If Mid(sCFAux, nI, 1) >= "A" And Mid(sCFAux, nI, 1) <= "Z" Then
        nAux = nAux + (Asc(Mid(sCFAux, nI, 1)) - 65)
      Else
        nAux = nAux + (Asc(Mid(sCFAux, nI, 1)) - 48)
      End If
    Next
  
    'calcolo carattere di controllo
    CarattereControllo = Chr((nAux Mod 26) + 65)
  
  End Function

[leadergl]

ok ho corretto, alcune delle cose che hai detto le avevo pensate stanotte.....tipo il fatto dello STEP 2........però ancora nn sapevo cm si faceva!!

Mentre il CASE "A", "0".....avevo provato a farlo ma erratamente, infatti provavo con CASE "A" OR "0" e mi dava errore, quindi rinunciai!!!

L'ultima perte invece m'è stata d'aiuto!!

[leadergl]

Hai dei consigli da darmi sull'OMOCODIA????

Non so se implementare nel Form principale una COMBObox, o una ListBox, oppure aggiungere nel menu la voce OMOCODIA che apre un'altro form di informazione con tutte le omocodie possibili, oppure si può implementare una comboBox in un MSGBOX??

Penso di si....credo basti creare una funzione che in uscita dia una combobox e fare:

MsgBox "Omocodie: " & nomefunzione

Si può fare??

Help.....non vorrei dover cambiare un po l'impaginazione del mio FORM principale.....

[leadergl]

ah un'altra cosa....ma se ho capito bene le omocodie possibili sono solo 7, giusto??

del tipo

SBT LCK 56B13 H444 C

che può diventare

SBT LCK 56B13 H44Q C
SBT LCK 56B13 H4QQ C
SBT LCK 56B13 HQQQ C
SBT LCK 56B1P HQQQ C
SBT LCK 56BMP HQQQ C
SBT LCK 5SBMP HQQQ C
SBT LCK RSBMP HQQQ C

GIUSTO???

[matpez]

Originariamente inviato da leadergl
ok ho corretto, alcune delle cose che hai detto le avevo pensate stanotte.....tipo il fatto dello STEP 2........però ancora nn sapevo cm si faceva!!

Mentre il CASE "A", "0".....avevo provato a farlo ma erratamente, infatti provavo con CASE "A" OR "0" e mi dava errore, quindi rinunciai!!!

L'ultima perte invece m'è stata d'aiuto!!

[matpez]

Originariamente inviato da leadergl
Hai dei consigli da darmi sull'OMOCODIA????

Non so se implementare nel Form principale una COMBObox, o una ListBox, oppure aggiungere nel menu la voce OMOCODIA che apre un'altro form di informazione con tutte le omocodie possibili, oppure si può implementare una comboBox in un MSGBOX??

Penso di si....credo basti creare una funzione che in uscita dia una combobox e fare:

MsgBox "Omocodie: " & nomefunzione

Si può fare??

Help.....non vorrei dover cambiare un po l'impaginazione del mio FORM principale.....

Ti consiglio una list box con il carattere Courier New, almeno sono tutti lunghi uguali

[matpez]

Originariamente inviato da leadergl
ah un'altra cosa....ma se ho capito bene le omocodie possibili sono solo 7, giusto??

del tipo

SBT LCK 56B13 H444 C

che può diventare

SBT LCK 56B13 H44Q C
SBT LCK 56B13 H4QQ C
SBT LCK 56B13 HQQQ C
SBT LCK 56B1P HQQQ C
SBT LCK 56BMP HQQQ C
SBT LCK 5SBMP HQQQ C
SBT LCK RSBMP HQQQ C

GIUSTO???

No è sbagliato , perchè siccome tu devi cambiare i numeri dentro al CF fa una combinazione di 2^7 = 128, cioè cambi un numero e lasci invariato il resto, poi avanti così

Poi basta che controlli il sito che ti avevo dato e vedi che nn sono così pochi

NB: ogni codice fiscale nuovo (cioè con l'omocodia) ha una sua lettera di controllo


PS: leggi anche le altre risposte sopra queste

[leadergl]

......MA COME SI FA A CARICARE UN'ALTRA FORM CON DEI PARAMETRI IN INGRESSO???


la devo far partire dal menu!!
File -> Omocodia

faccio

form2.show e vabbe mi apre la nuova form
ma se faccio:

form2(variabili).show
form2.show (variabili)

beh mi da errore, ma come cavolo si fa??

[leadergl]

senti sto fatto dell'OMOCODIA inizia a diventare un po lungo da fare....ti posto il codice così com'è adesso!!

Poi ovviamente voglio sapere tutto ciò che non va o che avresti fatto diversamente per migliorare STABILITA' , VELOCITA' e....e vabbe che ne so, qualche altra cosa cmq!!!

[matpez]

Non si possono passare le varibili ad un form all'altro a modello di parametri

O usi una varibile globale in un modulo, che vale per tutto il programma in VB (form comprese)

Oppure vai a leggere la label dovi stampi il codice fiscale originale (nel form2) --> ES: CF=form1.lblCF

Oppure usi la TAG dei form, cioè è uno spazio che ogni oggetto ha per mettere dentro quello che tu vuoi
ES:
prima di lanciare la form2 metti: form1.tag=CF
nella form 2 fai così: CF=form1.tag

[matpez]

Originariamente inviato da leadergl
senti sto fatto dell'OMOCODIA inizia a diventare un po lungo da fare....ti posto il codice così com'è adesso!!

Poi ovviamente voglio sapere tutto ciò che non va o che avresti fatto diversamente per migliorare STABILITA' , VELOCITA' e....e vabbe che ne so, qualche altra cosa cmq!!!

OK, te lo controllo....ci sentiamo sta notte, adesso esco

[leadergl]

ti posto anke l'eseguibile con le prime 7 omocodie....per le altre è un po un casino, xkè dovrei inserire un'altro ciclo FOR, conservarmi lo stato del codice fiscale prima di effettuare i cambiamenti delle omocodie........nu burdell !!!!

[matpez]

Ti posto la mia versione, ho levato il database perchè altrimenti nn ci stava nello zippo