Skrip Menghitung Berat Badan dengan Visual Basic

1. form 1 untuk form login:
   >>>> skrip untuk form login:

  Private Sub Image1_Click()
If text1.Text = "" Then
MsgBox " masukkan nama"
text1.SetFocus
ElseIf Text2.Text = "" Then
MsgBox "masukkan pasword anda"
Text2.SetFocus
Else
    satu = text1.Text
    dua = Text2.Text
        If satu = "yuki" And dua = "keren" Then
        MsgBox "Arigatou Gozaimasu ne... silahkan lanjutkan"
        Unload Me
        Form2.Show
        Else
        MsgBox "o o o opppsss ada kesalahan masukan ID yang benar"
        text1 = ""
        Text2 = ""
        text1.SetFocus
        End If
End If

End Sub

Private Sub Image2_Click()
Unload Me
End Sub




2. Form 2 untuk Form Splash:

Private Sub Timer1_Timer()
Prog1.Value = Prog1.Value + 1
    Label1.Caption = Prog1.Value
    If Prog1.Value >= 100 Then
        Timer1.Enabled = False
        Unload Me
        Form3.Show
        End If
End Sub

3 Form Utama atau Form Perhitungan:

pada warna merah kalian bisa mengunakan Frame dah kolom warna putih kalian bisa menggunakan textbox. untuk tombol hitung/exit kalian bisa mengunakan komponen image

>>> Skrip Form Hitung:
Dim status As String
Dim max, min, tb, bb As Integer
Private Sub Image1_Click()
If Text1.Text = "" Then
MsgBox "masukkan nama kamu...!", , "warning!"
Text1.SetFocus
ElseIf Text2.Text = "" Then
MsgBox "masukkan alamat kamu...!", , "warning"
Text2.SetFocus
ElseIf Text3.Text = "" Then
MsgBox "masukkan tinggi kamu.....!", , "warning!"
ElseIf Text4.Text = "" Then
MsgBox "masukkan berat kamu.....!", , "warning!"
    Else
          tb = Val(Text3.Text)
          bb = Val(Text4.Text)
          max = (tb - 100) + (10 / 100 * (tb - 100))
          min = (tb - 100) - (10 / 100 * (tb - 100))
          If bb > max Then
            status = "GEMUK!"
          ElseIf bb < min Then
            status = "KURUS"
          Else
            status = "IDEAL...."
          End If
            If Option1.Value = True Then
            jkel = "Laki-Laki"
            Else
            jkel = "Perempuan"
            End If
     
      Frame1.Visible = True
      Text5.Text = "selamat datang cinta... ^_^ kamu yang bernama : " & Text1.Text & ", kamu tinggal di : " _
                       & Text2.Text & " kamu adalah seorang " & jkel _
                       & ".... tinggi kamu = " & Text3.Text & " dan berat kamu = " _
                       & Text4.Text & " dengan kondisi dan keterangan diatas maka kamu termasuk kedalam golongan : "
      labjkel.Caption = jkel
      labstatus.Caption = status
     
    End If

End Sub

Private Sub Image2_Click()
Unload Me
Form4.Show

End Sub

3. Form 4

untuk form 4 kalian bisa gunakan untuk biodata kalian atau kata-kata membangun

>>> Skrip Form 4:
Private Sub Timer1_Timer()
Unload Me
End Sub