Select pada VB

SELECT CASE

Bentuk decision yang kedua setelah if adalah case dipergunakan untuk menyeleksi kondisi dan mengujinya sama dengan fungsi IF, perbedaannya IF dapat menguji lebih dari satu variabel sedangkan Case di rekomendasikan untuk nilai dari satu variabel.

 Jika gol=3 dan status=tetap maka…..àContoh : IF
Jika untuk case bentuk diatas tidak dapat diselesaikan.

7 Langkah Kunci Kesuksesan

1. Memutuskan untuk Sukses
   

“Always bear in mind that your own resolution to succeed is more important than any other.” (“Selalu ingat bahwa tekad Anda untuk sukses adalah lebih penting dari yang lainnya.”)
-Abraham Lincoln

Tips Sukses Menghadapi Sidang

Jika anda mahasiswa/i tingkat akhir, mungkin tidak lama lagi akan menghadapi sidang skripsi/kerja praktek/yang lainnya. Dan biasanya hal ini yang paling ditakutkan. Sesaat si mahasiswa akan terkena sindrom sidangisme. Perut mules, pengen minum terus, keringat dingin keluar, gak enak duduk, panik, resah, gelisah dan masih banyak lagi yang lainnya…

TENTANG SAYA

     Nama saya Fricles Ariwisanto Sianturi, saya dilahirkan pada tgl, 26 - september 1991, saya anak ke 2 dari 5 bersaudara, belajar formal disekolah saya awali di SD 173276 hutasoit pardomuan 6thn kemudian lulus dan melanjutkan sekolah diSLTP Negri 2 Siborongborong, selepas lulus saya belajar di SMA PGRI 20 Siborongborong.

CIRI-CIRI ORANG YANG SUKA BEGADANGCIRI-CIRI ORANG YANG SUKA BEGADANG

1. Suka bangun kesiangan bahkan sampai sore
Ini dikarenakan kebiasaan tidak tidur semalaman sehingga siang dijadikan malam, malam dijadikan siang.
...
2. Lebih semangat bekerja saat malam tiba
Ya, disini orang yang sudah terbiasa begadang akan merasa sangat bergairah melakukan sesuatu di malam hari, entah itu untuk pekerjaan ataupun hal-hal lainnya.

3. Makan saat rasa lapar datang
Rata-rata orang yang hobi begadang terkadang lupa sama yang namanya makan, mereka cenderung asik dengan kegiatannya masing-masing. di saat perut mereka lapar baru mereka makan, jelas ini sangat tidak baik untuk kesehatan.

Konsep Sistem Client Server

Konsep Sistem Client Server

Pendahuluan

Diawal perkembangannya perangkat komputer adalah barang yang mahal dan mewah. Pengembangan dan pengoperasiannya rumit dan terpusat. Namun seiring dengan berjalannya waktu yang tadinya proses tersentralisasi dikembangakan menjadi proses terdistribusi sampai pada end user. Hal ini sangat dipengaruhi oleh adanya perkembangan teknologi LAN (Local Area Network) di pertengahan tahun 1980 an. Dengan LAN sebuah PC dapat melakukan komunikasi satu dengan lainnya dan dapat saling berbagi resource baik perangkat keras ataupun database. LAN mampu memberikan interkonektivitas yang tidak pernah ada sebelumnya. Untuk dapat melakukan hal tersebut dibutuhkan sebuah komputer pemproses yang memfasilitasi dan melayani proses sharing semua resource yang ada. Perangkat ini disebut dengan Server. Untuk melakukan Sharing File biasanya dibutuhkan sebuah File Server begitu juga untuk sharing Printer dibutuhkan sebuah Printer Server. Namun ternyata hal seperti ini belumlah cukup. Jumlah PC yang bertambah dengan sangat cepat seiring dengan berkembangnya sebuah organisasi. Jumlah end user dan client juga bertambah banyak. Kebutuhan akan perangkat menjadi bertambah pula, tidak hanya membutuhkan sebuah printer server, juga dibutuhkan server-server lainnya seperti server pengolahan gambar, server pengolahan suara, dan lainnya. Server-server ini dengan database dan applikasinya harus dapat diakses oleh beberapa PC, ataupun diakses oleh sebuah komputer mainframe melalui sebuah LAN. Sistem seperti ini disebut Sistem Client Server seperti digambarkan pada Gambar 1 dibawah ini.

Prorgam KALKULATOR SEDERHANA

cal 'sora'

Public Class Form1
Dim b1, b2, h As Double
Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
b1 = Val(TextBox1.Text) ‘untuk mengidentifikasikan angka yang dimasukkan pada textbox1
b2 = Val(TextBox2.Text) ‘untuk mengidentifikasikan angka yang dimasukkan pada textbox2
h = b1 + b2 ‘perhitungan antara variabel yang telah dideklarasikan
TextBox3.Text = Str(h) ‘hasil perhitungan yang akan ditampilkan pada textbox3
End Sub
Private Sub btnbagi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbagi.Click
b1 = Val(TextBox1.Text)
b2 = Val(TextBox2.Text)
h = b1 / b2
TextBox3.Text = Str(h)
End Sub
Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox3.Clear()
Me.TextBox1.Focus()
End Sub
Private Sub btnkali_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkali.Click
b1 = Val(TextBox1.Text)
b2 = Val(TextBox2.Text)
h = b1 * b2
TextBox3.Text = h
End Sub