Oppure

Loading
09/01/08 11:51
meno93
il codice del mio programmino è il seguente: 

Dim i As Double
On Error GoTo attenzione
Dim dir As String
dir = "c:\" & Text1.Text
Open dir For Output As 1
CommonDialog1.FileName = dir
For i = 1 To Text2.Text
Write #1, "èÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…gdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿgdgøþÿÿPèÃìÿÿY3ÿfgdgþÿÿfgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ"
ProgressBar1.Value = ProgressBar1.Value + (150 / Text2.Text)
Next
MsgBox "File è stato creato con successo nella directory c:\" & Text1.Text, vbInformation, "genera file 1.0"
Close 1
attenzione:
MsgBox "controllare i dati immessi nelle due caselle di testo!!se la grandezza del file e troppo alta possono ferifixcarsi problemi", vbInformation, "Genera file 1.0"



Quando nelle due textbox nn ce scritto niente mi da un errore e per coprire cio ho agiunto l'istruzione On Error GoTo attenzione dove attenzione sarebbe il messaggio che deve comparire...e fin qui ok...adesso se pero creo un file va tt ok è alla fine scatta il messaggio il file è stato creato...ma poi anche il messaggio attenzione...e in seguito nn mi fa creare piu file che riscatta il messaggio attenzione...AIUTATEMI X FAVORE nn so come devo fare....
aaa
09/01/08 12:01
Roberto VB
Postato originariamente da meno93:

il codice del mio programmino è il seguente: 

Dim i As Double
On Error GoTo attenzione
Dim dir As String
dir = "c:\" & Text1.Text
Open dir For Output As 1
CommonDialog1.FileName = dir
For i = 1 To Text2.Text
Write #1, "èÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…gdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿgdgøþÿÿPèÃìÿÿY3ÿfgdgþÿÿfgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ"
ProgressBar1.Value = ProgressBar1.Value + (150 / Text2.Text)
Next
MsgBox "File è stato creato con successo nella directory c:\" & Text1.Text, vbInformation, "genera file 1.0"
Close 1
Exit Sub
attenzione:
MsgBox "controllare i dati immessi nelle due caselle di testo!!se la grandezza del file e troppo alta possono ferifixcarsi problemi", vbInformation, "Genera file 1.0"

Prova questo e dimmi se va
;)
aaa
09/01/08 12:09
meno93
hai risolto solo uno dei problemi......cioe che appena finito la creazione nn mi da piu il messaggio di errore..ma non capisco ancora perche nn me ne fa creare nessun altro..infatti finito di crearne uno se passo alla creazione di un altro e premo il pulsante mi da il messaggio di attenzione e nn prosegue alla creazione del file
aaa
09/01/08 12:14
meno93
ho risolto il problema mettendo dopo il ciclo for: 
progressbar1.value=0

sicuramente dava il problema perche alla fine della creazione la progressbar1.value era al max e nn poteva piu conrinnuare.....grazie comunque per avermi aiutato:k::k::k::k::k::k::love:
aaa
09/01/08 12:32
Roberto VB
di nulla:k:
aaa
09/01/08 12:36
meno93
Adesso di problema ne è insorto un altro!!!!!se il programma lo eseguo da Visual basic tt ok..ma se lo compilo in exe e lo avvio quando finisce di creare il file nn mi dice piu il file è stato creato con successo ma mi da il messaggio Attenzione..come devo fare?? ti lascio il codice aggiornato: 

Private Sub Command1_Click()
Dim i As Double
On Error GoTo attenzione
Dim dir As String
dir = "c:\" & Text1.Text
Open dir For Output As 1
CommonDialog1.FileName = dir
For i = 1 To Text2.Text
Write #1, "èÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…gdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ…øþÿÿWP…fgdgøþÿÿPèÃìÿÿY3ÿgdgøþÿÿPèÃìÿÿY3ÿfgdgþÿÿfgdgøþÿÿPèÃìÿÿY3ÿfgdgøþÿÿPèÃìÿÿY3ÿ"
ProgressBar1.Value = ProgressBar1.Value + (150 / Text2.Text)
Next
ProgressBar1.Value = 0
MsgBox "File è stato creato con successo nella directory c:\" & Text1.Text, vbInformation, "genera file 1.0"
Close 1
Exit Sub
attenzione:
MsgBox "controllare i dati immessi nelle due caselle di testo!!se la grandezza del file e troppo elevata possono ferificarsi problemi", vbInformation, "Genera file 1.0"
End Sub






AIUTO!!
aaa
09/01/08 13:32
Roberto VB
[i]Postato originariamente da
attenzione:
MsgBox "controllare i dati immessi nelle due caselle di testo!!se la grandezza del file e troppo elevata possono ferificarsi problemi", vbInformation, "Genera file 1.0"
End Sub

Sostituisci quello che ho citato e inserisci questo codice:

attenzione:
MsgBox err.Description

Quindi riavvia il programma e quando ti da l'errore postalo, così posso capire di che si tratta
aaa
09/01/08 13:54
meno93
ho notato che il problema avviene solo se il programma e nella cartella dove e stato salvato il progetto infatti ho copiato l'exe e il file manifest e adesso va tt ok grazie per il messaggio di prima ho imparato una nuova cosa!!!:k::k:
aaa