Foxproerrr Indonesia

Berdasarkan ide dari salah satu teman yang ada di forum fox-id.org yang telah mempostingkan contoh untuk mengakses google translate untuk menterjemahkan text di editbox. Selanjutnya terbersit ide untuk membuat form dengan mutibahasa, sehingga user dapat dengan mudah memilih bahasa yang digunakan di dalam form. Tetapi karena disini kita menggunakan google translate dalam mengubah bahasa, maka otomatis fasilitas inipun hanya bisa digunakan jika pc atau laptop yang teman - teman gunakan sedang terkonek dengan jaringan internet. Sebelum kita bahas cara kerja dari form multi bahasa ini, mungkin teman - teman bisa download dulu project form muti bahasa yang di dalamnya terdapat contoh form dan program (file prg yang berisikan procedure untuk mentranslate bahasa) di link di bawah ini :

1. Arahkan procedure ke bacaurl dengan cara mengetikkan syntak SET PROCEDURE TO bacaurl ADDITIVE atau SET PROCEDURE TO c:\bacaurl.prg ADDITIVE. Klausa c:\ menandakan bahwa teman - teman harus mencantumkan path lengkap dari lokasi file bacaurl.prg tergantung dari lokasi dimana teman - teman menyimpan file tersebut. Tetapi bila teman - teman telah melakukan SET DEFAULT TO <FOLDER> ke folder dimana bacaurl.prg disimpan, teman - teman tinggal melakukan cara yang pertama.
2. Kemudian tinggal mengakses bacaurl dengan format di bawah ini :
   
   
   bacaurl(<textyangditranslate>,<asalbahasa>,<bahasatujuan>)
   Contoh
   chasil=bacaurl("Pekerjaan","id","en")
   
   
   Contoh syntak diatas, variable chasil akan berisikan hasil terjemahan dari "Pekerjaan" yang berasal dari bahasa indonesia (id) ke bahasa inggris (en). Kode id dan en merupakan kode bahasa yang ada di google translate. teman - teman bisa melakukan percobaan dengan mengubah - ubahnya dengan melihat referensi daftar kode bahasa yang di pakai google translate.

1. Melakukan pengecekkan apakah sekarang pc atau laptop sedang terkoneksi intenet apa tidak, jika sedang tidak terkoneksi maka translate atau perubahan bahasa tidak dapat dilakukan.
2. Melakukan scanning object di form, kemudian melakukan translate kepada caption atau value dari kontrol yang tergantung pada jenis kontrolnya.

1. Pertama kita tambahkan dulu kontrol ActiveX Microsoft Web Browser dengan cara menambahkan kontrol ActiveX Control (OleControl) ke dalam form, seperti gambar di bawah ini.
   
   
2. Setelah tampil jendela Insert Object, pilih Microsoft Web Browser seperti gambar di bawah ini.
   
   
3. Setelah di tambahkan di form, maka kontrol Microsoft Web Browser akan tampak seperti gambar di bawah ini.
   
   
4. Selanjutnya sesuaikan ukuran dari olecontrol (Microsoft Web Browser) diatas sesuai keinginan dan sebagai contoh tambahkan satu Commandbutton di bawahnya seperti gambar diatas dan di procedure click milik Commanbutton tersebut ketikkan source code berikut ini.
   
   thisform.olecontrol1.navigate(GETFILE("pdf"))
   Syntak diatas digunakan untuk memilih file PDF dan kemudian menampikannya ke dalam form melalui kontrol ActiveX Microsoft Web Browser.
5. Jalankan form dan kemudian klik CommandButton untuk memilih dokumen PDF yang ingin dibuka.

WSHShell = CreateObject("WScript.Shell")cKeyAM = "HKCU\Control Panel\International\s1159"WshShell.RegWrite(cKeyAM, "PAGI", "REG_SZ")cKeyPM = "HKCU\Control Panel\International\s2359"WshShell.RegWrite(cKeyPM, "SORE", "REG_SZ")WSHShell.Run("taskkill /f /im explorer.exe",2)DECLARE Sleep IN Win32API INTEGER   SLEEP(2000)WSHShell.Run("explorer.exe",2)