Selasa, 07 November 2017

contoh program penilaian

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cbnpm.Items.Add("161510021")
        cbnpm.Items.Add("161510056")
        cbnpm.Items.Add("161510043")

        cbkdmk.Items.Add("mk1")
        cbkdmk.Items.Add("mk2")
        cbkdmk.Items.Add("mk3")
        cbkdmk.Items.Add("mk4")
        cbkdmk.Items.Add("mk5")
    End Sub

    Private Sub cbnpm_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbnpm.SelectedIndexChanged
        Select Case cbnpm.Text
            Case "161510021"
                txtnama.Text = "Devi"
            Case "161510056"
                txtnama.Text = "dery"
            Case "161510043"
                txtnama.Text = "jessy"
        End Select
    End Sub

    Private Sub cbkdmk_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbkdmk.SelectedIndexChanged
        Select Case cbkdmk.Text
            Case "mk1"
                txtmatakuliah.Text = "algoritma"
            Case "mk2"
                txtmatakuliah.Text = "matematika diskrit"
            Case "mk3"
                txtmatakuliah.Text = "pemograman visual"
            Case "mk4"
                txtmatakuliah.Text = "Agama"
            Case "mk5"
                txtmatakuliah.Text = "sistem informasi manajemen"
        End Select
    End Sub

    Private Sub proses_Click(sender As Object, e As EventArgs) Handles proses.Click

        Dim Txtnilaiakhir, n1, n2, n3 As Integer
        n1 = txtnilaiquiz.Text
        n2 = txtnilaiuts.Text
        n3 = txtnilaiuas.Text
        Txtnilaiakhir = 0.2 * n1 + 0.2 * n2 + 0.6 * n3
        tbnilaiakhir.Text = Convert.ToString(Txtnilaiakhir)
        If Txtnilaiakhir >= 85 Then
            txtnilaihuruf.Text = "A"
        ElseIf Txtnilaiakhir >= 75 Then
            txtnilaihuruf.Text = "B"
        ElseIf Txtnilaiakhir >= 65 Then
            txtnilaihuruf.Text = "C"
        ElseIf Txtnilaiakhir >= 50 Then
            txtnilaihuruf.Text = "D"
        Else
            txtnilaihuruf.Text = "E"
        End If
    End Sub
End Class

Selasa, 17 Oktober 2017

Mengenal komponen dasar

percabangan
kondisi-kondisi
operasi aritmatika
operasi logika

statement hasil
IF kondisi then
hasil/statement
end if

IF tekan ="mi" then
hasil="merah"
End IF

IF kondisi then
statement
else
statement

IF tekan="mi"then
hasil="merah"
else
hasil="biru"

IF kondisi then
statement
else if kondisi 2then
statement
else

contoh
dim nilai teks siring
nilai text=textbox 1.text
IF Nilai teks>=80 then
label 3.text=textbox1.text
label4 text="A"
label2 text="excellent"
else if nilai text> 70 then

label 1.text="13"
label 2.text="very good"
else if nilai text >=60thn
label 1.text="k"
label 2.text="good"
else if nilai text=so then
label 1.text="d"
label 2.text="workharder"
else

Bahasa Visual Basic


untuk deklarasi variabel

dim

exp
dim nama_belakang/namabelakang
dim
dim
dim Nama_variabel as tipe data
dim Jenis_hewan as string
dim angka as integer
dim bilangan_desimal as single
dim angka 1 angka 2 as integer

single double desimal
exp:
100,4543554
tipe berbasis text
char(1huruf) dan string(>1huruf)

operator aritmatika
addition >>+
subsitract >>-
multipication >>*
division >>/(hasilnya real)
division >>\(hasilnya number)
division >>/ dan \
exponential >>^
modulus >> rnod

Visual studio 2008

*menu bar, berisi menu-menu yg masing-masing menu memiliki fungsi tersendiri
*tool bar, tombol-tombol icon yg berfungsi mewakili suatu perintah yg berada pada menu bar
*tool box, jendela yg mengandung semua object atau control yg dpt di tempatkan dan dibutuhkan un tuk membentuk suatu program
*project (solution) explorer, jendela yg mengandung semua file yg ada didalam aplikasi yg akan kita buat contoh form,module,class,dll
*design view, daerah kerja utama untuk mendesign program aplikasi
*code view

contoh code menampilkan pesan
public class form1
private sub button 1 click(by val sender as system,
object,by val as system eventary
handies button 1 click

msgbox("HALO")
end sub
end class
contoh code menampilkan pesan pada label
public class form 1

private sub button 1 click(by val sender as object,by vale as system,event handles
button 1 click






Visual Basic 2008 merupakan salah satu paket bahasa pemograman dari visul studio 2008. Visual studio 2008 sendiri merupakan software untuk membuat sebuah aplikasi windows. Jadi, melalui software ini kita bisa membuat sebuah aplikasi seperti database.
        * Mengenal Visual Studio 2008
Pada dasarnya tampilan baru ini memudahkan kita dalam menggunakan software visual basic (disingkat VB)
Ada 2 buah istilah yg perlu kita ketahui dalam visul studio 2008 yaitu :
*Project, sebutan bagi sebuah software yg sedang melalui tahap pembuatan menggunakan visual studio, belum menjadi sebuah aplikasi.
*Solution adalah kumpulan beberapa buah project, sebuah solution dapat terdiri atas satu buah project atau beberapa buah project.
        * Cara membuat aplikasi Visual Basic baru
Buka file lalu New Project setelah itu Visual basic lalu windows dan pada panel tengah kita pilih windows forms application ganti Name dan location lalu klik OK. VB akan membawa kita ke lembar kerja baru dengan sebuah forms di dalamnya lembar kerja disebut juga dengan form designer. Pada jendela kita bisa mendesign tampilan program sesuai keinginan kita. Pada jendela solution explorer, kita dapat melihat nama solution dan nama project yg digunakan oleh aplikasi ini.
Solution Explorer dapat digunakan untuk menambahkan project baru pada sebuah solution. Untuk menambahkan project baru klik kanan nama solution pada jendela solution explorer dan pilih menu Add New Project.
Ada beberapa hal yg perlu kita ketahui untuk menggunakan visual basic 2008 :
* menambahkan komponen VB
Pada sebuah form harus tersedia komponen atau control lain didalamnya seperti komponen label untuk menambahkan sebuah text kedalam form.
VB menyediakan berbagai jenis komponen yg dapat kita tambahkan pada sebuah form komponen tersebut tersedia pada jendela toolbar.

Toolbox membagi penggunaan komponen VB menjadi beberapa kategori tujuannya untuk mempermudah peenggunaan komponen VB itu sendiri. tambahkan 1 buah button pada sebuah form lalu klik properties ganti text menjadi judul yg kita inginkan.

menambahkan script VB
program ini berguna untuk menampilkan sebuah pesan ketika tombol PESAN diklik oleh user