Visual Basic -Miniatur Aplikasi Penghitung Nilai IPK-

Berikut Adalah tampilan Aplikasi Penghitung Nilai IPK













Form itu menggunakan MDIForm, sehingga form-form yang telah kita buat di masukan ke dalam MDIForm.

Menghitung Nilai (untuk satu mata kuliah)

Kodingnya :

Kelulusan
Private Sub Command1_Click()
If (textnilai.Text >= 70) Then
    Textstatus.Text = "LULUS"
Else
    Textstatus.Text = "TIDAK LULUS"
    End If
End Sub

"Karna dibatasi Nilai minimalnya 70 jadi ketika kita input nilai 70 maka akan Lulus"

"ketika kita input Nilai 69 maka Status akan Tidak lulus"

Form Login

Kodingnya:
Private Sub Command1_Click()
username = (Text1.Text)
password = (Text2.Text)
If username = "Taufik" And password = "opikcakep" Then
MsgBox "login berhasil", vbOKOnly, "Sukses"
Else
MsgBox "login salah", vbOKOnly, "DETECT!"
End If
End Sub

"Gambar Ketika Login Berhasil"

"Gambar Ketika Login Salah"

Form Predikat Kelulusan beserta IPK (Index Prestasi Kumulatif)

Kodingnya:


Private Sub Command1_Click()
Ipk = (Val(Textsmtr1.Text) + Val(Textsmtr2.Text) + Val(Textsmtr3.Text) + Val(Textsmtr4.Text) + Val(Textsmtr5.Text) + Val(Textsmtr6.Text) + Val(Textsmtr7.Text) + Val(Textsmtr8.Text)) / 8
Textipk.Text = Ipk

If (Ipk >= 3.51) Then
    Textpdkt.Text = "CUMLAUDE"
ElseIf (Ipk >= 3.1 And Ipk <= 3.5) Then
    Textpdkt.Text = "SANGAT MEMUASKAN"
ElseIf (Ipk >= 2.5 And Ipk <= 3) Then
    Textpdkt.Text = "MEMUASKAN"
Else
    Textpdkt.Text = "HUB AKADEMIK"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Text1_Change()

End Sub

About Us

Read More

Menampilkan pengulangan untuk menampilkan huruf ‘Z’ sampai ‘A’

Kodingnya:

Outputnya

Read More

Menampilkan Tahun dari 1990 s/d 2020 dan menampilkan tahun tersebut kabisat atau bukan

Kodingnya :

Tahun Awal diinput: 1990 Tahun Akhir diinput:2020

Outputnya 1

Outputnya 2

Outputnya 3

Read More

Koding Menentukan Rumus Matematika

Koding Menentukan Rumus Matematika:

Soalnya:

1.Buatlah Program yang menampilkan menu:

1.       Menghitung Volume Kubus

2.       Menghitung Luas Lingkaran

3.       Menghitung Volume Silinder

Ketentuan user dapat memilih salah satu menu kemudian melakukan proses sesuai menu yang dipilihnya.

kodingnya

#include "stdafx.h"

#include <iostream.h>

int main()

{

char pil;

cout <<"Pilihan Berdasarkan List Yang Disediakan"<<endl;

cout <<"1. Menghitung Volume Kubus" <<endl;

cout <<"2. Menghitung Luas Lingkaran" <<endl;

cout <<"3. Menghitung Volume Selinder" <<endl;

cout <<endl;

cout <<"Pilihan anda: " ; cin>>pil;

cout <<endl;

switch (pil)

{

case '1' : cout <<"Anda Sudah Memilih Menghitung Volume Kubus" <<endl;

{

float vk,s;

cout <<"Masukkan sisi : "; cin >>s;

vk= (s*s)*s;

cout <<"Hasil nya adalah : " <<vk<<endl;

}

break;

case '2' : cout <<"Anda Sudah Memilih Menghitung Luas Lingkaran"<<endl;

{

float ls,r;

double phi =3.14 ;

cout <<"Masukkan Nilai R: "; cin>>r;

ls = r*r;

ls = ls * phi;

cout <<"Hasil nya adalah : " <<ls<<endl;

}

break;

case '3' : cout <<"Anda Sudah Memilih Menghitung Volume Selinder "<<endl;

{

float v,r,t;

float phi=3.14;

cout <<"Masukkan Nilai R : "; cin>>r;

cout <<"Masukkan Nilai T : "; cin>>t;

v = phi*(r*r);

v = v *t;

cout <<"Hasil nya adalah : " <<v<<endl;

}

break;

}

                return 0;

}

Pilihan dalam kompiler

Pilihan 2 lalu Nilai R nya di masukan 4

Pilihan 1 dan Sisinya 4

Pilihan 3 dan Nilai R= 5 Nilai T= 7

Read More