Ipull Java

Belajar VB.Net dg Database MM.Acces

Program Apotik

Pada posting kali ini saya akan mencoba membuat program Apotik dg Visual Basic 2008  dan  Menggunakan DataBase  Microsoft Access.. dan  ternyata embuat program Apotik sangatlah mudah tidak seperti yang kubayangkan sebelumnya lho kawan-kawan. mau Tau trikya ..???  berikut adalah triknya …

  1. langkah yg pertama kita masuk ke MM.Access>>Blank Database>>FileName(masukkan nama Database>>Create>> DesainVuew>> kemudian Isilah  tabel  dubawah ini:
File name    Type data
ID        Text
Nama Obat    Text
Jenis Obat    Text
Kemasan        Number
Harga        Number
Jumlah        Number
Total        Number
Pembayaran    Number
Kembalian    Date/Time

>> klik DataSetView >>Simpan>>Isilah Table tersebut>>Save as Access 2002-2003 DataBase>>Simpan pd file yg anda inginkan

2.kita masuk ke mikrosoft visual studio>>File>>Nem Project>>Visual Basic>>Windows Application>>Ok

3. Data>>Add New Data Source>>DataBase>>Next>>New Conection>>Microsoft Access Database File (OLE DB)>>Brouser(File Database anda)>>Test Conection>>OK>>Next>No>>Next>>kasih tanda pada kotak table dan views dan Finish.

4. Data>>Show Data Source>>maka disebelah kanan muncul Data Source >>Table>>Detail>>pada tabel jenis obat dan kemasan gantilah dengan ComboBox>>Klik Dan tahan Pada Table lalu geser pada tampilan Form (Rapikan)>>Table>>DataGrid>> Klik Dan tahan Pada Table lalu geser pada tampilan Form (Rapikan).

5. Jenis_ObatComboBox isilah item dg cara klik KemasanComboBox>>Items(property)>>(isi) Cair (enter) Tablet (enter) Kapsul OK

6. Jenis_ObatComboBox isilah item dg cara klik Jenis_ObatComboBox>>Items(property)Shaset (enter)Botol (enter)Kaleng
Kardus OK

7. kasih komponen  Time >>Interval=1000,enable=true



8. masukkan kode dibawah ini:

Public Class Form1

Private Sub Table1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table1BindingNavigatorSaveItem.Click
Me.Validate()
Me.Table1BindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me._DB_ApotikDataSet)
MessageBox.Show(“Data telah Berhasil Disimpan”, “Informasi”, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
IDTextBox.Enabled = False
Nama_ObatTextBox.Focus()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘_DB_ApotikDataSet.Table1′ table. You can move, or remove it, as needed.
Me.Table1TableAdapter.Fill(Me._DB_ApotikDataSet.Table1)
IDTextBox.Focus()
End Sub
Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
Me.Validate()
Me.Table1BindingSource.CancelEdit()
Me.TableAdapterManager.UpdateAll(Me._DB_ApotikDataSet)
MessageBox.Show(“Data telah Berhasil Dihapus”, “Informasi”, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
IDTextBox.Enabled = False
Nama_ObatTextBox.Focus()
End Sub

Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
IDTextBox.Enabled = False
Nama_ObatTextBox.Focus()
End Sub

Private Sub BindingNavigatorMoveFirstItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveFirstItem.Click
MessageBox.Show(“Anda barada pada baris pertama”, “Informasi”, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub

Private Sub BindingNavigatorMoveLastItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveLastItem.Click
MessageBox.Show(“Anda barada pada baris terakhir”, “Informasi”, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim respone As MsgBoxResult
respone = MsgBox(“Apakah Anda Ingin keluar dari applikasi?”, MsgBoxStyle.OkCancel, “Kofirmasi Keluar”)
If MsgBoxResult.Ok Then
Me.Close()
End If
End Sub

Sub Hitung()
Total_hargaTextBox.Text = Val(JumlahTextBox.Text) * Val(HargaTextBox.Text)
KembalianTextBox.Text = Val(PembayaranTextBox.Text) – Val(Total_hargaTextBox.Text)
End Sub

Private Sub JumlahTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahTextBox.TextChanged
Call Hitung()
End Sub

Private Sub Total_hargaTextBox_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Total_hargaTextBox.Click

End Sub
Private Sub Total_hargaTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Total_hargaTextBox.TextChanged

End Sub

Private Sub PembayaranTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranTextBox.TextChanged
Call Hitung()
End Sub

Private Sub KembalianTextBox_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KembalianTextBox.Click

End Sub
Private Sub KembalianTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KembalianTextBox.TextChanged

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = TimeOfDay
End Sub
End Class

9. dan yang terakhir Debug, jika berhasil maka hasilnya akan terlihat gabar seperti ini :

Selamat Mencoba semoga berhasil….

Sistem Operasi

Picture
Mungkin kata Sistem Operasi sudah tidak asing lagi dodengar ditelinga anda dengan kata “Sistem Operasi” dalam kehidupan sehari-hari, tapi mungkin kalau yang belum pernah mendengar apa sih Sistem Operasi itu..????    dan kali ini saya akan membahas sedikit tentang Sistem Operasi.
Sistem operasi merupakan sebuah penghubung antara pengguna dari komputer dengan perangkat keras komputer,Sebelum ada sistem operasi, orang hanya mengunakan komputer dengan menggunakan sinyal analog dan sinyal digital. Seiring dengan berkembangnya pengetahuan dan teknologi, pada saat ini terdapat berbagai sistem operasi dengan keunggulan masing-masing, dan pengertian dari Sistem Operasi adalah pengelola seluruh sumber-daya yang terdapat pada sistem
komputer dan menyediakan sekumpulan layanan (system calls) ke pemakai sehingga memudahkan dan
menyamankan penggunaan serta pemanfaatan sumber-daya sistem komputer.
Fungsi dasar Sistem Operasi

Sistem komputer pada dasarnya terdiri dari empat komponen utama, yaitu
1.      perangkat-keras,
2.      perangkat lunak (program aplikasi),
3.      sistem-operasi,
4.       pengguna (user).
fungsi yang utama Sistem Operasi

1. Sistem komputer pada dasarnya terdiri dari empat komponen utama, yaitu perangkat-keras, program aplikasi, sistem-operasi, dan para pengguna.
2. Untuk menghindari konflik yang terjadi pada saat pengguna menggunakan sumber-daya yang sama, sistem operasi mengatur pengguna mana yang dapat mengakses suatu sumber-daya. Sistem Operasi dapat diibaratkan kalau dinegara yaitu sebagai pemerintahan, juka dalama sebuah negara tidak ada pemerintahannya maka negara tersebut akan kacau begitupun dengan komputer jika tidak ada Operasi Sistem maka komputer tersebut tidak akan berjalan dengan benar.
3. Untuk menghindari konflik yang terjadi pada saat pengguna menggunakan sumber-daya yang sama, sistem operasi mengatur pengguna mana yang dapat mengakses suatu sumber-daya.
Komponen-komponen Sistem Operasi

* Managemen Proses.
* Managemen Memori Utama.
* Managemen Secondary-Storage.
* Managemen Sistem I/O.
* Managemen Berkas.
* Sistem Proteksi.
* Jaringan.
* Command-Interpreter system.
Managemen Berkas

Berkas adalah kumpulan informasi yang berhubungan sesuai dengan tujuan pembuat berkas tersebut. Berkas dapat mempunyai struktur yang bersifat hirarkis (direktori, volume, dll.). Sistem operasi bertanggung-jawab:
  • Pembuatan dan penghapusan berkas.
  • Pembuatan dan penghapusan direktori.
  • Mendukung manipulasi berkas dan direktori.
  • Memetakan berkas ke secondary storage.
  • Mem-backup berkas ke media penyimpanan yang permanen (non-volatile).
Sistem Proteksi
Proteksi mengacu pada mekanisme untuk mengontrol akses yang dilakukan oleh program, prosesor, atau pengguna ke sistem sumber daya. Mekanisme proteksi harus:
  • membedakan antara penggunaan yang sudah diberi izin dan yang belum.
  • specify the controls to be imposed.
  • provide a means of enforcement.
Jaringan
Sistem terdistribusi adalah sekumpulan prosesor yang tidak berbagi memori atau clock. Tiap prosesor mempunyai memori sendiri. Prosesor-prosesor tersebut terhubung melalui jaringan komunikasi Sistem terdistribusi menyediakan akses pengguna ke bermacam sumber-daya sistem. Akses tersebut menyebabkan:
  • Computation speed-up.
  • Increased data availability.
  • Enhanced reliability.
Mungkin cukup sampai disini  yang bisa saya berikan, mudah-mudahan bermanfaat bagi anda, kurang lebihnya saya minta maaf yang sebesar-besarnya..

Kelebihan Dan Kekurangan Internet

KEUNGGULAN

1. Akses 2.4 jam


Akses informasi di Internet tidak dibatasi waktu, karena dengan lingkup global, dunia maya yang dihadirkan ‘tidak pernah tidur’. Misainya, saat sebagian besar orang di Yogyakarta terielap di tengah malam, masyarakat di New York justru sedang sibuk-sibuknya bekerja. Perbedaan zone waktu sudah tidak lagi menjadi kendala untuk menelusuri data di dunia maya. Responden penelitian yang dilakukan lewat Internet bisa memberikan respon atau jawaban sesuai dengan kondisi dan situasi yang dikehendaki masing-masing individu.

2. Kecepatan


Bila dibandingkan dengan sumber data tradisional, riset melalui Internet jauh lebih cepat, karena bersifat real-time. Kita tinggal mengkilk berbagal icon, selanjutnya tinggal menunggu hasil (tentunya tergantung pada fasilitas modem dan ISP atau Internet Service Provicer yang dipergunakan). Pencarian informasi secara elektronik melalui mesin pencarl (search engines) sangat menghemat waktu, apalagi kalau dibandingkan dengan pencarian lewat katalog perpustakaan atau pencarian buku/majalah/jurnal dirak-rak perpustakaan. Dalam hal sampling, halaman web juga menjanjikan proses yang lebih cepat dan lebih murah.

3. Kenyamanan


Penelitian lewat Internet tidak harus menghadapi berbagai persoalan birokratis, seperti ijin dari berbagai instansi untuk keperluan peilgumpulan data, ‘kerahasiaan’ informasi, dan keharusan untuk datang sendirl keinstansi bersangkutan. Selain itu, berbagai fitur (features) yang dirancang khusus dan user-ftiendly sangat memudahkan peneliti mengakses berbagal situs Internet.

4. Kemudahan akses


Menjamurnya bisnis warnet (warung Internet) di Indonesia (khususnya di kota-kota besar) membuat akses terhadap Internet menjadi lebih mudah. Persaingan antarwarnet dalam hal harga, kecepatan akses, dan fasilitas pendukung lainnya membuat para pengguna Internet lebih nyaman dan mudah memanfaatkan Internet untuk keperluan riset maupun tujuan lainnya.

5. Biaya relatif


Dibandingkan dengan membeli jurnal asli (misalnya McKinsey Quarterly), penelusuran informasi lewat Intemetjauh lebih murah. Apalagi banyak situs yang menyediakan jasa informasi secara cuma-cuma. Peneliti tinggal men-download atau mencetak file/naskah tertentu sesuai kebutuhannya.

6. Interaktivitas dan fleksibilitas


Topik dan hasil riset bisa didiskusikan melalui sarana mailing list atau chatting tertentu. Selain itu, peneliti juga bisa mengikuti perkembangan terbaru atau meminta komentar dan penilaian dari berbagai pihak mengenai hasil penelitiannya.

KELEMAHAN


1. Ketergantungan pada jaringan telepon dan Internet Service Provider (ISP)


Fasilitas jaringan telepon dan ISP sangat berpengaruh terhadap biaya pemakaian Internet dan kemungkinan akses secara keseluruhan. Hingga saat ini, biaya penggunaan Internet di Indonesia masih relatif mahal, karena tarif telepon ditentukan berdasarkan pulsa yang digunakan, bukannya atas dasar jumlah panggilan (number of calls). Selain itu, saluran telepon di Indonesia masih relatif lambat, yang pada gilirannya menyebabkan waktu akses menjadi lebib lama dan biaya akses menjadi mahal. Sementara itu, terbatasnya bandwidth sistem transmisi yang disediakan ISP dan banyaknya pelanggan yang mengakses pada waktu bersamaan memperparah akses terhadap Internet.

2. Selektivitas dan anonimitas


Salah satu persoalan dalam riset lewat Internet adalah sulitnya mengidentifikasi identitas responden. Setiap orang, termasuk yang bukan target respon, bisa mengisi kuesioner secara on-line tanpa bisa dicegah atau dibatasi. Belum lagi -adanya kenyataan bahwa setiap orang bisa memiliki sejumlah alamat e-mail berbeda dan belum tentu menggunakan identitas asli. Semua ini membuat riset secara on-line harus benar-benar selektif dalam menentukan sampling dan cara responden memberikanjawaban.

3. Karakteristik demografis pemakai Internet


Berbagai penelitian menunjukkan bahwa Internet lebih efektif untuk menjangkau responden yang termasuk kelompok berdaya beli atau berpenghasilan dan berpendidikan relatif tinggi. Dengan demikian Internet kurang efektif bagi penelitian yang kelompok sampeinya adalah masyarakat golongan menengah ke bawah.

4. Clutter dan “never-ending search”


Informasi yang tersedia di Internet sangat besar jumlahnya, namun tidak semuanya dibutuhkan. Pencarian tanpa strategi khusus bisa diibaratkan mencari jarum’ * dalam jerami, sehingga sang peneliti ‘terjerumus’ ke dalam belantara informasi tanpa ujung. Ini
sering membuat peneliti pemula di Internet mengalami frustrasi, karena bukannya mendapatkan informasi, tet.api justr’u menghabiskan waktu dan uang untuk pencarian yang tak tentu arah. Selain itu, godaan di Internet relatif amat besar, terutama bagi mereka yang suka menelusuri situs-situs pornografi, yang ujung-ujungnya membuat pencarian informasi menjadi tidak efektif dan lepas kendali.

5. Reliabilitas dan validitas sumber acuan hasil riset


Setiap orang bebas membuka homepage sendiri dan menampilkan berbagai informasi di sana. Implikasinya, tidak semua data dan informasi yang didapatkan lewat Internet andal dan valid untuk dijadikan acuan dalam penelitian. Selain itu, sumber informasi di Internet mudah berubah, misainya homepage yang telah berubah atau bahkan sudah tidak ada lagi. Akibatnya, peneliti harus selalu mencermati perubahan tersebut bila mengutip sumber bersangkutan.

6. Virus


Salah satu masalah yang juga tak katah peliknya adalah risiko terkena virus komputer yang mudah menyebar lewat jaringan Internet, baik lewat e-mail maupun file-file yang di-download.


Click to set custom HTML
c
Mator suwon . . .

    Post Coment