Program VB + Report

Berikut ini adalah contoh program VB (blm sempurna), yg berisi :
- Master User + Login
- Master barang
- Transaksi (belum sempet buat simpen datanya)
- Report untuk data Barang & User

- Report menggunakan data Report dengan mengambil data ke DATASET untuk di tampilkan di data report, kemudian di tampilkan di form.

untuk jelasnya download programnya disini ya.
kalo ga mau jalan juga email ato facebook ya :))

Lanjutan Program

Nahh ini lanjutan program yang sebelumnya
tapi belum sempurna, mash banyak kekurangan
udah dilengkapi dengan FORM BARANg dan TRANSAKSI
klik dsni untuk download ya..

Contoh + Coding Form Login

Buat temen2 STIKOM Bali yang lagi buat projek, nie ada contoh untuk form LOGIN, lengkap ma databasenya. Spesifikasinya:

1. Database menggunakan SQL Server ( Yang ada di VB)
2. Pembuatan Database menggunakan DB LOCAL di VB.net
3. Sudah tersedia Form Master User
4. Tidak Menggunakan conection String
5. Menggunakan Dataset
6. Untuk Query Insert dan Validasi Login
disimpan di TABLE ADAPTER

Nahh Lengkapnya download aja DISINI yaa...
Kalo ada yang kurang jelas tanyaan Via FB ato Email ya.

Semoga bsa membantu :))

Perhitungan TIMER (selisih START - STOP)

Bagi temen2 yang buat projek warnet, nie ada sedikit contohnya. Misal qta akan menghitung selisih waktu start dan waktu stop. Langkah pertamanya adalah membuat design form seperti di bawah ini :



JANGAN LUPA TAMBAHKAN KOMPONEN TIMER PADA FORMNYA DAN ATUR INTERVALNYA MENAJDI 1000 (UNTUK 1 DETIK)

Kemudian tambahkan code dibawah ini :

Public Class coBAtIMER

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
jam1.Text = Format(Now, "HH:mm:ss")
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
waktu.Text = Format(Now, "HH:mm:ss")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Enabled = True
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
jam2.Text = Format(Now, "HH:mm:ss")
Timer1.Enabled = False
'--------------------------------
'Proses Selisih Waktu
Dim detik, menit, jam, second As Integer
detik = DateDiff(DateInterval.Second, CDate(jam1.Text), CDate(jam2.Text))
'menit = DateDiff(DateInterval.Minute, CDate(jam1.Text), CDate(jam2.Text))
'jam = DateDiff(DateInterval.Hour, CDate(jam1.Text), CDate(jam2.Text))
jam = detik / 3600
menit = (detik Mod 3600) / 60
second = (detik Mod 3600) Mod 60

durasi.Text = jam & " JAM " & menit & " MENIT " & second & " DETIK"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
waktu.Clear()
durasi.Clear()
jam1.Clear()
jam2.Clear()
End Sub
End Class

kALO udah coba jalanin programnya, MAKa hasilnya seperti gambar dibawah

Perhitungan ROKET

Nie ada satu kasus. Misalnya sebuah roket menghabiskan bahan bakar 1 KG per 1 kilometer pertama, dan 8 KG untuk kilometer ke 2, dan begitu seterusnya berkurang 80% setiap kilometer. Nah.. Soalnya berapa Kilo bahan bakar yang dihabisin untuk 100 KM??

1. Pertama coba rancang form seperti dibawah ini :



berikutnya pada BUTTON PROSES tambahin coding dibawah ini

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

Dim jml_kg, km1 As Double
km1 = 10
jml_kg = 0
Dim a As Integer
For a = 2 To CInt(jarak.Text)
km1 = km1 * 0.8
jml_kg = jml_kg + km1
Next
MsgBox("Bahan bakar yang dihabiskan adalah " & 10 + jml_kg & " Kg")
End Sub

coding diatas menggunakan perulangan FOR dengan asumsi setiap kilometer menghabiskan bahan bakar 80% dari sebelumnya.

ADA cara lain??

kalo yang dlu jurusan IPA pas SMA pasti pernah denger DERET GEOMETRI, bisa juga di terapin dalam kasus ini, ketikan kode berikut di tombol PROSESNYA

Dim a As Integer = jarak.Text
Dim hitung As Decimal
hitung = (10 * (1 - (0.8 ^ jarak.Text))) / (1 - 0.8)
MsgBox("Bahan bakar yang dihabiskan adalah " & hitung & " Kg")

Moga Bermanfaat yaa ... :))

Kemudian dijalankan, maka hasilnya seperti gambar di bawah

Download Contoh Projek VB

1. Projek Rumah Sakit / Klinik.
2. Test Masuk
3. Hotel / Penginapan
4. Penjualan

Transfer item antar listview di Visual Studio 2008

Bisa gak ya kalo transfer item antar listview?? mau coba??
1. Buat design kaya dibawah ini ya




2. Setelah Itu tambahin coding untuk form loadnya ya

With ListBox1.Items
.Add("rujak")
.Add("bakso")
.Add("nasi goreng")
.Add("siomay")
.Add("gado2")
End With

With ListBox2.Items
.Add("teh manis")
.Add("kopi")
.Add("es jeruk")
.Add("aqua")
.Add("es cokelat")
End With

3. Kemudian tambahkan codinh untuk button 1 (untuk pindah), dengan ivent click

If ListBox1.SelectedIndex <> -1 Then
ListBox3.Items.Add("01 - " & ListBox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)
ElseIf ListBox2.SelectedIndex <> -1 Then
ListBox3.Items.Add("02 - " & ListBox2.SelectedItem)
ListBox2.Items.Remove(ListBox2.SelectedItem)
End If

4. Tambahin coding untuk button 2 (untuk kembali), dengan event click

id = Microsoft.VisualBasic.Left(ListBox3.SelectedItem, 2)
nama = Mid(ListBox3.SelectedItem, 6, Len(ListBox3.SelectedItem))
If id = "01" Then
ListBox1.Items.Add(nama)
ElseIf id = "02" Then
ListBox2.Items.Add(nama)
End If
ListBox3.Items.Remove(ListBox3.SelectedItem)

5. Kemudian yang terakhir tambahin coding untuk listview1 dengan ivent GotFocus

Select Case sender.name
Case ListBox1.Name
ListBox2.SelectedIndex = -1
Case ListBox2.Name
ListBox1.SelectedIndex = -1
End Select

Kalo udah coba dah jalanin, kalo bener hasilnya kaaya dibawah ini :



Terus coba dah pindahin ke listview sebelah



dan yang terakhir coba aja dindah lagi kesebelah, kembaliin ke tempat semula

Program Konversi Suhu - Lengkap

#include
#include
void main()
{
int awal,akhir,c;
float r,f,
clrscr;
cout<<"Nilai Awal :",cin>>awal;
cout<<"Nilai Akhir :",cin>>akhir;
cout<<"Hasil Konversi Celcius ke Reamur ke fahrenhaite dan ke kelvin"< cout<<"|--------------------------------------------------------------|"< cout<<"| celcius | reamur | fahrenhaite | kelvin |"< cout<<"|--------------------------------------------------------------|"< for(c=awal;c<=akhir;c++)
{
r=(0.4*f-32);
f=(1.8*c+32);
k=(2.25*r+273);
c=(k-273);
cout<<"| "< cout<<"|------------------------------------------------------------------|"< }
getch();
}

Materi Premrograman Visual II

Struktur Keputusan dan Perulangan - Klik untuk Download -

Materi Prak. Sistem Basis Data Kelas Q091

1. Klik Disini Untuk Download Materi 1
2. Klik Disini Untuk Download Materi 2

Program Konversi Suhu

#include
#include

void main(){
int celcius;
float reamur,faretheit;

cout<<"Masukan suhu dalam derajat Celcius = ";
cin>>celcius;

reamur = (4*celcius)/5;
faretheit = ((9*celcius)/5) + 32;
cout<<"----------------------------------"<cout<<"Suhu dalam reamur adalah : "<cout<<"Suhu dalam Farenheit adalah : "<getch();
}

Contoh Program Sederhana Dengan Borland C++

1. Program Bilangan Genap Ganjil
#include
#include

void main(){
int a;
cout<<"Masukan Bilanga = ";
cin>>a;
if (a%2){
cout<<"Bilangan Ganjil"<}else {
cout<<"Bilangan Genap"<}
getch();
}

Berkenalan Dengan Borland C++

Tipe data pada C++ ada banyak, dan kita harus bisa menggunakan dengan baik sesuai dengan keperluan dari program yang kita buat. Beberapa contoh Tipe data :


Selain itu ada beberapa sintax khusus untuk borland C++, antara lain



---------------------------------------------------------------------

dan berikut adalah program sederhana menggunakan Borland C++

#include
#include

void main(){
cout<<"Nama Saya Gde Muriarka"< cout<<"Saya Mahasiswa STIKOM BALI";

getch();
}

Materi Prak. PTI

Download Materi Praktek PTI - Pertemuan 1 (Pengenalan Komponen Komputer) -click disini -

Ternyata Gampang - Seleksi Report

Coding untuk seleksi Report di Visual Studio 2008
Buat dlu formnya, atur dah seEnaknya...
Buat 1 texxBix untuk kata kuncinya, dan satu Buuton untuk tombol PrintnYa...

untuk Tombol Print (Button Click)
Dim cetak As String
cetak = ""
cetak = "{siswa.nama}='" & txtCari.Text & "'" (dicari dari table siswa, nama)
Cari(cetak )

Fungsi untuk Refresh Report

Sub Cari(ByVal param As String)
cetak_siswa.Show()
cetak_siswa.TampilSiswa.SelectionFormula = param
cetak_siswa.TampilSiswa.RefreshReport()
End Sub

-------------------------------------------------------------
kalo belum tanya , email aja ya.... ^_^

Kisi kisi UAS Prak. Algo II

Download disini -- download --

Login COde

Login Code - Download Link

Tugas Algo dan Prak. Jarkom

1. Prak. Algoritma dan Struktur Data II - Kelas L091 (-- klik untuk download --)
2. Prak. Algoritma dan Struktur Data II - Kelas F091 (-- klik untuk download --)
3. Prak. Algoritma dan Struktur Data II - Kelas O091 (-- klik untuk download --)
4. Prak. Sistem dan Jaringan Komputer - Kelas L081 (-- klik untuk download --)
5. Prak. Sistem dan Jaringan Komputer - Kelas D081 (-- klik untuk download --)
6. Prak. Sistem dan Jaringan Komputer - Kelas R081 (-- klik untuk download --)
7. Prak. Sistem dan Jaringan Komputer - Kelas I081 (-- klik untuk download --)

Pengumuman Jadwal UAS untuk Praktikum Algo dan Jarikom

Jadwal Uas dimulai tanggal 28 Juni 2010 sampai dengan 3 Juli 2010. Mohon dipersiapkan segala sesuatunya. Thx

Materi Baru - Algotma II & Prak. Jarkom

Download materi Algoritma & Prak. Jarkom

----- SORTING -----

---- CONTOH 3 ROUTER ----

Tugas - Praktek Sistem & Jaringan Komputer

Tugas untuk kelas I081 hari sabtu lab 1 SMK TI
- clik disini untuk download tugas

Materi Routing - Praktek Sistem & Jaringan Komputer

Materi Router :
1. Contoh 1 Router
2. Contoh 2 Router

Materi Algoritma - Searching

Click untuk download materi algoritma (Searching)

NILAI UTS

Untuk kelas L091, nilai UTS sudah bagus. terkecil 75 terbesar 98.

UTS Susulan

UTS susulan kelas L091, buat sebuah program Oueue. Dan buat penjelasan programnya. di kirim via email ke gm_obelix@yahoo.com, dengan subjek : UTS_L091_NIM. Dikumpul paling lambat Kamis 27 Mei 2010. Jam 4 Sore

Pengumuman Libur Bersama

Berhubungan dengan hari Raya Kuningan tanggal 22 Mei 2010, maka perkuliahan Jumat 21 Mei 2010, (Algo kelas 0O91 dan Jarkom) ditiadakan. tolong diumumkan ke teman2 yang lain.

Jadwal UTS

Pengumuman buat kelas Praktek SIstem dan Jaringan Komputer & Praktek Algoritma dan struktur data II. Qta UTS mulai tanggal 02 Mei sampai dengan 8 Mei 2010. Mohon dipersiapkan segala sesuatunya.

Algoritma & Struktur Data II

Download : Modul pertemuan 1-12
Download : Contoh Array
Download : Contoh Array 2

Praktek Sistem & jarkom

Materi Pertemuan 1 : click disini untuk download modul

Visual Basic .Net

Program ini adalah aplikasi klinik sederhana....
klik disini untuk men-download programnya....
thx yoooo.....

Pewarisan dan Polimorfisme

Pewarisan
Dalam Java, semua class, termasuk class yang membangun Java API, adalah subclassesdari superclass Object. Contoh hirarki class diperlihatkan di bawah ini.Beberapa class di atas class utama dalam hirarki class dikenal sebagai superclass.Sementara beberapa class di bawah class pokok dalam hirarki lass dikenal sebagai subclass dari class tersebut.



Pewarisan adalah keuntungan besar dalam pemrograman berbasis object karena suatu sifat atau method didefinisikan dalam superclass, sifat ini secara otomatis diwariskan dari semua subclasses. Jadi, Anda dapat menuliskan kode method hanya sekali dan mereka dapat digunakan oleh semua subclass. Subclass hanya perlu mengimplementasikan perbedaannya sendiri dan induknya.


---------------------------------------------------------------------------

Polimorfisme
Sekarang, class induk Person dan subclass Student dari contoh sebelumnya, kitatambahkan subclass lain dari Person yaitu Employee. Di bawah ini adalah hierarkinya,

Dalam Java, kita dapat membuat referensi yang merupakan tipe dari superclass ke sebuah object dari subclass tersebut

Class dan Objek

Obyek dan Kelas

Obyek adalah sesuatu berupa konsep (concept), benda (thing), dan sesuatu yang membedakannya dengan lingkungan. Obyek dikenali dari informasi (atribut) dan juga perilakunya (operasi). Ciri – ciri ini yang akan membedakan obyek tersebut dari obyek lainnya.
Contohnya: Mobil, Motor, Sepeda.

Kelas adalah sesuatu yang merupakan cetak-biru (blueprint) untuk suatu obyek yang mendefinisikan informasi apa yang dimiliki suatu obyek serta mendefinisikan perilaku yang dimilikinya. Dengan kata lain, kelas merupakan sebuah gambaran atau penjelasan yang mendefinisikan susunan obyek-obyek yang mempunyai atribut, operasi, method, hubungan dan semantik yang sama.
Contohnya: Kelas Kendaraan, Kelas Hewan, Kelas Manusia.

Abtraksi UML

Unified Modeling Language (UML) adalah bahasa spesifikasi standar untuk mendokumentasikan, menspesifikasikan, dan membangun sistem perangkat lunak. UML tidak berdasarkan pada bahasa pemrograman tertentu. Standar spesifikasi UML dijadikan standar defacto oleh OMG (Object Management Group) pada tahun 1997.UML yang berorientasikan object mempunyai beberapa notasi standar.

Spesifikasi ini menjadi populer dan standar karena sebelum adanya UML, telah ada berbagai macam spesifikasi yang berbeda. Hal ini menyulitkan komunikasi antar pengembang perangkat lunak. Untuk itu beberapa pengembang spesifikasi yang sangat berpengaruh berkumpul untuk membuat standar baru. UML dirintis oleh Grady Booch, James Rumbaugh pada tahun 1994 dan kemudian Ivar Jacobson.

UML mendeskripsikan OOP (Object Oriented Programming) dengan beberapa diagram, diantaranya:

Diagram struktur:

1. Diagram kelas
2. Diagram obyek
3. Diagram komponen
4. Diagram deployment

Diagram perilaku:

1. Diagram use-case
2. Diagram urutan/sekuen
3. Diagram kolaborasi
4. Diagram statechart
5. Diagram aktivitas