Assalamualaikum wr wb .
Disini saya akan membuat program android menggunakan aplikasi eclipse.
Pada kali ini saya membuat aplikasi toko buku.
pertama-tama buat lah projek nya nama nya bebas apa saja, lalu disini saya membuat 6 activity
sesuai keinginan saja.
berikut nama projek yang dibuat:
pada menu login tampilan nya seperti ini.
activity main.xml
<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/textView3"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignRight="@+id/textView2"
android:layout_below="@+id/textView2"
android:layout_marginTop="52dp"
android:text="Password"
android:textAppearance="?android:attr/textAppearanceMedium" />
<EditText
android:id="@+id/user_id"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignLeft="@+id/textView2"
android:layout_below="@+id/textView2"
android:ems="10" >
<requestFocus />
</EditText>
<EditText
android:id="@+id/pass_id"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignLeft="@+id/textView3"
android:layout_below="@+id/textView3"
android:ems="10" />
<TextView
android:id="@+id/textView1"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignParentTop="true"
android:layout_centerHorizontal="true"
android:text="Form Login"
android:textAppearance="?android:attr/textAppearanceLarge" />
<TextView
android:id="@+id/textView2"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignParentLeft="true"
android:layout_below="@+id/textView1"
android:text="Username"
android:textAppearance="?android:attr/textAppearanceMedium" />
<Button
android:id="@+id/id_login"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignLeft="@+id/user_id"
android:layout_centerVertical="true"
android:text="Login" />
<Button
android:id="@+id/id_tutup"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignBaseline="@+id/id_login"
android:layout_alignBottom="@+id/id_login"
android:layout_centerHorizontal="true"
android:text="Tutup" />
</RelativeLayout>
MainActivity.java
package com.example.tokobuku;
import android.os.Bundle;
import android.app.Activity;
import android.content.Intent;
import android.view.Menu;
import android.view.View;
import android.view.View.OnClickListener;
import android.widget.EditText;
public class MainActivity extends Activity implements OnClickListener {
private String[][] dataUser = {{"ali","123","Administrator"},
{"user1","password1","Nama User 1"},
{"user2","password2","Nama User 2"}
};
private EditText userNameET, passwordET;
private final int SUCCESS=1;
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_main);
userNameET = (EditText) findViewById(R.id.user_id);
passwordET = (EditText) findViewById(R.id.pass_id);
findViewById(R.id.id_login).setOnClickListener(this);
findViewById(R.id.id_tutup).setOnClickListener(this);
}
@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;
}
@Override
public void onClick(View v) {
// TODO Auto-generated method stub
switch (v.getId()){
case R.id.id_login:
int i=0;
boolean success=false;
while ((i<dataUser.length) && (!success)){
if
((userNameET.getText().toString().equals(dataUser[i][0])) &&
(passwordET.getText().toString().equals(dataUser[i][1]))){
success=true;
}else{
i++;
}
}
Intent intent;
if (success){
intent = new Intent(this, Daftar.class);
intent.putExtra("namaUser",dataUser[i][2]);
startActivityForResult(intent,SUCCESS);
}else{
intent = new Intent(this, Daftar.class);
startActivity(intent);
}
startActivity(intent);
break;
case R.id.id_tutup:
System.exit(0);
}
}
public void onActivityResult(int requestCode, int resultCode,
Intent data){
switch (requestCode){
case SUCCESS:
userNameET.setText("");
passwordET.setText("");
break;
}
}
}
Activity ke2
activity_daftar.xml
<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=".Daftar" >
<TabHost
android:id="@android:id/tabhost"
android:layout_width="match_parent"
android:layout_height="match_parent"
android:layout_alignParentLeft="true"
android:layout_alignParentTop="true" >
<LinearLayout
android:layout_width="match_parent"
android:layout_height="match_parent"
android:orientation="vertical" >
<TabWidget
android:id="@android:id/tabs"
android:layout_width="match_parent"
android:layout_height="wrap_content" >
</TabWidget>
<FrameLayout
android:id="@android:id/tabcontent"
android:layout_width="match_parent"
android:layout_height="match_parent" >
<LinearLayout
android:id="@+id/tab1"
android:layout_width="match_parent"
android:layout_height="match_parent" >
</LinearLayout>
<LinearLayout
android:id="@+id/tab2"
android:layout_width="match_parent"
android:layout_height="match_parent" >
</LinearLayout>
<LinearLayout
android:id="@+id/tab3"
android:layout_width="match_parent"
android:layout_height="match_parent" >
</LinearLayout>
</FrameLayout>
</LinearLayout>
</TabHost>
</RelativeLayout>
daftar.java
package com.example.tokobuku;
import android.os.Bundle;
import android.app.Activity;
import android.view.Menu;
import android.app.TabActivity;
import android.content.Intent;
import android.widget.TabHost;
public class Daftar extends TabActivity {
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_daftar);
Intent intent;
TabHost tabHost = getTabHost();
TabHost.TabSpec spec;
intent=new Intent().setClass(this, IPA.class);
spec=getTabHost().newTabSpec("IPA").setIndicator("IPA").setContent(intent);
tabHost.addTab(spec);
intent=new Intent().setClass(this, IPS.class);
spec=getTabHost().newTabSpec("IPS").setIndicator("IPS").setContent(intent);
tabHost.addTab(spec);
intent=new Intent().setClass(this, Komik.class);
spec=getTabHost().newTabSpec("Komik").setIndicator("Komik").setContent(intent);
tabHost.addTab(spec);
}
@Override
public boolean onCreateOptionsMenu(Menu menu) {
// Inflate the menu; this adds items to the action bar if it is present.
getMenuInflater().inflate(R.menu.daftar, menu);
return true;
}
}
Activity ke3
Activity_hitung.xml
<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=".Hitung" >
<RadioGroup
android:id="@+id/radioGroup1"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignLeft="@+id/id_kembali"
android:layout_below="@+id/id_kembali" >
</RadioGroup>
<RadioGroup
android:id="@+id/radioGroup2"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignParentTop="true"
android:layout_toRightOf="@+id/textView2" >
</RadioGroup>
<TextView
android:id="@+id/textView2"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignLeft="@+id/id_bayar"
android:layout_alignTop="@+id/radioGroup2"
android:text="Harga" />
<EditText
android:id="@+id/id_harga"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignLeft="@+id/textView2"
android:layout_below="@+id/radioGroup2"
android:ems="10" />
<TextView
android:id="@+id/textView4"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_below="@+id/id_harga"
android:layout_marginTop="20dp"
android:layout_toLeftOf="@+id/radioGroup2"
android:text="Bayar" />
<EditText
android:id="@+id/id_bayar"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignLeft="@+id/hitung1"
android:layout_below="@+id/textView4"
android:ems="10" />
<Button
android:id="@+id/hitung1"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignLeft="@+id/textView5"
android:layout_below="@+id/id_bayar"
android:onClick="kembali"
android:text="Proses" />
<EditText
android:id="@+id/id_kembali"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignParentLeft="true"
android:layout_below="@+id/textView5"
android:ems="10" />
<TextView
android:id="@+id/textView5"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
android:layout_alignLeft="@+id/id_kembali"
android:layout_below="@+id/hitung1"
android:text="Kembalian" />
</RelativeLayout>
Activity_hitung.java
package com.example.tokobuku;
import android.os.Bundle;
import android.app.Activity;
import android.view.Menu;
import android.view.View;
import android.widget.Button;
import android.widget.EditText;
public class Hitung extends Activity {
EditText
harga,bayar,kembali;
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_hitung);
harga = (EditText) findViewById(R.id.id_harga);
bayar = (EditText) findViewById(R.id.id_bayar);
kembali = (EditText) findViewById(R.id.id_kembali);
int harga=10000;
}
public void kembali(View view){
int Vharga =Integer.parseInt(harga.getText().toString());
int Vbayar=Integer.parseInt(bayar.getText().toString());
int Vkembali=Vbayar-Vharga ;
kembali.setText(String.valueOf(Vkembali));
}
@Override
public boolean onCreateOptionsMenu(Menu menu) {
// Inflate the menu; this adds items to the action bar if it is present.
getMenuInflater().inflate(R.menu.hitung, menu);
return true;
}
}
Activity ke4
Activity_ips.xml
<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=".IPS" >
<ListView
android:id="@+id/listView1"
android:layout_width="match_parent"
android:layout_height="wrap_content"
android:layout_alignParentLeft="true"
android:layout_alignParentTop="true" >
</ListView>
</RelativeLayout>
Activity_ips.java
package com.example.tokobuku;
import android.os.Bundle;
import android.app.Activity;
import android.content.Intent;
import android.view.Menu;
import android.widget.ListView;
import android.widget.ArrayAdapter;
import android.widget.AdapterView;
import android.widget.Toast;
public class IPS extends Activity {
ListView LV;
String [] Menu={"Geografi","Sejarah","Sosiologi","Ekonomi"};
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_ips);
LV=(ListView) findViewById(R.id.listView1);
ArrayAdapter adapter=new ArrayAdapter(this,android.R.layout.simple_list_item_single_choice,Menu);
LV.setAdapter(adapter);
Intent intent;
intent = new Intent(this, Hitung.class);
startActivity(intent);
}
}
Activity ke5
Activity_komik.xml
<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=".Komik" >
<ListView
android:id="@+id/listView1"
android:layout_width="match_parent"
android:layout_height="wrap_content"
android:layout_alignParentLeft="true"
android:layout_alignParentTop="true" >
</ListView>
</RelativeLayout>
Activity_komik.java
package com.example.tokobuku;
import android.os.Bundle;
import android.app.Activity;
import android.content.Intent;
import android.view.Menu;
import android.widget.ListView;
import android.widget.ArrayAdapter;
import android.widget.AdapterView;
import android.widget.Toast;
public class Komik extends Activity {
ListView LV;
String [] Menu={"Naruto","Bleach","One Piece"};
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_komik);
LV=(ListView) findViewById(R.id.listView1);
ArrayAdapter adapter=new ArrayAdapter(this,android.R.layout.simple_list_item_single_choice,Menu);
LV.setAdapter(adapter);
Intent intent;
intent = new Intent(this, Hitung.class);
startActivity(intent);
}
@Override
public boolean onCreateOptionsMenu(Menu menu) {
// Inflate the menu; this adds items to the action bar if it is present.
getMenuInflater().inflate(R.menu.komik, menu);
return true;
}
}
Activity ke 6
Activity_ip.xml
<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=".IPA" >
<ListView
android:id="@+id/listView1"
android:layout_width="match_parent"
android:layout_height="wrap_content"
android:layout_alignParentLeft="true"
android:layout_alignParentTop="true" >
</ListView>
</RelativeLayout>
Activity_ip.java
package com.example.tokobuku;
import android.os.Bundle;
import android.app.Activity;
import android.content.Intent;
import android.view.Menu;
import android.widget.ListView;
import android.widget.ArrayAdapter;
import android.widget.AdapterView;
import android.widget.Toast;
import android.content.Intent;
import android.app.ListActivity;
public class IPA extends Activity {
ListView LV;
String [] Menu={"Fisika","Biologi","Kimia","Matematika"};
@Override
protected void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.activity_ip);
LV=(ListView) findViewById(R.id.listView1);
ArrayAdapter adapter=new ArrayAdapter(this,android.R.layout.simple_list_item_single_choice,Menu);
LV.setAdapter(adapter);
}
}
sekian tugas saya..
Stay With Me !!
Kamis, 25 April 2019
Kamis, 05 Juli 2018
Disini saya akan membuat program Toko Obat
Pertama kita akan kenalan dengan web form yg saya buat dulu,saya membuat web form Table
dan saya membuat web toko nya
tampilan dari web toko nya
tampilan dari web table nya
jika kita ingin mencari suatu kode obat, masukan kode nya seperti berikut
lalu klik search
dan akan terlihat jenis,nama,stok,harga nya.
source code:
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial Class table_alialfaris161011400201
Inherits System.Web.UI.Page
Dim constring As String = ConfigurationManager.ConnectionStrings("Database0ConnectionString").ConnectionString
Dim oConn As New OleDbConnection(constring)
Dim oTbl As New DataTable
Dim xReader As OleDbDataReader
Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Response.Redirect("webtoko_alialfaris161011400201.aspx")
End Sub
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End Sub
Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If Not Len(TxtKode.Text) = 0 Then
oConn.Close()
oConn.Open()
Dim ocmd As New OleDbCommand("SELECT * FROM Table1 where Kode='" + TxtKode.Text + "'", oConn)
xReader = ocmd.ExecuteReader
If xReader.HasRows Then
xReader.Read()
TxtNama.Text = xReader("Nama Obat")
TxtJenis.Text = xReader("Jenis Obat")
TxtStok.Text = xReader("Stok")
TxtHarga.Text = xReader("Harga")
Else
TxtNama.Text = "Nama Karyawan Tidak ada"
Exit Sub
End If
xReader.Close()
End If
End Sub
End Class
apabila ada kekurangan mohon dimaafkan.
Pertama kita akan kenalan dengan web form yg saya buat dulu,saya membuat web form Table
dan saya membuat web toko nya
tampilan dari web toko nya
tampilan dari web table nya
jika kita ingin mencari suatu kode obat, masukan kode nya seperti berikut
lalu klik search
dan akan terlihat jenis,nama,stok,harga nya.
source code:
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial Class table_alialfaris161011400201
Inherits System.Web.UI.Page
Dim constring As String = ConfigurationManager.ConnectionStrings("Database0ConnectionString").ConnectionString
Dim oConn As New OleDbConnection(constring)
Dim oTbl As New DataTable
Dim xReader As OleDbDataReader
Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Response.Redirect("webtoko_alialfaris161011400201.aspx")
End Sub
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End Sub
Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If Not Len(TxtKode.Text) = 0 Then
oConn.Close()
oConn.Open()
Dim ocmd As New OleDbCommand("SELECT * FROM Table1 where Kode='" + TxtKode.Text + "'", oConn)
xReader = ocmd.ExecuteReader
If xReader.HasRows Then
xReader.Read()
TxtNama.Text = xReader("Nama Obat")
TxtJenis.Text = xReader("Jenis Obat")
TxtStok.Text = xReader("Stok")
TxtHarga.Text = xReader("Harga")
Else
TxtNama.Text = "Nama Karyawan Tidak ada"
Exit Sub
End If
xReader.Close()
End If
End Sub
End Class
apabila ada kekurangan mohon dimaafkan.
Kamis, 26 April 2018
Disini saya akan membuat sebuah program dengan bahasa VB.Net
langkah pertama, pastikan kalian menginstal softwarenya.. disini saya menggunakan software visual
studio premium 2013.
langsung saja buat dulu desain nya seperti ini.
lalu isi source code nya..
(source code saya kasih di akhir)
kita run saja, lalu pilih tv murah atau mahal (terserah) dan berapa jumlah yang ingin dibeli.
lalu kita hitung berapa total nya.
wow.. lumayan mahal, trus masukan berapa uang yang kita bayar dan hitung kembalian nya.
kemudian kita cetak struk(word).
selesai.
(source code)
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim aplikasi As New word.Application
Dim file As New word.Document
file = aplikasi.Documents.Open("C:\Users\alial\Documents\22.docx")
file.Bookmarks("Nama").Select()
If murah.Checked = True Then
aplikasi.Selection.TypeText(murah.Text)
ElseIf mahal.Checked = True Then
aplikasi.Selection.TypeText(mahal.Text)
End If
file.Bookmarks("Harga").Select()
aplikasi.Selection.TypeText(tbxharga.Text)
file.Bookmarks("Jumlah_Beli").Select()
aplikasi.Selection.TypeText(cbjumlah.Text)
file.Bookmarks("Harga_Total").Select()
aplikasi.Selection.TypeText(tbxtotal.Text)
file.Bookmarks("Bayar").Select()
aplikasi.Selection.TypeText(tbxbayar.Text)
file.Bookmarks("Kembalian").Select()
aplikasi.Selection.TypeText(tbxkembalian.Text)
file.SaveAs2("C:\Users\alial\Documents\223.docx")
MsgBox("Sukses")
aplikasi.Visible = True
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
tbxkembalian.Text = tbxbayar.Text - tbxtotal.Text
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles tbxtotal.TextChanged
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs)
Dim abc As Integer
abc = tbxharga.Text * cbjumlah.Text
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs)
End Sub
Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
Dim jumlah As Integer
For jumlah = 1 To 10
cbjumlah.Items.Add(jumlah)
Next
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim abc As Integer
abc = tbxharga.Text * cbjumlah.Text
If cbjumlah.Text > 5 Then
tbxdiskon.Text = abc * 0.1
Else
tbxdiskon.Text = 0
End If
tbxtotal.Text = abc - tbxdiskon.Text
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbjumlah.SelectedIndexChanged
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles murah.CheckedChanged
Select tbxcari.Text
Case 1
murah.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\1.jpg")
Case 2
murah.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\2.jpg")
End Select
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If tbxcari.Text > 5 Then
MsgBox("Hanya bisa memilih sampai 5")
ElseIf murah.Checked = True Then
Select tbxcari.Text
Case 1
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\1.jpg")
tbxharga.Text = "50000"
Case 2
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\2.jpg")
tbxharga.Text = "70000"
End Select
ElseIf mahal.Checked = True Then
Select tbxcari.Text
Case 1
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\1.jpg")
tbxharga.Text = "2000000"
Case 2
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\2.jpg")
tbxharga.Text = "3000000"
End Select
End If
End Sub
Private Sub TextBox1_TextChanged_1(sender As Object, e As EventArgs) Handles tbxcari.TextChanged
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles mahal.CheckedChanged
Select tbxcari.Text
Case 1
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\1.jpg")
Case 2
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\2.jpg")
End Select
End Sub
End Class
studio premium 2013.
langsung saja buat dulu desain nya seperti ini.
lalu isi source code nya..
(source code saya kasih di akhir)
kita run saja, lalu pilih tv murah atau mahal (terserah) dan berapa jumlah yang ingin dibeli.
lalu kita hitung berapa total nya.
kemudian kita cetak struk(word).
selesai.
(source code)
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim aplikasi As New word.Application
Dim file As New word.Document
file = aplikasi.Documents.Open("C:\Users\alial\Documents\22.docx")
file.Bookmarks("Nama").Select()
If murah.Checked = True Then
aplikasi.Selection.TypeText(murah.Text)
ElseIf mahal.Checked = True Then
aplikasi.Selection.TypeText(mahal.Text)
End If
file.Bookmarks("Harga").Select()
aplikasi.Selection.TypeText(tbxharga.Text)
file.Bookmarks("Jumlah_Beli").Select()
aplikasi.Selection.TypeText(cbjumlah.Text)
file.Bookmarks("Harga_Total").Select()
aplikasi.Selection.TypeText(tbxtotal.Text)
file.Bookmarks("Bayar").Select()
aplikasi.Selection.TypeText(tbxbayar.Text)
file.Bookmarks("Kembalian").Select()
aplikasi.Selection.TypeText(tbxkembalian.Text)
file.SaveAs2("C:\Users\alial\Documents\223.docx")
MsgBox("Sukses")
aplikasi.Visible = True
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
tbxkembalian.Text = tbxbayar.Text - tbxtotal.Text
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles tbxtotal.TextChanged
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs)
Dim abc As Integer
abc = tbxharga.Text * cbjumlah.Text
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs)
End Sub
Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
Dim jumlah As Integer
For jumlah = 1 To 10
cbjumlah.Items.Add(jumlah)
Next
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim abc As Integer
abc = tbxharga.Text * cbjumlah.Text
If cbjumlah.Text > 5 Then
tbxdiskon.Text = abc * 0.1
Else
tbxdiskon.Text = 0
End If
tbxtotal.Text = abc - tbxdiskon.Text
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbjumlah.SelectedIndexChanged
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles murah.CheckedChanged
Select tbxcari.Text
Case 1
murah.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\1.jpg")
Case 2
murah.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\2.jpg")
End Select
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If tbxcari.Text > 5 Then
MsgBox("Hanya bisa memilih sampai 5")
ElseIf murah.Checked = True Then
Select tbxcari.Text
Case 1
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\1.jpg")
tbxharga.Text = "50000"
Case 2
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmurah\2.jpg")
tbxharga.Text = "70000"
End Select
ElseIf mahal.Checked = True Then
Select tbxcari.Text
Case 1
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\1.jpg")
tbxharga.Text = "2000000"
Case 2
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\2.jpg")
tbxharga.Text = "3000000"
End Select
End If
End Sub
Private Sub TextBox1_TextChanged_1(sender As Object, e As EventArgs) Handles tbxcari.TextChanged
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles mahal.CheckedChanged
Select tbxcari.Text
Case 1
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\1.jpg")
Case 2
pb1.Image = System.Drawing.Image.FromFile("C:\Users\alial\Documents\tvmahal\2.jpg")
End Select
End Sub
End Class
Langganan:
Postingan
(
Atom
)