MEMBUAT MENU PERITUNGAN , BIODATA , MENGHITUNG VOLUME DENGAN MENGGUNAKAN VISUAL BASIC 6.0

1.RUMUS MENGHITUNG RUMUS DAN VOLUME

Private Sub Command1_Click()

Label3 = "HASIL  : " & (Text1 * Text2) / 2 & " CM²"

Pada label3 adalah print hasil & itu bias di artikan sebagai tambah , pada text1 di kali text2 dan di bagi dua adalah rumus luas segituga

End Sub

Private Sub Command2_Click()

Label5 = "HASIL : " & 3.14 * Text3 * Text3 & " CM²"

Pada label5 adlaah print hasil dan 3.14 kali text3 kali text3 adalah rumus dari luas lingkaran

End Sub

Private Sub Command3_Click()

Label8 = "HASIL : " & (Text4 * Text5) / 2 & " CM²"

Pada label8 adlah hasil peritungan text4 di kali text5 di bagi 2 adalah rumus luas trapesium

End Sub

Private Sub Command4_Click()

Label12 = "HASIL : " & Text6 * Text7 * Text8 & " CM³"

Pada label2 adalah text6 dikali text7 di kali text8 adalah rumus dari volume kubus

End Sub

Private Sub Command5_Click()

Label14 = "HASIL : " & 4 / 3 * (Text9 ^ 3) & " CM³"

Label4 adlah 4/3 di kali text9 pangkat 3 adalah rumus dari volume lingkaran

End Sub

Private Sub Command6_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Label3 = ""

Label5 = ""

Label8 = ""

Label12 = ""

Label14 = ""

“” di gunakan untuk menghapus semua value pada text dan label

End Sub

Private Sub Command7_Click()

End

Untuk proses benrhenti program vb

End Sub

Dibawah ini adalah ketika program telah di jalankan

2.BIODATA

Private Sub Command1_Click()

Label5 = "NAMA  : " & Text1 & vbNewLine & "NPM   : " & Text2 & vbNewLine & "KELAS : " & Text3 & vbNewLine & "ALAMAT : " & Text4

Pada label5 adalah print nama di tambah text =1 vbnewline itu untuk di gantikan enter dan print di tambah text2 lalu enter dan kelas di tambah text3 dan print alamat di tambah text4

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Label5 = ""

“” di gunakan untuk menghapus yang terisi pada text

End Sub

Private Sub Command3_Click()

End

Untuk berhenti program vb

End Sub

Di bawah ini adalah program yang di run dan di isi valuenya

3.MENHITUNG NILAI KOMULATIF DARI NILAI UAS DAN UTS

Private Sub Command1_Click()a

a = Text1 * 1

variabel a adalah text1 di kali 1

b = Text2 * 1

variabel b adalah text2 di kali 1

c = ((a * 0.7) + (b * 0.3))

variabel c adalah variabel a di kali 0.7 dan variabel b dikali 0.3 dan hasil dari tersebut di tambah

If c >= 90 Then

Jika variabel c lebih besar sama dengan 90 maka

Label6 = "nilai total anda = " & c & vbNewLine & "KETERANGAN = ANDA LULUS" & vbNewLine & "GRADE ANDA = A"

Cetak pada label6 nilai total dan hasil dari variabel , vbnewline di gunakan untuk enter danprint anda lulus enter kembali lalu print grade anda = a

ElseIf c >= 80 Then

Jika variabel c lebih besar sama dengan 80 maka

Label6 = "nilai total anda = " & c & vbNewLine & "KETERANGAN = ANDA LULUS" & vbNewLine & "GRADE ANDA = B"

Cetak pada label6 nilai total dan hasil dari variabel , vbnewline di gunakan untuk enter danprint anda lulus enter kembali lalu print grade anda = b

ElseIf c >= 70 Then

Jika variabel c lebih besar sama dengan 70 maka

Label6 = "nilai total anda = " & c & vbNewLine & "KETERANGAN = ANDA LULUS" & vbNewLine & "GRADE ANDA = B"

Cetak pada label6 nilai total dan hasil dari variabel , vbnewline di gunakan untuk enter danprint anda lulus enter kembali lalu print grade anda = b

ElseIf c >= 60 Then

Jika variabel c lebih besar sama dengan 60 makan

Label6 = "nilai total anda = " & c & vbNewLine & "KETERANGAN = ANDA LULUS" & vbNewLine & "GRADE ANDA = C"

Cetak pada label6 nilai total dan hasil dari variabel , vbnewline di gunakan untuk enter danprint anda lulus enter kembali lalu print grade anda = c

ElseIf c >= 50 Then

Jika variabel c lebih besar sama dengan 50 makan

Label6 = "nilai total anda = " & c & vbNewLine & "KETERANGAN = ANDA TIDAK LULUS" & vbNewLine & "GRADE ANDA = D "

Cetak pada label6 nilai total dan hasil dari variabel , vbnewline di gunakan untuk enter danprint anda lulus enter kembali lalu print grade anda = c

Else

Jika tidak memenumi semua maka

Label6 = "nilai total anda = " & c & vbNewLine & "KETERANGAN = ANDA TIDAK LULUS" & vbNewLine & "GRADE ANDA = E "

Cetak pada label6 nilai total dan hasil dari variabel , vbnewline di gunakan untuk enter danprint anda lulus enter kembali lalu print grade anda = e

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Label6 = ""

“” di gunakan untuk menghapus data yang telah di isi

End Sub

Private Sub Command3_Click()

End

Untuk berhenti program saat di run

End Sub

Di bawh ini adalah hasil ketika program di jalanklan