SETTING PROGRAM RADIO GP328 GP338 GM328 GM338 dengan SOFTWARE PROFESSIONAL RADIO CPS R06.12.02 /PMVN3034Y

GM328

GM338 

Pada kesempatan ini saya membahas SETTING PROGRAM RADIO GP328 GP338 GM328 GM338 dengan SOFTWARE PROFESSIONAL RADIO CPS R06.12.02 /PMVN3034Y versi terbaru Enhancements in this release:

- Support ARTS(TM) feature.

  ARTS(TM) is a registered trademark of Vertex Standard..

Seperti biasa alat-alat yang diperlukan untuk pemprograman adalah :
Komputer/Laptop
RIB / Kabel USB yaitu alat interface (penghubung) radio ke komputer.
Program Software dalam hal ini kita menggunakan SOFTWARE PROFESSIONAL RADIO CPS R06.12.02/PMVN3034Y

Download Aplikasi R06.12.02/PVN3034Y ;
Langkah-langkah program radio adalah :

1. Instal SOFTWARE PROFESSIONAL RADIO CPS R06.12.02 /PMVN3034Y
ke komputer/laptop anda.



2. Hubungkan radio ke computer dengan RIB ataupun kabel USB tergantung dari jenis radio yang mau di program.

3. Jalankan Program Motorola Professional Radio CPS >Click Start - All Programms - Motorola - Professional Radio - Professional Radio CPS R06.12.02



4. Read radio ( File>Read Device atau tekan tanda panah ke kanan> pilih port com> Ok) dengan petunjuk yang ada di CPS.

5. Hasil Read radio bisa diedit dan diubah sesuai dengan kebutuhan anda.



6. Selanjutnya adalah menyimpan Data yang telah dirubah kedalam Radio.. caranya tinggal pilih File -> Write Device (Ctrl+W) atau dengan meng-Klik simbol Monitor dengan panah kearah kiri

7. Pemrograman telah berhasil… Klik OK

8. Klik Close muncul pop-up menu…”Save Changes to Device at COM1 Port”
Terserah Anda akan disimpan atau tidak.. tapi sebaiknya Anda simpan untuk backup dikemudian hari… siapa tahu Anda akan lupa dengan Password yang Anda buat sendiri.
ada sebagian dari jenis Professional Radio yang di password.



 dan All Region untuk radio sejenis dari region lain
( dari AZ ke AA,LA,EMEA dan FD)



Setelah All Region menjadi seperti gambar di bawah ini



       Selamat mencoba semoga anda berhasil !!!

Membuat Marquee (teks berjalan) pada aplikasi desktop

Buat project form baru (VB). Tambahkan satu buah label, beri nama “lblFlyText”. kemudian isi property text pada lblFlyText dengan tulisan apa saja, misal “fly text”. Copy saja text sehingga menjadi panjang. Tambahkan Komponen sebuah timer dengan interval 100.

untuk lebih jelasnya perhatikan gambar berikut:

masuk ke bagian sourcode.

buat sebuah properti dan enum sebagai berikut:

Private mRunningText As String 

Public Property RunningText() As String 

Get 

Return mRunningText 

End Get 

Set(ByVal value As String) 

mRunningText = value 

End Set 

End Property 

Enum SlideTypeEnum 

Right 

Left 

End Enum 

Private mSlideType As SlideTypeEnum 

Public Property SlideType() As SlideTypeEnum 

Get 

Return mSlideType 

End Get 

Set(ByVal value As SlideTypeEnum) 

mSlideType = value 

End Set 

End Property 

lalu,

Pada method form_load, tulis sourcode berikut:

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As _ 

System.EventArgs) Handles MyBase.Load 

BuildRunningText() 

lblRunningText.Text = Me.RunningText 

Timer1.Enabled = True 

End Sub 

kemudian isi dari timer1_tick()

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e _ 

As System.EventArgs) Handles Timer1.Tick 

Me.RunningText = SlideText(Me.RunningText, SlideTypeEnum.Left, 1) 

Me.lblRunningText.Text = Me.RunningText 

End Sub 

adapun method pendukung lain sebagai berikut:

Private Sub BuildRunningText() 

Dim fly_text As String = "running_text" 

Dim build_text As New StringBuilder 

For index As Integer = 0 To lblRunningText.Text.Count 

If index < fly_text.Count Then 

build_text.Append(fly_text(index)) 

Else 

build_text.Append(" ") 

End If 

Next 

For index As Integer = 0 To fly_text.Count 

build_text.Append(" ") 

Next 

Me.RunningText = build_text.ToString 

End Sub 

Private Function SlideText(ByVal str As String, ByVal slide_type _ 

As SlideTypeEnum, ByVal as_much_as As Integer) As String 

Dim str_temp As New StringBuilder 

If slide_type = SlideTypeEnum.Right Then 

For index As Integer = (str.Count - as_much_as) To (str.Count - 1) 

str_temp.Append(str(index)) 

Next 

For index As Integer = 0 To (str.Count - as_much_as - 1) 

str_temp.Append(str(index)) 

Next 

Else 

For index As Integer = as_much_as To (str.Count - 1) 

str_temp.Append(str(index)) 

Next 

For index As Integer = 0 To (as_much_as - 1) 

str_temp.Append(str(index)) 

Next 

End If 

Return str_temp.ToString 

End Function 

Membuat Stopwatch Menggunakan VB2010

Pada bagian ini kita akan membuat sebuah stopwatch menggunakan VB2010. Adapun langkah-langkah yang kita lakukan untuk membuat stopwatch menggunakan VB2010 yaitu:

1. Tambahkan sebuah label ke dalam form dan ubah text propertiesnya menjadi “00:00:00:000”.

2. Ubah ukuran size font menjadi 28.

3. Tambahkan sebuah timer ke dalam form, pada properties window ubah interval menjadi “1”.

4. Tambahkan sebuah listbox dan letakkan di bawah label.

5. Tambahkan 4 button dan letakkan di bawah listbox dan ubah text propertiesnya. Button1 menjadi “Mark”, button2 menjadi “Start”, button3 menjadi “Stop” dan button 4 menjadi “Reset”.

Klik form1 dan klik view code, kemudian masukkan coding berikut:

Public Class Form1

Private stopwatch As New Stopwatch

End Class

Klik 2 kali timer1 dan masukkan coding berikut:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim elapsed As TimeSpan = Me.stopwatch.Elapsed

Label1.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", _

Math.Floor(elapsed.TotalHours), _

elapsed.Minutes, elapsed.Seconds, _

elapsed.Milliseconds)

End Sub

Klik 2 kali button “Start” (button2) dan masukkan coding berikut:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Start()

Me.stopwatch.Start()

Button4.Enabled = False

End Sub

Klik 2 kali button “Stop” (button3) dan masukkan coding berikut:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Timer1.Stop()

Me.stopwatch.Stop()

Button4.Enabled = True

End Sub

Klik 2 kali button “Reset” (button4) dan masukkan coding berikut:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Me.stopwatch.Reset()

Label1.Text = "00:00:00:00"

ListBox1.Items.Clear()

End Sub

Klik 2 kali button “Mark” (button1) dan masukkan coding berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Items.Add(ListBox1.Items.Count + 1 & " - " & Label1.Text)

End Sub

Klik Start Debugging (F5) untuk menjalankan program.

Jam Analog Menggunakan VB2010

Untuk membuat sebuah jam analog menggunakan VB2010 kita membutuhkan 12 label yang harus kita masukkan ke dalam form. Ubah text properties ke 12 labrl tersebut menjadi angka 1-12. Ubah Backcolor label tersebut menjadi White.

Tambahkan 2 timer dan 1 label lagi ke dalam form. Ubah nama label tersebut menjadi “Time”. Klik form1 kemudian klik view code dan masukkan coding berikut:

Public Class Form1

' tick digunakan untuk menggambar 60 tanda detik pada jam

Dim tick As Integer = 270

'tick2 digunakan untuk menggambar 12 tanda jam

Dim tick2 As Integer = 270

End Class

Klik 2 kali form1 dan masukkan coding berikut:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'lokasi jam pada form

Label1.Location = New Point(505, 203)

Label2.Location = New Point(561, 261)

Label3.Location = New Point(592, 335)

Label4.Location = New Point(561, 404)

Label5.Location = New Point(505, 464)

Label6.Location = New Point(430, 489)

Label7.Location = New Point(357, 463)

Label8.Location = New Point(305, 408)

Label9.Location = New Point(272, 334)

Label10.Location = New Point(302, 259)

Label11.Location = New Point(354, 200)

Label12.Location = New Point(430, 177)

Timer1.Enabled = True

Timer2.Enabled = True

End Sub

Klik 2 kali timer1 dan masukkan coding berikut:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'mengubah detik pada lingkaran

Dim seconds As Integer = (Now.Second * 6) + 270

'mengubah menit pada lingkaran

Dim minutes As Integer = (Now.Minute * 6) + 270

'mengubah jam pada lingkaran

Dim hours As Integer = (Now.Hour * 30) + 270

'label text akan menampilkan jam pada komputer saat ini

Time.Text = Now

'membuat gambar jam

Dim g As Graphics

g = Me.CreateGraphics

Dim hour As New Pen(Color.Blue)

Dim hour2 As New Pen(Color.White)

Dim second As New Pen(Color.Black)

Dim minute As New Pen(Color.Red)

Dim minute2 As New Pen(Color.White)

Dim white As New Pen(Color.White)

Dim circle As New Pen(Color.Black)

hour.Width = 8

hour2.Width = 10

second.Width = 1

minute.Width = 4

minute2.Width = 4

white.Width = 10

circle.Width = 5

g.DrawPie(hour2, 319, 219, 240, 240, hours - 30, 360)

g.DrawPie(minute2, 289, 189, 300, 300, minutes - 6, 360)

g.DrawPie(Pens.White, 269, 169, 340, 340, seconds - 6, 360)

g.DrawPie(hour, 319, 219, 240, 240, hours, 360)

g.DrawEllipse(white, 319, 219, 240, 240)

g.DrawPie(minute, 289, 189, 300, 300, minutes, 360)

g.DrawEllipse(white, 289, 189, 300, 300)

g.DrawPie(second, 269, 169, 340, 340, seconds, 360)

g.DrawEllipse(white, 269, 169, 340, 340)

g.DrawEllipse(circle, 249, 149, 380, 380)

End Sub

Klik 2 kali timer2 dan masukkan coding berikut:

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

tick += 6

tick2 += 30

Dim g As Graphics

Dim hoursMarks As New Pen(Color.Black)

hoursMarks.Width = 5

g = Me.CreateGraphics

g.DrawPie(Pens.Black, 249, 149, 380, 380, tick, 360)

g.DrawPie(hoursMarks, 249, 149, 380, 380, tick2, 360)

g.DrawEllipse(Pens.White, 269, 169, 340, 340)

g.FillEllipse(Brushes.White, 269, 169, 340, 340)

If tick > 800 Then

Timer2.Stop()

tick = 270

tick2 = 270

End If

End Sub

Ubah WindowState properties pada form1 menjadi Maximized unutk melihat hasil yang lebih baik.

Membuat Animasi Sederhana pada VB2010

VB2010 biasanya digunakan sebagai bahasa pemrograman untuk mendesain aplikasi bisnis ataupun apilikasi industry lainnya. Tetapi pada faktanya, VB2010 dapat digunakan untuk membuat animasi sederhana.

1. Memindahkan Objek

Pada bagian ini, kita akan membuat animasi sederhana yaitu memindahkan objek dengan menggunakan button. Inputkan 1 picturebox dan 4 button ke dalam form. Untuk keterangan properties objeknya, dapat dilihat dari tabel berikut:

Ketikkan code berikut:

Public Class Form1

Private Sub btnTurun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTurun.Click

PictureBox1.Top = PictureBox1.Top + 10

End Sub

Private Sub btnNaik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNaik.Click

PictureBox1.Top = PictureBox1.Top - 10

End Sub

Private Sub btnKiri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKiri.Click

PictureBox1.Left = PictureBox1.Left - 10

End Sub

Private Sub btnKanan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKanan.Click

PictureBox1.Left = PictureBox1.Left + 10

End Sub

End Class

2. Animasi Menggunakan Timer

Pada bagian ini, kita akan membuat animasi sederhana yaitu memindahkan objek dengan menggunakan timer. Inputkan 1 picturebox, 2 button dan 1 timer ke dalam form. Untuk keterangan properties objeknya, dapat dilihat dari tabel berikut:

Kemudian ketik code berikut:

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If PictureBox1.Left < Me.Width Then

PictureBox1.Left = PictureBox1.Left + 10

Else

PictureBox1.Left = 0

End If

End Sub

Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click

Timer1.Enabled = False

End Sub

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click

Timer1.Enabled = True

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Enabled = False

End Sub

End Class

Billing Warnet sederhana dengan MS Excel

Saat ini banyak bermunculan software-software billing warnet yang dapat mencatat semua transaksi warnet mulai dari jasa penggunaan internet, scan, print, atau bahkan hingga minuman ringan yang mendukung usaha warnet. Namun harga software billing warnet yang ditawarkan begitu beragam dan cukup mahal. Dengan sedikit kemampuan Excel, Anda dapat membuat sendiri billing internet dengan mudah. Berikut ini akan dibahas bagaimana membuat billing warnet dengan mudah dengan bantuan Microsoft Excel.

Membuat Tabel Harga

Tabel harga merupakan tabel yang akan menjadi acuan dari harga penggunaan warnet. Buatlah tabel harga dimulai dari cells A3 dan isi konten tabel seperti gambar berikut.

Membuat Tabel Billing

Tabel billing merupakan tabel yang akan menjadi tabel operasional warnet. Buatlah tabel billing dimulai dari cells A10 dan isi konten tabel seperti berikut.

Membuat Rumus

Langkah pertama yang dilakukan sebelum membuat rumus, yaitu menentukan tabel yang akan dijadikan acuan harga. Blok tabel harga dari cells A5 hingga F7, pilih tab Formula ? Define Name.

Tuliskan “tabel” pada kolom Name kemudian klik OK. Dengan begitu tabel harga telah terdifinisikan dengan nama “tabel” untuk memudahkan penulisan rumus.

Cells A: Client

Untuk memudahkan pemilihan client, ubah cells A menjadi menu pilihan. Caranya pilih tab data ? data validation.

Pada dropdown menu Allow, pilih List, dan pada textbox Source, isilah sesuai dengan komputer client yang Anda miliki. Misalnya Anda memiliki 10 client, maka isilah 1;2;3;4;5;6;7;8;9;10 pada textbox tersebut. Perhatikan list separator yang Anda gunakan. Gantilah dengan karakter “,” (koma) apabila Anda menggunakan English (United States) pada Regional and Language Options di Control Panel.

Pada tab Input Message, di teks Title tuliskan “Perhatian” dan pada teks Input Message tuliskan “Silahkan pilih client”. Tab input message berfungsi menampilkan pesan pada saat memilih cells client.

Pada tab Error Alert, di pilihan Style pilih “Information”n pada teks Title tuliskan “Perhatian” dan pada teks Error Message tuliskan “Client tidak tersedia, anda ingin melanjutkan?”.

Tab Error Message berfungsi menampilkan pesan error pada saat pemilihan client dan client tidak terdaftar dalam list client.

Cells B: Kode

Sama seperti kolom A, gunakan validasi data dengan mengisi nilai B;M;S pada textbox Source.

Pada tab Input Message, di teks Title tuliskan “Perhatian” dan pada teks Input Message tuliskan “Silahkan pilih kode harga billing”. 

Pada tab Error Alert, di pilihan Style pilih “Information”n pada teks Title tuliskan “Perhatian” dan pada teks Error Message tuliskan “Kode harga tidak tersedia, anda ingin melanjutkan?”.

Cells C: Type

Gunakan rumus:

=IF(B11="B";"Biasa";IF(B11="M";"Member";IF(B11="S";"Siswa";IF(B11="";"-"))))

Cells D: Waktu Mulai

Ubah format sel dengan bentuk jam dengan cara klik kanan pilih Format Cells.

Kemudian pada tab Number pilih Time dengan Type 13:30:55. Isilah waktu mulai dengan format hh:mm.

Cells E: Waktu Selesai

Lakikan hal yang sama dengan cells D.

Cells F: Durasi/Status

Ubah format cells ini seperti cells D dan E. gunakan rumus:

=IF(AND(B11="";E11="";A11="");"";IF(AND(B11<>"";E11="");"Aktif";E11-D11))

Cells G: Durasi Menit

Ubah format cells ini menjadi Number. Caranya klik kanan pilih Format Cells kemudian pilih Number. Gunakan rumus:

=IF(OR(B11="";E11="");"";(HOUR(F11)*60)+MINUTE(F11))

Cells H: Print

Ubah format kolom ini menjadi format Number dengan separator koma.

Cells I: Scan

Ubah format kolom ini menjadi format Number dengan separator koma.

Cells J: Jumlah

Gunakan rumus:

=IF(OR(B11="";E11="");"";IF(G11

Aplikasi Barang Sederhana Menggunakan VB2010 dan MS ACCESS

Pada bagian ini kita akan belajar membuat sebuah aplikasi yang menampilkan data barang. Pada aplikasi ini kita belajar menambah, mengubah dan menghapus data barang serta mencari data barang tersebut. Kita akan membuat aplikasi barang sederhana menggunakan VB2010 dan database Ms. Access. Ada 3 (tiga) langkah untuk membuat aplikasi ini, yaitu: membuat database, membuat tampilan aplikasi dan membuat kode aplikasi.

a. Membuat Database

Database yang kita gunakan untuk membuat aplikasi barang ini yaitu Ms. Access 2010 (jika tidak ada, bisa juga menggunakan Ms. Access 2007 atau Ms. Access). Adapun langkah-langkah membuat database-nya yaitu:

1. Buka program Ms. Access 2010 dengan cara klik tombol Start > All Program > Microsoft Office > Microsoft Access 2010

2. Klik icon open kemudian ketikkan nama database pada kolom File Name dengan nama supermarket, dan Save as Type menjadi Microsoft Access Databases (2002-2003) kemudian klik tombol OK, setelah itu klik tombol Create. (untuk sementara terserah anda mau disimpan dimana database tersebut)

3. Selanjutnya akan muncul Table1 kemudian tekan tombol ctrl+s dan tulis nama tabelnya menjadi barang, klik tombol OK.

4. Klik kanan pada tulisan barang kemudian pilih Design View.

5. Isikan field tabel barang seperti gambar berikut:

6. Tekan tombol ctrl+s untuk menyimpan tabel tersebut.

b. Membuat Tampilan Aplikasi Barang

Tahap berikutnya kita akan merancang tampilan aplikasi barang. Langkah-langkah yang harus dilakukan yaitu:

1. Klik tombol Start >All Program > Microsoft Visual Studio 2010 > Microsoft Visual Studio 2010.

2. Klik link New Project.

3. Ubah Name pada New Project menjadi supermarket kemudian klik tombol OK.

4. Pada Form1 kita masukkan 3 Label, 3 TextBox, 1 DataGridView, 4 Button, 1 GroupBox, dan 2 RadioButton. Lihat gambar berikut:

5. Untuk pengaturan obejk control aplikasi yang akan kita buat, dapat dilihat seperti tabel berikut:

Nama control 

Properties 

Keterangan

Form1 

Name 

frmBarang

MaximizeBox 

False

StartPosition 

CenterScreen

Text 

Barang

Label1 

Text 

Nama :

Label2 

Text 

Harga :

Label3 

Text 

Kata :

TextBox1 

Name 

txtNmBarang

TextBox2 

Name 

txtHrg

TextAlign 

Right

TextBox3 

Name 

txtCariKata

Button1 

Name 

btnTambah

Text 

Tambah

Button2 

Name 

btnUbah

Text 

Ubah

Button3 

Name 

btnHapus

Text 

Hapus

Button4 

Name 

btnKeluar

Text 

Keluar

GroupBox1 

Text 

Pencarian

RadioButton1 

Name 

rbBarang

Text 

Barang

RadioButton2 

Name 

rbHarga

Text 

Harga

6. Simpan aplikasi sesuai tempat yang anda inginkan.

7. Pindahkan database yang telah dibuat tadi ke dalam direktori penyimpanan aplikasi …\supermarket\supermarket\bin\Debug dan …\supermarket\supermarket

c. Membuat Kode Aplikasi Barang

Untuk membuat kode aplikasi barang, ikuti langkah-langkah berikut:

1. Aktifkan form frmBarang lalu klik icon View Code, kemudian ketikkan kode berikut:

Imports System.Data

Imports System.Data.OleDb

Public Class frmBarang

End Class

2 Setelah itu, ketikkan code berikut:

Public Class frmBarang

Dim database As OleDbConnection

Dim tabel As OleDbDataAdapter

Dim data As DataSet

Dim record As New BindingSource

Sub koneksi()

Try

database = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=supermarket.mdb")

database.Open()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Sub data_record()

Try

tabel = New Data.OleDb.OleDbDataAdapter("select * from barang", database)

data = New DataSet

tabel.Fill(data)

record.DataSource = data

record.DataMember = data.Tables(0).ToString()

DataGridView1.DataSource = record

DataGridView1.Columns(0).Width = 200

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Sub bersih()

txtNmBarang.Text = ""

txtHarga.Text = ""

txtCariKata.Text = ""

rbBarang.Checked = False

rbHarga.Checked = False

txtNmBarang.Enabled = True

txtNmBarang.Focus()

btnTambah.Enabled = True

btnUbah.Enabled = False

btnHapus.Enabled = False

Call koneksi()

Call data_record()

End Sub

End Class 

3. Kembali ke tampilan frmBarang, kemudian klik dua kali pada area form, lalu ketikkan code berikut:

Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call bersih()

End Sub 

4. Kembali ke tampilan frmBarang, klik dua kali tombol Tambah, lalu ketikkan code berikut:

Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click

Try

Dim dml As New OleDbCommand

dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "insert into barang values('" & txtNmBarang.Text & "','" & CSng(txtHarga.Text) & "')"

dml.ExecuteNonQuery()

MsgBox("Data telah disimpan")

Call bersih()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

5. Kembali ke tampilan frmBarang, klik dua kali tombol Ubah, lalu ketikkan code berikut:

Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click

Try

Dim dml As New OleDbCommand

dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "update barang set harga = '" & txtHarga.Text & "' where nama_barang = '" & txtNmBarang.Text & "'"

dml.ExecuteNonQuery()

MsgBox("Data telah diubah")

Call bersih()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

6. Kembali ke tampilan frmBarang, klik dua kali tombol Hapus, lalu ketikkan code berikut:

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

Try

Dim dml As New OleDbCommand

dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "delete from barang where nama_barang = '" & txtNmBarang.Text & "'"

dml.ExecuteNonQuery()

MsgBox("Data telah dihapus")

Call bersih()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

7. Kembali ke tampilan frmBarang, klik dua kali tombol Keluar, lalu ketikkan code berikut:

Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

Me.Dispose()

End Sub 

8. Kembali ke tampilan frmBarang, klik dua kali textbox txtCariKata, lalu ketikkan code berikut:

Private Sub txtCariKata_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCariKata.TextChanged

Try

If rbBarang.Checked = True Then

tabel = New Data.OleDb.OleDbDataAdapter("select * from barang where nama_barang like '%" & txtCariKata.Text & "%'", database)

data = New DataSet

tabel.Fill(data)

record.DataSource = data

record.DataMember = data.Tables(0).ToString()

DataGridView1.DataSource = record

DataGridView1.Columns(0).Width = 180

ElseIf rbHarga.Checked = True Then

tabel = New Data.OleDb.OleDbDataAdapter("select * from barang where harga like '%" & txtCariKata.Text & "%'", database)

data = New DataSet

tabel.Fill(data)

record.DataSource = data

record.DataMember = data.Tables(0).ToString()

DataGridView1.DataSource = record

DataGridView1.Columns(0).Width = 180

End If

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

9. Kembali ke tampilan frmBarang, klik dua kali DataGridView1, lalu ketikkan code berikut:

Private Sub DataGridView1_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick

Try

txtNmBarang.Text = DataGridView1.SelectedCells(0).Value

txtHarga.Text = DataGridView1.SelectedCells(1).Value

txtNmBarang.Enabled = False

btnTambah.Enabled = False

btnUbah.Enabled = True

btnHapus.Enabled = True

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub 

10. Kembali ke tampilan frmBarang, klik dua kali radiobutton rbBarang, lalu ketikkan code berikut:

Private Sub rbBarang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbBarang.Click

txtCariKata.Focus()

End Sub 

11. Kembali ke tampilan frmBarang, klik dua kali radiobutton rbHarga, lalu ketikkan code berikut:

Private Sub rbHarga_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbHarga.Click

txtCariKata.Focus()

End Sub 

12. Tekan F5 atau tombol Start Debugging untuk menjalankan program.

CARA MEMBUAT APLIKASI OPERATOR DENGAN VB 2010

Operator

Visual basic menyediakan operator aritmatika, komparasi dan logika, salah satu hal yang harus dipahami oleh programmer adalah tata urutan operasi dari masing-masing operator tersebut sehingga mampu membuat ekpresi yang akan menghasilkan nilai yang benar. Pada tabel dibawah ini menunjukan operator dan urutan operasinya dari atas ke bawah.

Hasil Eksekusi Program :

CARA PEMBUATAN PROGRAM DIATAS DAPAT DIDOWNLOAD DI SINI

Sumber : http://kaaeka.wordpress.com

Sekarang saya akan menjelaskan cara membuat aplikasi konversi derajat temperatur. Inputan berupa nilai derajat yang dimasukkan oleh pengguna program. Kemudian hasil dari konversi tersebut akan ditampilkan kepada pengguna.


Berikut langkah-langkahnya. Untuk membuat sebuah aplikasi baru kita bisa memulai

1. Pada Start page akan muncul New Project atau alternatif lain klik menubar file > new project

2. Kemudian pada kolom installed template pilih visual basic > windows

3. Lalu pada kolom tengah pilih Windows Forms Application

4. Kemudian pada name dan location silahkan tentukan sendiri, Lalu klik OK

5. Setelah itu kita tempatkan komponen yang kita perlukan
- Kita drag label dan TextBox pada toolbox ke form sebanyak 1 buah untuk masukan, lalu atur properties di window properties.
Ubah teks Label1 menjadi misalnya Nilai Temperatur :
Ubah Name TextBox1 menjadi txtVarTemp
- Lalu drag GroupBox pada toolbox ke form sebanyak 2 buah, atur properties di window properties.
Ubah teks GroupBox1 menjadi misalnya Pilih Derajat Temperatur :
Ubah teks GroupBox2 menjadi misalnya Hasil Konversi :
- Lalu drag RadioButton pada toolbox ke dalam GroupBox1 sebanyak 4 buah, atur properties di window properties.
Ubah teks RadioButton1 menjadi Kelvin dan name menjadi optTemp
Ubah teks RadioButton2 menjadi Celcius dan name menjadi optTemp1
Ubah teks RadioButton3 menjadi Reamur dan name menjadi optTemp2
Ubah teks RadioButton4 menjadi Fahrenheit dan name menjadi optTemp3
- Lalu drag 4 buah label dan 4 buah TextBox ke dalam GroupBox2, atur properties di window properties.
Ubah teks Label2 menjadi Temperatur Kelvin :
Ubah teks Label3 menjadi Temperatur Celcius :
Ubah teks Label4 menjadi Temperatur Reamur :
Ubah teks Label5 menjadi Temperatur Fahrenheit :
Ubah name TextBox2 menjadi txtKelvin
Ubah name TextBox3 menjadi txtCelcius
Ubah name TextBox4 menjadi txtReamur
Ubah name TextBox5 menjadi txtFahrenheit
- Lalu drag button pada toolbox ke form sebanyak 2 buah, lalu atur properties button tersebut di window properties.
Ubah teks Button1 menjadi misalnya &Hitung dan name menjadi cmdHitung (& untuk perintah alternatif keyboard, disini berarti alt+H)
Ubah teks Button2 menjadi misalnya &Exit dan name menjadi cmdExit (& untuk perintah alternatif keyboard, disini berarti alt+E)
- Kita juga bisa mengganti nama Titlebar yang secara default form1. Caranya klik form1 di mana saja, lalu ubah text di window properties menjadi misalnya Menghitung Konversi Derajat Temperatur.
- Untuk ubah background color di window properties cari back color, lalu ubah warna sesuai keinginan.



6. Kemudian kita masukkan kode program
- untuk memasukkan kode program tombol hitung, klik dua kali tombol hitung. Maka akan keluar window baru untuk memasukkan kode program tombol hitung. Kodenya adalah seperti ini.
Dim sngVarTemp, sngVarKelvin, sngVarCelcius, sngVarReamur, sngVarFahrenheit As Single


sngVarTemp = CSng(txtVarTemp.Text)


Select Case True
Case optTemp.Checked
sngVarKelvin = sngVarTemp
sngVarCelcius = sngVarTemp - 273
sngVarReamur = (sngVarTemp - 273) * 4 / 5
sngVarFahrenheit = ((sngVarTemp - 273) * 9 / 5) + 32


Case optTemp1.Checked
sngVarKelvin = sngVarTemp + 273
sngVarCelcius = sngVarTemp
sngVarReamur = sngVarTemp * 4 / 5
sngVarFahrenheit = (sngVarTemp * 9 / 5) + 32


Case optTemp2.Checked
sngVarKelvin = (sngVarTemp * 5 / 4) + 273
sngVarCelcius = sngVarTemp * 5 / 4
sngVarReamur = sngVarTemp
sngVarFahrenheit = (sngVarTemp * 9 / 4) + 32


Case optTemp3.Checked
sngVarKelvin = ((sngVarTemp - 32) * 5 / 9) + 273
sngVarCelcius = (sngVarTemp - 32) * 5 / 9
sngVarReamur = (sngVarTemp - 32) * 4 / 9
sngVarFahrenheit = sngVarTemp


End Select


txtKelvin.Text = CStr(sngVarKelvin)
txtCelcius.Text = CStr(sngVarCelcius)
txtReamur.Text = CStr(sngVarReamur)
txtFahrenheit.Text = CStr(sngVarFahrenheit)


- untuk memasukkan kode program tombol Exit, klik dua kali tombol Exit. Maka akan keluar window baru untuk memasukkan kode program tombol Exit. Kodenya adalah seperti ini.
Close()



7. Lalu kita uji program kita, apakah jalan dengan baik atau tidak. Caranya klik menu debug>start debugging / pencet F5


8. Untuk menyimpan project aplikasi caranya klik menu file> Save All.
9. Untuk melihat file .exe program kita caranya cari di folder (D:\.....\Visual Studio 2010\Projects\konversiderajattemperatur\konversiderajattemperatur\bin\Debug)

MEMBUAT KALKULATOR SEDERHANA DENGAN VB 2010

Setelah pada postingan sebelumnya saya membahas cara membuat aplikasi pertambahan, sekarang kita akanmembuat program kalkulator. Kalkulator yang akan kita buat adalah kalkulator sederhana. Lumayan kita bisa buat aplikasi kalkulator sendiri dan bisa kita pakai untuk menghitung.

Berikut adalah langkah-langkahnya.

1. Pada Start page akan muncul New Project atau alternatif lain klik menubar file > new project

2. Kemudian pada kolom installed template pilih visual basic > windows

3. Lalu pada kolom tengah pilih Windows Forms Application

4. Kemudian pada name dan location silahkan tentukan sendiri, Lalu klik OK

5. Setelah itu kita tempatkan komponen yang kita perlukan

- Kita drag label dan TextBox pada toolbox ke form sebanyak 3 buah, lalu atur properties label di window properties.


Ubah teks Label1 menjadi misalnya Bilangan ke 1 :

Label2 menjadi Bilangan ke 2 :

Label3 menjadi Hasil Perhitungan :

- Lalu drag button pada toolbox ke form sebanyak 20 buah, lalu atur properties button tersebut di window properties.

Ubah teks Button1 menjadi misalnya +

Ubah teks Button2 menjadi misalnya -

Ubah teks Button3 menjadi misalnya *

Ubah teks Button4 menjadi misalnya /

Ubah teks Button5 menjadi misalnya \

Ubah teks Button6 menjadi misalnya Mod

Ubah teks Button7 menjadi misalnya ^

Ubah teks Button8 menjadi misalnya <

Ubah teks Button9 menjadi misalnya >

Ubah teks Button10 menjadi misalnya <=

Ubah teks Button11 menjadi misalnya >=

Ubah teks Button12 menjadi misalnya CON

Ubah teks Button13 menjadi misalnya Sin

Ubah teks Button14 menjadi misalnya Cos

Ubah teks Button15 menjadi misalnya Tan

Ubah teks Button16 menjadi misalnya LogBN

Ubah teks Button17 menjadi misalnya Log

Ubah teks Button18 menjadi misalnya Exp

Ubah teks Button19 menjadi misalnya Sqr

Ubah teks Button20 menjadi misalnya Exit

- Kita juga bisa mengganti nama Titlebar yang secara default form1. Caranya klik form1 di mana saja, lalu ubah text di window properties menjadi misalnya Kalkulator.

- Untuk ubah background color di window properties cari back color, lalu ubah warna sesuai keinginan.



6. Kemudian kita masukkan kode program

- Klik dua kali tombol (+) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) + CSng(TextBox2.Text)

- Klik dua kali tombol (-) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) - CSng(TextBox2.Text)

- Klik dua kali tombol (*) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) * CSng(TextBox2.Text)

- Klik dua kali tombol (/) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) / CSng(TextBox2.Text)

- Klik dua kali tombol (\) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) \ CSng(TextBox2.Text)

- Klik dua kali tombol (Mod) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) Mod CSng(TextBox2.Text)

- Klik dua kali tombol (^) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) ^ CSng(TextBox2.Text)

- Klik dua kali tombol (<) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) < CSng(TextBox2.Text)

- Klik dua kali tombol (>) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) > CSng(TextBox2.Text)

- Klik dua kali tombol (<=) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) <= CSng(TextBox2.Text)

- Klik dua kali tombol (>=) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) >= CSng(TextBox2.Text)

- Klik dua kali tombol (CON) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) & CSng(TextBox2.Text)

- Klik dua kali tombol (Sin) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Sin(CSng(TextBox1.Text) * 3.1416 / 180)

- Klik dua kali tombol (Cos) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Cos(CSng(TextBox1.Text) * 3.1416 / 180)

- Klik dua kali tombol (Tan) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Tan(CSng(TextBox1.Text) * 3.1416 / 180)

- Klik dua kali tombol (LogBN) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Log(CSng(TextBox1.Text)) / Math.Log(CSng(TextBox2.Text))

- Klik dua kali tombol (Log) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Log(CSng(TextBox1.Text))

- Klik dua kali tombol (Exp) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Exp(CSng(TextBox1.Text))

- Klik dua kali tombol (Sqr) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Sqrt(CSng(TextBox1.Text))

- Klik dua kali tombol (Exit) dan masukkanlah kode program berikut ini.

Close()




7. Lalu kita uji program kita, apakah jalan dengan baik atau tidak. Caranya klik menu debug>start debugging / pencet F5



8. Untuk menyimpan project aplikasi caranya klik menu file> Save All.

9. Untuk melihat file .exe program kita caranya cari di folder (D:\.....\Visual Studio 2010\Projects\kalkulator\kalkulator\bin\Debug)

CARA MEMBUAT APLIKASI PERTAMBAHAN DENGAN VB 2010

Dalam membuat project aplikasi di Visual Basic, secara umum ada beberapa hal yang harus kita lakukan.


Membuat Deskripsi / Algoritma Program
Merencanakan Tampilan Program
Menempatkan Komponen dan Mengatur Properti
Menambahkan Kode Program
Menguji dan Menyimpan Program
Sekarang kita akan membuat sebuah program untuk menambahkan 2 bilangan yang dimasukkan oleh pengguna program. Kemudian hasil penambahan kedua bilangan tersebut akan ditampilkan kepada pengguna.


Berikut adalah langkah-langkahnya.


1. Pada Start page akan muncul New Project atau alternatif lain klik menubar file > new project





2. Kemudian pada kolom installed template pilih visual basic > windows





3. Lalu pada kolom tengah pilih Windows Forms Application


4. Kemudian pada name dan location silahkan tentukan sendiri, Lalu klik OK


5. Setelah itu kita tempatkan komponen yang kita perlukan
- Kita drag label dan TextBox pada toolbox ke form sebanyak 3 buah, lalu atur properties label di window properties.
Ubah teks Label1 menjadi misalnya Bilangan ke 1 :
Label2 menjadi Bilangan ke 2 :
Label3 menjadi Jumlah kedua bilangan :
- Lalu drag button pada toolbox ke form sebanyak 2 buah, lalu atur properties button tersebut di window properties.
Ubah teks Button1 menjadi misalnya &Hitung (& untuk perintah alternatif keyboard, disini berarti alt+H)
Ubah teks Button2 menjadi misalnya &Tutup (& untuk perintah alternatif keyboard, disini berarti alt+T)
- Kita juga bisa mengganti nama Titlebar yang secara default form1. Caranya klik form1 di mana saja, lalu ubah text di window properties menjadi misalnya Operasi Tambah.
- Untuk ubah background color di window properties cari back color, lalu ubah warna sesuai keinginan.





6. Kemudian kita masukkan kode program
- untuk memasukkan kode program tombol hitung, klik dua kali tombol hitung. Maka akan keluar window baru untuk memasukkan kode program tombol hitung. Kodenya adalah seperti ini.

Dim Bil1, Bil2, Jum_Bil As Single


Bil1 = CSng(TextBox1.Text)
Bil2 = CSng(TextBox2.Text)


Jum_Bil = Bil1 + Bil2


TextBox3.Text = CStr(Jum_Bil)


- untuk memasukkan kode program tombol tutup, klik dua kali tombol tutup. Maka akan keluar window baru untuk memasukkan kode program tombol tutup. Kodenya adalah seperti ini.
Close()





7. Lalu kita uji program kita, apakah jalan dengan baik atau tidak. Caranya klik menu debug>start debugging / pencet F5





8. Untuk menyimpan project aplikasi caranya klik menu file> Save All.


9. Untuk melihat file .exe program kita caranya cari di folder (D:\.....\Visual Studio 2010\Projects\operasi tambah\operasi tambah\bin\Debug)





Sekian cara membuat aplikasi pertambahan dengan VB 2010. Semoga bermanfaat.