Minggu, 08 Desember 2013

Pengertian Jaringan Komputer dan Manfaatnya

Awalnya saya bingung mau upload tentang apa, dari pada kita bengong atau mlongo yang membuat pikiran kita menjadi tidak karuan, mendingan kita belajar tentang jaringn komputer dan manfaatnya.

 Jaringan komputer memang sangat fital perannya dalam mensinergikan beberapa perangkat komputer dalam suatu organisasi. Banyak pula manfaat yang bisa diperolah apabila suatu perusahaan mengusung jaringan komputer. Tidak lain bahwasanya jaringan komputer ini digunakan oleh banyak sekali perusahaan untuk keperluan berbagi informasi. Adalah sesama anggota perusahaan, dimana atasan dan bawahan bisa memiliki tugas yang berbeda.
Pengertian Jaringan Komputer

 Pengertian dari jaringan komputer itu sendiri adalah sebuah jaringan dimana di dalamnya terdapat beberapa perangkat komputer yang saling terhubung satu sama lain. Selain itu, di dalam sebuah jaringan komputer juga terdapat perangkat komputer server dan juga client. Tentu saja kedua perangkat komputer itu berbeda fungsinya. Namun pada dasarnya jaringan komputer yang terdiri atas kedua perangkat tadi memiliki fungsi yakni sebagai tempat untuk pertukaran data, melakukan komunikasi, ataupun memanfaatkan computing power dari server.

Pengertian Jaringan Komputer

Jaringan komputer adalah sebuah sistem yang terdiri atas beberapa komputer yang didesain sedemikian rupa sebagaimana tujuan utamanya yakni untuk dapat berbagi sumber daya (CPU, printer), berkomunikasi (pesan instan, surel), dan dapat mengakses informasi (situs web). Sementara menurut pembagiannya, jaringan komputer dapat dibedakan menjadi dua jenis, yakni jaringan terdistribusi dan jaringan tersentralisasi.

 Jaringan terdistribusi adalah jaringan komputer yang cara kerjanya dilakukan oleh semua perangkat komputer di dalamnya. Ini berarti tidak ada perbedaan antara server dengan client. Sedangkan jaringan tersentralisasi adalah jaringan komputer yang cara kerjanya berbeda baik itu server maupun client. Pemusatan jaringan komputer tersentralisasi adalah pada komputer server.

Manfaat Jaringan Komputer

  • Menjadikan sistem komputer menjadi lebih mudah dioperasikan dan fleksibel
  • Banyak aplikasi pendukung yang dapat dijalankan di berbagai macam jenis komputer
  • Tidak menjadikan ketergantungan terhadap satu jenis komputer (sehingga jenis komputer lain bisa dikoordinasikan secara bersamaan)
  • Reabilitas tinggi dan dapat membagi sumber daya
  • Memperluas pendayagunaan sistem operasi
  • Memperluas kemudahan berkomunikasi
  • Memudahkan kecepatan mengakses informasi
Diposting oleh di Tidak ada komentar:

Selasa, 25 Desember 2012

tugas pertemuan 8



      1.      Penjelasan program paramarray

Private Function fstat(ByVal ParamArray args() As Object) As Single()
Penjelasan: membuat function dengan nama fstat dengan parameter ByVal yang bererti melewatkan parameter secara nilai dengan tipe data single.

Dim hasil(3) As Single
Penjelasan: mendeklarasikan variable dengan nama hasil dengan jumlah teratas atau Ubound 3 yang bertipe data single.

Dim i As Integer
For i = 0 To UBound(args)
Penjelasan: mendeklarasikan variabel i sebgai integer dan i merupakan perulangan untuk i=0 sampai batas teratas dari array.

hasil(0) = hasil(0) + args(i)
Penjelasan: hasil (0) = 0 karena perulangan belum di mulai.
args(i) = nilai dari indeks array ke i

If i = 0 Then
hasil(1) = args(i)
hasil(2) = args(i)
End If
Penjelasan: jika i=0 maka hasil(1) =  nilai dari indek ke i dan hasil(2) = nilai dari indeks ke i.

If hasil(1) < args(i) Then hasil(1) = args(i)
Penjelasan: Jika hasil 1 lebih kecil dari nilai i maka hasil 1= nilai dai indeks ke i

If hasil(1) > args(i) Then hasil(1) = args(i)
Penjelasan: Jika hasil 2 lebih kecil dari nilai i maka hasil 2= nilai dai indeks ke
Next i
Return hasil
Penjelasan: Akan kembali ke hasil
End Function
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim statistik As Single() = fstat(1, 6, 2)
Penjelasan: membuat vaariable dengan nama ststistik yang bertipe data single dengan nilai array pada indeks ke 0=1, Indeks ke 1=6 dan Indeks ke 2=2

TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)
Penjelasan: pada texbox1 akan bernilai sesuai dengan statistik dari indeks ke 0 demikian juga pada texbox ke 2 dan 3

End Sub
Untuk mengahiri program.
     
      2.      Overloading function.

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
hitung = bil1 + bil2
End Function
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
hitung = bil1 + bil2 + bil3
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = hitung(1, 2, 3)
End Sub

Penjelasan: ada dua function diatas, yg pertama mempunyai dua buah deklarasi variabel dan yang kedua mempunyai tiga buah deklarasi variable.
Prinsip kerjanya kerjanya?
Hal ini bergantung dari variabel yg anda suplay pada saat procedure tersebut anda panggil,
jika anda hanya menyuplai tiga variabel, pada saat pemanggilan procedure maka yg di eksekusi adalah procedure yang kedua, akan tetapi
jika anda memberikan dua nilai variabel pada saat pemanggilan procedure maka yg dieksekusi adalah procedure yg pertama.

      3.      Macam-macam function bawaan

      1.      Fungsi String
      Left : untuk mengambil karakter dari sebelah kiri
      Right : untuk mengambil karakter dari sebelah kanan
      Mid : untuk mengambil karakter dari tengah
      LTrim : untuk membuang semua semua awal spasi yang ada disebelah kiri
      RTrim : untuk membuang semua semua awal spasi yang ada disebelah kanan
      Trim : untuk membuang semua spasi yang ada disebelah kiri dan kanan
      Len : untuk memberikan nilai balik integer sebagai panjang string
      LCase : untuk mengubah string menjadi huruf kecil semua
      UCase : untuk mengubah string menjadi huruf besar semua
      Str (int) : untuk mengubah bilangan menjadi string (konversi)
      Chr (Asscii) : untuk konversi dari nilai ascii menghasilkan karakter

     2.       Fungsi Matematika
      Val (Str) : untuk konversi string menjadi integer
      Asc(Char) : untuk konversi karakter menghasilkan nilai ascii
      Abs(Number) : untuk memberikan nilai mutlak dari suatu nilai negatif
      Round(Number,Decimal) : untuk membulatkan suatu angka sampai beberapa digit decimal
      Sqr(Number) : untuk memberikan hasil akar kuadrat dari suatu nilai
      Tan(): untuk mengembalikan nilai tangen dari argument dalam radian
      Cos(): untuk mengembalikan nilai cosinus dari argument dalam radian
      Atn(): untuk mengembalikan nilai arc tangen dari argument dalam bentuk radian
      Long(): untuk mengembalikan nilai logaritma dari argument
      CInt(): untuk pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat
      Fix(): untuk pemotongan suatu nilai decimal menjadi integer
      Int(): untuk pembulatan ke bawah suatu nilai decimal

      3.      Fungsi Tanggal dan Waktu
      Date() : untuk mengambil tanggal system komputer
      IsDate : untuk memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal
      DateValue : untuk konversi string menjadi date
      D(Date),M(Date),Y(Date) : untuk memberikan nilai integer dari Variabel Date untuk hari , bulan dan        tahun
     Time(): untuk mengambil waktu dari system komputer
     H(Date),M(Date),S(Date) : untuk memberikan nilai integher dari variable date untuk jm, menit dan deik
     TimeValue(str) : untuk konversi string ke variable date
Diposting oleh di Tidak ada komentar:

Senin, 29 Oktober 2012

TUGAS 3



Soal 1

Pada soal yang perama kita hanya memodifikasi dari pertemuan yang sebelumnya. Hal yang  saya lakukan dalam memodifikasi program ini adalah sebagai beerikut:
  

  •  Tambahkan satu button dan atur properties sesuai yang kita inginkan, misalkan:
object
properties
value
Button
Name
text
Btisidata
Isi data


Isikan program sebagai berikut:
Private Sub Btisidata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisidata.Click
        Dim type3 As Windows.Forms.Control
        For Each type3 In Me.Controls
            If type3.GetType.Name = "ComboBox" Or type3.GetType.Name = "TextBox" Or type3.GetType.Name = "RadioButton" Or type3.Name = "btnbersihkan" Then
                type3.Visible = True
            ElseIf type3.Name = "Btisidata" Then
                type3.Visible = False
            End If
        Next
    End Sub
End Class

  •   Isikan program berikut pada button bersihkan


Private Sub btnbersihkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersihkan.Click
        txtdiskon.Clear()
        txtharga.Clear()
        txtjumlah.Clear()
        Txtnama.Clear()
        txttotalbayar.Clear()
        txttotalharga.Clear()
        Cmbkode.Text = ""
        Me.rdkredit.Checked = False
        Me.rdtunai.Checked = False

        If txttotalharga.Text = "" Then
            txtdiskon.Text = ""
            txttotalbayar.Text = ""
        End If

        Dim type2 As Windows.Forms.Control
        For Each type2 In Me.Controls
            If type2.GetType.Name = "TextBox" Or type2.GetType.Name = "ComboBox" Or type2.GetType.Name = "RadioButton" Or type2.Name = "btnbersihkan" Then
                type2.Visible = False
            ElseIf type2.Name = "Btisidata" Then
                type2.Visible = True
            End If
        Next
    End Sub
  

  •  Isikan program berikut pada form

Public Class Frmlatdua
 
    Private Sub Frmlatdua_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cmbkode.Items.Add("SND")
        Cmbkode.Items.Add("TAS")
        Cmbkode.Items.Add("TOP")
        Cmbkode.Items.Add("SPT")

        Dim type1 As Windows.Forms.Control
        For Each type1 In Me.Controls
            If type1.GetType.Name = "TextBox" Or type1.GetType.Name = "ComboBox" Or type1.GetType.Name = "RadioButton" Or type1.Name = "btnbersihkan" Then
                type1.Visible = False
            End If
        Next

    End Sub

Hanya itu yang saya lakukan dalam memodifikasi program ini. Pada saat program dijalankan hasilnya sebagai berikut:

 
 
Kemudian kita click tombol isi data.
 
 
Kemudian kita isikan sesuai dengan yang kita inginkan, misal:
 
 
Kita click tombol bersihkan
 
 

Soal 2

Membuat permainan puzzle sederhana. Langsung kodeprogramnya saja. 


  •  Isikan program berikut pada bt1

    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
        If bt2.Text = "" Then
            bt2.Text = bt1.Text
            bt1.Text = ""
        ElseIf bt4.Text = "" Then
            bt4.Text = bt1.Text
            bt1.Text = ""
        End If
        If bt1.Text = "1" Then
            If bt2.Text = "2" Then
                If bt3.Text = "3" Then
                    If bt4.Text = "4" Then
                        If bt5.Text = "5" Then
                            If bt6.Text = "6" Then
                                If bt7.Text = "7" Then
                                    If bt8.Text = "8" Then
                                        If bt9.Text = "" Then
                                            MessageBox.Show("Selamat Anda Berhasil", "Selamatyah..", MessageBoxButtons.OK)
                                        Else
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub
  

  •   Isikan program berikut pada bt2

    Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click
        If bt1.Text = "" Then
            bt1.Text = bt2.Text
            bt2.Text = ""
        ElseIf bt3.Text = "" Then
            bt3.Text = bt2.Text
            bt2.Text = ""
        ElseIf bt5.Text = "" Then
            bt5.Text = bt2.Text
            bt2.Text = ""
        End If
        If bt1.Text = "1" Then
            If bt2.Text = "2" Then
                If bt3.Text = "3" Then
                    If bt4.Text = "4" Then
                        If bt5.Text = "5" Then
                            If bt6.Text = "6" Then
                                If bt7.Text = "7" Then
                                    If bt8.Text = "8" Then
                                        If bt9.Text = "" Then
                                            MessageBox.Show("Selamat Anda Berhasil", "Selamatyah..", MessageBoxButtons.OK)
                                        Else
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub
  

  •   Isikan program berikut pada bt3

    Private Sub bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt3.Click
        If bt2.Text = "" Then
            bt2.Text = bt3.Text
            bt3.Text = ""
        ElseIf bt6.Text = "" Then
            bt6.Text = bt3.Text
            bt3.Text = ""
        End If
        If bt1.Text = "1" Then
            If bt2.Text = "2" Then
                If bt3.Text = "3" Then
                    If bt4.Text = "4" Then
                        If bt5.Text = "5" Then
                            If bt6.Text = "6" Then
                                If bt7.Text = "7" Then
                                    If bt8.Text = "8" Then
                                        If bt9.Text = "" Then
                                            MessageBox.Show("Selamat Anda Berhasil", "Selamatyah..", MessageBoxButtons.OK)
                                        Else
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub
  

  •   Isikan program berikut pada bt4


    Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click
        If bt1.Text = "" Then
            bt1.Text = bt4.Text
            bt4.Text = ""
        ElseIf bt7.Text = "" Then
            bt7.Text = bt4.Text
            bt4.Text = ""
        ElseIf bt5.Text = "" Then
            bt5.Text = bt4.Text
            bt4.Text = ""
        End If
        If bt1.Text = "1" Then
            If bt2.Text = "2" Then
                If bt3.Text = "3" Then
                    If bt4.Text = "4" Then
                        If bt5.Text = "5" Then
                            If bt6.Text = "6" Then
                                If bt7.Text = "7" Then
                                    If bt8.Text = "8" Then
                                        If bt9.Text = "" Then
                                            MessageBox.Show("Selamat Anda Berhasil", "Selamatyah..", MessageBoxButtons.OK)
                                        Else
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub

·         Isikan program berikut pada bt5

    Private Sub bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt5.Click
        If bt2.Text = "" Then
            bt2.Text = bt5.Text
            bt5.Text = ""
        ElseIf bt8.Text = "" Then
            bt8.Text = bt5.Text
            bt5.Text = ""
        ElseIf bt4.Text = "" Then
            bt4.Text = bt5.Text
            bt5.Text = ""
        ElseIf bt6.Text = "" Then
            bt6.Text = bt5.Text
            bt5.Text = ""
        End If
        If bt1.Text = "1" Then
            If bt2.Text = "2" Then
                If bt3.Text = "3" Then
                    If bt4.Text = "4" Then
                        If bt5.Text = "5" Then
                            If bt6.Text = "6" Then
                                If bt7.Text = "7" Then
                                    If bt8.Text = "8" Then
                                        If bt9.Text = "" Then
                                            MessageBox.Show("Selamat Anda Berhasil", "Selamatyah..", MessageBoxButtons.OK)
                                        Else
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub

·         Isikan program berikut pada bt6

    Private Sub bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt6.Click
        If bt9.Text = "" Then
            bt9.Text = bt6.Text
            bt6.Text = ""
        ElseIf bt5.Text = "" Then
            bt5.Text = bt6.Text
            bt6.Text = ""
        ElseIf bt3.Text = "" Then
            bt3.Text = bt6.Text
            bt6.Text = ""
        End If
        If bt1.Text = "1" Then
            If bt2.Text = "2" Then
                If bt3.Text = "3" Then
                    If bt4.Text = "4" Then
                        If bt5.Text = "5" Then
                            If bt6.Text = "6" Then
                                If bt7.Text = "7" Then
                                    If bt8.Text = "8" Then
                                        If bt9.Text = "" Then
                                            MessageBox.Show("Selamat Anda Berhasil", "Selamatyah..", MessageBoxButtons.OK)
                                        Else
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub

·         Isikan program berikut pada bt7

    Private Sub bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt7.Click
        If bt8.Text = "" Then
            bt8.Text = bt7.Text
            bt7.Text = ""
        ElseIf bt4.Text = "" Then
            bt4.Text = bt7.Text
            bt7.Text = ""
        End If
        If bt1.Text = "1" Then
            If bt2.Text = "2" Then
                If bt3.Text = "3" Then
                    If bt4.Text = "4" Then
                        If bt5.Text = "5" Then
                            If bt6.Text = "6" Then
                                If bt7.Text = "7" Then
                                    If bt8.Text = "8" Then
                                        If bt9.Text = "" Then
                                            MessageBox.Show("Selamat Anda Berhasil", "Selamatyah..", MessageBoxButtons.OK)
                                        Else
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub

·         Isikan program berikut pada bt8

    Private Sub bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt8.Click
        If bt9.Text = "" Then
            bt9.Text = bt8.Text
            bt8.Text = ""
        ElseIf bt7.Text = "" Then
            bt7.Text = bt8.Text
            bt8.Text = ""
        ElseIf bt5.Text = "" Then
            bt5.Text = bt8.Text
            bt8.Text = ""
        End If
        If bt1.Text = "1" Then
            If bt2.Text = "2" Then
                If bt3.Text = "3" Then
                    If bt4.Text = "4" Then
                        If bt5.Text = "5" Then
                            If bt6.Text = "6" Then
                                If bt7.Text = "7" Then
                                    If bt8.Text = "8" Then
                                        If bt9.Text = "" Then
                                            MessageBox.Show("Selamat Anda Berhasil", "Selamatyah..", MessageBoxButtons.OK)
                                        Else
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub

·         Isikan program berikut pada bt9

    Private Sub bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt9.Click
        If bt6.Text = "" Then
            bt6.Text = bt9.Text
            bt9.Text = ""
        ElseIf bt8.Text = "" Then
            bt8.Text = bt9.Text
            bt9.Text = ""
        End If
        If bt1.Text = "1" Then
            If bt2.Text = "2" Then
                If bt3.Text = "3" Then
                    If bt4.Text = "4" Then
                        If bt5.Text = "5" Then
                            If bt6.Text = "6" Then
                                If bt7.Text = "7" Then
                                    If bt8.Text = "8" Then
                                        If bt9.Text = "" Then
                                            MessageBox.Show("Selamat Anda Berhasil", "Selamatyah..", MessageBoxButtons.OK)
                                        Else
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

    End Sub

End Class

Hasil yang akan ditampilkan pada saat kita menjalankan program tersebut adalah sebagai berikut:


Setelah kita berhasil mengurutkan angka-angkanya dari 1 sampai 8, akan muncul pesan sebagai berikut.

Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)