vertaler/omzetter

[kj20]

Ik heb dit scriptje van een vb website gehaald:

Option Explicit

Private Sub cmdLoadFoodCombo_Click()
    
    cboFood.Clear
    
    cboFood.AddItem "Orange"
    cboFood.ItemData(cboFood.NewIndex) = 60
    cboFood.AddItem "Apple"
    cboFood.ItemData(cboFood.NewIndex) = 12
    cboFood.AddItem "Banana"
    cboFood.ItemData(cboFood.NewIndex) = 105

    MsgBox "Woordenlijst is geladen.", _
           vbInformation, _
          "EN-NL vertaler"

End Sub

Private Sub cmdSelect_Click()

    Dim strFood     As String
    Dim intX        As Integer
    Dim blnFound    As Boolean
    
    strFood = InputBox("Zoek naar een woord binnen de woordenlijst.", _
                       "EN-NL vertaler")
                       
    If strFood = "" Then Exit Sub
    
    blnFound = False
    
    For intX = 0 To cboFood.ListCount - 1
        If UCase$(cboFood.List(intX)) = UCase$(strFood) Then
            cboFood.ListIndex = intX
            blnFound = True
            Exit For
        End If
    Next

    If Not blnFound Then
        MsgBox "Woord niet gevonden.", _
               vbExclamation, _
               "EN-NL vertaler"
    End If

End Sub

Private Sub cmdDetermine_Click()

    If cboFood.ListIndex = -1 Then
        MsgBox "Er is geen woord geselecteerd.", _
               vbInformation, _
               "EN-NL vertaler"
        Exit Sub
    End If
    
    MsgBox "Je wil het woord " & cboFood.List(cboFood.ListIndex) & " vertalen." & vbNewLine _
         & "Vertaling: " & cboFood.ItemData(cboFood.ListIndex) & ".", _
           vbInformation, _
           "EN-NL vertaler"
    
End Sub

Private Sub cboFood_Click()
    If chkAuto.Value = vbChecked Then
        Call cmdDetermine_Click
    End If
End Sub

Private Sub Galgië_Click()
Form3.Show vbModal
End Sub

Private Sub Instructies_Click()
        MsgBox "Klik op Woordenlijst laden om de woorden te laden, en daarna moet je het zelf maar uitzoeken.", _
               vbInformation, _
               "EN-NL vertaler"
End Sub

Private Sub over_Click()
Form2.Show vbModal
End Sub

Private Sub Rekenmachine_Click()
Form4.Show vbModal
End Sub

Ik heb er een paar dingetjes aan veranderd, want dit was normaal bedoeld om de calorieën van fruit te berekenen.
Maar als ik dit probeer te veranderen:

    cboFood.AddItem "Orange"
    cboFood.ItemData(cboFood.NewIndex) = 60
    cboFood.AddItem "Apple"
    cboFood.ItemData(cboFood.NewIndex) = 12
    cboFood.AddItem "Banana"
    cboFood.ItemData(cboFood.NewIndex) = 105

In dit:

    cboFood.AddItem "Orange"
    cboFood.ItemData(cboFood.NewIndex) = Sinaasappel
    cboFood.AddItem "Apple"
    cboFood.ItemData(cboFood.NewIndex) = Appel
    cboFood.AddItem "Banana"
    cboFood.ItemData(cboFood.NewIndex) = Banaan

Dan geeft hij een foutmelding aan.
Ik mag dus alleen maar cijfers gebruiken.
Wie weet er wat ik in het script moet veranderen om toch letters te kunnen gebruiken?

 

[eeyk]

Volgens mij kan dit niet omdat het niet in het script staat

 

[kj20]

nee?
sorry ik ben nog niet zolang bezig met vb6 maar, hoe kan ik dit probleem dan oplossen?
wat staat er dan niet in?

 

[WILLIAMXXX]

Dat banaan en appel etc moet je tussen "" zetten dus:

"Banaan"
"Appel"

etc, probeer maar

 

[kj20]

heb ik geprobeerd maar nu geeft hij een foutmelding als ik mijn woordenlijst probeer te laden:

 

[That Guy]

13: verkeerde soort variable, globaal gezien dan.
check:
http://en.allexperts.com/q/Visual-Basic-1048/VB-runtime-error-13.htm
(voorbeeldje)

probeer dus eens Val(textX.text) om getallen te krijgen en Str(textX.text) om iets om te zetten naar text.

 

[kj20]

sorry ik ben nog niet zolang bezig met vb6

OK bedoel je dus dat ik alle str moet omzetten naar val en alle val naar str?
kun je geen 'verbeterde' code plaatsen?

 

[kj20]

Niemand???
Ik heb het overmorgen nodig voor een project.

 

[That Guy]

http://www.magictree.com/vbcourse/06listboxes/listinfo.htm

en dan zoiets:

    cboFood.AddItem "Orange"
    cboFood.ItemData(cboFood.NewIndex) = "Sinaasappel"
    cboFood.AddItem "Apple"
    cboFood.ItemData(cboFood.NewIndex) = "Appel"
    cboFood.AddItem "Banana"
    cboFood.ItemData(cboFood.NewIndex) = "Banaan"

noot: als het niet werkt, mischien moet je je vbp dan ff zippen enzo, dan kan ik het makkelijker bekiijken enzo.

 

[kj20]

Hier.

 

[That Guy]

als ik eerlijk ben, dan snap ik echt geen &(*#^ van je code. (combo.newitem?...)

als ik jou was zou ik iets anders verzinnen voor je programma, want zo kost het straks ook heel veel code-'ruimte' (als in, in je programma) om alles zo op te slaan

een oplossing: twee externe textdocument, 1tje met NL-e woorden, 1e met ENG-woorden. dan gewoon inladen en klaar ben je

Als je dit wilt uitproberen zal ik je een stukje code geven. :thumb:

 

[kj20]

bedankt, die code zou handig zijn :thumb:

 

[That Guy]

Stappen-plannetje:

1. open de 2 bestanden (nederlands.txt en engels.txt) in je prog,
2. gebruik de Split() functie om ze beide in 2 verschillende arrays te laden,
3. drop je array in een combo-box (ofzo),
4. als iemand het woord vraagt, pak dan het equavilentienummer van de combo en pak zo de engelse woorden

ik heb nu even geen tijd, maar ik zal later nog wat stukkies code posten
V.:thumb:

 

[kj20]

ok