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, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub PenjualanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PenjualanToolStripMenuItem.Click     

        Penjualan.Show()

    End Sub

    Private Sub KwitansiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KwitansiToolStripMenuItem.Click

        notapenjualan.Show()

    End Sub

    Private Sub LaporanPenjualanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanPenjualanToolStripMenuItem.Click

        L_Penjualan.Show()

    End Sub

    Private Sub Menuutama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

ð  Source Code Obat:

Public Class obat

    Dim isitext(6) As String

    Dim mlistitem As ListViewItem

    Private Sub obat_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call bersih()

        Call settampilan()

    End Sub

    Private Sub obat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button2.Text = "Simpan" Then

            Button2.Text = "Ok"

            Button1.Enabled = False

            Button3.Enabled = False

            Button4.Text = "Batal"

            TextBox1.Focus()

        Else

            isitext(0) = Trim(TextBox1.Text)

            isitext(1) = Trim(TextBox2.Text)

            isitext(2) = Trim(TextBox3.Text)

            isitext(3) = Trim(TextBox4.Text)

            isitext(4) = Trim(TextBox5.Text)

            isitext(5) = Trim(TextBox6.Text)

            mlistitem = New ListViewItem(isitext)

            ListView1.Items.Add(mlistitem)

            Call bersih()

            TextBox1.Focus()

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If Button3.Text = "Hapus" Then

            Button3.Text = "Ok"

            Button1.Enabled = False

            Button2.Enabled = False

            Button4.Text = "Batal"

            TextBox1.Focus()

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button4.Text = "keluar" Then

            Me.Close()

        Else

            Call bersih()

            Call normal()

            TextBox1.Focus()

        End If

    End Sub

    Sub bersih()

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        TextBox5.Text = " "

        TextBox6.Text = " "

    End Sub

    Sub settampilan()

        ListView1.View = View.Details

        ListView1.Columns.Add("Kaaaaaaaat", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("Nm Obat", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Jenis", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Golongan", 80, HorizontalAlignment.Left)

        ListView1.Columns.Add("Satuan", 80, HorizontalAlignment.Left)

        ListView1.Columns.Add("Harga", 150, HorizontalAlignment.Left)

    End Sub

    Sub normal()

        Button1.Text = "Cari"

        Button1.Enabled = True

        Button2.Text = "Simpan"

        Button2.Enabled = True

        Button3.Text = "Hapus"

        Button3.Enabled = True

        Button4.Text = "Keluar"

    End Sub

End Class

ð  Source Code Penjualan  :

  Public Class Penjualan

    Dim isitext(6) As String

    Dim mlistitem As ListViewItem

    Private Sub Penjualan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call bersih()

        Call settampilan()

    End Sub

    Private Sub Penjualan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button2.Text = "Simpan" Then

            Button2.Text = "Ok"

            Button1.Enabled = False

            Button3.Enabled = False

            Button4.Text = "Batal"

            Button5.Enabled = False

            TextBox1.Focus()

        Else

            isitext(0) = Trim(TextBox1.Text)

            isitext(1) = Trim(DateTimePicker1.Text)

            isitext(2) = Trim(TextBox3.Text)

            isitext(3) = Trim(TextBox4.Text)

            isitext(4) = Trim(TextBox5.Text)

            isitext(5) = Trim(TextBox6.Text)

            mlistitem = New ListViewItem(isitext)

            ListView1.Items.Add(mlistitem)

            Call bersih()

            TextBox1.Focus()

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If Button3.Text = "Hapus" Then

            Button3.Text = "Ok"

            Button1.Enabled = False

            Button2.Enabled = False

            Button4.Text = "Batal"

            Button5.Enabled = False

            TextBox1.Focus()

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button4.Text = "keluar" Then

            Me.Close()

        Else

            Call bersih()

            Call normal()

            TextBox1.Focus()

        End If

    End Sub

    Sub bersih()

        TextBox1.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        TextBox5.Text = " "

        TextBox6.Text = " "

    End Sub

    Sub settampilan()

        ListView1.View = View.Details

        ListView1.Columns.Add("Kd Obat", 80, HorizontalAlignment.Center)

        ListView1.Columns.Add("Nm Obat", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Jenis", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Golongan", 80, HorizontalAlignment.Left)

        ListView1.Columns.Add("Satuan", 80, HorizontalAlignment.Left)

        ListView1.Columns.Add("Harga", 150, HorizontalAlignment.Left)

    End Sub

    Sub normal()

        Button1.Text = "Cari"

        Button1.Enabled = True

        Button2.Text = "Simpan"

        Button2.Enabled = True

        Button3.Text = "Hapus"

        Button3.Enabled = True

        Button4.Text = "Keluar"

        Button5.Enabled = True

        Button4.Text = "Cetak"

    End Sub

End Class

   

  

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 Klik add.
Seperti gambar dibawah ini:

Setelah selesai di Tab NS Records kita lanjutkan Pilih Tab MX Records
Pada kolom address ketikkan mail dan pada priority masukkan angka 3 kemudian klik add.
Seperti gambar dibawah ini

Sekarang kita lanjut lagi Pilih Tab Records➢ Pertama masukkan record ns
 Ketikkan ns1 pada kolom Record Key
 lalu pada kolom Type Pilih "A: Domain Name Translation"
 Value → 192.168.100.1 alamat IP dari ns1.ahrif91.net
➢ Masukkan record www
 Ketikkan www pada kolom Record Key
 lalu pada kolom Type Pilih "A: Domain Name Translation"
 Value → 192.168.100.1 alamat IP dari www.ahrif91.net
➢ Masukkan record mail
 Ketikkan mail pada kolom Record Key
 lalu pada kolom Type Pilih "A: Domain Name Translation"
 Value → 202.43.115.83 alamat IP dari mail.ahrif91.net
➢ Masukkan record zimbra
 Ketikkan zimbra pada kolom Record Key
 lalu pada kolom Type Pilih "CNAME: Alias for Domain Name"
 Value → www karena zimbra adalah alias dari www.ahrif91.net
➢ Masukkan record ftp
 Ketikkan ftp pada kolom Record Key
 lalu pada kolom Type Pilih "A: Domain Name Translation"
 Value → 192.168.100.1 alamat IP dari ftp.ahrif91.net
Seperti gambar dibawah ini :

➢ Klik OK
➢ Kemudian Klik Finish.

Setelah selesai, kita lakukan percobaan apakah sudah bisa digunkan,untuk mengetahuinya
Dengan cara :

➢ Buka konsole
➢ login sebagai root
➢ kemudian restart dns server dengan perintah

/etc/init.d/named restart

➢ Kemudian ketikkan
ns1.ahrif91.net
➢ Jika DNS Server Anda berjalan dengan Benar maka akan muncul output seperti ini:

aris.net:/home/linux_user # nslookup ns1.ahrif91.net
Server: 192.168.100.1
Address: 192.168.100.1#53
Name: ns1.ahrif91.net
Address: 192.168.100.1
ahrif91.net:/home/linux_user #

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 sender.top + sz = su.Top And sender.left = su.Left _

        Or sender.left + sz = su.Left And sender.top = su.Top _

        Or sender.top - sz = su.Top And sender.left = su.Left _

        Or sender.left - sz = su.Left And sender.top = su.Top Then

            tmptop = su.Top

            tmpleft = su.Left

            su.Top = sender.top

            su.Left = sender.left

            sender.top = tmptop

            sender.left = tmpleft

        End If

        win()

    End Sub

    Private Sub coba_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim left As Single = 1

        Dim top As Single = 1

        Dim i As Integer

        For i = 0 To 2

            btn(i) = New Button

            AddHandler btn(i).Click, AddressOf Btn_Click

            Me.Controls.Add(btn(i))

            btn(i).Name = "btn" + CStr(i)

            btn(i).Size = New Size(sz, sz)

            btn(i).Top = top

            btn(i).Left = left

            btn(i).Tag = i

            left += sz

        Next

        top += sz

        left = 1

        For i = 3 To 5

            btn(i) = New Button

            AddHandler btn(i).Click, AddressOf Btn_Click

            Me.Controls.Add(btn(i))

            btn(i).Name = "btn" + CStr(i)

            btn(i).Size = New Size(sz, sz)

            btn(i).Top = top

            btn(i).Left = left

            btn(i).Tag = i

            left += sz

        Next

        top += sz

        left = 1

        For i = 6 To 7

            btn(i) = New Button

            AddHandler btn(i).Click, AddressOf Btn_Click

            Me.Controls.Add(btn(i))

            btn(i).Name = "btn" + CStr(i)

            btn(i).Size = New Size(sz, sz)

            btn(i).Top = top

            btn(i).Left = left

            btn(i).Tag = i

            left += sz

        Next

        su.Top = top

        su.Left = left

        Me.Top = 25

        Me.Left = 25

        Me.Size = New Size(sz * 3.3, sz * 4)

        rand()

    End Sub

    Private Sub rand()

        Dim temp As Integer, i As Integer

        Dim track As Integer = 0

        Dim flag As Boolean = False

        While track < 8

            temp = CInt(16 * Rnd())

            If temp < 9 And temp <> 0 Then

                For i = 0 To track - 1

                    If temp = btn(i).Text Then

                        flag = True

                        Exit For

                    Else

                        flag = False

                    End If

                Next

                If flag = False Then

                    btn(track).Text = temp

                    track += 1

                End If

            End If

        End While

    End Sub

    Private Sub su_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles su.Click

    End Sub

    Private Sub win()

        Dim ans As Integer

        Dim track As Integer = 1

        Dim top As Integer, left As Integer, i As Integer

        top = 1

        left = 1

        While track < 9

            For i = 0 To 7

                If top = btn(i).Top And left = btn(i).Left Then

                    If track = btn(i).Text Then

                        track += 1

                        left += sz

                        ans = 0

                        If ((track - 1) Mod 3) = 0 Then

                            top += sz

                            left = 1

                        End If

                        Exit For

                    Else

                        Exit Sub

                    End If

                Else

                    ans = 1

                End If

            Next

            If ans = 1 Then

                Exit Sub

            End If

        End While

        If ans = 0 Then

            MsgBox("Anda menang ")

        End If

    End Sub

End Class

 

Hasilnya Apabila di Debugging...

Read more »

No comments