Multilanguage dengan VB dan XML
January 1st, 2007 by arizaneJanuary 1st, 2007
sebenarnya nih tutor dapet insipirasi dari game RO, hehehe yah RO juga dapet inspirasi dari nanatkuw my best fren!!!!!..heheh
thx yah nath…this tutor belong to you..
oke ga usah lama-lama yah. sebelumnya kita ngebutuhin parser supaya
bisa dikenalin sama interpereter…tapi biasanya vb udah ada koq, DOM nya
bwt XML
klo lom ada coba instal msxml4.0 dari situs microsofot langsung
nah trus kita membutuhkan beberapa file xml sebagai language
storagenya, kenapa xml? yah karena dia punya tag unique aja, sebenarnya
bisa sih pake .ini atau .inf atau yang lain, tapi separator komanya itu yang bkin sulit..
jadi kenapa ga XML??
ok kita siapin 3 file xml yah.
- bahasa inggris yaitu english.xml
- bahasa jerman deutch.xml
- bahasa kita indonesia.xml
nah setelah itu …buka notepad buat ngetik coding xmlnya..oit..oit gampang koq..gak kali ini kita ga maen API heheehe
setelah itu ketikin koding dibawah ini dulu yah!!….
ketik koding untuk bahasa indonesia dulu..
<?xml version="1.0" encoding="UTF-8"?>
<FORM>
<mnufile>Berkas</mnufile>
<mnuexit>Keluar</mnuexit>
<btnmsg>Pesan</btnmsg>
</FORM>
simpan di drive c:\ dengan nama indonesia.xml
nah setelah itu…kita ketik coding bwt english.xml
<?xml version="1.0" encoding="UTF-8"?>
<FORM>
<mnufile>File</mnufile>
<mnuexit>Exit</mnuexit>
<btnmsg>Message</btnmsg>
</FORM>
simpan jadi english.xml di c:\ juga
nah terakhir ketik coding bwt jerman
<?xml version="1.0" encoding="UTF-8"?>
<FORM>
<mnufile>Akte</mnufile>
<mnuexit>Ausgang</mnuexit>
<btnmsg>Anzeige</btnmsg>
</FORM>
biasa simpan jadi deutch.xml dan di drive c:\
udah???
lanjut ke program vb6
udah buka??slect standart aplication aja
udah?
nah pilih menu Project>Refferences
lalu kita add references Microsoft XML, 4.0 kasih checlist n then klik OK
oke teken keyboard F7 atau view code
dan masukan source code ini
Dim lang As String
Sub indonesia()
lang = “indonesia.xml”
End SubPublic Sub xml_load()
Dim objDOM As DOMDocument40
Set objDOM = New DOMDocument40If Not objDOM.Load(”c:\” & lang) Then
MsgBox “tidak bisa load file XML, ERROR : ” & objDOM.parseError.reason, 16
Exit Sub
End If‘load dan set mnufile
Dim xml_mnufile As IXMLDOMNode
Set xml_mnufile = objDOM.selectSingleNode(”FORM/mnufile”)
Set xml_menufile = Nothing
mnufile.Caption = xml_mnufile.Text‘load dan set mnuedit
Dim xml_mnuexit As IXMLDOMNode
Set xml_mnuexit = objDOM.selectSingleNode(”FORM/mnuexit”)
Set xml_menuexit = Nothing
mnuexit.Caption = xml_mnuexit.Text‘load and set btnmsg
Dim xml_btnmsg As IXMLDOMNode
Set xml_btnmsg = objDOM.selectSingleNode(”FORM/btnmsg”)
Set xml_btnmsgt = Nothing
btnmsg.Caption = xml_btnmsg.Text
End SubPrivate Sub File1_DblClick()
lang = File1.FileName
Call xml_load
End SubPrivate Sub Form_Load()
Call indonesia
Call xml_load
File1.Path = “C:\”
End Sub
component yang digunain
- 1 Command button
- 1 FileList
- mnueditor
oke segini aja dulu tutor simple dari saya, mohon maaf klo agak bingungin. tanya2 aja klo kurang jelas
thx, semoga bermanfaat!! 
File to download
download source
disuruh beli Minidivi ver 5 lagi ah..buat handycam…di metropolis…
..weew koq morning..bahasa kasarnya..Udin Petot..alias dingin-dingin empuk….wekwkwk ga ngerti kan lw…sama gw aja ga ngerti
…capedeh!!.
