Gambas-it

Programmazione => Progetti degli utenti => Topic aperto da: vuott - 01 Marzo 2012, 23:42:21

Titolo: Criptatore di file
Inserito da: vuott - 01 Marzo 2012, 23:42:21

Dopo aver avuto altre esperienze di programmazione (linguaggio macchina, C, HTML ed altro) mio fratello si è avvicinato da poco anche a GAMBAS. Ha realizzato in breve tempo questo Criptatore di file, e mi ha chiesto di presentarlo a questa Comunità, non essendovi iscritto.
In ultimo c'è il sorgente. Provatelo.  :coder:

Titolo: Re: Criptatore di file
Inserito da: alcresio - 02 Marzo 2012, 00:34:13

Sulla mia Debian squeeze kernel 2.6.39-bpo.2-amd64 funziona alla perfezione...
non capisco però una cosa, i componenti hanno H e W minuscolissimi in proporzione alla finestra...  : ???

Ora fai inscrivere tuo fratello a questo forum sempre poco frequentato... c'è bisogno di materie grigie!  ;D

EDIT:

Ho trovato un bachetto... :skull:
dalla riga 53 riporta il seguente codice:

Select Case fileExt
'  ------------------------- se file immagine
  Case "jpg", "jpeg", "png", "bmp", "gif", "xpm", "tif"
  TextArea1.Visible = False
  TextArea2.Visible = False

se fileExt fosse "Jpg" il codice cannerebbe...

l'ho corretto come segue:

Select Case lcase(fileExt)
'  ------------------------- se file immagine
  Case "jpg", "jpeg", "png", "bmp", "gif", "xpm", "tif"
  TextArea1.Visible = False
  TextArea2.Visible = False

così funzia!

Titolo: Re: Criptatore di file
Inserito da: vuott - 02 Marzo 2012, 01:55:23

Citazione da: alcresio - 02 Marzo 2012, 00:34:13

EDIT:

Ho trovato un bachetto... :skull:

Bene, grazie.
Avendo il sorgente, ho effettuato io stesso la piccola aggiunta.

Allego il nuovo sorgente con la modifica da te suggerita.