Aplikasi Pendaftaran Mahasiswa Baru - Microsoft Visual Studio 2012 - ASP.NET

   Assalamu'alaikum Warahmatullahi Wabarakatuh

   Salah satu tugas Ujian Akhir Semester, dan untuk memenuhi kelengkapan nilai mata kuliah Pemograman 1 di STMIK ERESHA. Untuk penjelasannya penulis sudah membuat perancangannya di pekan uas lalu. 
   Progam yang telah di buat adalah Aplikasi Pendaftaran Mahasiswa Baru, mungkin ini hanya program sederhana saja atau bisa dibilang program untuk progamer pemula. Deskripsi dari program ini adalah untuk user sudah bisa menyimpan data, menghapus data ,dan mengedit data yang sudah tersimpan. Dalam artian program yang saya sudah buat ini, user sudah bisa memanipulasi semua data yang akan di input/diberikan user dan sesuai keinginan nya.

Untuk pengoprasian nya ;
- Input data calon mahasiswa,
- Proses,
- Simpan,
- Selesai
- Data yang sudah di simpan , sudah terkoneksi oleh database Ms. Acces


Yang akan saya berikan di Blog ini :
- Contoh Design
- Source code
- Flow Chart
- Hasil Run

 - Flow Chart -

- Contoh design -

- Grid View -

- Data Base -

- Source code (Button Simpan)

Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        dbuas()
        Dim query As New OleDbCommand("Insert into [login_tbl] values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "');", oConn)
        Dim x = query.ExecuteNonQuery
        If x = 1 Then
            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Sukses")
            tampildata()
       

Else
            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Critical, "Gagal")
        End If
        oConn.Close()
        Response.Redirect("MBagoesAprilYanada_161011400129.aspx")
    End Sub

- Source code (Button Hapus)

Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        dbuas()
        Dim query As New OleDbCommand("DELETE * FROM [login_tbl] WHERE NIP = " & TextBox1.Text & "", oConn)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil Di Hapus", MsgBoxStyle.Information, "Sukses")

       

Else
            MsgBox("Data Gagal Di Hapus", MsgBoxStyle.Critical, "Gagal")
        End If
        oConn.Close()
        Response.Redirect("MBagoesAprilYanada_161011400129.aspx")
    End Sub

- Source code (Button Edit)

Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        dbuas()
        Dim query As New OleDbCommand("UPDATE login_tbl SET NamaMahasiswa='" & TextBox2.Text & "', TempatLahir='" & TextBox3.Text & "', TanggalLahir='" & TextBox4.Text & "', Alamat='" & TextBox5.Text & "', Fakultas='" & TextBox6.Text & "', ProgramStudi='" & TextBox7.Text & "', NamaOrangTuaKandung='" & TextBox8.Text & "'  WHERE NIP=" & TextBox1.Text & "", oConn)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil Di Edit", MsgBoxStyle.Information, "Sukses")

       

Else
            MsgBox("Data Gagal Di Edit", MsgBoxStyle.Critical, "Gagal")
        End If
        oConn.Close()
        Response.Redirect("MBagoesAprilYanada_161011400129.aspx")
    End Sub

- Hasil RUN

- Button Simpan -

- Button EDIT -

- Source Code untuk deklarasi nya

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Partial Class Login
    Inherits System.Web.UI.Page
    Dim oConn As New OleDbConnection
    Dim sql As String
    Dim da As DataSet
    Dim dt As DataTable

    Public Sub dbuas()
        Dim A As String
        A = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\STMIK ERESHA\db_uas\Database2.accdb"
        oConn = New OleDbConnection(A)
        oConn.Open()
    End Sub

    Sub tampildata()
        dbuas()
        sql = "Select * From login_tbl"
        Dim da = New OleDbDataAdapter(sql, oConn)
        Dim ds = New Data.DataSet
        ds.Reset()
        da.Fill(ds)
        GridView1.DataSource = ds.Tables(0)
    End Sub

Aplikasi Penjualan Menggunakan Microsoft Visual Studio 2012

Assalammualaikum wr. wrb.

  Untuk memenuhi kelengkapan nilai mata kuliah pemograman1 di STMIK ERESHA, sebelumnya saya sudah membuat perancangannya di pekan uts lalu.  Progam yang telah saya buat adalah Aplikasi penjualan alat - alat olahraga, mungkin ini hanya program sederhana saja atau bisa dibilang program untuk progamer pemula.
oke lanjutt, untuk pengoprasiannya ;
- User hanya memilih kode barang yang sudah dibuat, kode yang dipilih sudah mengautomatiskan nama dan harga
- Harga yang dibeli oleh user , di kalikan dengan jumlah yang akan dibeli
- Setiap total bayar akan dikenakan pajak sekitar 5%
- Nah, Jumlah uang tunai user yang diberikan akan dikurangi dengan, jumlah total bayar yang sudah dikenai pajak tadi.(Uang kembalian)
- Data yang sudah di hitung tadi, user bisa menyimpannya di Ms.Word atau Ms.Excel


Yang akan saya berikan di Blog ini :
- Contoh Design
- Source code
- Hasil Run


Contoh Design

















  




Source code

Source code di form :
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox.Items.Add("B101")
        ComboBox.Items.Add("B102")
        ComboBox.Items.Add("B103")
        ComboBox.Items.Add("B104")
        ComboBox.Items.Add("B105")
    End Sub 


Source code di ComboCox :
Private Sub ComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox.SelectedIndexChanged
        If ComboBox.Text = "B101" Then
            txtnama.Text = "Jersey Sepak Bola"
            TxtHarga.Text = "150000"

        ElseIf ComboBox.Text = "B102" Then
            txtnama.Text = "Sepatu Sepak Bola"
            TxtHarga.Text = "300000"

        ElseIf ComboBox.Text = "B103" Then
            txtnama.Text = "Bola Voli"
            TxtHarga.Text = "75000"
        ElseIf ComboBox.Text = "B104" Then
            txtnama.Text = "kaca mata renang"
            TxtHarga.Text = "15000"

        ElseIf ComboBox.Text = "B105" Then
            txtnama.Text = "Baju Karate"
            TxtHarga.Text = "95000"


        End If
    End Sub  
 
Source code di Button Hitung :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles buttonhitung.Click
        Dim Harga = TxtHarga.Text
        Dim Jumlah = txtjumlah.Text
        Dim Total = txttotal.Text

        Total = Harga * Jumlah
        txttotal.Text = Total

    End Sub


Source code di Button Hapus :
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        ComboBox.ResetText()
        txtnama.Text = ""
        txtjumlah.Text = ""
        TxtHarga.Text = ""
        txttotal.Text = ""
        txtkembalian.Text = ""
        txttunai.Text = ""
        txtTB.Text = ""
        Txtppn.Text = ""
    End Sub

Source code di CheckBox :

Dim Pajak = Txtppn.Text
        Dim Total = txttotal.Text
        Dim bayar = txtTB.Text
        If CheckBox1.Checked = True Then
            Pajak = Total * 0.05
            Txtppn.Text = Pajak
       Else
            Txtppn.Text = 0
        End If
       
        bil1 = txttotal.Text
        bil2 = Txtppn.Text
        hasil = txtTB.Text

        hasil = bil1 + bil2
        txtTB.Text = hasil
    End Sub 


Source code di Button Bayar :

Private Sub BtnBayar_Click(sender As Object, e As EventArgs) Handles BtnBayar.Click
        Dim K = txtkembalian.Text
        Dim T = txttunai.Text
        Dim Total = txtTB.Text
             
        K = T - Total
        txtkembalian.Text = K
    End Sub 



Source code di Button Ms.Word :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim Aplikasi As New word.Application
        Dim Filenya As New word.Document
        Filenya = Aplikasi.Documents.Open("D:\STMIK ERESHA\Mata Kuliah\IV\Tugas Pemograman\uts\Kode Barang.docx")

        Filenya.Bookmarks("KodeBarang").Select()
        Aplikasi.Selection.TypeText(ComboBox.Text)

        Filenya.Bookmarks("NamaBarang").Select()
        Aplikasi.Selection.TypeText(txtnama.Text)

        Filenya.Bookmarks("Harga").Select()
        Aplikasi.Selection.TypeText(TxtHarga.Text)

        Filenya.Bookmarks("Jumlah").Select()
        Aplikasi.Selection.TypeText(txtjumlah.Text)

        Filenya.Bookmarks("Pembayaran").Select()
        Aplikasi.Selection.TypeText(txttotal.Text)

        Filenya.SaveAs("D:\STMIK ERESHA\Mata Kuliah\IV\Tugas Pemograman\uts\Kode Barang2.docx")
        MsgBox("Sukses")

        Aplikasi.Visible = True
    End Sub

 Source code di Button Ms.Excel :

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim appex As New excel.Application
        Dim savexcl As excel.Workbook

        savexcl = appex.Workbooks.Open("D:\STMIK ERESHA\Mata Kuliah\IV\Tugas Pemograman\uts\kode.xlsx")
        appex.Range("A2").Value = ComboBox.Text
        appex.Range("B2").Value = txtnama.Text
        appex.Range("C2").Value = TxtHarga.Text
        appex.Range("D2").Value = txtjumlah.Text
        appex.Range("E2").Value = txttotal.Text
        savexcl.SaveAs("D:\STMIK ERESHA\Mata Kuliah\IV\Tugas Pemograman\uts\kodexclxxx.xlsx")
        appex.Visible = True

    End Sub


 Hasil Run :





Hasil Data di Ms.Word :



Hasil Data di Ms.Excel :