Mardi Grass: Tutorials

Membuat Program dengan Layout :

DAFTAR NILAI MAHASISWA
AKADEMI “LANGSUNG LULUS “
JL. Kadang Pindah NO.7 Telp (021) 0000004

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

NIM :

Nama Mahasiswa :

Nilai Absen :

Nilai Tugas :

Nilai UTS :

Nilai UAS :

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

Rata-Rata :

Grade :

Keterangan :

Ketentuan Soal :

Rata = (10%*abs)+(20%*tgs)+(30%*uts)+(40%*uas)
Grade dan keterangan :

Jika rata >=85 maka grade A, keterangan sangat baik

Jika rata >=75 maka grade B, keterangan Baik

Jika rata >=60 maka grade C, keterangan Cukup

Jika rata >=45 maka grade D, keterangan Kurang

Selain itu grade E, keterangan Sangat Kurang

Dengan Program :

#include
#include
#include
main ()
{
char nim[12],nm[20],grade, *ket;
int abs, tgs, uts, uas, rata;
clrscr();
cout << " DAFTAR NILAI MAHASISWA" << nim =" ">> nim;
cout << " Nama Mahasiswa = "; cin >> nm;
cout << " Nilai Absen = "; cin >> abs;
cout << " Nilai Tugas = "; cin >> tgs;
cout << " Nilai UTS = "; cin >> uts;
cout << " Nilai UAS = "; cin >> uas;
cout << "=====================”;

cout << “======================" << endl;

rata="(0.1*abs)+(0.2*tgs)+(0.3*uts)+(0.4*uas);" rata =" "><= 85)
{
grade='A';
ket="Sangat baik";
}
else if (rata >= 75)
{
grade='B';
ket="Baik";
}
else if (rata >= 60)
{
grade='C';
ket="Cukup";
}
else if (rata >= 45)
{
grade='D';
ket="Kurang";
}
else
{
grade='E';
ket="Buruk";
}
cout << " Grade = " << grade << endl;

cout << " Keterangan = " << ket << endl;

getch();

}

keluaran :

1. Sebuah toko buku “Cari Ilmu” yang terletak di Jl. Kalibata Timur No. 37 Telp 7901074 menjual aneka buku sbb:

Kode Jenis	Jenis Buku	Kode Buku	Nama Buku	Harga
A\|\|a	Cerita Anak	1	Comic	9000
		2	Dongeng	4000
B\|\|b	Novel	1	Cinta	25000
		2	Misteri	20000
Lain-lain	Komputer	1	C++	25000
		2	Delphi	30000

2. Total = harga x jumlah beli

Maka Listing Program nya :

#include
#include
#include
int main()
{
char n[20], pt[20], kd, *jns, *nb, bk;
float hrg, jb, tot;
clrscr();
cout << " TOKO BUKU \"GAK LAKU\"" << endl;

cout << " Jl. Kucing No. 23 Telp. 0219955995599" << endl;

cout << "=====================”;

cout << “==================" << endl << endl;

cout << " ------------[PILIHAN MENU]----------- " << endl;

cout << " A. Cerita Anak " << endl;

cout << " \t 1. Comic Rp. 9.000" << endl;

cout << " \t 2. Dongeng Rp. 4.000" << endl;

cout << " B. Novel" << endl;

cout << " \t 1. Cinta Rp. 25.000" << endl;

cout << " \t 2. Misteri Rp. 20.000" << endl;

cout << " C. Lain-lain " << endl;

cout << " \t 1. C++ Rp. 25.000" << endl;

cout << " \t 2. Delphi Rp. 30.000" << endl;

cout << "====================”;

cout << “===================" << endl;

cout << " Masukkan Jenis Buku [A|B] = "; cin >> kd;
cout << " Masukkan Kode Buku [1|2] = "; cin >> bk;
if (kd == 'A' || kd == 'a')
{
jns="Cerita Anak";
if (bk == '1')
{
nb = "Comic";;
hrg = 9000;
}
else
{
nb = "Dengeng";
hrg = 4000;
}
}
else if (kd == 'B' || kd == 'b')
{
jns = "Novel";
if (bk == '1')
{
nb = "Cinta";
hrg = 25000;
}
else
{
nb = "Misteri";
hrg = 20000;
}
}
else
{
jns = "Komputer";
if (bk == '1')
{
nb = "C++";
hrg = 25000;
}
else
{
nb = "Delphi";
hrg = 30000;
}
}
cout << endl;

cout << " Jenis Buku = " << jns << endl;

cout << " Nama Buku = " << nb << endl;

cout << " Harga = Rp. " << hrg << endl;

cout << " Jumlah Beli = "; cin >> jb;
tot = hrg*jb;
cout << "====================”;

cout << “=====================" << endl;

cout << " Total Bayar = Rp. " << tot <<< endl;

getch();

}

Dan Keluaran Nya :

Database Access Connection

Siapa yang gak mengenal microsoft acces apabila kita seorang programer atau belajar program.
Langkah awal untuk memulai bagaimana meghubungkan database access dengan visualstudio 6.0
Untuk itu mari kita sama-sama belajar bagaimana
mengkoneksikan database ke vb 6.0

Langkah pertama :
Buat satu data access dimana nanti akan kita hubungkan dengan vb 6.0
disini saya tidak perlu menampilkan secara terperinci.

Langkah kedua :
Buat satu project baru pada microsoft visualstudio 6.0
buat satu form dan satu module, dimana form digunakan untuk menampilkan data dari data base sementara module digunakan untuk prosedure panggil apabila mau kita gunakan lebih dari satu form ato dimana aja form module bisa dipanggil.

Langkah ketiga :
Ketikkan kode dibawah ini :

Option Explicit
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sql As String
Public Const AbuAbu = &H8000000F
Public Const Putih = &H80000005

Public Function koneks() As Boolean
'On Error GoTo pesan
   ' db.Mode = adModeReadWrite
'    db.CursorLocation = adUseClient
'If db.State = adStateOpen Then
'   db.Close
'End If
'db.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Koperasi\dn.mdb;Persist Security Info=False")
'koneksi = True
'Exit Function
'pesan:
'koneksi = False
'MsgBox "Koneksi ke database gagal...!!!!", 16, "Error"
'End
End Function

Langkah keempat :
Ketikkan kode pada form : "seabagai contoh prosedure panggil untuk menampilkan data table field disebuah combo. box." Suapaya nanti pada saat diclick bisa tampil data field tablenya.

Sub code()
Call koneksi
Sql = "select * from groups"
rs.Open Sql, db, adOpenDynamic, adLockBatchOptimistic
With rs
txtpencarian.Clear
If .EOF = False Then
.MoveFirst
Do While Not .EOF
txtpencarian.AddItem .Fields("group1")
.MoveNext
Loop
End If
End With
End Sub

Cara Pembuatan Form Login Dengan Mengunakan Vb.6

Mencoba berbagi pengalaman dengan Bahasa Pemograman VB, dan Pembahasaannya adalah cara membuat Form Login di VB, Form login ini tentunya saya relasikan dengan database. Ikuti langkah saya berikut ini :

Membuat database di Ms Access ( Nama database terserah, sebagai contoh db.mdb
Membuat table User yang berisi table ( kodeuser, namauser, passworduser )
Setelah selesai membuat database sekarang buka VB anda dan kemudian membuat form Login seperti gambar diatas
Kode User menggunakan Text1
Password menggunakan Text2
Login menggunakan Command1
Batal Menggunakan Command2

Setelah membuat form seperti yang saya instuksikan kemudian anda gunakan coding seperti di bawah ini :
Sub Form_Load()
    Call BukaDB
    Text1.MaxLength = 6
    Text2.MaxLength = 10
    Text2.PasswordChar = "X"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
    Call BukaDB
    Call CariData
            If RSuser.EOF Then
                MsgBox "User Tidak Terdeteksi, Coba lagi"
                Text1 = ""
            Else
            Text2.SetFocus
            End If
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        Command1.SetFocus
    End If
End Sub

Function CariData()
    Call BukaDB
    RSuser.Open "Select * From admin where kodeuser='" & Text1 & "'", koneksi
End Function
Private Sub Command1_Click()
Call BukaDB
        RSuser.Open "Select * from admin where kodeuser ='" & Text1 & "' and passworduser='" & Text2 & "'", koneksi
        If RSuser.EOF Then
            MsgBox "Password Salah, Coba Lagi!"
            Text2 = ""
            Text2.SetFocus
        Else
            Unload Me
            menu.Show
        End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Jangan lupa membuat coding Modules seperti dibawah ini

Public koneksi As New ADODB.Connection
Public RSuser As ADODB.Recordset
Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSuser = New ADODB.Recordset
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb"
End Sub

Halaman

Tutorials

AddThis

Smadav

adsensecamp

Mardi_Gra$$