Story Of My Life: 2016

Rabu, 14 Desember 2016

Input Data Ke Ms.Access

1.Penjelasan Aplikasi

Aplikasi ini dibuat untuk menginput data Wanita Penghibur yang bertujuan untuk menjadi list tetap di Alexis yang akan langsung masuk ke dalam Ms.Access menggunakan Visual basic,sehingga mempercepat dalam penginputan data karena tidak semua data harus diinput,dalam aplikasi ini hanya membutuhkan input seperti: Tipe,nama Wanita,Ukuran,Umur,Harga,dan rangkuman List Wanita sudah otomatis diproses lewat program ini. program ini membutuhkan 5 buah field yaitu: field tipe ,field nama, field Ukuran, field umur, dan field Harga yang bertujuan untuk pengoperasiaannya. output yang dihasilkan berupa List Nama Wanita Penghibur.

2.Screen Shoot

Tampilan Awal

Tampilan Setelah DiInput

Tampilan Daftar Transaksi

Tampilan Rangkuman

3. Source Code

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

Dim xReader As OleDbDataReader

Dim Koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Users\SMRN\Documents\database333.mdb"

Dim Objek As New OleDb.OleDbConnection(Koneksi)

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click

If btnAdd.Text = "Add" Then

txttipe.Text = ""

txtNama.Text = ""

cmbukuran.SelectedIndex = -1

txtUmur.Text = ""

txtHarga.Text = ""

txtNama.Focus()

btnAdd.Text = "Save"

Else

Objek.Open()

Dim Add As String = "INSERT INTO DaftarWP values ('" & txttipe.Text & "', '" & txtNama.Text & "', '" & cmbukuran.Text & "', '" & txtUmur.Text & "', '" & txtHarga.Text & "')"

Dim oCMD = New OleDbCommand(Add, Objek)

oCMD.ExecuteNonQuery()

Objek.Close()

MsgBox("Sukses")

btnAdd.Text = "Add"

End If

End Sub

Private Sub btnFind_Click(sender As Object, e As EventArgs) Handles btnFind.Click

Dim Kode As String = InputBox("Masukkan Nama")

If Not Len(Kode) = 0 Then

Objek.Close()

Objek.Open()

Dim Cari As String = "SELECT * FROM DaftarWP where nama = '" + Kode + "'"

Dim oCMD = New OleDbCommand(Cari, Objek)

xReader = oCMD.ExecuteReader

If xReader.HasRows Then

xReader.Read()

txttipe.Text = xReader("tipe")

txtNama.Text = xReader("nama")

cmbukuran.Text = xReader("ukuran")

txtUmur.Text = xReader("umur")

txtHarga.Text = xReader("harga")

Else

MsgBox("namaWP" + Kode + "tidak ada")

txttipe.Text = ""

txtNama.Text = ""

cmbukuran.SelectedIndex = -1

txtUmur.Text = ""

txtHarga.Text = ""

txtNama.Focus()

End If

End Sub

Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click

Objek.Close()

Objek.Open()

Dim Ubah As String = "UPDATE DaftarWP set tipe = '" & txttipe.Text & "', ukuran = '" & cmbukuran.Text & "', umur = '" & txtUmur.Text & "', harga = '" & txtHarga.Text & "' where nama = '" & txtNama.Text & "'"

Dim oCMD = New OleDbCommand(Ubah, Objek)

oCMD.ExecuteNonQuery()

Objek.Close()

MsgBox("Sukses")

End Sub

Private Sub btnView_Click(sender As Object, e As EventArgs) Handles btnView.Click

Form2.Show()

End Sub

Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click

Me.Close()

End Sub

Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click

Form3.Show()

End Sub

Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click

Objek.Close()

Objek.Open()

Dim Hapus As String = "DELETE FROM DaftarWP where tipe = '" & txttipe.Text & "'"

Dim oCMD = New OleDbCommand(Hapus, Objek)

oCMD.ExecuteNonQuery()

txttipe.Text = ""

txtNama.Text = ""

cmbukuran.SelectedIndex = -1

txtUmur.Text = ""

txtHarga.Text = ""

txtNama.Focus()

MsgBox("Data berhasil dihapus")

End Sub

End Class

Kamis, 17 November 2016

coddingan tugas Pak Hendrawan

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace ConsoleApplication3
{
class Program
{
static void Main(string[] args)
{

System.Collections.Stack st = new System.Collections.Stack();

st.Push('7');
st.Push('8');
st.Push('1');
st.Push('2');
st.Push('4');
st.Push('9');
st.Push('3');

foreach (char stVarible in st)
{
Console.WriteLine(stVarible);
}

Console.WriteLine("");
string strBil = "";

var x1 = st.Pop();
var x2 = st.Pop();
var x3 = st.Pop();
var x4 = st.Pop();
var x5 = st.Pop();
var x6 = st.Pop();
var x7 = st.Pop();

strBil = strBil + x5 + x4 + x1 + x3 + x7 + x6 + x2;

foreach (char stVariable in st)
{
Console.WriteLine(stVariable);
}
Console.WriteLine("nilai disusun = {0}", strBil);

}
}

}

hasil outputnya :

Aplikasi Perizinan Mobil

kali ini saya akan membuat perizinan mobil menggunakan visual basic di import ke ms. word dan ms. excel.

berikut foto form dan outputnya :

Berikut hasil imports ke ms. word menggunakan vb

Berikut hasil imports ke ms. excel menggunakan vb

berikut adalah coddingannya

Imports Microsoft.Office.Interop

Imports word = Microsoft.Office.Interop.Word

Public Class Form1

Dim app As New Excel.Application

Dim book As Excel.Workbook

Dim sheet As Excel.Worksheet

Dim myWordApp As New word.Application

Dim myworddoc As New word.Document

Private Sub btnexcel_Click(sender As Object, e As EventArgs) Handles btnexcel.Click

book = app.Workbooks.Open("‪C:\Users\ASUS\Documents\Book1.xlsx")

sheet = book.Sheets("Sheet1")

app.Range("A1").Value = "Nama"

app.Range("B1").Value = "NoKtp"

app.Range("C1").Value = "Alamat"

app.Range("D1").Value = "Hari"

app.Range("E1").Value = "Tanggal"

app.Range("A2").Value = txtnama.Text

app.Range("B2").Value = txtnoktp.Text

app.Range("C2").Value = txtalamat.Text

app.Range("D2").Value = txthari.Text

app.Range("E2").Value = txttanggal.Text

book.Save()

app.Quit()

End Sub

Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click

Dim a As String

a = MsgBox("Yakin Keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

If a = vbYes Then

Me.Close()

End If

End Sub

Private Sub btnmulai_Click(sender As Object, e As EventArgs) Handles btnmulai.Click

Me.txtnama.Text = ""

Me.txtnoktp.Text = ""

Me.txtalamat.Text = ""

Me.txthari.Text = ""

Me.txttanggal.Text = ""

Me.txtnama.Focus()

End Sub

Private Sub btnword_Click(sender As Object, e As EventArgs) Handles btnword.Click

Dim mywordapp As New word.Application

Dim myworddoc As New word.Document

myworddoc = mywordapp.Documents.Open("‪C:\Users\ASUS\Documents\Surat Perizinan Mobil.docx")

myworddoc.Bookmarks("Nama").Select()