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 <<
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 <<
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)
- 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)
- 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 <<
