Technology Information

Dalam Program ini kita akan menampilkan biodata mahasiswa yang teresume oleh user ke listbox...

mari kita lihat coding e dlo yah :) sperti biasanya...

Public Class Form1

    Private Sub PanelEx1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PanelEx1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StyleManager1.ManagerStyle = DevComponents.DotNetBar.eStyle.Office2007Blue
        Dim i As Integer
        Dim j As Integer
        Dim g As Integer

        For i = 1 To 31
            ComboBox_Tgl.Items.Add(i)
        Next
        For j = 1 To 12
            ComboBox_bln.Items.Add(j)
        Next
        For g = 1990 To 2000
            ComboBox_thn.Items.Add(g)
        Next

      
    End Sub

    Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

    End Sub

    Private Sub Button_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Proses.Click
        ListView_Resume.Items.Add("Nama Lengkap               : " & TextBox__nama.Text & " " & TextBox_belakang.Text)
        ListView_Resume.Items.Add("TTL                                 : " & TextBox_TTL.Text & " " & ComboBox_Tgl.Text & " - " & ComboBox_bln.Text & " - " & ComboBox_thn.Text)
        If RadioButton_LK.Checked Then
            ListView_Resume.Items.Add("Jenis Kelamin                  : " & RadioButton_LK.Text)
        End If
        If RadioButton_PR.Checked Then
            ListView_Resume.Items.Add("Jenis Kelamin                  : " & RadioButton_PR.Text)
        End If
        ListView_Resume.Items.Add("Alamat                             : " & TextBox_alamat.Text)
        ListView_Resume.Items.Add("Bahasa yang di Kuasai    :")
        If CheckBox_basic.Checked Then
            ListView_Resume.Items.Add(CheckBox_basic.Text)
        End If
        If CheckBox_C.Checked Then
            ListView_Resume.Items.Add(CheckBox_C.Text)
        End If
        If CheckBox_CC.Checked Then
            ListView_Resume.Items.Add(CheckBox_CC.Text)
        End IfA
            If CheckBox_Java.Checked Then
                ListView_Resume.Items.Add(CheckBox_Java.Text)
            End If
            If CheckBox_PHP.Checked Then
                ListView_Resume.Items.Add(CheckBox_PHP.Text)
            End If
    End Sub
End Class

dan Tampilannya adalah :)))
sipp..... Saya hamdalah... :)

Oke temen2 kita sedikit mengulang yah...
kita akan membuat menu Strip dimana kita bisa menglinkan bbrpa form dalam satu project atau kita bs melakukan bbrpa program dalm satu program...
ok langsung sja lihat code nya ya :)

listing program


Public Class Form1

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        If TextBoxX1.Text = "Husni" And TextBoxX2.Text = "Husni" Then
            MessageBox.Show("Login Anda Berhasil")
        Else
            MessageBox.Show("Login gagal")
        End If

    End Sub

    Private Sub PredikatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PredikatToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub KelulusanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KelulusanToolStripMenuItem.Click
        Form3.Show()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
End Class

Cara Membuatnya sangat gampang... tinggal drag saja tool Menu Strip dari toolbox ke form lalu edit Menunya seperti gambar berikut....

Nah dari sini kita bisa lihat, kita langsung bisa memasukan nama menu yang akan kita tambahkan diprogram kita contohnya saya tulis disitu file , form, help dan bwahnya ada lagi kelulusan, predikat dan Login.. jika temen2 ingin menambah gambang sjat tinggal klik di type here e.. ok :)
nah setelah buat seperti itu lalu klik 2 x menu Stript itu dan masukan form mana yang akan kamu tampilkan programnya dengan mengetik program form2.show' jika ingin menampilkan form
 yang ke dua... Ok..
Oke sekerang tampil deh... Say Hamdalah.... :)

Dalam program ini kita akan menginpu IPK dari semester 1 smpai dengan smester 8, nah baru kita akan kalkulisasikan IPK itu apakah si Mahasiswa mendapatkan predikat Coumlaude atau Tidak...
mari lihat lising coding nya :)))

lising code
Public Class Form2

    Private Sub LabelX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelX1.Click

    End Sub

    Private Sub LabelX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelX4.Click

    End Sub

    Private Sub LabelX8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelX8.Click

    End Sub

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        Dim ipk As Integer
        ipk = (Val(TextBoxX1.Text) + Val(TextBoxX2.Text) + Val(TextBoxX3.Text) + Val(TextBoxX4.Text) + Val(TextBoxX5.Text) + Val(TextBoxX6.Text) + Val(TextBoxX7.Text) + Val(TextBoxX8.Text)) / 8
        TextBoxX10.Text = ipk

        If ipk > 3.5 Then
            TextBoxX9.Text = "Comlude"
        End If
        If ipk < 3.5 Then
            TextBoxX9.Text = "Sangat Memuaskan"
        End If
        If ipk < 3.0 Then
            TextBoxX9.Text = "kurang memuaskan"
        End If
        If ipk < 2.0 Then
            TextBoxX9.Text = "silahkan mengulang"
        End If
    End Sub

    Private Sub TextBoxX10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxX10.TextChanged

    End Sub
End Class

dan ini adalah tampilan Programnya :)

Penjelasanya adalah,kita deklrasikan dlo nama IPK itu dengan sintak dim IPK as integer krna nilai IPK itu adalah angka / integer..

lalu kita masukan satu persatu nilai IPK itu baru kita hitung dan bagi dengan 8, dalam sistematika penghitung maka VB mempunyai bahasa yang nama val  jadi kita hars menambahkan val dlo dalam penghitungna... seperti gambar  code ini

ipk = (Val(TextBoxX1.Text) + Val(TextBoxX2.Text) + Val(TextBoxX3.Text) + Val(TextBoxX4.Text) + Val(TextBoxX5.Text) + Val(TextBoxX6.Text) + Val(TextBoxX7.Text) + Val(TextBoxX8.Text)) / 8

lalu kita masukan hasil itu kedalam textbox nilai baru kita bisa tau apakah kita comlaude apa tidak...
jika nilai > 3.50 itu coumlaude
jika nilai <3.5 dan nilai > 3.0 maka itu sangat memuaskan
jika nilai < 3.0 itu kurang memaskan
dan jika nilai <2.0 maka silahkan mengulang... hehhee...
ok cukup ngerti kan... Oke lanjut ke tutorial berikutnya ...... :)

Dalam Program ini sahabat bisa membuat program kelulusan yang mana akan di sini akan kita tampilkan perandaian jika nilai > 60 maka lulus dan jika nilai < 60 maka tidak lulus.. ayo lihat listing programnya :)

listing program

Public Class Form3
    Private Sub TextBoxX1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxX1.TextChanged

    End Sub

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        If TextBoxX1.Text >= 60 Then
            TextBoxX2.Text = "Lulus"
        Else
            TextBoxX2.Text = "Tidak Lulus"

        End If
    End Sub

    Private Sub PanelEx1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PanelEx1.Click

    End Sub


End Class

dan ini tampilan programnya... :)
dan ini jika tidak lulus

Oke Sahabat Semua kita akan membuat tampilan Login User.. seperti coding dan tampilannya mari kita lihat

--listing code

Public Class Form1

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        If TextBoxX1.Text = "Husni" And TextBoxX2.Text = "Husni" Then
            MessageBox.Show("Login Anda Berhasil")
        Else
            MessageBox.Show("Login gagal")
        End If

    End Sub

    Private Sub PredikatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PredikatToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub KelulusanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KelulusanToolStripMenuItem.Click
        Form3.Show()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
End Class

Tampilannya seperti ini...
Dengan Menggunakan pengandain (if) kita bisa membuat login user seperti ini dalam program ini
jika username dan password 'husni' maka login berhasil tapi jika salah satunya slah maka login gagl... :))

Menampilkan Huruf dari Z-A

kita akan membuat contoh program menampilakn huruf/abjad dari huruf Z sampai huruf A
langsung kita lihat code e ...hehehee

Listing Program
#include <iostream>
using namespace std;

int main()
{
char huruf;
for ( huruf ='Z'; huruf>= 'A'; huruf--)
{
cout << huruf << " ";
}
return 0;
}
       
Oke ini capture programnya...

lets say hamdalah....
   

Menampilkan tahun kabisat dan tidaknya dari tahun 1990 S/D 2020

Listing Program
#include <iostream>
using namespace std;
int main()
{
int tahun;
int thnawal = 1990;
int thnakhir = 2020;
cout <<endl;

for(tahun=thnawal; tahun<=thnakhir; tahun++) {
if (tahun%4==0)
{
cout <<"Tahun Kabisat : " <<tahun <<endl;
cout <<endl;
}
else {
cout <<"Bukan Tahun Kabisat : " <<tahun <<endl;
cout <<endl;
}

}
}

Dari program ini kita akan langsung melihat tahun kabisat dari tahun 1990 s/d 2020
mari kita lihat capture programnya...

Menampilkan Menu dan memilih Program dari Menu Tersebut

--Listing Program

#include <iostream>
using namespace std;

int main ()
{
    int No,r,t,s;
    double Luaslingkrn,VolKbs,Volsldr;
    cout << "Pilih Program dari Menu dibawah ini dengan menekan angka Program : " << endl;
    cout << "-------------------------- " << endl <<endl;
    cout << "1.Menghitung Volume Kubus : " << endl;   
    cout << "2.Menghitung luas lingkaran : " << endl;   
    cout << "3.Menghitung volume silinder : " << endl << endl;   
    cout << "Pilih berdasarkan No : " ;
    cin >> No;
    cout << endl;
    if (No == 1)
    {
        cout << "Menghitung Volume Kubus : " <<endl ;
        cout << "-------------------------- " << endl <<endl;
        cout << "Masukan Nilai sisinya : " ;
        cin >> s;
        VolKbs = s * s * s;
        cout << "Maka Volumenya adalah : " <<VolKbs;
    }
    if ( No== 2)
    {
        cout << "Menghitung Luas Lingkaran : " <<endl;
        cout << "-------------------------- " << endl <<endl;
        cout << "Masukan Nilai jari-jarinya : "  ;
        cin >> r;
        Luaslingkrn = 3.14 * (r * r);
        cout << "Maka Luas Lingkarannya adalah : " <<Luaslingkrn ;
    }
    if (No==3)
    {
        cout << "Menghitung Volume silinder : " <<endl;
        cout << "-------------------------- " << endl <<endl;
        cout << "Masukan Nilai jari-jarinya : ";
        cin >> r;
        cout << "Masukan Nilai tingginya : " ;
        cin >> t;
        Volsldr = 3.14 * ((r * r) * t);
        cout << "Maka Volumenya adalah : " <<Volsldr;
    }
    return 0;
}



    Keterangan Variable integer
r = jari- jari
t = Tinggi
s = Sisi
No = No program yang akan di pilih

  Keterangan Variable Double
 Luaslingkrn = luas lingkaran
 VolKbs = Volume Kubus
 Volsldr =  Volume silinder

Kenapa yang luaslingkaran, volume kubus dan Volume Silinder itu tipe datanya double karna ada koma yang akan memecahkan angkanya...
Dan ini tampilan no 1. yaitu cara menghitung nilai Volume Kubus dengan nilai sisinya 3
ini tampilan program no 2 yaitu mencari nilai Luas lingkaran dengan jarijarinya 7
ini tampilan program no 3 yaiut mencari nilai Volume Silinder dengan jarijarinya 7 dan tinggi 5