membuat program penngukur berat ideal badan

hey teman-teman..!
apa kabar semua ?


kali ini saya beralih sedikit ke programing, di karenakan ada menu dan lebel programing tapi kok artikel nya masih satu doang ???
jadi saya berfikir untuk membuat artikel tentang programing

ok di sini saya akan membuat sebuah program dengan VB 6.0 yaitu membuat software pengukur berat badan...


loh kok software pengukur berat badan sih ??? bukan mengukur massa seseorang namun mengukur Ideal berat badan seseorang..

ok deh langsung saja yang penasaran dengan badan nya apakah badan nya Ideal atau kurus, atau malah gemuk...

langsung buka VB nya ya
jika belum ada bisa di download di 4shared.com banyak kok
setelah itu coba buat


buat beberapa label dan beberapa textbox, dan beberapa command button

dalam contoh ini saya membuat 4label,2textbox dan 2 command button
karena berhubung waktu yang mepet mohon maaf saya hanya tunjukkan format sub control nya saja




ini dia format nya :

Begin VB.Form Form1
Caption = "Mengukur Proposional Badan"
ClientHeight = 5100
ClientLeft = 60
ClientTop = 450
ClientWidth = 10305
LinkTopic = "Form1"
ScaleHeight = 5100
ScaleWidth = 10305
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command2
Caption = "selesai"
Height = 615
Left = 2280
TabIndex = 6
Top = 2760
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "Hitung"
Height = 615
Left = 480
TabIndex = 5
Top = 2760
Width = 1095
End
Begin VB.TextBox Text2
Height = 495
Left = 2040
TabIndex = 3
Top = 1320
Width = 1095
End
Begin VB.TextBox Text1
Height = 495
Left = 2040
TabIndex = 1
Top = 360
Width = 1095
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "www.yudhacomunity.blogspot.com"
Height = 195
Left = 3240
TabIndex = 8
Top = 3720
Width = 2460
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000014&
DragMode = 1 'Automatic
BeginProperty Font
Name = "MS Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 7800
TabIndex = 7
Top = 1560
Width = 45
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H80000014&
BeginProperty Font
Name = "CountryBlueprint"
Size = 11.25
Charset = 2
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 4695
TabIndex = 4
Top = 1560
Width = 0
End
Begin VB.Label Label2
Caption = "Berat Badan"
Height = 495
Left = 240
TabIndex = 2
Top = 1320
Width = 1335
End
Begin VB.Label Label1
Caption = "Tinggi Badan"
Height = 495
Left = 240
TabIndex = 0
Top = 360
Width = 1575
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
Label3.Caption = Val(Text2 / ((Text1 / 100) ^ 2))
If Label3 < 20 Then
ket = "Kurus"
Else
If Label3 < 25 Then
ket = " Normal "
Else
If Label3 < 27 Then
ket = " Gemuk Normal"
Else
If Label3 < 30 Then
ket = " Gemuk ringan "
Else
ket = " Gemuk Berlebihan "
End If
End If
End If
End If
Label4 = ket

lable5.Caption = www.yudhacomunity.blogspot.com
On Error GoTo 0
End Sub

Private Sub Command2_Click()
End
End Sub


Private Sub Label5_Click()
End Sub



itu adalah format dari source code dari applikasi penghitung ideal badan...
jika ingin mempelajari nya saya beri source code nya saja...
silahkan download di sini
http://www.4shared.com/file/20O-qi8V/Pengukur_Badan.html
selamat mencoba