“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
Rabu, 21 Maret 2012
7 Langkah Kunci Kesuksesan
1. Memutuskan untuk Sukses
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…
Kamis, 26 Januari 2012
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
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
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
.Belajar buat jam, hari, tanggal, message saat klik tombol, exit dengan vb.net
*Buka toolbox siapkan 3 label, 1 timer, dan 2 button
| module | Keterangan |
| Label1 | Pada Property ubah name : txtjam,, text :jam |
| Label2 | Pada Property ubah name : txtjhari,, text : hari |
| Label3 | Pada Property ubah name : txttanggal,, text : tanggal |
| Timer | Pada Property ubah Enabled : True, Interval : 1000 |
| Button1 | Pada Property ubah name : btnclik,, text : click me |
| Button2 | Pada Property ubah name : btnexit, text :exit |
Klik 2 x pada timer dan ketikan script dibawah ini :
Ketikan script dibawah ini :
Dim harike As Integer
harike = DateTime.Now.DayOfWeek
If harike = 1 Then
Me.txthari.Text = “Senin”
ElseIf harike = 2 Then
Me.txthari.Text = “Selasa”
ElseIf harike = 3 Then
Me.txthari.Text = “Rabu”
ElseIf harike = 4 Then
Me.txthari.Text = “Kamis”
ElseIf harike = 5 Then
Me.txthari.Text = “Jumat”
ElseIf harike = 6 Then
Me.txthari.Text = “Sabtu”
ElseIf harike = 7 Then
Me.txthari.Text = “Minggu”
End If
Me.txtjam.Text = DateTime.Now.ToLongTimeString
Me.txttanggal.Text = DateTime.Now.ToLongDateString
Langganan:
Postingan (Atom)



