Tampilkan postingan dengan label VB 2010. Tampilkan semua postingan
Tampilkan postingan dengan label VB 2010. Tampilkan semua postingan

Selasa, 14 Juli 2015

e-Book Pemograman GIS Dekstop

Bagi Pemula dalam setiap sesinya anda harus ikuti secara berurutan. Pada sesi awal menjelaskan tentang teori GIS, sesi kedua membahan pengaturan Visual Basic 2010, sesi ketiga membahas tools standar GIS, Sesi keempat membahas sistem project, sesi kelima membahas basis data spasial, sesi keenam membahas pembuatan peta, sesi ketujuh membahas symbol, sesi kedelapan membahas kartugrafi dan sesi Sembilan membahan tools tambahan.


Download eBook GIS : Pemograman GIS
Video Tuturial : Youtube/HidayatulRahman
Download : Source Code 1
Download :  Source Code 2

Kamis, 15 November 2012

How Using object Window Media Player Visual Basci 2010 (VB2010)



¨       Buat project baru  degna cara yang sama file –New Project
¨       Pada jendela new project pilih Windows Form Application
¨       Beri nama project sesuai keinginan anda

                Untuk menggunkan Windows Media Player terlebih dahulu memanggile object degan cara
¨        Pada toolbox klik kana Component
Choose Item
¨      

¨       Pada Tab COM Components, Beri conteng pada Windows Media Player
¨       Klik tombol OK





   Buat rancangan form seperti gambar di bawah ini


¨   
Tabel Property Object


        Cara setting  Window Media Player adalah klik kana pada window medial Player  -> pilih propertis

¨


¨       Double klik pada tombol Open, ketikan kode program berikut;

 OpenFileDialog1.ShowDialog()
        OpenFileDialog1.Title = "Open Audio File"
        If OpenFileDialog1.FileName <> "" Then
            AxWMP1.URL = OpenFileDialog1.FileName
        End If

¨       Double klik pada tombol Play, ketikan kode program berikut;

 AxWMP1.Ctlcontrols.play()
        Timer1.Enabled = True


¨       Double klik pada tombol Pause, ketikan kode program berikut;
      
 AxWMP1.Ctlcontrols.pause()
        Timer1.Enabled = False

¨       Double klik pada tombol Stop, ketikan kode program berikut;

 AxWMP1.Ctlcontrols.stop()
        Timer1.Enabled = False

¨       Double klik pada Timer1, ketikan kode program berikut;

 TrackBar1.Maximum = AxWMP1.currentMedia.duration
        TrackBar1.Value = AxWMP1.Ctlcontrols.currentPosition
        LbDuraion.Text = AxWMP1.currentMedia.durationString
        LbPosition.Text = AxWMP1.Ctlcontrols.currentPositionString

¨       Double klik pada HScrollBar, ketikan kode program berikut;

AxWMP1.settings.volume = HScrollBar1.Value


¨       Double klik pada TrackBar, ketikan kode program berikut;

AxWMP1.Ctlcontrols.currentPosition = TrackBar1.Value


            Untuk melihat hasilnya tekan tombol Run/F5 pada keyboard



Download : Sample Project
Download : E-Book tutrial Visual Basic