Visual Basic: Menampilkan Pesan Melalui User Agent


  • SPYRO KiD
  • admin[~@t~]spyrozone[~d.t~]net
  • Tuesday, November 28th, 2006
  • CopyLEFT (c) 2011++ www.spyrozone.net All Rights Reserved


msgbox "Author :  Cowok Cakep"+vbcrlf+"Contact :  Cakep_banget@Jomblo.COM",64,"Jomblo Software"
{image: Pesan dengan msgbox}

Pesan dengan msgbox

Masih pakai cara diatas untuk menampilkan pesan? Bagaimana jika sekarang kita coba untuk menggunakan User Agent:

{image: Pesan dengan Useragent}

Pesan dengan Useragent

Naah.. pasti animasi si Merlin bakalan membuat software anda tampak lebih menarik. Bagaimana cara memanggil sang penyihir bawaan windows ini?

  1. Buka aplikasi Visual Basic 6.0. Kemudian pilih Standard EXE pada jendela New Project yang muncul.
  2. Pilih menu Project –> Components… Kemudian beri tanda centang pada Microsoft Agent Control 2.0 dan klik OK
  3. Pada panel daftar component di sebelah kiri jendela anda akan bertambah satu buah component bernama Agent. Klik sekali lalu tambahkan pada form anda.
  4. Buka jendela code dan salinlah code berikut ini:
    Dim merlin As IAgentCtlCharacterEx
    Const DATAPATH = "merlin.acs"
    Private Sub Form_Load()
    Agent1.Characters.Load "merlin.acs", DATAPATH
        Set merlin = Agent1.Characters("merlin.acs")
        merlin.LanguageID = &H409
        merlin.Show
        merlin.MoveTo 700, 10
        merlin.MoveTo 700, 500
        merlin.MoveTo 100, 500
        merlin.MoveTo 400, 300
        merlin.Speak "Author    : Cowok Cakep. . . . :)  Contact : Cakep_banget@Jomblo.COM . . . . . :P "
        merlin.Hide
    End Sub
  5. Sekarang, simpan hasil pekerjaan anda dan klik tombol Run >>. Merlin akan tampil, terbang kesana-kemari, lalu menampilkan pesan anda dan menghilang layaknya seorang tukang sihir :)

Selamat mencoba ;)


//E.O.F