Selasa, 15 September 2015
Selasa, 11 Agustus 2015
Komunikasi Data
1. Mengapa dalam kehidupan di dunia ini semua mahluk ciptaan Tuhan tidak ada yang dapat hidup sendiri?
2. Apakah yang menjadi tujuan sehingga satu mahluk dengan mahluk lain selalu berinteraksi terutama untuk mahluk yang sejenis?
3. Jelaskan bagaimana proses penyampaian suatu pesan oleh seseorang kepada orang lain!
4. Apa keuntungan yang diperoleh dari berkomunikasi pada soal 3 di atas?
5. Sebutkan dan jelaskan komponen utama dalam berkomunikasi!
6. Jelaskan kemungkinan gangguan dalam komunikasi biasanya timbul saat pesan dilewatkan pada suatu media!
7. Jelaskan perbedaan data dan informasi!
Selasa, 19 Mei 2015
Pencabangan 2 : Select Case
Sub Sheet2_RoundedRectangle1_Click()
ActiveCell.Offset(0, -1).Select
Nilai = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
If Nilai = 0 Then
ActiveCell.Value = "Nol"
Else
If Nilai = 1 Then
ActiveCell.Value = "Satu"
ActiveCell.Offset(0, -1).Select
Nilai = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
If Nilai = 0 Then
ActiveCell.Value = "Nol"
Else
If Nilai = 1 Then
ActiveCell.Value = "Satu"
Program Kotak Stop
Sub KeBawah_Button1_Click()
If Range("C3") = "" And Range("C4") = "" Then
Range("C3") = ActiveCell.Column + 1
Range("C4") = ActiveCell.Row + 1
Else
If ActiveCell.Column = 1 And ActiveCell.Row = 1 Then
Range("C3") = Range("C3") - 1
Range("C4") = Range("C4") - 1
Else
End If
End If
Program Kotak
If Range("C3") = "" And Range("C4") = "" Then
Range("C3") = ActiveCell.Column + 1
Range("C4") = ActiveCell.Row + 1
Else
If ActiveCell.Column = 1 And ActiveCell.Row = 1 Then
Range("C3") = Range("C3") - 1
Range("C4") = Range("C4") - 1
Else
End If
End If
If ActiveCell.Column > 1 And ActiveCell.Row > 1 And ActiveCell.Column < Range("C3") Then
ActiveCell.Offset(0, -1).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Column
Else
If ActiveCell.Row > 1 And ActiveCell.Column < Range("C3") Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Row
Else
If ActiveCell.Column < Range("C3").Value Then
ActiveCell.Offset(0, 1).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Column
Else
ActiveCell.Offset(1, 0).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Row
End If
End If
End If
Range("C3") = ActiveCell.Column + 1
Range("C4") = ActiveCell.Row + 1
Else
If ActiveCell.Column = 1 And ActiveCell.Row = 1 Then
Range("C3") = Range("C3") - 1
Range("C4") = Range("C4") - 1
Else
End If
End If
If ActiveCell.Column > 1 And ActiveCell.Row > 1 And ActiveCell.Column < Range("C3") Then
ActiveCell.Offset(0, -1).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Column
Else
If ActiveCell.Row > 1 And ActiveCell.Column < Range("C3") Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Row
Else
If ActiveCell.Column < Range("C3").Value Then
ActiveCell.Offset(0, 1).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Column
Else
ActiveCell.Offset(1, 0).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Row
End If
End If
End If
Minggu, 17 Agustus 2014
Implementasi Sistem Informasi Manajemen ( SIM ) Untuk Fungsi Administrasi Sekolah dan Akademik Sekolah

PENGANTAR
Teknologi Informasi telah berkembang sedemikian pesatnya sehingga merambah ke segala sendi kehidupan manusia. Teknologi Informasi tidak hanya berkembang di dunia ilmu pengetahuan dan teknologi semata, tetapi juga ke masalah masalah yang bersifat pribadi seperti zoodiak ( ramalan bintang ). Bahkan tafsir mimpipun sekarangpun sudah menggunakan Teknologi Informasi. Teknologi Informasi tidak hanya berkembang pada sektor yang bersifat pribadi tetapi juga sektor yang melibatkan orang banyak dalam sebuah organisasi. Untuk mengelola ribuan data tentang surat menyurat, laporan kegiatan, makalah, personalia, laporan keuangan dan pemasaran yang terpadu satu dengan yang lain diperlukan sebuah Sistem Informasi Manajemen ( SIM ).
Langganan:
Postingan (Atom)