Skip to main content

Visual Basic2008 BILANGAN PANGKAT







Desain From1

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 10
BILANGAN.Items.Add(i)
PANGKAT.Items.Add(i)
Next
End Sub
Private Sub PANGKAT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PANGKAT.SelectedIndexChanged
Dim xh As Double = 1
For i = 1 To Val(PANGKAT.Text)
xh = xh * BILANGAN.Text
Next
HASIL.Text = xh
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
PANGKAT.Text = ""
HASIL.Text = ""
BILANGAN.Text = ""
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Me.Close()
End Sub

End Class
Labels:

Popular posts from this blog

Cntoh lamaran kerja Biasa

Cntoh lamaran kerja Biasa 09 Januari 2018 Perihal : Lamaran Pekerjaan Kepada Yth. HRD Manager PT.  ALAM SEJAHTERA Di Tempat------ Dengan hormat, Saya yang bertanda tangan dibawah ini : Nama                                  : Sabam Tumanggor Alamat                                : T. Morawa Psr 7 Tempat/Tanggal Lahir        : Sinar Kemenangan, 23 Desember ---- Jenis Kelamin                     : Laki-laki Kebangsaan                 ...
Post a Comment
Read more

Cara meninggalkan/menghapus group BBM

Kali ini akan saya bahas bagaimana meninggalkan/ menghapus grup di BBM (blackberry masanger) Langsung saja : Disi saya mau meninggalkan group bbm, sperti gambar dibawah ini : Dan terus saya cari bagaimana meninggalkan group BBM pada Gambar Screnshots dibawah : Diatas adalah gambar bagaimana saya maw meninggalkan Group BBM pada android, paada awalnya saya ganti hp dan menginstal ulang BBM pada android saya dan login dengan akun yang lama, pasti kontak-kontak Bbm dan group masih ada dan disitu saya mw meninggal kan Group BBM tidak bisa dengan berbagai cara saya seting tidak dapat juga, dan pada saat ada pemberitahuan ada teman saya baru saja meninggalkan Gruop Bbm tersebut, Nah disitu baru bisa saya meninggalkan/menghapus Gruop BBM dari kontak saya. Sekian Trims....
Post a Comment
Read more

Program Vb2008 Penjualan Barang

Desain Form Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Kode.Items.Add("G001") Kode.Items.Add("G002") Kode.Items.Add("G003") Kode.Items.Add("G004") Kode.Items.Add("G005") Kode.Items.Add("G006") For i = 1 To 1000 Jumlah.Items.Add(i) Next LV.Columns.Add("No.Pembeli", 80, HorizontalAlignment.Center) LV.Columns.Add("Kode Barang", 50, HorizontalAlignment.Center) LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center) LV.Columns.Add("Harga Barang", 100, HorizontalAlignment.Center) LV.Columns.Add("merk", 100, HorizontalAlignment.Center) LV.Columns.Add("Jumlah", 50, HorizontalAlignment.Center) LV.Columns.Add("tHarga", 100, HorizontalAlignment.Center) LV.Columns.Add("tanggal", 150, HorizontalAlignment.Center) LV.GridLines = True LV.FullRowSelect...
Read more