Contoh Aplikasi Penjualan Obat Di Apotek

ð  Source Code Menu Utama:Public Class Menuutama     Private Sub ObatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObatToolStripMenuItem.Click        obat.Show()    End Sub     Private Sub PasienToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasienToolStripMenuItem.Click        pasien.Show()    End Sub     Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object,...

Read more »

No comments

Setting DNS Server Pada OpenSuse

Buka Menu Yast Control Center Kemudian pilih Network Services / DNS Server Kemudian Pilih Tab Forwarders lalu pilih "Set Forwarders Manually" Pada Kolom IP Address ketikkan alamat DNS Forwarders Kemudian Klik Tombol Add Contoh Seperti gambar dibawah ini: Kemudian Pilih DNS Zones yang ada pada panel sebelah kiri Pada kolom name ketikkan domain name (ahrif91.net) Lalu Klik Tombol Add Seperti gambar dibawah ini: Pada Kolom Configured DNS Zones Pilih Zone dari domain name yang telah kita masukkan sebelumnya. Yaitu ahri91.net. Klik edit. Pilih Tab NS Records. Pada Kolom "Name Server to Add" ketikkan Name Server (ns1.ahrif91.net). lalu...

Read more »

2 comments

Membuat Puzzel Menggunakan VB.NET

Buatlah Form sebagai berikut... Setelah itu masukkan syntax berikut..... Public Class Puzzel    Inherits System.Windows.Forms.Form    Dim btn(9) As Button    Const sz As Integer = 100     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     End Sub     Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)        Dim tmptop As Integer, tmpleft As Integer         If...

Read more »

No comments