Visual Basic 6 - aiutatemi vi prego

Forum - Visual Basic 6 - aiutatemi vi prego

Pagine: [ 1 2 ]

fifiddu (Normal User)
Rookie

Messaggi: 41
Iscritto: 01/01/2010

Postato alle 11:53
Venerdì, 01/01/2010

ciao a tutti, questo è il mio primo post su questo forum.
vi spiego il mio problema, vorrei creare una traduttore da Italiano a Siciliano e viceversa, usando due text box per l'inserimento delle varie frasi ed un pulsante per la traduzione, il tutto deve poter essere gestito da un file di testo dove inserire le frasi da tradurre, quindi senza database acces o roba simile, o visto in giro diverse sorgenti ma non sono state di mio aiuto, una bella sorgente e quella di ebonics traslator, ma appena cerco di modificare il file di testo cancellando tutto all'interno ed inserendo le frasi, non appena vado a premere run di visual basic, il programma va in errore segnalandomi in debug (Trim (Temp(1)) premetto che non ho modificato il percorso del file ne il nome, premetto anche che sono alle prime esperienze col visual, spero che qualcuno sia capace di farmi un sorgente con le mie esigenze, l'importante e che ci siano due text box dove io posso fare interagire successivamente come text to speech per l'ascolto vocale. grazie in anticipo e buon anno a tutti.

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 12:00
Venerdì, 01/01/2010

Testo quotato

Postato originariamente da fifiddu:
spero che qualcuno sia capace di farmi un sorgente con le mie esigenze

credo che tu non abbia capito il concetto di forum... infatti nei forum ci si aiuta a vicenda, cosa ben diversa dal descrivere che programma si vuole e aspettare che qualcuno ti scriva il sorgente.

Incomincia a scrivere il codice da solo, quando avrai un problema più specifico ti aiuteremo noi. Per aprire un file di testo usa la Open()

Se ancora non ti senti in grado di fare un programma del genere, visto che stai agli inizi dedicati a qualcosa di più semplice e se non lo hai fatto, leggiti un manuale di vb prima di programmarci.

fifiddu (Normal User)
Rookie

Messaggi: 41
Iscritto: 01/01/2010

Postato alle 12:06
Venerdì, 01/01/2010

grazie del consiglio, il fatti di realizzare qualcosa del genere mi entusiasma tanto da aver già comprato un libro per visual basic 6, ho già letto molte cose ma e chiaro che sono ancora in salita, purtroppo la mia eccitazione sul voler imparare e tanta da superare i limiti

cercherò di iniziare a poco a poco.

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 16:01
Venerdì, 01/01/2010

unn'aviri fritta, ca c'è tempu.

fifiddu (Normal User)
Rookie

Messaggi: 41
Iscritto: 01/01/2010

Postato alle 16:16
Venerdì, 01/01/2010

vi posto un sorgente che vorrei modificare

Dim Word() As String

Private Sub Command1_Click()
Translate
End Sub

Private Sub Form_Resize()
On Error Resume Next
Frame2.Height = Me.Height / 2
Frame1.Top = Frame2.Height - 30
Frame1.Height = Frame2.Height - 750

Frame2.Width = Me.Width - 180
Frame1.Width = Me.Width - 180

Text1.Height = Frame2.Height - 285
Text1.Width = Frame2.Width - 210

Text2.Height = Frame1.Height - 240
Text2.Width = Frame1.Width - 210

Progress.Top = Me.Height - 720
Command1.Top = Me.Height - 720

Progress.Width = Me.Width - 1815
Progress.Left = Command1.Width + 100

End Sub

Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub
Public Sub Translate()
'On Error GoTo err
Dim fnum As Integer
Dim Temp
Dim Txt
Dim lngindex As Integer
Dim Words
Dim Wordnum As Integer

fnum = FreeFile

Open App.Path & "\Ebonics.dic" For Input As fnum
Text1 = Text1 & " " 'add a space just in case
'its just one word
Words = Split(Text1, " ")
Text2 = ""

Progress.Value = 0
For lngindex = 1 To 656
Progress.Value = Progress + 1
Input #fnum, Txt
Temp = Split(Txt, vbTab)
Trim (Temp(0))
Trim (Temp(1))

For Wordnum = 0 To UBound(Words)
If LCase(Words(Wordnum)) = LCase(Temp(0)) Then
Words(Wordnum) = Temp(1)
End If
Next Wordnum

Next lngindex

For Wordnum = 0 To UBound(Words)
Text2 = Text2 & " " & Words(Wordnum)
Text2 = Trim(Text2)
Next Wordnum

Close fnum

Exit Sub
err:
Close fnum
MsgBox err.Description, vbCritical
End Sub
Private Sub Text1_GotFocus()
If Left(Text1, 3) = "Tip" Then
Command1.Enabled = True
Text1.Text = ""
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.Value = True
End If
End Sub

questo sorgente appena elimino tutto l'interno del documento di testo e inserisco ad esempioalcune frasi da tradurre, mi da l'errore Trim (Temp(1)) insomma sembra che qualcosa riconosca il contenuto cambiato nel documento di testo che fa da database delle parole, io volevo sapere se e possibile togliere questo problema e personalizzarmi il documento di testo.
allego il sorgente originale con il documento di testo originale chiamato ebonics ed il mio documento di testo chiamato prova, qualcuno sa dirmi come fare a farlo funzionare con il mio documento di testo?

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 17:12
Venerdì, 01/01/2010

Al tuo messaggio non è stato allegato nulla. Accertati di allegare uno .zip e che sia inferiore a 2 Mb

fifiddu (Normal User)
Rookie

Messaggi: 41
Iscritto: 01/01/2010

Postato alle 14:52
Sabato, 02/01/2010

eccoti l'allegato spero che compaia, in tal caso dammi la tua email e te lo mando

fifiddu (Normal User)
Rookie

Messaggi: 41
Iscritto: 01/01/2010

Postato alle 15:25
Sabato, 02/01/2010

forse non lo vedi perchè è in .rar, adesso lo comprimo con winzip

fifiddu ha allegato un file: CODE_UPLOAD9781992000.zip (9959 bytes)
Clicca qui per scaricare il file

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 15:45
Sabato, 02/01/2010

Il tuo allegato non è un file di testo. Non so che farci.

Pagine: [ 1 2 ]