Berikut adalah
program untuk membuat Rumus Matematika untuk mencari Volume Kubus, Volume
Tabung dan Luas Lingkaran menggunakan bahasa C++.
Pertama kita
deklarasikan variabel-variabel dengan menggunakan tipe datanya masing-masing
diantaranya tipe data float dan char. Kemudian kita tampilkan menu-menu pilihan
yang akan user input. Setelah itu, akan muncul pilihan menu yang user pilih.
User diminta untuk meng-input-kan nilai yang kemudian akan diproses dengan
mengpergunakan simbol operator aritmatika (*) sehingga menghasilkan operan dari
operator aritmatika tersebut.
a.
Tampilan
Output
 |
b. Propertis
Object
Name
|
Caption/Text
|
Name
|
Form1
|
Curriculum Vitae
|
Form1
|
Label1
|
Curriculum
Vitae
|
Label1
|
Label2
|
Nama Lengkap :
|
Label2
|
Label3
|
Tempat/Tgl/Lahir
:
|
Label3
|
Label4
|
Jenis Kelamin :
|
Label4
|
Label5
|
Alamat
:
|
Label5
|
Label6
|
Bahasa yang dikuasai :
|
Label6
|
Label7
|
Resume
|
Label7
|
Textbox1
|
-
|
txtnama
|
Textbox2
|
-
|
txttempat
|
Textbox3
|
-
|
txtalamat
|
Textbox4
|
-
|
txtresume
|
Combobox1
|
-
|
combotgl
|
Combobox2
|
-
|
combobulan
|
Combobox3
|
-
|
combotahun
|
Option1
|
Laki-Laki
|
optionlaki
|
Option2
|
Perempuan
|
optionperempuan
|
Checkbox1
|
-
|
checkbasic
|
Checkbox2
|
-
|
checkc
|
Checkbox3
|
-
|
checkcc
|
Checkbox4
|
-
|
checkjava
|
Checkbox5
|
-
|
checkphp
|
Commandbutton1
|
Process
|
cmdproses
|
Commandbutton2
|
Exit
|
cmdexit
|
c.
Listing
Program
Private Sub checkbasic_Click()
b = checkbasic.Caption
End Sub
Private Sub checkc_Click()
b = checkc.Caption
End Sub
Private Sub checkcc_Click()
b = checkcc.Caption
End Sub
Private Sub checkjava_Click()
b = checkjava.Caption
End Sub
Private Sub checkphp_Click()
b = checkphp.Caption
End Sub
Private Sub cmdexit_Click()
End
End Sub
Private Sub cmdproses_Click()
If optionlaki.Value = True Then
jk = "Laki-laki"
Else
jk = "Perempuan"
End If
txtresume.Text = "Nama Lengkap :
" & txtnama.Text & vbCrLf & "Tempat/Tgl/lahir : "
& txttempat.Text & "/" & combotgl.Text &
"/" & combobulan.Text & "/" & combotahun.Text
& vbCrLf & "Jenis Kelamin : " & jk & vbCrLf &
"Alamat : " & txtalamat.Text & vbCrLf & "Bahasa
yang dikuasai : " & b
End Sub
Private Sub Form_Load()
combotgl.AddItem "1"
combotgl.AddItem "2"
combotgl.AddItem "3"
combotgl.AddItem "4"
combotgl.AddItem "5"
combotgl.AddItem "6"
combotgl.AddItem "7"
combotgl.AddItem "8"
combotgl.AddItem "9"
combotgl.AddItem "10"
combotgl.AddItem "11"
combotgl.AddItem "12"
combotgl.AddItem "13"
combotgl.AddItem "14"
combotgl.AddItem "15"
combotgl.AddItem "16"
combotgl.AddItem "17"
combotgl.AddItem "18"
combotgl.AddItem "19"
combotgl.AddItem "20"
combotgl.AddItem "21"
combotgl.AddItem "22"
combotgl.AddItem "23"
combotgl.AddItem "24"
combotgl.AddItem "25"
combotgl.AddItem "26"
combotgl.AddItem "27"
combotgl.AddItem "28"
combotgl.AddItem "29"
combotgl.AddItem "30"
combotgl.AddItem "31"
combobulan.AddItem "Januari"
combobulan.AddItem "Februari"
combobulan.AddItem "Maret"
combobulan.AddItem "April"
combobulan.AddItem "Mei"
combobulan.AddItem "Juni"
combobulan.AddItem "Juli"
combobulan.AddItem "Agustus"
combobulan.AddItem "September"
combobulan.AddItem "Oktober"
combobulan.AddItem "November"
combobulan.AddItem "Desember"
combotahun.AddItem "1987"
combotahun.AddItem "1988"
combotahun.AddItem "1989"
combotahun.AddItem "1990"
combotahun.AddItem "1991"
combotahun.AddItem "1992"
combotahun.AddItem "1993"
combotahun.AddItem "1994"
combotahun.AddItem "1995"
combotahun.AddItem "1996"
combotahun.AddItem "1997"
combotahun.AddItem "1998"
combotahun.AddItem "1999"
combotahun.AddItem "2000"
combotahun.AddItem "2001"
combotahun.AddItem "2002"
combotahun.AddItem "2003"
combotahun.AddItem "2004"
combotahun.AddItem "2005"
combotahun.AddItem "2006"
combotahun.AddItem "2007"
combotahun.AddItem "2008"
combotahun.AddItem "2009"
combotahun.AddItem "2010"
combotahun.AddItem "2011"
combotahun.AddItem "2012"
combotahun.AddItem "2013"
End Sub
|
0 komentar:
Posting Komentar