CARA MEMBUAT CALCULATOR MENGGUNAKAN VISUAL BASIC

Ini adalah calculator sederhana buatan saya yang saya pelajari dari internet. nah teman pengen tahu langkah langkah nya, yuk belajar ^^

Step 1 : 
Jalan aplikasi Visual Basic 6.0 Buat Form baru dan tambahkan 1 objek TextBox dan 11 objek CommanndButton. Untuk lebih jelasnya, perhatikan gambar dibawah ini.

Step 2 :
Atur dan sesuaikan Properties dari masing-masing objek tersebut.

Form 
Caption = Kalkulator www.asis-sugianto.blogspot.com    

Text1.Text
Name = Text1.Text

Command1
Name    = Cmd_0
Caption = 1

Command2
Name    = Cmd_Sama_Dengan
Caption = =

Command3
Name    = Cmd_1
Caption = 1

Command4
Name    = Cmd_2
Caption = 2

Command5
Name    = Cmd_3
Caption = 3

Command6
Name    = Cmd_4
Caption = 4

Command7
Name    = Cmd_5
Caption = 5

Command8
Name    = Cmd_6
Caption = 6

Command9
Name    = Cmd_7
Caption = 7

Command10
Name    = Cmd_8
Caption = 8

Command11
Name    = Cmd_9
Caption = 9

Command12
Name    = Cmd_Bagi
Caption = /

Command13
Name    = Cmd_Kali
Caption = *

Command14
Name    = Cmd_Kurang
Caption = -

Command15
Name    = Cmd_Tambah
Caption = +

Command16
Name    = Cmd_Pangkat
Caption = ^

Command17
Name    = Cmd_CE
Caption = CE

Command18
Name    = Cmd_C
Caption = C

Command19
Name    = Cmd_Off
Caption = Off/Keluar

Step 3 :
Double klik pada area Form dan ketikkan Listing berikut ini :
Dim Angka, Hasil As Double
Dim Operator As String

Step 4 :

Double klik pada tombol 0, kemudian ketikkan Listing berikut ini :
Private Sub Cmd_0_Click()
If Text1.Text = "0" Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text & "0"
End If
End Sub

Step 5 :

Double klik pada tombol 1, kemudian ketikkan Listing berikut ini :
Private Sub Cmd_1_Click()
If Text1.Text = "0" Then
Text1.Text = "1"
Else
Text1.Text = Text1.Text & "1"
End If
End Sub

Step 6 :

Double klik pada tombol 2, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_2_Click()
If Text1.Text = "0" Then
Text1.Text = "2"
Else
Text1.Text = Text1.Text & "2"
End If
End Sub

Step 7 :

Double klik pada tombol 3, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_3_Click()
If Text1.Text = "0" Then
Text1.Text = "3"
Else
Text1.Text = Text1.Text & "3"
End If
End Sub

Step 8 :

Double klik pada tombol 4, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_4_Click()
If Text1.Text = "0" Then
Text1.Text = "4"
Else
Text1.Text = Text1.Text & "4"
End If
End Sub

Step 9 :

Double klik pada tombol 5, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_5_Click()
If Text1.Text = "0" Then
Text1.Text = "5"
Else
Text1.Text = Text1.Text & "5"
End If
End Sub

Step 10 :

Double klik pada tombol 6, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_6_Click()
If Text1.Text = "0" Then
Text1.Text = "6"
Else
Text1.Text = Text1.Text & "6"
End If
End Sub

Step 11 :

Double klik pada tombol 7, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_7_Click()
If Text1.Text = "0" Then
Text1.Text = "7"
Else
Text1.Text = Text1.Text & "7"
End If
End Sub

Step 12 :

Double klik pada tombol 8, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_8_Click()
If Text1.Text = "0" Then
Text1.Text = "8"
Else
Text1.Text = Text1.Text & "8"
End If
End Sub

Step 13 :

Double klik pada tombol 9, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_9_Click()
If Text1.Text = "0" Then
Text1.Text = "9"
Else
Text1.Text = Text1.Text & "9"
End If
End Sub

Step 14 :

Double klik pada tombol Bagi (/), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Bagi_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka / Val(Text1.Text)
End If
Operator = "/"
Text1.Text = 0
End Sub

Step 15 :

Double klik pada tombol Hapus (C), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_C_Click()
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Step 16 :

Double klik pada tombol Hapus (CE), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_CE_Click()
Text1.Text = "0"
Angka = 0
Hasil = 0
Operator = ""
End Sub

Step 17 :

Double klik pada tombol Kali (*), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Kali_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka * Val(Text1.Text)
End If
Operator = "*"
Text1.Text = 0
End Sub

Step 18 :

Double klik pada tombol Kurang (-), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Kurang_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka - Val(Text1.Text)
End If
Operator = "-"
Text1.Text = 0
End Sub

Step 19 :

Double klik pada tombol Tambah (+), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Tambah_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka + Val(Text1.Text)
End If
Operator = "+"
Text1.Text = 0
End Sub

Step 20 :

Double klik pada tombol Pangkat (^), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Pangkat_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka ^ Val(Text1.Text)
End If
Operator = "^"
Text1.Text = 0
End Sub

Step 21 :

Double klik pada tombol Sama Dengan (=), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Sama_Dengan_Click()
If Operator = "+" Then
    Hasil = Angka + Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "-" Then
    Hasil = Angka - Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "*" Then
    Hasil = Angka * Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "/" Then
    Hasil = Angka / Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "^" Then
    Hasil = Angka ^ Val(Text1.Text)
    Text1.Text = Hasil
End If
End Sub

Step 22 :

Double klik pada tombol Off/Keluar, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Off_Click()
End
End Sub

Itu lah kodingan untuk membuat calculator sederhana menggunakan visual basic 6.0, semoga bermanfaat ^^

MENGENAL SISTEM INFORMASI MANAJEMEN

SISTEM INFORMASI MANAJEMEN

kajian 2

Definisi Sistem Informasi Manajemen

 Sistem adalah unsur – unsur yang saling berkaitan antara satu dengan yang lainnya untuk memudahkan dalam mencapai tujuan. Sedangkan Informasi adalah suatu data atau sekumpulan data yang dapat di terdiri dari berbagai karakter atau symbol yg dapat ditransmisikan sehingga dapat diketahui oleh orang lain. Dan Manajemen adalah proses yg di rencanakan untuk mengatur atau mengontrol sumber daya dengan efektif dan efisien sehingga mencapai suatu tujuan.

SIM  (sistem  informasi  manajemen)  dapat  didefenisikan  sebagai  kumpulan  dari interaksi sistem-sistem informasi yang bertanggung jawab mengumpulkan dan mengolah data untuk menyediakan informasi yang berguna untuk semua tingkatan manajemen di dalam kegiatan perencanaan dan pengendalian.

Secara teori, komputer tidak harus digunakan didalam SIM, tetapi kenyataannya tidaklah mungkin SIM yang komplek dapat berfungsi tanpa melibatkan elemen komputer. Lebih lanjut, bahwa SIM selalu berhubungan dengan pengolahan informasi yang didasarkan pada komputer (computer-based information processing).

SIM merupakan kumpulan dari sistem-sistem informasi. SIM tergantung dari besar kecilnya organisasi dapat terdiri dari sistem-sistem informasi sebagai berikut :

1. Sistem informasi akuntansi (accounting information system),menyediakan informasi dari transaksi keuangan.
2. Sistem informasi pemasaran (marketing information system), menyediakan informasi untuk penjualan, promosi penjualan, kegiatan-kegiatan pemasaran, kegiatan-kegiatan penelitian pasar dan lain sebagainya yang berhubungan dengan pemasaran.
3. Sistem informasi manajemen persediaan (inventory management information system).

4. Sistem informasi personalia (personnel information systems)

5. Sistem informasi distribusi (distribution information systems)

6. Sistem informasi pembelian (purchasing information systems)

7. Sistem informasi kekayaan (treasury information systems)

8. Sistem informasi analisis kredit (credit analiysis information systems)

9. Sistem informasi penelitian dan pengembangan (research and development information systems)
10. Sistem informasi teknik (engineering information systems)

Semua sistem-sistem informasi tersebut dimaksudkan untuk memberikan informasi kepada semua tingkatan manajemen, yaitu manajemen tingkat bawah (lower level management), managemen tingkat menengah (middle level management) dan manajemen tingkat atas (top level management).

Top level management dengan executive management dapat terdiri dari direktur utama(president), direktur (vise-president) dan eksekutif lainnya di fungsi-fungsi pemasaran, pembelian, teknik, produksi, keuangan dan akuntansi. Sedang middle level managementdapat terdiri dari manajer-manajer devisi dan manajer-manajer cabang. Lower level management disebut degan operating management dapat meliputi mandor dan pengawas.

Top level management disebut juga dengan strategic level, middle level management dengantactical level dan lower management dengan tehcnical level.

Tipe Informasi dan Kegiatan Manajemen

KEGIATAN MANAJEMEN

¨ Kegiatan manajemen secara umum dibagi berdasarkan tingkatannya dalam organisasi:

1. Tingkat Atas (Perencanaan Strategis)

Perencanaan strategis adalah proses evaluasi lingkungan luar organisasi, penetapan tujuan organisasi dan penentuan strategi-strategi

2 .Tingkat Menengah (Pengendalian Manajemen)

-Pengendalian Manajemen adalah proses untuk meyakinkan bahwa organisasi telah menjalankan strategi yg sudah ditetapkan dengan efektif & efisien

-Pengendalian manajemen merupakan tingkatan taktik yaitu bgm manajemen tingkat menengah dapat menjalankan taktik jangka pendek, menengah, & panjang

- proses pengendalian manajemen formal terdiri dari tahapan: programming, budgeting, operating & measurement, reporting & analysis (Robert N Anthony & John Dearden)

3. Tingkat Bawah (Pengendalian Operasional)

-Pengendalian Operasional adalah proses untuk meyakinkan bahwa tiap-tiap tugas tertentu telah dilaksanakan secara efektif & efisien.

- pengendalian operasi ini merupakan proses penerapan program yang telah ditetapkan di pengendalian manajemen

      Kebutuhan informasi yang berbeda ini dapat diketahui dari masing-masing kegiatan manajemen tersebut

Jenis jenis kegiatan sistem informasi

¨ Tingkat Bawah / Operasional: 

Transaction Processing System (TPS)

Adalah sistem pengolah informasi yang ditujukan untuk orang / karyawan yang bertugas mengawasi jalannya organisasi perusahaan sehari-hari dan melakukan transaksi rutin perusahaan dengan pihak luar

CONTOH:

Pemasaran: penjualan, menerima pesanan, reservasi hotel, ds

¨¨ Tingkat Pengetahuan:

adalah sistem informasi yang ditujukan untuk membantu orang / karyawan yang mempunyai keahlian khusus dalam menciptakan & memadukan keahlian baru dalam organisasi 

Contoh:

Knowledge Work System (KWS): Engineering workstations, Graphics workstations (desain promosi produk)

Office Automation System (OAS): Menangani pekerjaan manajemen (word processing, digital filling, dekstop publishing), penjadwalan kerja (elctronics calenders), komunikasi (e-mail, voice mail, video-conferencing)

¨ Tingkat Manajemen Menengah: 

adalah sistem informasi yang didesain untuk melayani kebutuhan manajemen untuk memonitor, mengendalikan/mengawasi, mengambil keputusan, dan melakukan pekerjaan administrasi

Contoh:

• Management Information System (MIS):=> manajemen penjualan, pengendalian persediaan, analisis investasi

• Decision Support System (DSS):=> analisis wilayah penjualan, penjadwalan produksi, analisis biaya

• Consumer Relationship Management(CRM):=> sebuah strategi bisnis yang berbasis kostumer, seperti strategi bisnis lainnya tujuan akhir dari CRM adalah untuk memaksimalkan keuntungan dan pendapatan. Sedangkan tujuan utama dari CRM adalah meningkatkan kepuasan pelanggan.
• Acounting Information System(AIS) :=> menyediakan informasi dari transaksi keuangan.
• Human Relationship information System(HRIS) :=> mengorganisir tatakelola dan tatalaksana manajemen SDM di perusahaan guna mendukung proses pengambilan keputusan atau biasa disebut dengan Decision Support System dengan menyediakan berbagai informasi yang diperlukan.

¨ Tingkat Manajemen Atas / Strategis:

• Executive Support System (ESS)

adalah sistem informasi yang ditujukan untuk tingkatan teratas perusahaan yaitu manajemen senior untuk mendukung keputusan senior menajemen dalam aktivitas perencanaan jangka panjang perusahaan

Contoh:

Pemasaran: Bgm ramalan & kecenderungan penjualan di masa 5 tahun yang akan datang, dsb

• Bussines intelegent(BI)

meningkatkan kualitas pengambilan keputusan bisnis berdasarkan sistem yang berbasiskan data. Dengan kata lain, Business inteligence (BI) adalah sebuah bentuk implementasi yang dapat digunakan oleh perusahaan untuk mengolah data menjadi informasi, kemudian diolah lagi menjadi pengetahuan yang akan membantu proses analisis data perusahaan secara lebih efektif.

• Expert System(ES)

   Secara umum, Expert System (ES) adalah sistem yang berusaha mengadopsi pengetahuan manusia ke komputer, agar komputer dapat menyelesaikan masalah seperti yang biasa dilakukan para ahli. Expert System tidak untuk menggantikan kedudukan seorang pakar tetapi untuk memasyaratkan pengetahuan dan pengalaman pakar tersebut.

SOFTWERE YANG MENDUKUNG SISTEM INFORMASI

Softwere adalah kumpulan dari program yang digunakan untuk menjalankan aplikasi tertentu pada komputer.sedangkan program merupakan kumpulan perintah kompputer yang tersusun secara sistematis

PENGELOMPAKAN SOFTWERE

• SISTEM OPERASI

            Berfungsi untuk mengendalikan hubungan komponen komponen yang terpasang dalam suatu sistem komputer misal nya antara keyboard.CPU, layar monitor ,dan lain lain.

•           APLIKASI 

            Perangkat lunak aplikasi merupakan softwere jadi yang siap digunakan . Perangkat lunak aplikasi di buat untuk membantu masalh yang relatif umum karena itu sangat wajar kalau softwere softwere ini tidak dapat memenuhi kebutuhan spesifik terhadap pengguna komputer

  berikut aplikasi yang menndukung sistem informasi:

1.    Word Processing

Merupakan softwere pengolah kata.

    2.Desktop Publishing

merupakan salah satu softwere terbaik desktop publishing.kemampuan desktop publishing lebih lengkap dari pengolah kata ,akan tetapi lebih susah mempelajari nya dibandingkan dengan pengolah kata

       3.Speedsheet

Aplikasi yang digunakan untuk tabel perhitungan angka. Excel adalah sofwere terbaik saat ini apanila anda ingin membuat tabel tabel perhitungan

       4.Statistik

Digunakan untuk manajemen statistik,dan digunakan untuk meneliti berbagai macam masalah.

    

       5.persentasi

digunakan untuk kebutuhan presentasi .hanya powerpoint aplikasi lebh sederhana ,director lebih komplek dan hasil akhirnya akan berbentuk video(multimedia)

      6.browser

merupakan aplikasi untuk masuk ke jaringan internet,merupakan perantara utama dan paling efektif dalam mendistribusikan informasi

                                                             REFERENSI

https://varendy.wordpress.com/2008/04/08/crm-costumer-relation-management/

www.academia.edu,

http://galangdwiamanda.blogspot.co.id/2014/10/sistem-informasi-manajemen-sim.html,

https://vabruary.wordpress.com/2014/04/25/apa-itu-hris-human-resources-information-system/,

https://supartod.wordpress.com/category/tulisan-mahasiswa/business-intelligence/

http://expertsystemchyntia.blogspot.co.id/

buku sistem informasi manajemen . Dr Deni Darmawan,S.Pd.,M.Si.,Kunkun Nur Fauzi