Showing posts with label Materi Kuliah. Show all posts

Menampilkan Tanggal Lahir Menggunakan C++


Bahasa C++ merupakan salah satu bahasa pemrograman yang biasa atau sering digunakan untuk sistem pembelajaran di kampus Raharja. Disini saya menggunakan software Microsoft Visual Studio 2008. Project atau tugas yang diberikan adalah seperti yang saya buat saat ini (Ya.. walaupun belum tentu benar seperti ini yang diinginkan dosen Ha5X). Program ini sangat sederhana yang hanya menampilkan tanggal lahir seseorang yang sudah saya masukkan ke dalam variabel tanggal sehingga ketika kita memilih nomer yang diinginkan maka akan muncul nama dan tanggal lahirnya..
Berikut adalah source code yang saya gunakan :

// Menampilkan Tanggal Lahir.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include <iostream>
using namespace std;

int _tmain(int argc, _TCHAR* argv[])
{   
A:
system("cls");
char ulang;
char nama1[30] = "Miftahul Baihaqi Annazili ",tanggal1[30] = "29 Agustus 1997";
char nama2[30] = "Daffa Allal Pramudya ",tanggal2[30] = "25 November 2008";
char nama3[30] = "Ikram Saifullah ",tanggal3[30] = "5 Maret 1996";
char nama4[40] = "Mochamad Fadli Gustiyansah ",tanggal4[30] = "26 Desember 1995";
char nama5[30] = "Andika Permana ",tanggal5[30] = "3 Januari 1999";
char nama6[30] = "Anggi Prabowo ",tanggal6[30] = "21 April 1994";
char nama7[30] = "Agung Trianto ",tanggal7[30] = "17 Agustus 1945";
char nama8[30] = "Ahmad Fahroji ",tanggal8[30] = "13 Juli 2000";
char nama9[30] = "Joko Widiarto ",tanggal9[30] = "2 Mei 1998";
char nama10[30] = "Satria Darmawan ",tanggal10[30] = "5 September 1996";
int no;
cout << "=============================================="<<endl;
cout << "   Menampilkan Tanggal Lahir dari 10 Sample   "<<endl;
cout << "=============================================="<<endl;
cout << "1. Miftahul "<<endl;
cout << "2. Daffa "<<endl;
cout << "3. Ikram "<<endl;
cout << "4. Fadli "<<endl;
cout << "5. Andika "<<endl;
cout << "6. Anggi "<<endl;
cout << "7. Agung "<<endl;
cout << "8. Roji "<<endl;
cout << "9. Joko "<<endl;
cout << "10. Satria "<<endl;
cout << "=============================================="<<endl;
cout << "Masukkan Nomor Sample yang Ingin Ditampilkan : "; cin >>no;
cout << "=============================================="<<endl;
if (no == 1) {
cout<< "Nama : "<<nama1<<"|| Tanggal Lahir : "<<tanggal1<<endl;
cout << "=============================================="<<endl;
} else if (no == 2) {
cout<< "Nama : "<<nama2<<"|| Tanggal Lahir : "<<tanggal2<<endl;
cout << "=============================================="<<endl;
} else if (no == 3) {
cout<< "Nama : "<<nama3<<"|| Tanggal Lahir : "<<tanggal3<<endl;
cout << "=============================================="<<endl;
} else if (no == 4) {
cout<< "Nama : "<<nama4<<"|| Tanggal Lahir : "<<tanggal4<<endl;
cout << "=============================================="<<endl;
} else if (no == 5) {
cout<< "Nama : "<<nama5<<"|| Tanggal Lahir : "<<tanggal5<<endl;
cout << "=============================================="<<endl;
} else if (no == 6) {
cout<< "Nama : "<<nama6<<"|| Tanggal Lahir : "<<tanggal6<<endl;
cout << "=============================================="<<endl;
} else if (no == 7) {
cout<< "Nama : "<<nama7<<"|| Tanggal Lahir : "<<tanggal7<<endl;
cout << "=============================================="<<endl;
} else if (no == 8) {
cout<< "Nama : "<<nama8<<"|| Tanggal Lahir : "<<tanggal8<<endl;
cout << "=============================================="<<endl;
} else if (no == 9) {
cout<< "Nama : "<<nama9<<"|| Tanggal Lahir : "<<tanggal9<<endl;
cout << "=============================================="<<endl;
} else if (no == 10) {
cout<< "Nama : "<<nama10<<"|| Tanggal Lahir : "<<tanggal10<<endl;
cout << "=============================================="<<endl;
} else {
cout<< "Data Tidak Ditemukan"<<endl;
cout << "=============================================="<<endl;
}
cout << "Apakah Anda Ingin Mengulang Kembali (y/t) ?? ";cin>>ulang;
if (ulang == 'Y' || ulang == 'y') {
goto A;
} else {
cout << "=============================================="<<endl;
cout << "Terima Kasih Telah Menggunakan Program Ini"<<endl;
}
return 0;
}

=================================================

Untuk Informasi Lebih Lanjut bisa menghubungi :
Email : javashare29@gmail.com
Facebook : Java Share
Twitter : @baihaqiannazili atau lewat kolom komentar dibawah ini.
>> Terima Kasih <<
Read More
3 Comments
Tag : , , , ,

Cara mengkoneksiskan VB 6.0 dan Access

Hai semua.. Apa kabar?? Semooga sehat dan baik selalu yaa.. Pertama, makasih buat teman-teman yang udah berkunjung ke blog saya. Kali ini saya akan memberikan tutorial bagaimana caranya mengkoneksikan visual basic 6.0 dengan microsoft access. Disini saya menggunakan Access tahun 2010 walaupun sebenarnya tahun atau versi berapapun ga masalah kok, sama saja, sama-sama digunakan untuk menyimpan suatu record atau data yang telah kita inputkan. Yupp langsung saja :

 - Buka aplikasi vb 6
- klik Add-ins -> Visual data manager 
  Maka akan muncul tampilan seperti gambar dibawah ini!!

- Lalu pilih file -> new -> Microsoft Access -> 
  * Pilih version 7.0 untuk microsoft access 2003 ke atas
  * Pilih version 2.0 untuk microsoft access 2003 ke bawah (Jadul atau jarang        digunakan
- Teman-teman akan memasuki tempat dimana anda akan menyimpan file
  database tersebut. Ketikan nama file lalu simpan.
  Maka tampilannya akan berubah menjadi seperti ini!!

- Lalu pada tulisan properties klik kanan pilih new table hingga muncul tampilan seperti ini :

- Isi table name dengan nama tabel yang akan anda buat semisal 
  tabel_mahasiswa (*Penamaan tabel tanpa spasi)
- Lalu klik Add Field hingga tampilannya menjadi seperti ini


- Isikan field yang anda inginkan mulai dari nama, type maupun size lalu klik 
  ok. Buatlah hal ini berulang sampai field yang anda inginkan sudah dibuat 
  semuanya. Setelah selesai klik close.
- Klik build the table.
- Dengan mengucap Alhamdulillah Database teman-teman telah selesai dibuat.

=================================================
Untuk Informasi Lebih Lanjut bisa menghubungi :
Email : javashare29@gmail.com
Facebook : Java Share
Twitter : @baihaqiannazili atau lewat kolom komentar dibawah ini.
>> Terima Kasih <<
Read More
0 Comments
Tag : , , ,

Cara Membuat Form Login Sederhana Dengan VB6




Selamat datang kembali untuk teman-teman semua. Disini saya akan memberikan cara untuk membuat form login sederhana menggunakan vb 6 dengan database microsoft access 2010. Gambar - gambar diatas bisa teman-teman jadikan referensi tampilan yang akan dibuat.

 Toolbox yang digunakan :
- Label
- TextBox
- Timer
- Frame
- Command Button
- Menu Editor

 Berikut adalah source code untuk aplikasi tersebut : 

 - Module1
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset
Public strcon As String
Public strsql As String
Public Sub buka()
On Error GoTo pesan
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\buku.mdb;Persist Security Info=False"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
Exit Sub
pesan:
MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"
End Sub

Public Sub tutup()
con.Close
End Sub

 - Form 1 (Menu Utama)

Private Sub Form_Load()
    LOGOUT.Visible = False
    DATA.Enabled = False
    PROSES.Enabled = False
    LAPORAN.Enabled = False
End Sub

Private Sub KELUAR_Click()
konfirmasi = MsgBox("Apakah Anda Yakin Ingin Keluar??? ", vbYesNo + vbInformation)
If konfirmasi = vbYes Then
End
End If
End Sub

Private Sub LOGIN_Click()
Form2.Show
End Sub

Private Sub LOGOUT_Click()
tutup
Form2.Show
Unload Me
End Sub

Private Sub Timer1_Timer()
Label3.Caption = Format(Now, "hh:mm:ss")
Label4.Caption = Format(Now, "dddd, d mmmm, yyyy")
End Sub

 - Form2 (Login)

Sub bersih()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command1_Click()
buka
Dim sql As String
Dim cari As New ADODB.Recordset
sql = "select * from TABEL_LOGIN where username ='" & LCase(Text1.Text) & "' and password =  '" & LCase(Text2.Text) & "'"
Set cari = con.Execute(sql)
If cari.EOF Then
   MsgBox "Maaf User atau Password anda salah !", vbInformation, "Informasi"
   Text1.SetFocus
   Call bersih
Else
    MsgBox "Anda berhasil login !", vbInformation, "Informasi"
    Dim akses As String
    Label3.Caption = cari!akses
    If Label3.Caption = "admin" Then
        Form1.LOGOUT.Visible = True
        Form1.LOGIN.Visible = False
        Form1.DATA.Enabled = True
        Form1.PROSES.Enabled = True
        Form1.LAPORAN.Enabled = True
        Form1.Show
        Unload Me
    ElseIf Label3.Caption = "user" Then
        Form1.LOGOUT.Visible = True
        Form1.LOGIN.Visible = False
        Form1.DATA.Enabled = False
        Form1.PROSES.Enabled = False
        Form1.LAPORAN.Enabled = True
        Form1.Show
        Unload Me
    End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Call bersih
End Sub

=================================================
Untuk Informasi Lebih Lanjut bisa menghubungi :
Email : javashare29@gmail.com
Facebook : Java Share
Twitter : @baihaqiannazili atau lewat kolom komentar dibawah ini.
>> Terima Kasih <<
Read More
0 Comments
Tag : , , , ,

Cara Membuat Aplikasi Data Buku Sederhana Dengan VB6


Untuk membuat software tersebut saya menggunakan program Microsoft Visual Studio yang bisa teman-teman download secara free  dari google tinggal di search aja :D. Database yang saya gunakan adalah Microsoft Access.

Toolbox yang digunakan adalah : 
- Label
- Frame
- TextBox
- Command Button
- Data Grid
- Adodc

Berikut adalah source code dari program tersebut : 

Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox ("Data Belum Terisi atau Lengkap")
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode_buku = Text1.Text
Adodc1.Recordset!nama_buku = Text2.Text
Adodc1.Recordset!harga = Text3.Text
Call bersih
End If
End Sub

Private Sub Command2_Click()
If Adodc1.Recordset!kode_buku = Text1.Text Then
Adodc1.Recordset.Update
Adodc1.Recordset!kode_buku = Text1.Text
Adodc1.Recordset!nama_buku = Text2.Text
Adodc1.Recordset!harga = Text3.Text
Call bersih
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
ElseIf Text1.Text = "" Then
MsgBox ("Anda Harus Mencari Kode Buku di Kolom Search")
Text4.SetFocus
End If
End Sub

Private Sub Command3_Click()
Call bersih
End Sub

Private Sub Command4_Click()
konfirmasi = MsgBox("Yakin Akan Dihapus???", vbYesNo + vbInformation, "Konfirmasi")
If konfirmasi = vbYes Then
    Adodc1.Recordset.Delete
End If
End Sub

Private Sub Command5_Click()
konfirmasi = MsgBox("Yakin Mau Keluar???", vbYesNo + vbInformation, "Keluar")
If konfirmasi = vbYes Then
    End
End If
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.Find "kode_buku ='" & Text4.Text & "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
    Text1.Text = Adodc1.Recordset!kode_buku
    Text2.Text = Adodc1.Recordset!nama_buku
    Text3.Text = Adodc1.Recordset!harga
    Command1.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    Command5.Enabled = False
    Command6.Enabled = False
Else
    MsgBox ("Data Tidak Ditemukan")
    Text4.Text = ""
    Text4.SetFocus
End If
End Sub

Private Sub Form_Load()
Call bersih
End Sub


Private Sub Timer1_Timer()
Label5.Caption = Format(Now, "hh:mm:ss")
Label6.Caption = Format(Now, "dddd:d mmmm:yyyy")
End Sub

========================================================================

Untuk Informasi Lebih Lanjut bisa menghubungi :
javashare29@gmail.com atau Komentar di bagian bawah postingan ini.

>> Terima Kasih <<

Read More
4 Comments
Tag : , , ,

Materi Semester 2 Raharja


File
Download
Bahasa Indonesia.rar
>> Disini <<
Bahasa Inggris 2.rar
>> Disini <<
Pemograman Terstruktur.rar
>> Disini <<
Elektronika.rar
>> Disini <<
Fisika 1.rar
>> Disini <<
Kalkulus.rar
>> Disini <<
Keamanan Komputer.rar
>> Disini <<
Logika Matematika.rar
>> Disini <<
Organisasi Komputer.rar
>> Disini <<

*Fisika1 , Keamanan Komputer, Logika Matematika , Organisasi Komputer (Update)

Laporkan Lewat Komentar Jika Link Mati  >> Terima Kasih Atas Kunjungannya << 
Read More
10 Comments
Tag : , ,

Materi Semester 1 Raharja


File
Download
Agama.rar
>> Disini <<
Aljabar Linier.rar
>> Disini <<
Bahasa Inggris 1.rar
>> Disini <<
Logika dan Algoritma.rar
>> Disini <<
Pancasila.rar
>> Disini <<
Pengantar Manajemen.rar
>> Disini <<
Paket Program Niaga.rar
>> Disini <<
Pengantar Teknologi Informasi.rar
>> Disini <<

Laporkan Lewat Komentar Jika Link Mati  >> Terima Kasih Atas Kunjungannya << 
Read More
0 Comments
Tag : , ,

LangMaster Toefl Practice Tests CD2


LangMaster The Heineman Toefl "Practice Tests" adalah kelanjutan dari CD sebelumnya, hanya saja pada sesi kali ini lebih banyak test toeflnya dibandingkan sebelumnya. Sangat cocok bagi kalian yang ingin latihan toefl secara mudah. Merupakan suatu pembelajaran toefl atau software untuk memahami toefl itu seperti apa. Disini kita dapat mensimulasikan latihan-latihan toefl secara mudah dan kita dapat langsung mengetahui hasil dari latihan atau tes kita. 
Software ini menjadi begitu penting terutama bagi pribadi Raharja Informatika (STMIK Raharja) karena biasanya keluar di dalam soal-soal UAS/UTS Pribadi Raharja. Dari sini kita dapat mengukur sejauh mana nilai atau score yang kita raih. Untuk Pribadi Raharja sendiri, target minimal yang harus dipenuhi yakni 450 yang didapat dari nilai Listening, Structure dan Reading. 
Mudah-mudahan software ini dapat membantu teman-teman semua untuk belajar Toefl. Dan khususnya kepada teman-teman STMIK Raharja dapat membantu untuk belajar software ini dikomputer/laptop masing-masing sehingga tidak perlu repot-repot ke lab kampus.

Untuk Softwarenya dapat didownload >>Disini<<
Untuk panduan download dapat dilihat >>Disini<<

Cara penggunaan :
1. Buka Daemon Tools jika belum punya silahkan download >>Disini<<
2. Setelah dibuka klik tombol "Quick Mount" yang terdapat di pojok kanan 
    bawah.
3. Pilih file .iso atau file LangMaster yang telah di download tadi. Lalu klik 
    open.
4. Buka folder Computer. Biasanya terdapat direktori tambahan (E:) untuk file 
    tersebut.
5. Klik direktori tersebut. Cari file bernama run. Klik kanan pada file tersebut 
    lalu klik run as administrator.
6. Selamat Mencoba

    Laporkan Lewat Komentar Jika Link Mati  >> Terima Kasih Atas Kunjungannya << 
    Read More
    0 Comments
    Tag : , , ,

    LangMaster Toefl Preparation Course CD1


    LangMaster The Heineman Toefl "Preparation Course" merupakan suatu pembelajaran toefl atau software untuk memahami toefl itu seperti apa. Disini kita dapat mensimulasikan latihan-latihan toefl secara mudah dan kita dapat langsung mengetahui hasil dari latihan atau tes kita. 
    Software ini menjadi begitu penting terutama bagi pribadi Raharja Informatika (STMIK Raharja) karena biasanya keluar di dalam soal-soal UAS/UTS Pribadi Raharja. Dari sini kita dapat mengukur sejauh mana nilai atau score yang kita raih. Untuk Pribadi Raharja sendiri, target minimal yang harus dipenuhi yakni 450 yang didapat dari nilai Listening, Structure dan Reading. 
    Mudah-mudahan software ini dapat membantu teman-teman semua untuk belajar Toefl. Dan khususnya kepada teman-teman STMIK Raharja dapat membantu untuk belajar software ini dikomputer/laptop masing-masing sehingga tidak perlu repot-repot ke lab kampus.

    Untuk Softwarenya dapat didownload >>Disini<<
    Untuk panduan download dapat dilihat >>Disini<<

     Cara penggunaan :
    1. Buka Daemon Tools jika belum punya silahkan download >>Disini<<
    2. Setelah dibuka klik tombol "Quick Mount" yang terdapat di pojok kanan 
        bawah.
    3. Pilih file .iso atau file LangMaster yang telah di download tadi. Lalu klik 
        open.
    4. Buka folder Computer. Biasanya terdapat direktori tambahan (E:) untuk file 
        tersebut.
    5. Klik direktori tersebut. Cari file bernama run. Klik kanan pada file tersebut 
        lalu klik run as administrator.
    6. Selamat Mencoba

    Laporkan Lewat Komentar Jika Link Mati  >> Terima Kasih Atas Kunjungannya << 
    Read More
    1 Comment
    Tag : , , ,

    Cara Mudah Download


    Assalamu'alaikum ..
    Buat teman-teman semua saya ucapkan terima kasih sudah berkunjung di Java Sae. Mohon maaf sebelumnya jika ribet atau mengalami kendala saat ingin mendownload. Hal ini semata-mata untuk menambah efektifitas dari Java Sae. Berikut ini saya berikan info untuk cara download (disarankan jika terpasang adblock agar dimatikan sementara selama mendownload) :

    1. Klik link download yang disediakan biasanya terdapat pada kata "Disini".
    2. Anda akan memasuki link iklan adf.ly. Tunggu sekitar 5 detik hingga 
        muncul tulisan Lewati/Skip pada pojok kanan atas. Lalu kli kata tersebut.
    3. Anda akan memasuki link iklan adfoc.us. Tunggu sekitar 6 detik hingga 
        muncul tulisan Skip pada pojok kanan atas. Lalu klik kata tersebut.
    4. Anda mulai masuk kedalam media penyimpanan / download. Cari kata 
        download lalu klik. 
    5. Selamat mencoba. 

    Jika masih terdapat masalah segera berkomentar atau menghubungi saya di twitter : @baihaqiannazili
    Read More
    0 Comments
    Tag : , , , , , ,

    java

    Popular Posts

    Powered by Blogger.

    - Copyright © Java Sae - Hatsune Miku - Powered by Blogger - Designed by Johanes Djogan -