Masa Depan 2012

Masa depan seorang manusia tergantung pada dirinya sendiri, bukan pada ramalan orang lain. Saya yang berarti anda seharusnya dapat mengubah sesuatu hanya dengan ego untuk terus maju. Jika saat ini anda tergolong kaum miskin, jangan salahkan orang tua maupun keadaan. Karena itu tidak akan mengubah apapun…yang seharusnya anda lakukan untuk masa depan anda, adalah dengan tetap berjuang, bekerja keras sampai merasa berhasil.

Memang tidak mudah untuk mengubah masa depan. Jodoh mungkin salah satunya, karena jodoh merupakan keputusan Tuhan, tapi itu bukan berarti anda menyerah dan tidak pernah mencari pasangan yang tepat bukan. Kalaupun belum mendapatkan jodoh, maka persiapkan diri saja saat jodoh datang. Misal biaya pernikahan, rumah, dan sebagainya, jangan hanya percaya pada ramalan jodoh yang mungkin hanya sekedar bualan semata.

Banyak orang percaya tanggal lahir merupakan ramalan untuk masa depan manusia. Benarkah? Entahlah, tapi jangan pernah hanya sekedar percaya pada ramalan saja. Jika rupanya ramalan anda nantinya mengatakan anda “Orang Gagal”. Jangan langsung percaya, buktikkan saja, Buktikkan bahwa ramalan itu salah dan anda benar. Kalaupun ternyata nantinya ramalan tanggal lahir itu terbukti benar, minimal anda telah mencoba.
Pada zaman ini banyak sekali ramalan yang muncul dari menggunakan tanggal lahir seperti zodiak dan shio, atau penggunaan garis tangan maupun keturunan. onyxblog94.blogspot.com disini sama sekali tidak melarang anda mempercayinya, itu hak anda untuk mempercayai sesuatu atau tidak. Yang ingin saya katakan disini adalah masa depan tergantung dari anda, tergantung dari apa yang anda lakukan hari ini, itulah masa depan anda.

Jangan pernah menyalahkan masa lalu untuk kesalahan yang anda buat sekarang, yang paling penting adalah anda tidak melakukan kesalahan yang sama berulang kali. Masa lalu ada untuk menentukan masa depan kalian, jikalau, memang benar ada sebuah ramalan yang 100% tepat. Tidak masalah, biarkan itu menjadi kenyataan tapi bukan karena ramalan itu melainkan karena kemampuan yang anda miliki.
Sekali lagi allshare menyarankan, ramalan masa depan tergantung pada diri anda sendiri. Jangan pernah sekalipun menyerah, masa depan adalah teka-teki yang menunggu untuk anda selesaikan. Bukan orang lain, memang orang lain pastinya menjadi bagian dari sebab kesuksesan yang anda miliki. Tapi 70-80% itu tergantung dari diri anda sendiri.

Jangan biarkan orang lain membuat ramalan untuk anda, malah sebaliknya, buat ramalan anda sendiri. Katakan kepada diri anda sendiri bahwa saya akan sukses bahwa saya akan menjadi sesuatu yang saya impikan. Dan itulah jalan menuju masa depan yang luar biasa untuk anda tinggali.
Pesan terakhir allshare zone kepada kalian semua, percaya pada ramalan seperti zodiak, shio atau primbon sekalipun itu boleh-boleh saja,saya disini sama sekali tidak pernah melarangnya. Tapi percayalah masa depan anda tidak ditentukan oleh itu semua, melainkan ditentukan oleh diri anda sendiri. Apa yang anda lakukan sekarang, itulah ramalan masa depan anda.

kasus

untuk melihat hasil kasus saya,,,
silahkan lihat alamat ini

kasus ( Saprina Pardosi)

Public Class Form1

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

Nama.Focus()
Jabatan.Items.Add("Mandor")
Jabatan.Items.Add("Kepala Bagian")
Jabatan.Items.Add("Staf")
Status.Items.Add("Menikah")
Status.Items.Add("Belum Menikah")
Call buattabel()


End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
Select Case Jabatan.Text
Case "Mandor"
Gaji.Text = 1750000
Pajak.Text = 0.015 * Val(Gaji.Text)
Case "Staf"
Gaji.Text = 1250000
Pajak.Text = 0.015 * Val(Gaji.Text)
Case "Kepala Bagian"
Gaji.Text = 2500000
Pajak.Text = 0.015 * Val(Gaji.Text)

End Select
Status.Focus()

End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
Dim y As String
y = Status.Text = "Menikah"
If Jabatan.Text = "Mandor" Then
Tunjangan.Text = 0.09 * 1750000
ElseIf Jabatan.Text = "Staf" Then
Tunjangan.Text = 0.09 * 1250000
ElseIf Jabatan.Text = "Kepala Bagian" Then
Tunjangan.Text = 0.09 * 2500000

End If
If Status.Text = "Belum Menikah" Then
Tunjangan.Text = 0

End If
Jumlah.Focus()
End Sub




Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
If Jumlah.Text = "1" Then
Tunjangan_anak.Text = 0.03 * Val(Gaji.Text)
ElseIf Jumlah.Text = "2" Then
Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)
Else
Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)

End If
End Sub
Private Sub jam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jam.TextChanged
If Jabatan.Text = "Mandor" Then
Upah.Text = 7500 * Val(Jam.Text)
ElseIf Jabatan.Text = "Staf" Then
Upah.Text = 5000 * Val(Jam.Text)
ElseIf Jabatan.Text = "Kepala Bagian" Then
Upah.Text = 10000 * Val(Jam.Text)

End If


End Sub
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click
Total.Text = Val(Gaji.Text) + Val(Tunjangan.Text) + Val(Tunjangan_anak.Text) + Val(Upah.Text) - Val(Pajak.Text)


End Sub
Sub buattabel()
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
LV.Columns.Add("Status", 100, HorizontalAlignment.Center)
LV.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Right)
LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Right)
LV.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan anak", 120, HorizontalAlignment.Right)
LV.Columns.Add("Pajak", 100, HorizontalAlignment.Right)
LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)
LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Right)
LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
LV.View = View.Details
LV.FullRowSelect = True
LV.GridLines = True

End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(Jabatan.Text)
lst.SubItems.Add(Status.Text)
lst.SubItems.Add(Gaji.Text)
lst.SubItems.Add(Tunjangan.Text)
lst.SubItems.Add(Jumlah.Text)
lst.SubItems.Add(Tunjangan_anak.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(jam.Text)
lst.SubItems.Add(Upah.Text)
lst.SubItems.Add(Total.Text)
LV.Items.Add(lst)

End Sub

Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
Nama.Text = ""
Jabatan.Text = ""
Status.Text = ""
Gaji.Text = ""
Tunjangan.Text = ""
Jumlah.Text = ""
Tunjangan_anak.Text = ""
Pajak.Text = ""
Jam.Text = ""
Upah.Text = ""
Total.Text = ""

Nama.Focus()
End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
Call isitabel()
Nama.Text = ""
Jabatan.Text = ""
Status.Text = ""
Gaji.Text = ""
Tunjangan.Text = ""
Jumlah.Text = ""
Tunjangan_anak.Text = ""
Pajak.Text = ""
Jam.Text = ""
Upah.Text = ""
Total.Text = ""

Nama.Focus()

End Sub

Private Sub btnhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_semua.Click
LV.Items.Clear()


End Sub

Private Sub btnhapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_data.Click
LV.Items.Remove(LV.SelectedItems(0))

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Dim x As String
x = MsgBox("Anda Yakin Ingin Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
If x = vbYes Then
Close()

End If
End Sub
End Class

Hal 33(Saprina Pardosi)

Public Class Form1
Dim LST As ListViewItem
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "TS001"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case "TS002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case "VG001"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-Gen"
Case "VG002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-gen"
End Select

If kode.Text = "TS001" Then
harga.Text = "105000"
ElseIf kode.Text = "TS002" Then
harga.Text = "75000"
ElseIf kode.Text = "VG001" Then
harga.Text = "90000"
ElseIf kode.Text = "VG002" Then
harga.Text = "60000"
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")

buat_table()
kosong()

End Sub
Sub buat_table()
With LV
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details

.Columns.Add("No Pembelian", 100)
.Columns.Add("Kode Barang", 100)
.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add(" Harga ", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
.Columns.Add("Total Harga", 100, HorizontalAlignment.Left)

End With
End Sub
Sub simpan()
LST = Me.lv.Items.Add(Me.no.Text)
LST.SubItems.Add(Me.kode.Text)
LST.SubItems.Add(Me.nama.Text)
LST.SubItems.Add(Me.merk.Text)
LST.SubItems.Add(Me.harga.Text)
LST.SubItems.Add(Me.jumlah.Text)
LST.SubItems.Add(Me.tharga.Text)

End Sub


Sub kosong()
nama.Text = ""
no.Text = ""
kode.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
tharga.Text = ""
no.Focus()
End Sub



Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
If lv.SelectedItems.Count <> 0 Then

lv.Items.Remove(lv.SelectedItems(0))
Else
MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")
End If
End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call simpan()
End Sub

Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
kosong()
no.Focus()

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
End Sub

Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
End Sub

Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
tharga.Text = Val(jumlah.Text) * Val(harga.Text)
End Sub

End Class

Hal 32(Saprina Pardosi)

Public Class Form1

Sub buattabel()
ListView1.Columns.Add("npm", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("nama", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("jurusan", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenjang", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("tahun masuk", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("nilai angka", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("nilai huruf", 80, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub

Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jurusan.Text)
lst.SubItems.Add(Jenjang.Text)
lst.SubItems.Add(TahunMasuk.Text)
lst.SubItems.Add(nilaiangka.Text)
lst.SubItems.Add(nilaihuruf.Text)
ListView1.Items.Add(lst)
End Sub


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

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
isitabel()
npm.Text = ""
nama.Text = ""
jurusan.Text = ""
Jenjang.Text = ""
TahunMasuk.Text = ""
nilaiangka.Text = ""
nilaihuruf.Text = ""
End Sub

Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
ListView1.Clear()
End Sub


Private Sub Btnhapusyhdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusyhdipilih.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub

Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
ListView1.Items.Clear()
End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub

Private Sub btnlistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlistview.Click

End Sub
End Class

VISUAL STUDIO.NET 2008

Visual Studio.NET 2008 merupakan salah satu produk pengembangan aplikasi yang diproduksi oleh Microsoft Visual Studio.NET 2008 dapat digunakan untuk pengembangan aplikasi web ASP.NET,XML Web Service, aplikasi desktop dan juga aplikasi mobile. Dalam Visual Studio.NET 2008 terdapat beberapa tool yang dapat dipilih untuk pengembangan aplikasi. Tool-tool tersebut antara lain adalah Visual Basic, Visual C# dan Visual C++. Tool-tool pada Visual Studio.NET 2008 tersebut menggunakan IDE(Integrated Development Environment) yang sama sehingga dapat saling berbagi pakai fasilitas dalam pengembangan aplikasi.
Pada Visual Studio.NET 2008 banyak sekali fasilitas wizard yang disediakan untuk memudahkan para pengembang aplikasi. Dengan fasilitas ini, pengembangan aplikasi dapat dilakukan dengan cepat. Ini memungkinkan para pemula untuk belajar lebih cepat dalam pengembangan aplikasi. Pembuatan atau pengembangan aplikasi system inventory dengan menggunakan Visual Studio.NET 2008. Visual Studio.NET 2008 juga terdapat alat atau tool untuk membuat report atau laporan.

LARIK(ARRAY)

Larik sering dijumpai dalam aplikasi sehari-hari terutama yang berkaitan dengan manipulasi table-tabel angka, atau dalam bentuk struktur data matematis yang disebut vector dan matriks.
Larik(Array) adalah suatu bentuk struktur data yang menampung satu atau lebih dari
Satu atau lebih dari satu data yang sejenis(bertipe data sama), yang diwakili oleh satu
nama variabel.
- Setiap elemen atau anggota larik dapat dikenali atau diakses melalui suatu indeks
- Larik berdimensi satu disebut vector
- Larik berdimensi dua disebut matriks
- Larik berdimensi lebih dari dua disebut tensor

Mendefinisikan larik

Salah satu bentuk defenisi bisa digunakan secara konsisten dalam algoritma:
a. nama_array : array [1..n] of tipe_data;
contoh: A:array [1..10] of integer;
b. tipe_data nama_ array [n];
contoh: integer A[10];
c. type larik: array [1..n] of tipe_data;
nama_array : larik;
contoh: type larik: array [1..10] of integer;
A : larik;

Operasi Larik

Baaerapa tehnik operasi untuk larik berdimensi satu(vector) antara lain
- membaca/mengisi larik
- mencetak/menampilkan larik
- menggeser isi larik
- menggabungkan beberapa larik
- menguraikan satu larik
- mengurutkan isi larik
- mencari elemen dalam larik


Membaca/Mengisi Larik

Dengan memakai intruksi perulangan, satu per satu elemen diisi dengan indeks yang berurutan mulai dari 1 hingga indeks maksimum.

Dua algoritma untuk mengisi suatu larik

Algoritma Isilarik_1
{membaca atau mengisi larik tanpa menggunakan prosedur}

Deklarasi
Const N=10;
Integer A[n];
Integer indeks;
Deskripsi
For(indeks=1 to N step 1)
Write(“masukkan elemen ke-“,indeks)
Read (A[indeks] );
Endfor.

Algoritma Isilarik_2
{membaca atau mengisi larik dengan dengan menggunakan prosedur}

Deklarasi
Const N=100;
Integer A[N];
Integer K;
Prosedur Baca_larik (input integer M,output integer A[] );
Deskripsi
Write (“Masukkan Jumlah Elemen Larik (<100):”);
Read (K);
Baca_larik (K,A);

Prosedur Baca_larik(input integer M, output integer A[] )
{prosedur membaca/mengisi larik}

Deklarasi
Integer indeks;

Deskripsi
For (indeks = 1 to M step 1)
Write(“masukkan elemen ke-“,indeks);
Read (A[indeks] );

Endfor.


Menampilkan Isi Larik

Sebuah prosedur untuk menampilkan isi suatu larik dengan M buah elemen.

Prosedur cetak_Larik (input integer M, input integer A[1])
{prosedur untuk menampilkan isi suatularik atau array}
Deklarasi
Integer indeks;

Deskripsi
For (indeks= 1 to M step 1)
Write (A[indeks] );
Endfor.


Menggeser Isi larik

Beberapa aplikasi memerlukan pergeseran isi larik misalnya menggeser ke kiri atau menggeser ke kanan sebagai berikut:
Proses Geser kanan berarti elemen berindeks i digeser ke posisi berindeks i+1, dengan catatan elemen terakhir akan dipindahkan ke posisi pertama.
Sebaliknya, proses geser kiri berarti elemen berindeks I di geser ke posisi berindeks i-1, dengan menggeser elemen pertama ke posisi terakhi .

Prosedur geser_kanan (in-out integer a[],input integer M)
{menggeser elemen suatu larik (vector) ke kanan, A[i+1]__A[i]}

Deklarasi

Integer indeks,temp;

Deskripsi
Temp__A[M];
For (indeks=M-1 to 1 step -1)
A[indeks+1]__A[indeks];

Endfor.
A[1]__temp;

Prosedur geser_kiri (in-out integer A[],input integer M)
{menggeser elemen suatu larik (vector) ke kiri, A[i-1]_A[1] }

Deklarasi
Integer indeks, temp;

Deskripsi
Temp__A[1];
For (indeks=2 to M step 1)
A[indeks-1]__A[indeks];
Endfor.
A[M]__temp;


Menggabung (merge) Larik

Prosedur Gabung_larik (input integer A[], input integer N,input integer B[],
Input integer M,output integer C[], output integer L)
{menggabungkan dua larik menjadi larik yang lebih besar }

Deklarasi
Integer indeks;

Deskripsi
L__N +M;
{salin isi A ke dalam C }
For (indeks =1 to N step 1)
C[indeks]__A[indeks];
Endfor.
{salin isi B ke dalam C}
For (indeks=N+1 to L step 1)
C[indeks]___B[indeks-N] Endfor.