10 september

>Unlabelled > cara membuat web browser dengan gambas

cara membuat web browser dengan gambas

Posted on Kamis, 08 November 2012 by Cowok Ipa 3

Web browser adalah suatu perangkat lunak yang digunakan untuk menampilkan halaman-halaman website yang berada di internet.
contoh :
 1. IE               = Internet Explorer = OS Windows
2. MyIE          = OS Windows
3. Opera        = OS Windows / Linux
4. Firefox       = OS Windows / Linux
5. Mozilla       = OS Linux (GNOME)
6. Qonquerer  = OS Linux (KDE)
7. Netscape Navigator
8. Links          = OS Linux/BSD mode text
9. Lynk           = OS Linux/BSD mode text
                                                                          10. dll

di sini kita akan mencoba untuk membuat web browser tersebut..
Kita membuat nya dengan versi linux yaitu dengan Gambas. dan itu pun cuma sebatas dasar 
dari web browser, masih banyak yang harus di tambah.
Dan untuk yang bisa mengembangkan saya harap agar bisa mengembang kan nya hingga
sempurna seperti web ke 9 web browsing di atas. saya juga akui kalau membuat web seperti
yang di atasn tidak segampang membuat aplikasi konversi warna ke grayscale,tidak seperti
membuat langkah-langkah membuat skripsi eh ga nyambung ya hehehe..tapi yang jelas tidak
semudah cara membuat aplikasi untuk upload gambar dengan gambas juga,,,

ya sudah untuk membuat nya kita sedia kan di form gambas yang baru..

web browse ganti name dengan webtest
label ganti name dengan lbllink
textbox ganti name dengan txtlink
button ganti name dengan quit dan caption dengan keluar

atur seperti gambar di atas..

dan paste kan code berikut ini :


' Gambas class file

PUBLIC SUB _new()

END

' Gambas class file

PUBLIC SUB Form_Resize()

txtLink.Move(0, 0, ME.ClientW)

webTest.Move(0, txtLink.H, ME.ClientW, ME.ClientH - txtLink.H - lblLink.H)

lblLink.Move(0, webTest.Y + webTest.H, ME.CLientW)

END

PUBLIC SUB webTest_Change()

txtLink.Text = LAST.Path

'DEC Application.Busy

END

PUBLIC SUB webTest_Click()

txtLink.Text = " " & LAST.Link

'INC Application.Busy

END

PUBLIC SUB webTest_Link()

lblLink.Text = LAST.Link

END

PUBLIC SUB txtLink_Activate()

DIM sPath AS String

sPath = txtLink.Text

IF NOT (sPath LIKE "http://*") THEN sPath = "http://" & sPath

webTest.Path = Trim(sPath)

END

PUBLIC SUB Form_Open()

txtLink.Text = "http://gambas.sourceforge.net"

txtLink_Activate

END

PUBLIC SUB quit_Click()

me.close

END
sekian..
semoga berhasil...
kamu pasti bisa mengembangkannya..


Created By: Aan sanjaya

One Response to “Teknologiku”

What's on Your Mind...