Penilaian Mahasiswa

Ini adalah gambar untuk membuat penilaian mahasiswa.Berikut adalah gambarnya:

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12110234"

                nama.Text = "jonny"

                jenjang.Text = "S1"

                jurusan.Text = "Teknik informatika"

            Case "12110235"

                nama.Text = "sari mutiara"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen informatika"

            Case "12110236"

                nama.Text = "kartini ros"

                jenjang.Text = "S1"

                jurusan.Text = "Sistem informatika"

            Case "12110237"

                nama.Text = "ratna sari"

                jenjang.Text = "S1"

                jurusan.Text = "Sistem informatika"

        End Select

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged

        Select Case kodedosen.Text

            Case "001"

                nd.Text = "Tonni Limbong S.Kom,M.Kom"

            Case "002"

                nd.Text = "Garuda Ginting,ST,M.Kom"

            Case "003"

                nd.Text = "Mesran,S.Kom,M.Kom"

            Case "004"

                nd.Text = "Sinar sinurat,ST,M.Kom"

        End Select

    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakul.SelectedIndexChanged

        Select Case kdmatakul.Text

            Case "011"

                matakul.Text = "Sistem basis data"

            Case "012"

                matakul.Text = "Visual basic"

            Case "013"

                matakul.Text = "Struktur data"

            Case "014"

                matakul.Text = "Interaksi Manusia dan Komputer"

        End Select

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        npm.Items.Add("12110234")

        npm.Items.Add("12110235")

        npm.Items.Add("12110236")

        npm.Items.Add("12110237")

        kodedosen.Items.Add("001")

        kodedosen.Items.Add("002")

        kodedosen.Items.Add("003")

        kodedosen.Items.Add("004")

        kdmatakul.Items.Add("011")

        kdmatakul.Items.Add("012")

        kdmatakul.Items.Add("013")

        kdmatakul.Items.Add("014")

        Dim x As Integer

        For x = 0 To 100

            nilaikehadiran.Items.Add("" & x)

            nilaitugas.Items.Add("" & x)

            nilaiuts.Items.Add("" & x)

            nilaiuas.Items.Add("" & x)

        Next

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        na.Text = 0.1 * nilaikehadiran.Text + 0.2 * nilaitugas.Text + 0.4 * nilaiuts.Text + 0.6 * nilaiuas.Text

        If na.Text >= 80 Then

            nh.Text = "A"

        ElseIf na.Text > 70 Then

            nh.Text = "B"

        ElseIf na.Text >= 60 Then

            nh.Text = "C"

        ElseIf na.Text >= 50 Then

            nh.Text = "D"

        Else

            nh.Text = "E"

        End If

        If na.Text >= 50 Then

            keterangan.Text = "Lulus"

        Else

            keterangan.Text = "Gagal"

        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kodedosen.Text = ""

        nd.Text = ""

        kdmatakul.Text = ""

        matakul.Text = ""

        nilaikehadiran.Text = ""

        nilaitugas.Text = ""

        nilaiuts.Text = ""

        nilaiuas.Text = ""

        na.Text = ""

        nh.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

Ini adalah hasil gambar hasil dari rancangan diatas:

Terimakasih.

http://katarinachite.blogspot.com/2013/11/penilaian-mahasiswa.html

sekilas tentang blggger

Apa sih Manfaat NgeBlog.? - Sobat yang baru mulai ngeblog pasti banyak bertanya apa manfaat ngeblog atau istilanya ngoprek blog, hanya buang-buang waktu saja, benar kan.?, tapi disini saya akan menepis anggapan itu, dengan berbagai manfaat atau kegunaan ngeblog itu sendiri.

Memang awal-awal terasa sangat membosankan ngeblog itu, saya juga demikian. Awal saya kenal blog itu tahun 2010-an. Pertama kali login pada akun blog tidak ada hal yang istimewa, mau apa saya disini, posting males lah, ngoprek desain males lah, dan akhirnya saya logout lagi. Sampai tahun 2011 saya meninggalkan apa itu yang namanya blog.

Tapi, saat saya tengah menjalani aktifitas kuliah tepatanya pada tahun 2012, banyak sekali orang yang menggunakan blog atau website sendiri. Saya jadi penasaran apa sih manfaat ngeblog, disidik-sidik tiap orang punya alasan masing-masing, ada yang sekedar hobi saja, ada yang untuk bisnis, dan lain sebagainya. Saya pun mencoba untuk belajar blog, sampai saat ini saya terus ngeblog dengan berbagai manfaat yang saya dapatkan, diantaranya :

1. Sobat bisa sharing ilmu dengan blogger di luar sana.

Yup, banyak sekali blogger berkelian di dunia maya, sobat bisa mencari kriteria blog yang sesuai dengan pembahasan blog sobat sendiri sebagai acuan dan perbandingan dalam mengembangkan blog.

2. Menjalin silaturahmi antar sesama blogger.
Tanpa adanya bloger-bloger diluar sana, blog sobat tidak ada apa-apanya, mulailah setiap sobat berkunjung di blog orang lain dengan berkomentar di dalam blognya ataupun sekedar sapa-sapa saja. Dengan adanya obrolan sederhana seperti itu, blog sobat setidaknya akan dikunjungi balik oleh blog yang sobat sapa tadi.

3. Kepuasan tersendiri
Pada hal ini, ada kepuasan tersendiri jika sobat ngeblog, diantaranya membuat suatu postingan yang banyak pembacanya, tidak ada salahnya kita berpromosi postingan ke blog orang lain asal sesuai prosedur dan aturan yang berlaku dalam blog yang sobat kunjungi.

4. Blog Untuk Bisnis
Nah untuk yang ini sobat bisa fokuskan blog untuk bisnis, salah satunya dengan memasang iklan di dalam blog sobat. Pundi-pundi uang mengalir, sobat jadi semangat dalam ngeblog.

5. Melatih kemampuan mengetik dan menambah wawasan.
Hal ini saya rasakan sendiri sejak saya foukus ngeblog, kemampuan mengetik saya menjadi meningkat dan wawasan saya di dunia blog juga semakin bertambah. Dengan melihat blog-blog di luar sana dengan topik yang berbeda-beda, akan menambah ilmu untuk kita sendiri..

Kita ngeblog tidak harus setiap saat membuat postingan, tapi alangkah baiknya juga postingan sobat banyak dan bermanfaat bagi orang lain yang membacanya.

Idblognetwork adalah sebuah perusahaan yang mempertemukan publisher dan pengiklan lewat dunia maya, maksud saya internet. IdBlogNetwork atau IBN launching pada bulan Agustus tahun 2010. Sudah 3 tahun berdiri IdBlogNetwork mendapat sambutan yang hebat dari blogger maupun advertiser. Konsep yang ditawarkan IdBlogNetwork kepada blogger adalah komisi yang sangatlah pantas, sedangkan untuk advertiser IdBlogNetwork menawarkan kualitas dan keanekaragaman publisher.

Sebelum mendaftar di Idblognetwork.com , pastikan anda mempersiapkan blog anda terlebih dahulu. KarenaIdblognetwork sangat selektif dalam memilih blog yang akan dijadikan publishernya dan jika tidak mempersiapkan ini pasti blog anda tidak akan kebagian jatah iklan. Ok, saya akan membeberkan 10 kriteria blog yang paling disukai IdBlogNetwork. Berikut kriterianya

1. IdBlogNetwork Suka Blog yang Punya Trafik Gede

Tahukan maksud saya, IBN menyukai blog yang memiliki trafik gede. Jika blog kalian masih rendah trafiknya, kemungkinan besar blog sobat akan sulit mendapatkan jatah iklan PPC apalagi job review.

2. IdBlogNetwork Menyukai konten yang Original

Ternyata tidak hanya google saja yang menyukai konten original, IBN pun demikian. Di IdBlogNetwork copy paste artikel sangat tidak dianjurkan (meskipun bloleh). Buktinya, mereka yang memiliki tulisan original lebih sering mendapatkan jatah iklan.

3. IdBlogNetwork Anti Blog Porn/Dewasa dan Sara

Hati-hati deh sama yang satu ini, aturan yang ini kalau diabaikan bakalan fatal. Sudah ada beberapa member IBN yang dikeluarkan (banned) gara-gara hal ini. Jadi jangan sekali-kali mengkombinasikan konten dewasa dengan IBN atau IBN akan segera mengeksekusi.

4. IdBlogNetwork lebih menyukai Blogger Nusantara

Maksud Blogger Nusantara bukan blog yang ada di Indonesia loh, maksudnya adalah mereka yang tergabung di BloggerNusantara. Tahun lalu kodpar Aku Blogger Nusantara diselenggarakan oleh IBN dan disponsori beberapa perusahaan lokal.

5. IdBlogNetwork Suka Tulisan yang Unik

Loh bukannya original sama unik itu sama? kalo menurut saya beda, original bisa berarti menulis tulisan hasil sendiri. Kalau unik berarti beda dengan kebanyakan dan punya ciri khas, nah blog yang memiliki ciri tulisan tertentu/khas itulah yang disukai IBN.

6. IdBlogNetwork Suka Blog yang Update

Ini juga salah satu alasan kenapa blog kita tidak mendapatkan iklan, bisa jadi kita tidak meng-update blog kita. Blog yang update lebih disukai oleh IBN dibandingkan dengan blog yang jarang update. kayaknya blog yang update lebih menarik.

7. IdBlogNetwork Suka Blog yang Rapih

Kenapa demikian? saya juga kurang tahu. Tapi, setelah saya amati beberapa member yang tergabung di IBN, mereka yang blognya rapih relatif lebih konsisten mendapatkan PPC dibandingkan blog yang asal-asalan. Tetapi saya setuju, blog yang rapih memang seharusnya lebih diperhatikan.

8. Umur Blog Ternyata Diperhatikan Juga!

Bikin blog, nuslis, lalu daftar IBN. Aduh, kalo caranya begitu sulit deh diterima IBN, kalaupun diterima mungkin jatah PPC nya pun gak kebagian. Untuk blog yang baru, sebaiknya jangan fokus dulu main matre-matrean. Kalo boleh saran, blog yang baru fokusnya ke ngisi konten dan ngisi trafik dulu deh.

9. Semakin Baik Rangking Blog, Semakin Disukai IBN

Nah, ternyata diam-diam IBN juga merhatinn rangking, baik itu alexa rank ataupun google page rank. Untuk Alexa rank dibawah 10,000,000 (Global Ranking), blog yang memiliki rangking dibawah 500k kesempatan dapat jatah PPC atau Job Review semakin besar. Sedangkan Google PR, sebaiknya PR 2 keatas.

10. IBN Ternyata Suka Blog WordPress

Bukan blog yang memakai subdomain .wordpress yah maksudnya, tetapi blog yang memakai CMS wordpress. Jika saya perhatikan kebanyakan member IBN yang sudah dapat job review dan PPC adalah mereka yang memakai WP. Mungkin juga IBN lebih suka dengan domain mandirinya.

cara untuk mencek kualitas laptop sendiri

Pas kita mau beli laptop atau PC, bingung mau pilih yang mana. Ada banyak jenis, macam dan berbagai spesifikasi dari laptop atau PC. Nah, saya beri cara untuk membaca spesifikasi Laptop atau PC.


Saya ambil contoh Laptop Acer 4740 :

Core i3-330M 2.13 Ghz
VGA GMA 4500
RAM 1 Gb
HDD 320 Gb
Display 14"

DVD RW, Wi-Fi
Windows 7 Starter


Kita mulai baca dari atas.


Core i3-330M 2.13 Ghz

Ini adalah jenis prosesor yang digunakan. Banyak tipe dan jenis yang beredar di pasaran.Core i3-330M adalah jenis prosesornya. Disini digunakan Prosesor Core i3 dari perusahaan Intel. Ini merupakan prosesor baru yang dimiliki oleh Intel. Ada juga prosesor Phenom X4 dari perusahaan AMD.

Lalu 2.13 Ghz adalah kecepatan yang dimiliki dari prosesor tersebut. Semakin tinggi kecepatannya maka semakin cepat pemrosesan datanya. Tapi semakin cepat panas juga laptop atau Motherboard PC anda.


VGA GMA 4500

Ini merupakan jenis VGA (Video Graphic Adapter/ Kartu Video). VGA jenis in biasa digunakan pada standard Laptop dan Netbook. Kalau anda ingin mencari VGA Card yang hebat, anda bisa memilih VGA Card dari perusahaan ATI atau NVIDIA. ContohnyaNvidia GT 220 1Gb. 1Gb adalah memori yang dimiliki oleh VGA Card. Semakin baru jenis VGA Card anda, maka semakin bagus kualitas Grafis dari laptop atau PC anda.


RAM 1Gb

RAM (Random Acces Memory) adalah jenis memori pada laptop dan PC anda. Memori ini digunakan untuk menyimpan data dan pemrosesan sementara. Semakin tiggi kapasitas yang dimiliki memori, maka semakin leluasa anda membuka banyak aplikasi dan pemrosesan. Tapi, kapasitas memori harus seimbang dengan spesifikasi prosesor. Contohnya prosesor Pentium 4 dengan RAM 4 Gb. Jika tidak seimbang, maka kinerjadari prosesor akan terganggu. Seimbang atau tidaknya memori dengan prosesor , bisa anda perkirakan sendiri. Hehehehe... :)

HDD 320 Gb 

HDD (Hard Disk Drive) adalah media penyimpanan. Hard Disk dengan kapasitas yang besar, membuat anda bisa menyimpan data lebih banyak. Perlu diperhatikan juga kecepatan RPM (Read Per Minute/ kecepatan baca) dan buffer memori. Semakin tinggi kecepatan abcanya, maka semakin cepat Hard Disk melakukan tugasnya seperti meng-copy data lebih cepat.


Display 14"

Ini merupakan ukuran layar yang dimiliki dari laptop dan monitor PC. 14" dibaca 14 inchi. Semakin besar ukurannya tentunya semakin leluasa anda melihat layar laptop atau monitor PC anda. Tapi, untuk monitor PC, pilih jenis LCD dan hemat energi yah.. :)


DVD-RW dan Wi-Fi

DVD-RW adalah Disc Drive (Optical Drive/ untuk memasukkan CD). Disini, DVD-RW merupakan standar Disc Drive yang ada di laptop dan PC. Ada juga CD-R, CD-RW, DVD-R, DVD-RW, dan Blu Ray. Huruf R dan W pada Disc Drive, merupakan singkatan dari Read (R) dan Write (W). Jika ada kedua huruf tersebut pada Disc Drive anda, berarti Disc Drive anda bisa menulis dan membaca Disc/CD. DVD dan CD merupakan varian dari jenis CD.

Wi-Fi merupakan wireless atau sarana untuk internet tanpa kabel (nirkabel). Terdapat jenis-jenis Wi-Fi. Contohnya 802.11 b/g. Ini merupakan kecepatan atau jangkuan sinyal Wi-Fi yang bisa ditangkap oleh Laptop anda.


Windows 7 Starter

Ini adalah sistem operasi yang digunakan oleh laptop atau PC anda. Terdapat jenis sistem operasi yang digunakan. Misalnya Windows 7, Windows XP, dan lain-lain. Tulisan Starter merupakan tipe dari Windows 7 tersebut. Terdapat perbedaan tipe dari setiap Windows 7. Contohnya Windows 7 Ultimate dengan fitur yang lebih "wah" dari Windows yang lainnya. Tapi, sebaiknya anda menggunakan sistem operasi Linux (Distro Mandriva aja yah^^) agar tidak menambahkan biaya pembelian Lisensi sistem operasi yang komersil :)




Nah, itu adalah cara saya membaca spesifikasi Laptop dan PC yang dijual di pasaran.
Hehehehehe...
Untuk informasi hardware yang lebih spesifik, anda bisa membacanya di artikel saya nanti.


Nb : Mohon di ralat bila ada yang salah. Dan tolong di comment yah... ^^

                                                     mari belajar visual basic

Untuk matakuliah pemrograman visual, para mahasiswa dituntut agar dapat menggunakan bahasa pemrograman visual basic.(menurut info yang gw dapet gt sih). Maka dari itu mari kita mempelajari apa sih sebenernya visual basic dan apa saja yang bisa di buat dari visual basic. Nah pada artikel kali ini akan di jelaskan seidikit tetang contoh aplikasi yang bisa di kerjakan di visual basic.
Tapi sebelumnya kita masuk teori dulu yah :) apa sih visual basic itu?

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang bersifat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM). Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat, Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda. Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan. Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas. Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.
Anda bisa mendownload visual basic di http://www.microsoft.com/express/

Creating our first application

Cukup untuk teori, saatnya praktikum :)
Buka aplikasi visual basic 2008 anda lalu kli file>new project
Lalu pilih windows form application, kasi nama projectnya, terus klik ok.
Nah akan tampil interface tempat kita membuat aplikasi.

Untuk pertama kali mari kita membuat aplikasi menghitung luas persegi panjang.
Dari toolbox buka bagian common control sehingga muncul tool2 yang bisa kita gunakan, tarik sebuah label (simbolnya A), lalu tarik sebuah button atur sedemikian rupa sehingga tampak menarik.
Lalu pada bagian properties (kanan bawah, kalau tidak ada klik view>properties windows) ubah properties dari label dengan mengklik label lalu ganti

Text : luas = 0
Name : hasil

klik button ganti propertiesnya

Text : hitung

pada form klik 2x pada button (akan membuka jendela script)

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

disinilah kita letakkan coding untuk button

End Sub
End Class

Tambahkan code berikut di antara Button1.Click dan End Sub

Dim p, l, luas As Integer
p = 12
l = 4

luas = p * l
hasil.Text = "Luas = " & luas

sehingga semua code akan menjadi serperti ini

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p, l, luas As Integer
p = 12
l = 4

luas = p * l
hasil.Text = "Luas = " & luas

End Sub
End Class

penjelasan : Dim digunakan untuk mendeklarasikan variabel pada VB, Cth: Dim p As Integer (membuat variabel p dengan tipe data integer.
lalu beri nilai p = 12, beri niai l = 4, dan nilai luas = p*l (panjang x lebar) dan terakhir ganti text pada label hasil dengan : “Luas = “ & luas.
Fungsi dari “&” adalah untuk mengubungkan text dengan variabel yang ingin dimasukkan kedalam text.

sekarang bagaimana caranya agar panjang dan luas dapat di inputkan dari user?

Modifikasi form dengan menambahkan 2 label dan 2 textbox

Ganti properties Label1

Text : panjang

Label2

Text : lebar

Klik 2x button hitung lalu masukkan code berikut diantara Button1.Click dan End Sub

Dim luas As Double

luas = Val(TextBox1.Text) * Val(TextBox2.Text)

hasil.Text = "Luas = " & luas
MsgBox("Luas = " & luas)

okay. Begitu lah kira2.

Membuat Aplikasi Bangun Datar

nanggung nih, :) lanjut aja dah untuk membuat aplikasi bangun datar.
Klik form, pada properties, text ketikkan “Menghitung Luas”
Tarik 1 label lalu ganti properties text nya menjadi “Bangun datar”
Selanjutnya tarik sebuah ComboBox, kemudian pada properties Klik item dan akan muncul tombol yang berisi titik2. Klik tombol tersebut, lalu isikan item berikut ini.
Persegi
Persegi Panjang
Segitiga
Jajar Genjang
Trapesium
Lingkaran
Layang-layang
Belah Ketupat
(antara item 1 dan yang lainnya pisahkan dengan tombol enter)

Tarik lagi sebuah button, kemudian pada bagian propreties, ganti textnya menjadi “hitung”

Tarik 2 label ganti properties label2

text : hasil
font : Microsoft Sans Serif/Bold/12

properties label3

text : 0
font : Microsoft Sans Serif/Bold/14
name: Labelhasil

tarik lagi 3 label (hehe jangan bosen2 menariknya yah :P ) ganti properties nya
label yang pertama

Text : L1
Name : L1
visble : false

label yang kedua

Text : L2
Name : L2
visble : false

label yang ketiga

Text : L3
Name : L3
visble : false

dan ini yang terakhir (akhirnya :P ), tarik lagi 1 button ganti propreties
text : exit

selesai untuk interfacenya. bingung ?
lihat nih contoh interface yang gw bikin


Saatnya koding
Double klik button1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bil1, bil2, bil3 As Double
Dim luas As Double

L1.Visible = False
L2.Visible = False
L3.Visible = False

If ComboBox1.Text = "Persegi" Then
bil1 = InputBox("Masukkan nilai SISI")

L1.Visible = True
L1.Text = "Sisi = " & bil1

luas = bil1 * 2
Labelluas.Text = luas

ElseIf ComboBox1.Text = "Persegi Panjang" Then
bil1 = InputBox("Masukkan nilai PANJANG")
bil2 = InputBox("Masukkan nilai LEBAR ")

L1.Visible = True
L1.Text = "Panjang = " & bil1
L2.Visible = True
L2.Text = "Lebar = " & bil2

luas = bil1 * bil2
Labelluas.Text = luas

ElseIf ComboBox1.Text = "Segitiga" Then
bil1 = InputBox("Masukkan nilai ALAS")
bil2 = InputBox("Masukkan nilai TINGGI")

L1.Visible = True
L1.Text = "Alas = " & bil1
L2.Visible = True
L2.Text = "Tinggi = " & bil2

luas = 0.5 * bil1 * bil2
Labelluas.Text = luas

ElseIf ComboBox1.Text = "Jajar Genjang" Then
bil1 = InputBox("Masukkan nilai ALAS")
bil2 = InputBox("Masukkan nilai TINGGI")

L1.Visible = True
L1.Text = "Alas = " & bil1
L2.Visible = True
L2.Text = "Tinggi = " & bil2

luas = bil1 * bil2
Labelluas.Text = luas

ElseIf ComboBox1.Text = "Trapesiium" Then
bil1 = InputBox("Masukkan nilai SISI SEJAJAR1")
bil2 = InputBox("Masukkan nilai SISI SEJAJAR2")
bil3 = InputBox("Masukkan nilai SISI TINGGI")

L1.Visible = True
L1.Text = "Sisi Sejajar1 = " & bil1
L2.Visible = True
L2.Text = "Sisi Sejajar2 = " & bil2
L3.Text = True
L3.Text = "Sisi Sejajar2 = " & bil3

luas = 0.5 * (bil1 + bil2) * bil3
Labelluas.Text = luas

ElseIf ComboBox1.Text = "Lingkaran" Then
bil1 = InputBox("Masukkan nilai JARI-JARI")

L1.Visible = True
L1.Text = "Jari-jari = " & bil1

luas = 22 / 7 * bil1 * bil1
Labelluas.Text = luas

ElseIf ComboBox1.Text = "Layang-layang" Then
bil1 = InputBox("Masukkan nilai DIAGONAL1")
bil2 = InputBox("Masukkan nilai DIAGONAL2")

L1.Visible = True
L1.Text = "Sisi Sejajar1 = " & bil1
L2.Visible = True
L2.Text = "Sisi Sejajar2 = " & bil2

luas = 0.5 * bil1 * bil2
Labelluas.Text = luas

ElseIf ComboBox1.Text = "Belah Ketupat" Then
bil1 = InputBox("Masukkan nilai DIAGONAL1")
bil2 = InputBox("Masukkan nilai DIAGONAL2")

L1.Visible = True
L1.Text = "Sisi Sejajar1 = " & bil1
L2.Visible = True
L2.Text = "Sisi Sejajar2 = " & bil2

luas = 0.5 * bil1 * bil2
Labelluas.Text = luas

End If
End Sub

code diatas untuk menghitung luas bangun datar yang di pilih. di perhatiin aja bener2, ntar ngerti sendiri tuh. :)

Button2

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub