Tugas pemograman visual basic

TUGAS PEMOGRAMAN VISUAL BASIC

Belajar Pemrograman Visual basic.

1. Buka Microsoft Visual Studio 2008

2. Klik => Create: Project
3. Ubah Project name dengan Nama anda

4. Maka setelah itu akan muncul sebuah Form1 pada Project kita

5.Coba desain form anda sesuai dengan gambar ini:

    

 Ketentuan  :

1. Jika kita pilih NPM, Maka Nama, Jenjang beserta Jurusan, akan muncul secara otomatis, dan tanpa di undang..

2. Jika kita pilih Kode dosen, maka Nama dosen secara otomatis muncul

3. Jika kita pilih Kode matakuliah, nama mata kuliah secara otomatis muncul

4. Nilai Tugas, Nilai UTS, Nilai Hadir, dan Nilai UAS harus kita pilih dahulu lalu..

5. Jika proses di click, maka Nilai Akhir, Nilai Huruf, dan Keterangan akan mucul bersamaan.

Note: untuk “label”, anda hanya cukup mengganti “Text” nya saja,

untuk “combobox” dan “text box” hanya cukup mengganti “Name” nya saja,

untuk “button”nya baru di ganti “name” dan “text”nya,

bila sudah selesai di desain,maka langkah selanjutnya 

6. Pengkodingan

double click di froam load anda,

   lalu ketikan listing program 

Public Class Form3

    Sub addnpm()

        npm.Items.Add("12110825")

        npm.Items.Add("12110177")

        npm.Items.Add("12110189")

        npm.Items.Add("12110278")

        npm.Items.Add("12110796")

    End Sub

    Sub addkodedosen()

        kodedosen.Items.Add("D 001")

        kodedosen.Items.Add("D 002")

        kodedosen.Items.Add("D 003")

        kodedosen.Items.Add("D 004")

        kodedosen.Items.Add("D 005")

    End Sub

    Sub addkodematakuliah()

        kodematakuliah.Items.Add("221AKTI")

        kodematakuliah.Items.Add("876KSI")

        kodematakuliah.Items.Add("1178KMI")

        kodematakuliah.Items.Add("1341BRU")

        kodematakuliah.Items.Add("kkti0612")

    

    End Sub

    Sub addhapus()

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kodedosen.Text = ""

        namadosen.Text = ""

        kodematakuliah.Text = ""

        matakuliah.Text = ""

        nilaikehadiran.Text = ""

        nilaitugas.Text = ""

        nilaiuts.Text = ""

        nilaiuas.Text = ""

        nilaiakhir.Text = ""

        nilaihuruf.Text = ""

        Keterangan.Text = ""

    End Sub

    Sub addlooping()

        Dim x As Integer

        For x = 100 To 1 Step -3

            nilaikehadiran.Items.Add(x)

            nilaitugas.Items.Add(x)

            nilaiuts.Items.Add(x)

            nilaiuas.Items.Add(x)

        Next x

    End Sub

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

        Call addnpm()

        Call addkodedosen()

        Call addkodematakuliah()

        Call addlooping()

    End Sub

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

        Select Case npm.Text

            Case "12110825"

                nama.Text = "Hariandi manurung"

                jenjang.Text = "SI"

                jurusan.Text = "Teknik Informatika"

            Case "12110278"

                nama.Text = "Alimsyah kurnia"

                jenjang.Text = "si"

                jurusan.Text = "Teknik Informatika"

            Case "12110177"

                nama.Text = "Sakti Ananda"

                jenjang.Text = "SI"

                jurusan.Text = "Sistem Informasi"

            Case "12110189"

                nama.Text = "azmylauranita"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen Umum"

            Case "12110796"

                nama.Text = "ahmad riyan dayani"

                jenjang.Text = "DI"

                jurusan.Text = "Komputerisasi Akutansi"

        End Select

    End Sub

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

        Select Case kodedosen.Text

            Case "D 001"

                namadosen.Text = "Mesran M.Kom"

            Case "D 002"

                namadosen.Text = "Alex Riki Sinaga M.Kom"

            Case "D 003"

                namadosen.Text = "Megaria Purba M.Kom"

            Case "D 004"

                namadosen.Text = "Guidio L Ginting S.Kom"

            Case "D 005"

                namadosen.Text = "yasir hasan,s.kom"

        End Select

    End Sub

    Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged

        Select Case kodematakuliah.Text

            Case "221AKTI"

                matakuliah.Text = "Pemograman Visual 1 "

            Case "876KSI"

                matakuliah.Text = "Struktur Data"

            Case "1178KMI"

                matakuliah.Text = "Kalkulus"

            Case "1341BRU"

                matakuliah.Text = "Komunikasi Data"

            Case "kkti0612"

                matakuliah.Text = "sistem operasi"

        End Select

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        nilaiakhir.Text = 0.1 * nilaikehadiran.Text + 0.15 * nilaitugas.Text + 0.3 * nilaiuts.Text + 0.45 * nilaiuas.Text

        If nilaiakhir.Text >= 81 Then

            nilaihuruf.Text = "A"

            Keterangan.Text = "LULUS"

        ElseIf nilaiakhir.Text >= 75 Then

            nilaihuruf.Text = "B+"

            Keterangan.Text = "LULUS"

        ElseIf nilaiakhir.Text >= 70 Then

            nilaihuruf.Text = "B"

            Keterangan.Text = "LULUS"

        ElseIf nilaiakhir.Text >= 65 Then

            nilaihuruf.Text = "C+"

            Keterangan.Text = "LULUS"

        ElseIf nilaiakhir.Text >= 60 Then

            nilaihuruf.Text = "C"

            Keterangan.Text = "PERBAIKAN"

        ElseIf nilaiakhir.Text >= 50 Then

            nilaihuruf.Text = "D"

            Keterangan.Text = "PERBAIKAN"

        Else

            nilaiakhir.Text = "E"

            Keterangan.Text = "GAGAL"

        End If

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Call addhapus()

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        Close()

    End Sub

End Class

7. setelah selesai, tekan F5 atau Start Debugging untuk menjalankan programnya

Hasilnya :

keterangan

·  Nama, Jenjang, dan Jurusan akan muncul saat anda memilih NPM

·  Nama Dosen akan muncul saat anda memilih Kode Dosen

·  Mata kuliah akan muncul saat anda memilih Kode Mata Kuliah

·  Nilai Kehadiran, Nilai Tugas, Nilai UTS, dan Nilai UAS ada pilih nilai angka terserah anda.

·  kemudian klik proses maka Nilai Akhir, Nilai Huruf, dan Keterangan akan muncul.

Cara merusak komputer tampa harus menggunakan sofwer

Cara merusak komputer tampa harus menggunakan sofwer

wah parah nih judulnya, lagi pengen ngerjain orang, hehehe,, Tapi sebelum melanjutkan baca dulu ya !! , ,

Perhatian "Artikel ini hanya sebagai bahan pembelajaransaja, untuk pembaca n sobat blogger smua, penulis tidak bertanggung jawab atas semua kerugian dan tindak kekerasan yang disebabkan oleh artikel ini!,, Silahkan terapkan pada diri sendiri dulu sebelum di praktekin ke orang lain !!"...

Teknik merusak komputer yang satu ini tergolong teknik yang paling gampang dilakukan, karna tidak memerlukan software, namun kerusakan yang ditimbulkannnya sangat parah bahkan kalau para master komputer sekalipun kalau menemukan kerusakan seperti ini pasti langsung berpikir tidak bisa diselamatkan lagi jalan satu2nya instal ulang saja.

Kerusakan yang ditimbulkan adalah tidak berfungsi semua aplikasi, Komputer tetap berjalan normal dari mulai booting sampai masuk windows namun setelah itu tidak dapat digunakan lagi karna tidak bisa membuka satu aplikasi pun,,,, hmm lumayan parah.

Cara membuat kerusakan seperti ini cukup mudah

klik star/ run / CMD
Ketikkan ASSOC.EXE = terserah kamu mau ngetik apa
Enter

Lihat hasilnya,,coba jalankan komputer,,

kenapa ini bisa terjadi ?? ,, ini disebabkan fungsi exe yang tidak berfungsi lagi,,coba pake winnrar,, lihat file2 yang berakhiran .exe seperti winamp exe, dan aplikasi lainnya sekarang sudah berubah menjadi nama yang kamu ketikkan tadi

Trus gimana cara mengatasinya?

cara mengatasinya cukup mudah

Klik star run / ketikkan COMMAND

Setelah terbuka ketik ASSOC.EXE=EXEFILE

Setelah itu komputer akan bekerja normal kembali...

Mudahkan merusak komputer orang apabila anda menemukan kasus yang rusaknya seperti ini mungkin pengalaman anda setelah membaca tulisan ini bisa membantu anda , ,

Cara super ampuh memperbaiki plesdis rusak atu tidak dapat terbaca di leptop/komputer , ,

Carasuper ampuh memperbaiki plesdis rusak atu tidak dapat terbaca dileptop/komputer , , 

 

Memperbaikiplesdis dengan cara paling mudahadalah yaitu dengan cara test kesehatan Flashdisk pada komputer/ laptop lain untuk memastikan Flashdisk benar-benar tidak bisa terbaca atau komputer yang hendak kita ambil datanya saja yang tidak dapat membaca Flashdisk tersebut, sehingga kita tidak akan salah perbaikan nantinya. Apabila test kesehatan menunjukan Flashdisk dapat terbaca oleh PC (Pocket Computer) lainnya, maka hal ini dapat disebabkan oleh system yang komplik pada komputer pertama. Hal tersebut dapat diatasi dengan cara menancapkan USB Flashdisk kembali pada komputer pertama, setelah itu restart komputer supaya system fresh kembali. Apabila masih tidak terbaca juga, silahkan masuk ke RUN dengan cara tekan LogoWindows + R lalu ketikan devmgmt.msc dan tekan Enter. Selanjutnya akan muncul jendela baru (Devices Manager), disana carilah tulisan Universal Serial Bus Controller dan cari Hardware yang berwarna kuning dengan tanda seru biasanya. Apabila sudah ketemu Uninstall hardware tersebut dan restart kembali komputer. Apabila cara diatas tidak membuat Flashdisk terbaca juga, maka kemungkinan besar Flashdisk rusak karena kecerobohan kita sendiri yaitu sering cabut Flashdisk tanpa Safely Removal Storage Devices terlebih dahulu. Tapi jangan keburu di sikat sama palu atau batu dulu ya cos masih ada cara lain , , silahkan baca trik/cara dibawah ini , ,

• Cek di Device Manager , caranya :

• Klik start > settings > Control Panels.
• Dobel Klik pada icon system
• Setelah terbuka jendela Syistem Properties, klik tab Hardware
• Klik tombol Device Manager
• Kemudian cek di bagian Universal Serial Bus Controllers, terlihat ada masalah
• Tanda tanya pada bagian ini menandakan hardware tidak dikenal atau td ada driver
• Tanda silang berwarna merah pada bagian ini menandakan disable, maka jika ini terjadi lakukan klik kanan dan pilih enable
• Termasuk dalam hal ini kemungkinan perlu install ulang driver nya , ,
  klo cara ini gak mempan juga ya boleh lah anda sedikit kecewa , , tapi tenang ni mas seem masih punya cara lain , , hehehee , , silah kan baca trik dibawah ini !! , ,

Cek pada registry, caranya :

• Klik Start > Run
• Ketikan : regedit kemudian enter
• Masuk ke : HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\UsbStor
• Pada value Dwords harus bernilai 3 (enable), jika bukan 3 maka update dengan 3 lalu close dan restart

Bila ternyata tidak berhasil sobat dapat menggunakan tools khusus untuk memperbaiki atau merepair media storage sobat. Ada banyak tools yang tersedia di internet untuk merepair flash disk. Yang pernah saya gunakan adalah :

1. Repair 2.9.1.1 adalah Software ringan ( hanya 492 KB ) ini akan berjalan dan langsung mendeteksi flash disk sobat, kemudian otomatis memperbaiki kerusakannya. Kelebihan tools ini adalah ringan, penggunaannya mudah dan proses repairnya cepat.
   
   DownloadRepair 2.9.1.1

Hahahahaaa , , klok cara ini masih gagal juga , , yah apa daya mungkin plesdis anda yang minta diformat , , ya udah format ja , , tapi sebelum ada pormat silahkan cobak dulu dibuka lewat exploler , , biasanya sih bisa and lok udah masuk exploler jangan diklik bagian plesdisnya biasanya plesdis nya to kosong / 0 propertis , , tapi klik bagian plus nya ja biasanya terbuka , , selanjutnya cari file-file yg penting dan simpan di leptop/kompunter yang anda gunakan , , setelah selsai memindahkan file-file yang menurut anda penting tadi silahkan dah format secara manual tapi lok teryata gak bisa dipormat kayak biasanya coba dengan trik di bawah ini , ,

1. Klik Start -Run
2. Lalu ketiklah “compmgmt.msc” tanpa tanda petik
3. Pada bagian storage, buka disk management.
4. Normalnya flash disk anda akan terdeteksi.
5. Anda klik kanan, trus pilih create partition
6. Klik kanan lagi, pilih format. Selesai.

--> 

Demikian adalah beberapa cara memperbaiki Flashdisk yang rusak baik secara manual maupun menggunakan software, semoga bermanfaat n salam iman and islam dari ku dengan ucapan Assalamu'alaikum warohmatullahi wabarokatuh , ,

Cara mempercepat Wi-Fi dengan cmd

 

Sebulan rasaya belum ngeposting, tapi kali ini postingannya cukup menarik yaitu tentang Cara mempercepat Wi-Fi dengan cmd. Siapa yang belum kenal dengan internet gratis dengan Wi-Fi ? tentunya semua sudah mengenal hal ini. namun dikalangan User yang menggunakan Wi-Fi, seringkali membuka situs-situs yang berat sehingga kecepatan koneksi kita menurun. Namun kamu tak usah khawatir saya akan memberikan teknik simple Mempercepat Wi-Fi dengan CMD, bukan dengan netcut dan tuxcut. mari kita mulai:

1. START- RUN - ketik cmd lalu enter
2. Kemudian ketik "ipconfig /all" (tanpa kutip)
3. Kemudian kamu cari "DNS Servers kamu" misalkan 10.0.1.2
4. Jika sudah melihat DNS kamu silakan catat terlebih dahulu. lalu tekan enter 1x
5. Jadi, kamu harus mengetik "ping -l 500 10.0.1.2 -t" (tanpa kutip)
6. Tekan enter dan selamat internetan sekencangnya :D

Simple banget kan ? yaudah lah, segitu aja. sekian dan selamat mencoba. Terima Kasi

11 Tips Cara mempercepat kinerja komputer windows 7

11 Tips atau Cara untuk mempercepat kinerja komputer windows 7, terkadang kita merasa jengkel saat performa windows kita lemot. Sehingga bisa menimbulkan bad mood ataupun pekerjaan yang seharusnya bisa selesai tepat waktu menjadi
molor karena masalah komputer yang lemot.

Berikut ini Tips atau Cara untuk mempercepat windows 7 

1. MatikanVisual efek yang tidak penting,


Visual efek berfungsi untuk mempercantik tampilan windows anda, akan tetapi Visual efek berpengaruh terhadap kinerja computer. Sehingga apabila Visual efek dimatikan tentu akan membuat kinerja komputer ataupun laptop anda menjadi semakin cepat. Berikut ini langkah-langkah untuk mematikan visual efek di windows 7

• Klik Start >> klik kanan pada Computer >> kemudian klik properties >> lalu klik Advance system setting >> pilih tab advanced >> di bagian performance klik setting 

• Pada bagian Visual efek pilih adjust for best performance >> kemudian klik OK

2. Matikan aero shake.
Fitur aero shake ini berfungsi meminimize jendela yang sedang tidak digunakan. Contohnya anda membuka beberapa, Dan apabila salah satu jendela yang aktif  tersebut anda gerak-gerakkan, maka jendela yang lainnya akan di minimize secara otomatis. Berikut ini langkah untuk mematikan fitur aero shake:

• Klik Start >> lalu ketik “gpedit.msc” (tanpa tanda petik) lalu tekan tombol enter
• Setelah tampil jendela local group policy editor seperti di atas, Klik User Configuration >> Klik administrative template >> klik desktop >> kemudian di jendela sebelah kanan klik dua kali pada “turn off aero shake windows minimizing mouse gesture” >> kemudian pilih enable >> terakhir klik OK.

3. Tips atau Cara untuk mempercepat windows 7 yang ketiga adalah Memtaikan firut aero snap
Cara mematikan fitur aero snap adalah sebagai berikut:

• Klik Start >> Klik control panel >> Pilih ease of acces >> kemudian klik ease of acces center >> lalu  klik Make the mouse easier to use
• Berikan tanda centang pada “Prevent windows from being automatically arranged when to the edge of the screen” >> kemudian Klik OK.

4. Mematikan aplikasi yang tidak diperlukan di komputer atau laptop saat startup (saat baru menyala).
Langkah untuk mematikan nya adalah sebagai berikut:

• Klik Start >> ketik “msconfig” (tanpa tanda petik) kemudian tekan enter >> lalu llik tab startup >> kemudian uncheck atau hilangkan tanda centang aplikasi yang tidak diperlukan untuk dijalankan pada saat komputer melakukan startup. Klik OK.

5. Tips atau Cara untuk mempercepat windows 7 yang kelima adalah menonaktifkan gadget pada windows 7 
Untuk mematikan gadget di windows 7 dapat dilakukan dengan cara berikut ini

• Klik Start >> Kemudian klik Control Panel >> Pilih Programs >> Pilih Turn Windows features on or off  >> Kemudian hilangkan tanda centang pada “Windows gadget platform" >> lalu Klik OK. 

6. Menggunakan semua core saat booting.
Jika anda memliki komputer atau laptop ataupun notebook yang memiliki prosesor dengan banyak core, sebaiknya anda menggunakan semua core tersebut pada saat komputer melakukan booting.
Langkah untuk mengatur agar semua core processor anda dipakai pada saat komputer lemakukan booting bisa dilakukan dengan cara sebagai berikut:

• Klik Start >> ketik “msconfig” (tanpa tanda petik) >>  tekan enter 
• Klik pada tab >> boot > pilih system operasi windows 7 
• Klik advanced options >> beri tanda centang pada Number of processor >> pilih jumlah processor >> dan klik OK

7. Lakukan Disk Clean Up pada Harddisk anda.
Tahukah anda jika pada saat anda melakukan browsing ataupun saat anda melakukan kegiatan menginstal dan menguninstal software dari komputer anda akan menghasilkan registry-registry, cookies, cache yang baru yang biasanya tidak terpakai. Apabila anda tidak pernah melakukan pembersihan atau yang biasa disebut dengan, maka jumlahnya filnya akan semakin banyak dan akan menguras banyak pemakaian Hard Disk anda.Untuk melakukan Disk Clean Up dapat dilakukan dengan cara berikut ini.

• Klik Start >> Klik All Programs >> Klik Accesories >> Klik System Tools >> Klik Disk Clean Up  
• Akan muncul jendela kecil yang menyuruh kita untuk memilih partisi Harddisk mana yang ingin kita Clean Up. (pilihalah drive : C) >> Kemudian klik OK
• Maka akan muncul jendela seperti di atas. Berikan centang pada bagian yang ingin anda Clean Up. Kemudian Klik OK.

8. Defragment Disk anda Secara Teratur.
Tips yang kedelapan untuk mempercepat kinerja komputer windows 7 anda adalah  melakukan defragment disk secara teratur. Pada dasarnya proses defragment disk adalah merapikan file yang berada pada harddisk sehingga komputer akan lebih mudah dalam membacanya..

Untuk melakukan defragment Disk dapat dilakukan dengan cara berikut:

• Klik Start >> Klik All Programs >> Klik Accesories >> Klik System Tools >> Klik Disk Defragmenter
• Pilih Hard Drive yang ingin anda defrag kemudian klik defragment disk

9. Matikan System Sound

Jika anda tidak mematikan system sound makan akan mempercepat proses saat loading system.
Cara untuk mematikan system sound adalah sebagai berikut:

• Klik Start >> ketik "mmsys.cpl" (tanpa tanda petik) pada Start Search dan tekan tombol enter.
• Buka tab Sound dan pilih No Sound
• Klik OK

10. Nonaktifkan Index Search di Windows 7.

Tips kesepuluh untuk mempercepat kinerja komputer windows 7 adalah menonaktifkan Index Search di Windows 7. Berikut ini langkahnya 

• Klik start >> ketik "services.msc" (tanpa tanda petik) lalu tekan enter.
• Cari Windows Search kemudian klik kanan dan nonaktifkan service tersebut.

11. Silahkan Download gratis ebook tips trik untuk mengoptimalkan windows 7 anda disini


Demikian tadi 11 Tips atau Cara untuk mempercepat kinerja komputer windows 7

Jaringan Komputer Berdasarkan Area Kerja

Jaringan  komputer  berdasarkan  area  kerjanya  dibedakan  menjadi  empat kelompok,  yaitu:
1. Local Area Network (LAN)
Jaringan komputer ini  menghubungkan  antar-PC  (Personal  Computer)  atau  server yang berada  di  daerah  yang  tidak  terlalu  jauh,  seperti  di  dalam  gedung  atau  satu area  bangunan  dengan  radius  maksimum  10  km.  Pada  jaringan  lokal  ini, kecepatan  pengiriman  data  relatif  tinggi,  yaitu  antara  1–100  Mbps.  Biasanya, jaringan  lokal  ini  dimiliki  dan  dioperasikan  oleh  satu  lembaga  tanpa menggunakan  fasilitas  dari  perusahaan  telekomunikasi  umum.  Jaringan komputer  di  lembaga  pendidikan  umumnya  tergolong  LAN.

Skema Jaringan Komputer LAN

2. Metropolitan Area Network (MAN)
Jaringan  komputer ini  memiliki  radius  10–50  km.  MAN  merupakan  pilihan  untuk membangun  jaringan  komputer  antarkantor  dalam  suatu  kota  dengan kecepatan  transmisi  antara  45–600  Mbps.  Untuk  membentuk  jaringan  MAN, dapat  memanfaatkan  fasilitas  dari  perusahaan  telekomunikasi  umum  atau menggunakan  paket  program  radio.

Skema Jaringan Komputer MAN

3. Wide Area Network (WAN)
Jaringan  komputer ini  memiliki  radius  sangat  besar,  menghubungkan  LAN  dan  MAN melewati  batas  geografis  mencakup  antarwilayah,  antarnegara,  dan antarbenua, serta bersifat milik umum. WAN memiliki kecepatan transmisi di bawah  1  Mbps.

Skema Jaringan Komputer WAN

4. Internet
Internet  adalah  sebuah  jaringan  komputer  yang  sangat  besar  yang menghubungkan seluruh sistem jaringan komputer di seluruh dunia. Internet merupakan  kumpulan  dari  sejumlah  LAN,  MAN,  dan  WAN  dari  berbagai tempat  di  seluruh  dunia.  Setiap  komputer  yang  terhubung  dengan  jaringan internet  dapat  berkomunikasi  dalam  bentuk  pertukaran  data  dan  informasi secara  langsung.