Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jenis Pelanggan", 150, HorizontalAlignment.Center)
LV.Columns.Add("Beban", 100, HorizontalAlignment.Center)
LV.Columns.Add("HargaKWH", 180, HorizontalAlignment.Center)
LV.Columns.Add("Pemakaian", 180, HorizontalAlignment.Center)
LV.Columns.Add("Pembayaran", 180, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
Kode.Items.Add("1")
Kode.Items.Add("2")
Kode.Items.Add("3")
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
Select Case Kode.Text
Case "1"
jenispelanggan.Text = "RUMAH"
Beban.Text = 25000
hargakwh.Text = 3000
Case "2"
jenispelanggan.Text = "TOKO"
Beban.Text = 50000
hargakwh.Text = 5000
Case "3"
jenispelanggan.Text = "PABRIK"
Beban.Text = 100000
hargakwh.Text = 10000
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Pembayaran.Text = Val(Beban.Text) + Val(hargakwh.Text) * Val(Pemakaian.Text)
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Kode.Text = ""
jenispelanggan.Text = ""
Beban.Text = ""
hargakwh.Text = ""
Pemakaian.Text = ""
Pembayaran.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpankelistview.Click
Dim Lst As New ListViewItem
Lst.Text = Kode.Text
Lst.SubItems.Add(jenispelanggan.Text)
Lst.SubItems.Add(Beban.Text)
Lst.SubItems.Add(hargakwh.Text)
Lst.SubItems.Add(Pembayaran.Text)
Lst.SubItems.Add(Pemakaian.Text)
LV.Items.Add(Lst)
End Sub
Private Sub btnhapuslistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslistview.Click
LV.Items.Clear()
End Sub
End Class
Demikilahlah postingan saya Nama : Shinta Dwi Handayani NPM : 14110076
Selamat Belajar Pemrograman VB NET MESRAN.NET
di tutorial pertama ini saya akan memberikan tutorial membuat aplikasi sederhana pada handset blackberry.
bagi temen-temen yang belum pernah membuat aplikasi di Blackberry saya akan memberikan tutorial instalasi awal pada posting selanjutnya.
Tidak usah berlama-lama mari kita mulai. lets go..

1. langkah pertama mari kita buat class UIAplication dimana disini adalah class yang berisi class main sebagai entry point aplikasi blackberry
public class HelloWorld extends UiApplication{ public HelloWorld() { } public static void main (String[] args){ } }
2. langkah kedua kita buat class MainScreen dengan nama HelloScreen untuk menampilkan text "hello dunia".
... ... ... public class HelloScreen extends MainScreen{ public HelloScreen() { setTitle("hello dunia"); } } }
3. selanjutnya kita push Screen yang telah kita buat didalam constructor class HelloWorld
public class HelloWorld extends UiApplication{ public HelloWorld() { pushScreen(new HelloScreen()); } ... ... ...
4. terakhir kita panggil class HelloWorld pada method main agar dieksekusi pertama kali
... ... ... public static void main (String[] args){ HelloWorld main = new HelloWorld(); main.enterEventDispatcher(); } ... ... ...
setelah dijalankan maka tampilannya akan seperti gambar dibawah ini

berikut code lengkap dari aplikasi sederhana diatas.
import net.rim.device.api.ui.UiApplication; import net.rim.device.api.ui.container.MainScreen; public class HelloWorld extends UiApplication{ public HelloWorld() { pushScreen(new HelloScreen()); } public static void main (String[] args){ HelloWorld main = new HelloWorld(); main.enterEventDispatcher(); } public class HelloScreen extends MainScreen{ public HelloScreen() { setTitle("hello dunia"); } } }
demikian tutorial yang saya buat semoga bermanfaat...
see you in next tutorial..
see you in next tutorial..
