Esercizi VISUAL BASIC

[leadergl]

Sto cercando pian piano di imparare il Visual Basic 6.....ma non ho troppa fantasia sugli esercizi da fare....qualcuno di voi potrebbe darmi (diciamo anche assegnarmi) degli esercizi da fare, via via di complessità maggiore??

Ricordate però che parto quasi da zero, ho discrete basi di PASCAL, quindi non è la prima volta che ho a che fare con la programmazione, poi faccio l'univ in Informatica....quindi...partendo da questo mi date esercizi da fare??

Ho fatto 2 programmini, uno che mi calcola il Bitrate Video esatto che bisogna mettere per la compressione di video con DivX (segue una regola precisa per il calcolo) e l'altro...beh è una scemità...cmq utilizza il comando di Windows NET SEND per inviare frasi tramite rete ad un'altro computer!

......ok...detto questo ASSEGNATEMI

[matpez]

Se già sai fare qlc programmino in pascal allora secondo me potresti fare un programma che calcoli il CODICE FISCALE!

Come ti sembra?!?!?

Per info qui: http://www.olografix.org/isazi/dnfcr...cefiscale.html


PS: una volta finito il codice fiscale ci applichi l'omocodia

Se nn sai cos'è te la spiego poi quando hai finito quest'esercizio

[fgmac]

Un buon sito (una comunuty con forum dedicati) con esempi e quant'altro e'
http://www.redangel.it/

Magari lo conosci gia'.
Ti invito ad uploadare i programmini che hai citato e che hai fatto tu.

[leadergl]

....ho un unico problema...non so in VB come si scorre nelle stringhe!!!

...sto procedendo così....nel codice del form dichiaro le variabili (globali) che mi serviranno, poi ad esempio per il nome, una volta che è stato digitato devo scorrere nel testo del nome alla ricerca delle consonanti e le metto in un'altra stringa, se questa è maggiore di 3 prendo i primi 3 elementi, se è minore di tre ci aggiungo passo passo le vocali....o la X.....ma come faccio a scorrere nel nome??

Per il PASCAL per avere la lunghezza di una stringa si facena lenght(nome) e lui mi diceva di quanti caratteri era il nome, poi per leggere il singolo carattere si faceva nome[2] e lui mi leggeva il secondo carattere del nome....ma in VB???

[matpez]

Ecco a te

Poi ti guardi te cosa ti dice quando scrivi la funzione (per i vari parametri intendo)

LEN: lunghezza di una stringa!

MID: prende i caratteri all'interno di una stringa

LEFT: prende i caratteri a partire da sinistra

RIGHT: prende i caratteri a partire da destra

TRIM: toglie gli spazi all'inizio e alla fine della stringa
LTRIM: toglie gli spazi solo a sinistra della stringa
RTRIM: toglie gli spazi solo alla destra della stringa


Dovrebberi essere tutte quelle che ti servono

[matpez]

Originariamente inviato da leadergl
....ho un unico problema...non so in VB come si scorre nelle stringhe!!!

Nel tuo caso devi usare il MID

PS: se utilizzi solo stringhe e memorizzi il dato prelevato in variabili stringa, ti consiglio di mettere un $ dopo alle funzioni che hanno como uscita altre stringhe (MID$, LEFT$, etc etc)

[leadergl]

grazie mille.....m'hai risparmiato un po di fatica....mi stavo leggendo tutte le funzione che facevano e prima d'arrivare a M........cmq un'altra cosa come faccio a definire un set di caratteri??

ad esempio io analizzo la stringa e:

for i=1 to len(stringa)
if mid(stringa,i,1) è diverso da set di caratteri allora


dove set di caratteri sono le vocali....("a","e","i","o","u")...capito che voglio fare??? in pascal saprei farlo ma qui......help

[matpez]

Originariamente inviato da leadergl
for i=1 to len(stringa)

Questo codice va bene ma ti consiglio una struttura del genere perchè cosi facendo rallenti di qlc millisecondo l'esecuzione del programma

nLen=Len(Stringa)
For nI=1 to nLen
  <istruzioni>
Next

Come vedi mettere Next al posto di Next nI è molto + veloce (si parla sempre di millisecondi), la stessa cosa vale per usare una variabile contenente la lunghezza della stringa!

Per la seconda cosa definire un set di caratteri io utilizzerei un truschino della InStr che in pratica ti torna la la posizione numerica del carattere interna in una stringa, per esempio: InStr("m","ciao_mamma"), torna il numero 6!!

Così facendo se noi facciamo:

If InStr("aeiou", Mid(stringa, i, 1)) > 0 Then

ti dice se c'è il carattere

[leadergl]

....ah ok, grazie!!
Che ne dici, così è ok??


Private Sub calcola_testo(vtesto As String)
Dim i, n As Integer
Dim temp, vocali, cons As String

n = Len(vtesto)

For i = 1 To n
If InStr("aeiou", Mid(vtesto, i, 1)) > 0 Then
vocali = vocali + Mid$(vtesto, i, 1)
Else
cons = cons + Mid$(vtesto, i, 1)
End If
Next

temp = "x"

If Len(cons) >= 3 Then
vnome = Left$(cons, 3)
Else
If Len(cons) = 2 Then
vnome = cons + Left$(vocali, 1)
Else
vnome = cons + Left$(vocali, 1) + temp
End If
End If

End Sub

Ho messo temp="x" perchè non so se posso scrivere alla fine vnome = cons + Left$(vocali, 1) + x

.....allora,come csì è ok?...

[leadergl]

una precisazione quello che ho scritto è il codice per trovare le lettere del COGNOME.....non farti confondere dal fatto k ho scritto vnome.....l'ho già corretto in vgnome che sta per valore cognome!!

[matpez]

nn incollarmi un pezzo di codice ala volta...fai un bel programmino, poi una volta finito me lo passi e lo controllo (come un bravo insegnante )

Cmq metti $ qui nel MID: If InStr("aeiou", Mid(vtesto, i, 1)) > 0 Then

e poi le stringhe le puoi mettere benissimo Stringa=Stringa & "x" (a me piace collegare con la & ma va benissimo anche la tua +)!

[leadergl]

...ho scritto parte del codice, l'ho testato....ma non mi da niente...

Private Sub Form_Load()
Dim vnome, vgnome, vluogo As String
Dim vdata As Integer

End Sub

Private Sub calcola_Click()
calcola_nome (nome.Text)
codice.Caption = vnome
End Sub


calcola_nome(nome.text) è la procedure che ho postato prima e nome.text è i contenuto del textbox dove si scrive il nome, ma perche quando faccio calcola in CODICE.CAPTION (in cui avevo memorizzato aaaa) non mi compare nulla??

Dovrebbero comparirmi le parti del nome del codice fiscale....xkè mi da il vuoto?? cos'è che non va nella procedura calcola_nome??

[leadergl]

forse ho capito....ho sbagliato la chiamata alla procedura calcola_nome......ok ma come si fa a richiamare la procedura??

forse come nel pascal deve trovarsi prima del comando che la richiama??

[matpez]

Originariamente inviato da leadergl
...ho scritto parte del codice, l'ho testato....ma non mi da niente...

Private Sub Form_Load()
Dim vnome, vgnome, vluogo As String
Dim vdata As Integer

End Sub

Private Sub calcola_Click()
calcola_nome (nome.Text)
codice.Caption = vnome
End Sub

Per una Funzione basta che tu gli dai per esempio vNome=calcola_nome (nome.Text)

Stai facendo degli errori di struttura, allora io ti consiglio di andare su opzioni di VB e selezionare la voce "dichiarazioni obbligatorie"

Dopo di che metti un bel Option Explicit all'inizio della tua form

Ora le varibili devi dichiarare bene, cioè quello che sta dopo Option Explicit sono varibili globali della form, quelle che dichiari dentro alle varie Sub o Function sono varibili locali che una volta uscito dalla procedura o funzione vengono scaricate?

Chiaro?

Cmq nn chiedere ad ogni riga, altrimenti dov'è il gusto di programmare ?!?!

[matpez]

In VB nn c'è un senso logico di fichiarare le routine, cioè tu le puoi mettere su, sotto, a destra e a sinistra e lui sempre le trova , cosi nn sei obbligato a dichiararle sempre in cima al programma

[matpez]

Originariamente inviato da matpez
In VB nn c'è un senso logico di fichiarare le routine, cioè tu le puoi mettere su, sotto, a destra e a sinistra e lui sempre le trova , cosi nn sei obbligato a dichiararle sempre in cima al programma

Ti ho fatto un esempio, cosi capisci meglio quello che ti voglio dire

[leadergl]

ok ho risolto....non ho fatto come hai detto tu....o meglio almeno in parte!!

Quelle che prima erano Private Sub calcola_nome etc ora sono diventate Private function....così è stato tutto più semplice!!!

Ora ho convertito sia il cognome che il nome, ora procedo con data e luogo di nascita!!

a fra poco!

e ancora grazie!!

[leadergl]

...ops non avevo visto che mi avevi postato esempi....vabbè li analizzo dopo, ora completo il codice del mio programmino e poi ti posto tutto!!! ok?

ti faccio un file con l'eseguibile e tutto ciò che riguarda codice e form

[matpez]

Originariamente inviato da leadergl
...ops non avevo visto che mi avevi postato esempi....vabbè li analizzo dopo, ora completo il codice del mio programmino e poi ti posto tutto!!! ok?

ti faccio un file con l'eseguibile e tutto ciò che riguarda codice e form

Passa passa

[leadergl]

ops........nn so come si fa e leggere nella data!!!

è in formato GG/MM/AA

........cercando ho notato la funzione DATEPART....ma nn so se è lei e nn ho capito un granchè come si usa.....help