Pages

Selasa, 23 April 2013

Aplikasi Penghitung Diskon Visual Basic (vb)

Bismillah

Pada artikel ini kita membahas bagaimana cara menghitung diskon dari suatu harga. Aplikasi ini bukan hanya bermanfaat untuk menghitung pemotongan harga produk, tetapi juga bisa digunakan untuk kepentingan bisnis lainnya seperti penghitungan komisi dari suatu transaksi. Yuk. Kita mulai

1) Siapkan komponen-komponen berikut ini

Nama
Type
Isi
Label1
Label
Harga
Label2
Label
Diskon(%)
Label3
Label
Total Harga
Label4
Label
Text1
TextBox
Text2
TextBox
Text3
TextBox
Command1
CommandButton
Hitung Diskon


2) Letakkan komponen-komponen diatas seperti gambar dibawah ini



3) Klik dua kali pada tombol "Hitung Diskon" kemudian salin skrip dibawah ini


Dim harga As Long, diskon As Long, totalharga As Long, totaldiskon As Long

Private Sub Command1_Click()
On Error Resume Next

harga = Text1.Text
diskon = Text2.Text
totaldiskon = harga / 100 * diskon
Text3.Text = totaldiskon
totalharga = harga - totaldiskon
Label4.Caption = totalharga

End Sub

#Penjelasan
Dim harga As Long dst berfungsi untuk membuat variabel dan tipe data yang dibutuhkan

on error resume next berfungsi untuk menjaga proses tetap berjalan walau terdapat kesalahan pengisian data

totaldiskon=harga/100*diskon adalah rumus dari mencari persenan
totalharga=harga-totaldiskon berfungsi untuk memberikan hasil dari harga yang sudah dikurangi persenan


4) Jalankan program



Program penghitung diskon berhasil diselesaikan. Jika sudah mengerti, Alhamdulilah. Jika belum, yuk bahas di komentar yang ada di bawah artikel ini. InsyaAllah pembahasan ini bermanfaat :)

Sabtu, 20 April 2013

Mengganti Ukuran Form Visual Basic (VB)

Bismillah...

Pernahkah Anda mengganti ukuran tampilan software melalui fitur pengaturan yang ada di software tersebut?

Di VB, itu juga bisa dilakukan dan fitur ini juga penting. Sehingga si pemakai, bisa mengganti ukuran tampilan sesuai kehendak dia. Terus bagaimana caranya? Yuk, kita bahas di artikel ini.

1) Sediakan komponen-komponen sesuai tabel dibawah ini

Nama
Type
Isi
Label1
Label
W
Label2
Label
H
Command1
CommandButton
Ganti Ukuran Form
Text1
TextBox
Text2
TextBox


2) Atur komponen-komponen diatas sesuai tampilan dibawah ini



3) Klik dua kali pada tombol "Ganti Ukuran Form", kemudian masukkan skrip di bawah ini


On Error Resume Next
Form3.Width = Int(Text1.Text)
Form3.Height = Int(Text2.Text)


#Penjelasan
On Error Resume Next berfungsi untuk memastikan program tetap berjalan meskipun data yang dimasukkan di textboxt bukanlah angka. Memangnya harus angka? Untuk kasus ini harus karena dalam value widht(lebar) dan height(tinggi) form dibutuhkan data angka.

Form3.Width berfungsi merubah dan mendapatkan lebar form. Form3.Height berfungsi merubah dan mendapatkan tinggi form.

Int(Text1.Text) berfungsi merubah data dari TextBox yang tadinya String(Tulisan) ke bentuk data Integer(Angka)

4) Tekan F5 untuk menjalankan program. Silahkan masukkan angka untuk W(Width) dan H(Height) kemudian tekan tombol dibawahnya. Ukuran Form akan dirubah.


Untuk yang sudah mengerti, Alhamdulilah. Untuk yang belum, yuk dibahas melalui kotak komentar yang ada di bawah artikel ini. InsyaAllah terpecahkan :)



Mengganti Judul Form Visual Basic (VB)

Untuk mengganti judul form tidak hanya bisa melalui properties, tetapi juga bisa dilakukan ketika program dijalankan. Dengan menggunakan skrip dibawah ini

Form1.Caption = "Ini judulnya"

Untuk yang pakai Visual Basic, gunakan Caption. Untuk yang pakai Visual Studio, gunakan Text.


Menggabungkan Isian Form Visual Basic(VB)

Bismillah...

Pada artikel ini kita bahas tentang penggabungan isian data di form vb. Yuk kita bahas melalui artikel ini..

1) Sediakan komponen-komponen sesuai tabel dibawah ini

Nama
Type
Isi
Label1
Label
Nama
Label2
Label
Hobi
Command1
CommandButton
Gabung
Text1
TextBox
Text2
TextBox
Text3
TextBox


2) Susun komponen diatas sesuai tampilan di bawah ini

Pada Text3 yaitu yang besar, atur propertiesnya, perhatikan bagian multiline, jadikan true



3) Klik dua kali pada tombol gabung lalu masukkan skrip di bawah ini

Text3.Text = "Nama saya adalah " + Text1.Text + " dan Hobi Saya adalah " + Text2.Text

4)  Tekan F5 untuk menjalankan program, isikan field nama dan hobi kemudian tekan tombol gabung, isian data-data itu akan digabung di kotak besar



Artikelnya sampai disini. Untuk yang sudah mengerti, Alhamdulilah. Untuk yang belum, yuk kita bahas melalui kotak komentar yang ada di bawah artikel ini. InsyaAllah pertanyaannya terjawab :)





Jumat, 19 April 2013

Konfirmasi Form dengan Visual Basic (VB)

Yang dimaksud konfirmasi adalah memeriksa ulang suatu masukkan data sebelum diproses. Pada artikel ini, kita akan bahas bagaimana caranya setelah suatu data di form disubmit kita bisa tahu apakah data yang dimasukkan sudah sesuai atau ada salah ketikan.

Untuk lebih jelasnya, lansung kita mulai pembahasan ini. Bismillah...


1) Siapkan form bernama "Formulir" dan titlenya berisi "Formulir Pendaftaran" kemudian pasang komponen-komponen berikut


Nama
Type
Isi
Label1
Label
Nama
Label2
Label
Alamat
Label3
Label
No HP
Label4
Label
Email
Label5
Label
Pekerjaan
Text1
TextBox
Text2
TextBox
Text3
TextBox
Text4
TextBox
Text5
TextBox
Command1
CommandButton
Konfirmasi

Pasang komponen-komponen diatas sesuai desain dibawah ini





2) Siapkan form kedua. Bernama "konfirmasi" dan titlenya berisi "Konfirmasi Pendaftaran" kemudian pasang komponen-komponen berikut


Nama
Type
Isi
Label1
Label
Nama
Label2
Label
Alamat
Label3
Label
No HP
Label4
Label
Email
Label5
Label
Pekerjaan
Label6
Label
Label7
Label
Label8
Label
Label9
Label
Label10
Label

Pasang komponen-komponen diatas sesuai desain dibawah ini


 3) Klik dua kali pada tombol Konfirmasi yang ada di form pertama, kemudian salin skrip dibawah ini


konfirmasi.Show

konfirmasi.Label10.Caption = Text1.Text
konfirmasi.Label9.Caption = Text2.Text
konfirmasi.Label8.Caption = Text3.Text
konfirmasi.Label7.Caption = Text4.Text
konfirmasi.Label6.Caption = Text5.Text

#Penjelasan : "konfirmasi" adalah nama dari form kedua

Untuk merubah isi label, digunakan Caption. Untuk merubah isi TextBox, digunakan Text. Maka, untuk merubah isi label yang isinya berasal dari TextBox, digunakan skrip label.Caption=TextBox.Text.

4) Atur agar Form yang pertama dijalankan adalah form pendaftaran. Dengan cara, klik Menu Project -> Project Properties.

Pada bagian Startup Object, pilih form yang bernama Formulir, lalu klik OK untuk kembali ke project dengan pengaturan yang sudah disimpan.

5) Jalankan project (tekan F5)




Isi formulir kemudian klik tombol Konfirmasi. Anda akan melihat sebuah form terbuka yang kontennya adalah data yang sebelumnya diisikan.

Form ini silahkan dikembangkan lebih lanjut. Konfirmasi pengisian ini cukup penting untuk form-form yang membutuhkan ketilitian pengisian. Sehingga ketika data akan dikirim untuk diproses, diperlihatkan lagi isian sebelumnya. Apabila user yakin bahwa data yang diisikan sudah benar, dia bisa mengirim data tersebut untuk diproses.


Yang udah ngerti, Alhamdulillah. Yang belum? Ya ayo kita diskusi di artikel ini dengan cara isi kotak komentar yang ada di bawah artikel ini. Insyaallah terpecahkan ^_^






Membuat kalkulator dengan VB

1 ) Siapkan komponen di VB seperti di daftar berikut

Nama
Type
Caption/Text
Label1 Label Angka 1
Label2 Label Angka 2
Label3 Label Hasil
angka1 TextBox
angka2 TextBox
hasil TextBox
tomTambah CommandButton
+
tomKurang CommandButton
-
tomKali CommandButton
x
tomBagi CommandButton
:


2) Susun komponen seperti gambar dibawah



3) Klik dua kali pada tombol tambah kemudian masukkan skrip dibawah ini

On Error Resume Next
hasil.Text = Int(angka1.Text) + Int(angka2.Text)


#Penjelasan

On Error Resume Next : Membuat proses tetap berjalan walau terdapat error pada data yang dimasukkan


hasil.Text = Int(angka1.Text) + Int(angka2.Text) : Mengkonversi isian angka1 dan angka2 dari text ke bentuk integer(angka) sehingga bisa diproses dengan operator pertambahan (+) lalu memberi hasilnya ke kotak hasil.



4) Klik dua kali padas tombol lainnya kemudian salin skrip diatas. Rubah operator sesuai tombol. Contohnya seperti dibawah ini


5) Tekan F5 untuk menjalankan kalkulator


Kalkulator berhasil dibuat. Skrip diatas bisa dikembangkan lebih jauh lagi.

Kalau masih bingung, silahkan konsultasi melalui YM atau kotak komentar di artikel ini. Terimakasih

Senin, 01 April 2013

Laskar Tanah Air The Game

Alhamdulilah akhirnya penulis bisa menyelesaikan game ini. Game Laskar Tanah Air atau yang disingkat dengan LTATG dibuat menggunakan engine bernama Unity. Untuk temen-temen yang juga tertarik membuat game, cobain nih software. Gratis dan pemrogramannya mudah dimengerti.

Game ini bercerita tentang sekelompok pasukan tanah air yang ditugaskan untuk menyapu habis semua penjajah yang masih ada di republik. Kelompok ini dipimpin oleh Jenderal Henri. Dia dibantu oleh lima orang letnan. Salah satunya adalah Anda. Tugas dari Jenderal Henri adalah menemukan markas musuh, kemudian memberikan informasi tersebut kepada para letnannya.

Nah, Anda sebagai letnan, harus menuju tempat yang sudah ditandai sang jenderal, kemudian membantai habis semua penjajah yang ada disana. Tanpa sisa.

Kontrol yang ada dalam game ini sama seperti CS. Tetapi Anda tidak akan menemukan tombol pause atau back to menu. Kenapa? Ya itulah tantangannya. Ketika Anda berperang, pilihannya cuman dua. Memenangkan perang atau mati. Tidak bisa memberhentikan waktu mengulangi pertempuran.


Beberapa screenshootnya

Perjalanan Menuju Pertempuran

Menghabisi Musuh

Para tentara republik sedang berbaris

Jenderal Henri dan para letnannya sedang mendengar siaran Bung Tomo







Link Download Game Ini : http://www.fileswap.com/dl/akOLDiTkNn/gameLaskarTanahAir.rar.html


Yang udah nyobain gamenya, silahkan komen di bawah artikel ini ^_^

Terimakasih :)