Tuesday, May 23, 2017

[VISUAL BASIC.NET] Manipulasi Data MS.ACCESS dan VB.Net

1. Buat project dengan nama Database
2. Buat database dengan nama DBInventory.accdb menggunakan Microsoft Access 2010, simpan database tersebut di folder Database\Database\Database\bin\Debug pada project yang anda buat
3. Buat Tabel dengan nama TblBarang
Field Name
Data Type
Field Size
Primary Key
KodeBarang
Text
4
*
NamaBarang
Text
100

KodeJenis
Text
4

HargaNet
Currency


HargaJual
Currency


Stok
Number
Integer


4. Isi record TblBarang
KodeBarang
NamaBarang
KodeJenis
HargaNet
HargaJual
Stok
0001
Pulpen
J001
1000
1500
25
0002
Pensil
J001
1200
1700
30
0003
LED TV
J002
2000000
2500000
3
0004
Antena
J002
90000
120000
10

5. Buat Tabel dengan nama TblJenis
Field Name
Data Type
Field Size
Primary Key
KodeJenis
Text
4
*
Jenis
Text
60


6. Isi record TblJenis
KodeJenis
Jenis
J001
Alat Tulis Kantor
J002
Elektronik
J003
Alat Rumah Tangga

7. Desain User Interface sebagai berikut :


8. Source code lengkap :

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Imports System.Data.OleDb

Public Class Form1
    Public koneksi As String
    Public sql1, sql2 As String
    Public conn As OleDbConnection
    Public cmd As OleDbCommand
    Public RS As OleDbDataReader
    Public dtadapter As New OleDbDataAdapter
    Public dttable As New DataTable

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        koneksi = "provider=microsoft.ace.oledb.12.0;data source=DBInventory.accdb"
        conn = New OleDbConnection(koneksi)
        conn.Open()
        daftar()
        isiCombo()
        posisiTambah(False)
    End Sub

    Sub daftar()
        sql2 = "SELECT * FROM tblBarang"
        dtadapter = New OleDbDataAdapter(sql2, conn)
        Dim BRG As New DataTable
        BRG.Clear()
        dtadapter.Fill(BRG)
        dgvBarang.DataSource = BRG
    End Sub

    Sub bersihkan()
        txtKDBarang.Text = ""
        txtNamaBarang.Text = ""
        cbJenis.Text = ""
        txtHargaNet.Text = ""
        txtHargaJual.Text = ""
        txtStok.Text = ""
        lblNamaJenis.Text = "Nama Jenis Barang"
    End Sub

    Sub posisiTambah(ByVal posisi As Boolean)
        txtKDBarang.Enabled = posisi
        txtNamaBarang.Enabled = posisi
        cbJenis.Enabled = posisi
        txtHargaNet.Enabled = posisi
        txtHargaJual.Enabled = posisi
        txtStok.Enabled = posisi
        btnBaru.Enabled = Not posisi
        btnBatal.Enabled = posisi
        btnSimpan.Enabled = posisi
    End Sub

    Sub simpan()
        sql1 = "INSERT INTO TBLBARANG VALUES('" & txtKDBarang.Text & "','" & txtNamaBarang.Text & "','" &
            cbJenis.Text & "','" & txtHargaNet.Text & "','" & txtHargaJual.Text & "','" &
            txtStok.Text & "')"
        cmd = New OleDbCommand(sql1)
        cmd.Connection = conn
        cmd.ExecuteNonQuery()
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        simpan()
        daftar()
        bersihkan()
        posisiTambah(False)
        MsgBox("Data Sudah Disimpan", MsgBoxStyle.Information, "Perhatian")
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        bersihkan()
        posisiTambah(False)
        MsgBox("Transaksi dibatalkan", MsgBoxStyle.Information, "Perhatian")
    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
        bersihkan()
        posisiTambah(True)
        txtKDBarang.Focus()
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Close()
    End Sub

    Sub isiCombo()
        sql2 = "SELECT KODEJENIS FROM tblJenis"
        cmd = New OleDbCommand(sql2, conn)
        RS = cmd.ExecuteReader
        cbJenis.Items.Clear()
        Do While RS.Read()
            cbJenis.Items.Add(RS("KodeJenis"))
        Loop
    End Sub

    Private Sub cbJenis_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbJenis.SelectedIndexChanged
        sql2 = "SELECT * FROM tblJenis WHERE KODEJENIS ='" & cbJenis.Text & "'"
        cmd = New OleDbCommand(sql2, conn)
        RS = cmd.ExecuteReader
        RS.Read()
        If RS.HasRows Then
            lblNamaJenis.Text = RS("JENIS")
        End If
    End Sub

    Private Sub dgvBarang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgvBarang.Click
        Dim i = dgvBarang.CurrentRow.Index
        txtKDBarang.Text = dgvBarang.Item(0, i).Value
        txtNamaBarang.Text = dgvBarang.Item(1, i).Value
        cbJenis.Text = dgvBarang.Item(2, i).Value
        txtHargaNet.Text = dgvBarang.Item(3, i).Value
        txtHargaJual.Text = dgvBarang.Item(4, i).Value
        txtStok.Text = dgvBarang.Item(5, i).Value
    End Sub
End Class


9. Hasil eksekusi


on No comments:

Monday, May 22, 2017

[VISUAL BASIC.NET] Menampilkan Data Ke DataGridView dan ListView

Langkah-langkah :
1. Buat Database, Table, dan isi record menggunakan SQL Server 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
create database DBLatihan;

use DBLatihan;

create table Barang(
Kode_Barang char(5) primary key not null,
Nama_Barang varchar(30),
Harga_Beli numeric(9),
Harga_Jual numeric(9),
Jumlah_Barang smallint,
Satuan varchar(10)
);

insert into Barang values('01','KOPI',1000,1500,100,'DUS');
insert into Barang values('02','KECAP',2000,3000,100,'BOTOL');
insert into Barang values('03','GARAM',3000,4000,100,'PAK');

SELECT * FROM Barang;

2. Tambahkan DataGridView, ListView, dan Button pada user interface

3. Berikut adalah source code-nya : 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Imports System.Data.SqlClient

Public Class Form1
    Dim conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim str As String

    Sub koneksi()

        str = "Data Source=USER-PC\AMIK;Initial Catalog=DBLatihan;Integrated Security=True"
        conn = New SqlConnection(str)

        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            koneksi()
            da = New SqlDataAdapter("SELECT * FROM BARANG", conn)
            ds = New DataSet
            ds.Clear()
            da.Fill(ds, "DataBarang")
            'isi data ke datagridView
            DataGridView1.DataSource = (ds.Tables("DataBarang"))
            'isi data ke ListView
            ListView1.Items.Clear()
            ListView1.FullRowSelect = True
            ListView1.GridLines = True
            ListView1.MultiSelect = False
            ListView1.View = View.Details
            ListView1.Columns.Add("Kode Barang", 75, HorizontalAlignment.Left)
            ListView1.Columns.Add("Nama Barang", 150, HorizontalAlignment.Left)
            ListView1.Columns.Add("Harga Beli", 100, HorizontalAlignment.Left)
            ListView1.Columns.Add("Harga Jual", 100, HorizontalAlignment.Left)
            ListView1.Columns.Add("Jumlah Barang", 100, HorizontalAlignment.Left)
            ListView1.Columns.Add("Satuan", 100, HorizontalAlignment.Left)
            For i = 0 To ds.Tables(0).Rows.Count - 1
                With ListView1
                    .Items.Add(ds.Tables(0).Rows(i).Item(0))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(1))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(2))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(3))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(4))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(5))
                    If (i Mod 2 = 0) Then
                        .Items(i).BackColor = Color.LightSteelBlue
                    Else
                        .Items(i).BackColor = Color.Lavender
                    End If
                End With
            Next
        Catch ex As Exception
        End Try

    End Sub

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

4. Run untuk mengeksekusi source code diatas
on No comments:

Thursday, May 18, 2017

[MOBILE PROGRAMMING] Menentukan Nilai Akhir

Berikut adalah potongan kode dalam bentuk XML: 
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"
    xmlns:tools="http://schemas.android.com/tools"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    android:paddingBottom="@dimen/activity_vertical_margin"
    android:paddingLeft="@dimen/activity_horizontal_margin"
    android:paddingRight="@dimen/activity_horizontal_margin"
    android:paddingTop="@dimen/activity_vertical_margin"
    tools:context=".MainActivity" >

    <TextView
        android:id="@+id/textView1"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_alignParentTop="true"
        android:text="Menentukan Nilai Akhir"
        android:textAppearance="?android:attr/textAppearanceLarge" />

    <TextView
        android:id="@+id/textView2"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/textView1"
        android:layout_below="@+id/textView1"
        android:layout_marginTop="19dp"
        android:text="Nilai Absensi" />

    <EditText
        android:id="@+id/edTugas"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/edKuis"
        android:layout_alignRight="@+id/edKuis"
        android:layout_below="@+id/edKuis"
        android:ems="10"
        android:inputType="numberDecimal" />

    <EditText
        android:id="@+id/edUTS"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/edTugas"
        android:layout_alignRight="@+id/edTugas"
        android:layout_below="@+id/edTugas"
        android:ems="10"
        android:inputType="numberDecimal" />

    <EditText
        android:id="@+id/edUAS"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/edUTS"
        android:layout_alignRight="@+id/edUTS"
        android:layout_below="@+id/edUTS"
        android:ems="10"
        android:inputType="numberDecimal" />

    <Button
        android:id="@+id/btnProses"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/textView4"
        android:layout_below="@+id/textView6"
        android:layout_marginTop="21dp"
        android:onClick="proses"
        android:text="Proses" />

    <LinearLayout
        android:id="@+id/linearLayout1"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_below="@+id/edUAS"
        android:layout_marginLeft="18dp"
        android:layout_toRightOf="@+id/textView2" >
    </LinearLayout>

    <EditText
        android:id="@+id/edAbsen"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_above="@+id/textView3"
        android:layout_alignLeft="@+id/linearLayout1"
        android:ems="10"
        android:inputType="numberDecimal" >

        <requestFocus />
    </EditText>

    <TextView
        android:id="@+id/textView3"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/textView2"
        android:layout_below="@+id/textView2"
        android:layout_marginTop="18dp"
        android:text="Nilai Kuis" />

    <TextView
        android:id="@+id/textView4"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignBottom="@+id/edTugas"
        android:layout_alignLeft="@+id/textView5"
        android:text="Nilai Tugas" />

    <TextView
        android:id="@+id/textView5"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_above="@+id/edUAS"
        android:layout_alignRight="@+id/textView3"
        android:text="Nilai UTS" />

    <TextView
        android:id="@+id/textView6"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_above="@+id/linearLayout1"
        android:layout_alignLeft="@+id/btnProses"
        android:text="Nilai UAS" />

    <TextView
        android:id="@+id/textView7"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/btnProses"
        android:layout_below="@+id/btnProses"
        android:layout_marginTop="24dp"
        android:text="Nilai Akhir" />

    <TextView
        android:id="@+id/textView8"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/textView7"
        android:layout_below="@+id/textView7"
        android:layout_marginTop="18dp"
        android:text="Nilai Huruf" />

    <LinearLayout
        android:id="@+id/linearLayout2"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_below="@+id/textView8"
        android:layout_toLeftOf="@+id/linearLayout1" >
    </LinearLayout>

    <TextView
        android:id="@+id/txtNA"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_above="@+id/textView8"
        android:layout_alignLeft="@+id/linearLayout1" />

    <TextView
        android:id="@+id/txtHuruf"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignBottom="@+id/textView8"
        android:layout_alignLeft="@+id/txtNA" />

    <Button
        android:id="@+id/btnKeluar"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignBottom="@+id/btnProses"
        android:layout_toRightOf="@+id/linearLayout2"
        android:onClick="keluar"
        android:text="Keluar" />

    <EditText
        android:id="@+id/edKuis"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignLeft="@+id/edAbsen"
        android:layout_alignRight="@+id/edAbsen"
        android:layout_below="@+id/edAbsen"
        android:ems="10"
        android:inputType="numberDecimal" />

</RelativeLayout>

Berikut ini adalah kode menggunakan code Java: 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
package com.example.nilaiakhir01;


import android.os.Bundle;
import android.app.Activity;
import android.view.Menu;
import android.view.View;
import android.widget.EditText;
import android.widget.TextView;
import android.widget.Toast;

public class MainActivity extends Activity {

 EditText absen,tugas,kuis,uts,uas;
 TextView NA,NH;
    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.activity_main);
        
        absen=(EditText)findViewById(R.id.edAbsen);
        tugas=(EditText)findViewById(R.id.edTugas);
        kuis=(EditText)findViewById(R.id.edKuis);
        uts=(EditText)findViewById(R.id.edUTS);
        uas=(EditText)findViewById(R.id.edUAS);
        
        NA=(TextView)findViewById(R.id.txtNA);
        NH=(TextView)findViewById(R.id.txtHuruf);
    }


    public void proses(View v){
     if (absen.length() == 0){
      Toast.makeText(getApplication(),"Komponen Nilai Absen tidak boleh kosong",Toast.LENGTH_SHORT).show();
     }
     else if (tugas.length() == 0){
      Toast.makeText(getApplication(),"Komponen Nilai Tugas tidak boleh kosong",Toast.LENGTH_SHORT).show();
     }
     else if (kuis.length() == 0){
      Toast.makeText(getApplication(),"Komponen Nilai Kuis tidak boleh kosong",Toast.LENGTH_SHORT).show();
     }
     else if (uts.length() == 0){
      Toast.makeText(getApplication(),"Komponen Nilai UTS tidak boleh kosong",Toast.LENGTH_SHORT).show();
     }
     else if (uas.length() == 0){
      Toast.makeText(getApplication(),"Komponen Nilai UAS tidak boleh kosong",Toast.LENGTH_SHORT).show();
     }
     else{
      double n1=Double.parseDouble(absen.getText().toString());
         double n2=Double.parseDouble(tugas.getText().toString());
         double n3=Double.parseDouble(kuis.getText().toString());
         double n4=Double.parseDouble(uts.getText().toString());
         double n5=Double.parseDouble(uas.getText().toString());
         
         double nilai = nilaiAkhir(n1, n2, n3, n4, n5);
         
         NA.setText(String.valueOf(nilai).toString());
         
         char nilaiHuruf='-';
         if (nilai>=80){
          nilaiHuruf='A';
         }
         else if (nilai>=70){
          nilaiHuruf='B';
         }
         else if (nilai>=50){
          nilaiHuruf='C';
         }
         else if (nilai>=40){
          nilaiHuruf='D';
         }
         else if (nilai>=0){
          nilaiHuruf='E';
         }
         
         NH.setText(String.valueOf(nilaiHuruf).toString());
     }
     
     
    }
    
    public double nilaiAkhir(double ABSEN,double TUGAS, double KUIS, double UTS, double UAS ){
     return (0.1*ABSEN+0.1*TUGAS+0.1*KUIS+0.3*UTS+0.4*UAS);
    }
    
    public void keluar(View v){
     finish();
    }
    
    @Override
    public boolean onCreateOptionsMenu(Menu menu) {
        // Inflate the menu; this adds items to the action bar if it is present.
        getMenuInflater().inflate(R.menu.main, menu);
        return true;
    }
    
}

Hasil potongan kode di atas adalah sebagai berikut:
on No comments:
Subscribe to: Comments (Atom)