cara menentukan nilai dengan vb 6.0

langkah pertama

gambar.1

1. buatlah 3 label dengan cara klik icon label arahkan pointer ke lembar kerja vb tahan dan geser mouse sesuai yang diinginkan  sesuai gambar.2 dibawah ini

gambar.2

       























2.buatlah 2 textbox caranya klik icon textbox arahkan pointer pada lembar kerja kemudian tahan dan geser mouse sesuai yang diinginkan seperti gambar.2

gambar.4

gambar.3

      3. buatlah 1 command button dengan cara  klik icon command button arahkan pointer pada lembar kerja kemudian tahan dan geser mouse sesuai yang diinginkan seperti gambar.4








langkah kedua

• doubel klik icon commandbutton, jika suda tuliskan code program dibawah ini:]

Private Sub Command1_Click()
Dim nilai As Integer
Dim hasil As String
nilai = Text1.Text
Select Case nilai
Case 80 To 100
hasil = "A"
Case 65 To 79
hasil = "B"
Case 55 To 64
hasil = "C"
Case 40 To 54
hasil = "D"
Case 0 To 39
hasil = "E"
End Select
Text2.Text = hasil
End Sub
                                                       nah aplikasinya sudah jadi deh

aplikasi sederhana diatas sudah jadi seperti pada gambar diatas dan dapat kalian modifikasi sendiri

aplikasi diatas sudah dapat dirunning(dapat dijalankan)

selamat mencoba

semoga sukses!!!!