ini adalah program yang dibuat dengan visual basic.
nah… gambar di atas adalah tampilan dari program versi saya…
sebenarnya untuk desain programnya kamu bisa buat sekreatif mungkin ya…
cara kerja dari program ini adalah kamu masukin nilai / angka pada bilangan pertama, kedua, dan ketiga kemudian klik proses dan hasilnya akan keluar.
Cara buatnya gampang-gampang susah, perlu kecermatan..
langkah 1: buka visual basic dan pilih standard EXE maka akan keluar form 1
langkah 2: Masukkan Obyek yang diperlukan ke dalam form, seperti gambar berikut :
Langkah 3:
Aturlah Properti masing-masing Form/Obyek yang dipergunakan, dengan minimal memuat pengaturan sebagai berikut :
|
NO |
FORM/OBYEK |
PROPERTY |
SETTING |
|
1 |
FORM | Name | Form1 |
| Caption | PENGURANGAN 3 BILANGAN | ||
| FRAME1 | Caption | INPUT DATA | |
| Font | Calibri, 14, Bold | ||
| FRAME2 | Caption | OUTPUT DATA | |
| Font | Calibri, 14, Bold | ||
|
2 |
Label 1 | Caption | PENGURANGAN 3 BILANGAN |
| Font | Ravie, 20, Bold | ||
| ForeColor | System-Highlight text | ||
|
3 |
Label 2 | Caption | BILANGAN PERTAMA |
| Font | algerian , 16, Bold | ||
| ForeColor | Sistem-highlight | ||
|
4 |
Label 3 | Caption | BILANGAN KEDUA |
| Font | algerian , 16, Bold | ||
| ForeColor | Pallet-ungu | ||
|
5 |
Label 4 | Caption | BILANGAN KETIGA |
| Font | algerian , 16, Bold | ||
| ForeColor | Pallet-orange | ||
|
6 |
Label5 | Caption | HASIL |
| Font | Goudy Stout , 18, Bold | ||
| ForeColor | Sistem-highlight | ||
|
7 |
Text1 | Name | TXTBILPERTAMA |
| Font | Goudy Stout, 16, bold | ||
| Text | <kosongkan> | ||
|
8 |
Text2 | Name | TXTKEDUA |
| Font | Goudy Stout, 16, bold | ||
| Text | <kosongkan> | ||
|
9 |
Text3 | Name | TXTBILKETIGA |
| Font | Goudy Stout, 16, bold | ||
| Text | <kosongkan> | ||
|
10 |
Text4 | Name | TXTBILHASIL |
| Font | Goudy Stout, 16, bold | ||
| Text | <kosongkan> | ||
|
11 |
Command1 | Name | CMDPROSES |
| Caption | PROSES | ||
| Font | Snap ITC, 16, Bold |
Langkah-4 :
Ketikkan code program sebagai berikut :
Private Sub CMDPROSES_Click()
Dim BILPERTAMA, BILKEDUA, BILKETIGA, BILHASIL As Integer
BILPERTAMA = Val(TXTBILPERTAMA.Text)
BILKEDUA = Val(TXTBILKEDUA.Text)
BILKETIGA = Val(TXTBILKETIGA.Text)
BILHASIL = Val(BILPERTAMA – BILKEDUA – BILKETIGA)
TXTBILHASIL.Text = BILHASIL
End Sub
selamat mencoba ^^
untuk lebih jelas tentang langkah-langkahnya liat di langkah-langkah membuat program visual basic
kamu ingin program yang sudah jadi. silahkan download disini
blogstudymath 