Contoh Program VB Array Data Penjualan

Soal:

• Masukkan data penjualan yang berisi data penjualan (berapa banyak datanya). Kemudian hitung rata-rata data penjualan, nilai terendah dan nilai tertinggi..

Kodingannya:

'Mendefinisikan array data penjualan jual(n)
'Dan jumlah data penjualan n
Dim jual(30) As Single
Dim n As Integer
Private Sub Command1_Click()
'Jumlah data bertambah dan ambil data dari text1
n = n + 1
jual(n) = Val(Text1)
'tampilkan ke list
List1.AddItem jual(n)
End Sub

Private Sub Command2_Click()
'Menghitung nilai rata-rata dari data
jumlah = 0
For i = 1 To n
jumlah = jumlah + jual(i)
Next i
rata2 = jumlah / n
List1.AddItem ""
List1.AddItem "Rata-rata = " & rata2
End Sub

Private Sub Command3_Click()
'Menghitung nilai maksimal dari data
jualMaks = jual(1)
For i = 2 To n
If jual(i) > jualMaks Then jualMaks = jual(i)
Next
List1.AddItem ""
List1.AddItem "Penjualan maksimum = " & jualMaks
End Sub

Private Sub Command4_Click()
'Menghitung nilai minimal dari data
jualMin = jual(1)
For i = 2 To n
If jual(i) < jualMin Then jualMin = jual(i)
Next
List1.AddItem ""
List1.AddItem "Penjualan maksimum = " & jualMin
End Sub

Private Sub Form_Load()
'Nilai awal jumlah data diberi nol
n = 0
List1.Clear
End Sub

»»  READMORE...

Program VB "Shutdown Computer"

Kali ini saya akan membahas atau memberikan info mengenai koding dari Visual Basic 6.0. Koding yang saya ingin bahas adalah koding untuk program men-Shutdown (Restart, Log Off) komputer atau laptop yang anda sudah instal dengan Visual Basic 6.0. Isi kodingannya pun cukup sederhana dan sedikit.
Tak perlu banyak basi lagi langsung saja kita bahas ini.

Pertama anda harus membuka program  Microsoft Visual Basic 6.0
Setelah itu pilih New Project nya STANDARD EXE lalu OK

Buat di Form nya :
-3 Frame
-3 CommandBotton


Pada Frame pertama ganti namanya dengan merubah Caption  nya pada properties, ganti dengan nama Shutdown. Pada Frame kedua rubah dengan nama Log Off dan untuk Frame ketiga rubah dengan nama Restart.

Dan untuk ketiga CommandBotton nya, letakkan di dalam masing-masing Frame tersebut.
Beri nama-nama CommandBotton sesuai dengan nama Frame nya.
Kreasikan sesuka keinginan anda warna, ukuran, jenis font dll.

Kemudian ketik pada kotak Code :

Private Sub Command1_Clik()
Shell ("Shutdown -s")
End Sub



Private Sub Command2_Clik()
Shell ("Shutdown -l")
End Sub


Private Sub Command3_Clik()
Shell ("Shutdown -r")
End Sub




Setelah itu simpan Project As anda dan rubah .exe nya, caranya klik menu File pilih Make Project1 .exe kemudian close program VB anda. Buka file yang sudah tadi anda simpan (.exe nya) dan jalankan.
Tunggu beberapa detik setelah itu komputer anda akan berjalan sesuai dengan yang anda pilih..

Selamat Mencoba >>>>>

»»  READMORE...