#include <stdio.h>
#include <conio.h>
#include <iostream.h>
main()
{
int i,n,jb[5];
char kb[5][3],jdl[5][20];
float harga[5],total[5];
clrscr();
cout<<"JUMLAH INPUTAN=";cin>>n;
cout<<endl;
for (i=1;i<=n;i++)
{
cout<<"Data ke - "<<i<<endl;
cout<<"kode buku [ab/tr] = ";cin>>kb[i];
cout<<"jumlah buku = ";cin>>jb[i];
if (!strcmp(kb[i],"ab"))
{strcpy(jdl[i],"abascus");
harga[i]= 50000;}
else
if (!strcmp(kb[i],"tr"))
{strcpy(jdl[i],"trigonometri");
harga[i] = 75000;}
else
{strcpy(jdl[i],"salah");
harga[i] = 0;}
total[i]=harga[i]*jb[i];
cout<<endl<<endl;
}
cout<<"-------------------------------------"<<endl;
cout<<"No. Judul harga jumlah total"<<endl;
cout<<"---------------------------------------"<<endl;
for (i=1;i<=2;i++)
{
printf("\n %d %s %8.0f %d %8.0f ",i,jdl[i],harga[i],jb[i],total[i]);
}
cout<<"\n--------------------------------------"<<endl;
getch();
}
coba-coba
Sabtu, 08 Desember 2012
Sabtu, 20 Oktober 2012
Contoh soal c++
Contoh soal c++
Operasi string
Tanggal keberangkatan=char tgl [10],kk,nk[20];
Kode kereta [A\B]=
Jumlah tiket=int jum;
Jumlah beli
Total bayar if(
(kk==’a’) II(kk==’A’))
Bonus= {strcpy(nm,”banyu
jaya”);
Harga=150000;}
Else
{strcpy(nm,”semarang
jaya”);
Hrg=100000;)
Tb=hrg*jum;
Output
Nama kereta=
Harga tiket=
Total bayar=
Ket:
- jika
kode A kereta adl ‘A’ maka nama kereta “banyu jaya” dan harga tiket 100000
- jika
kode B kereta adl ‘B’ maka nama kereta “semarang jaya” dan harga tiket 150000
- total
bayar adalah harga tiket dikalikan jumlah beli
Input :
Nama pembeli: string
Tanggal beli: string
Kode sepatu [EA/AD/RB]: string
Jumlah beli:
Total bayar:
Output:
Pembeli=
Tanggal=
Merek sepatu=
Harga sepatu=
Harga beli=
Ketentuan soal
Jika kode sepatu EA maka merk sepatu “EAGLE” dan harga
1500000
Jika kode sepatu AD Maka merk sepatu “ADIDAS”Ndan harga
3000000
Jika kode sepatu RB maka merk sepatu “REEBOOK” dan harga 18500000
Total bayar adalah harga dikalikan jumlah
Diberikan bonus jika
Total bayar lebih dari 5 juta adalah “1 Free
Total bayar lebih dari 3 juta adalah “1 Free
Selain itu tidak mendapatkan bonu
Fungsi if yg digunakan :
If (!strcmp(ks,==”EA”))II !strcmp(ks,”ea”))
{strcpy(merk,”eagle”);
Hrg=1500000;}
Else if (!strcmp(ks,”AD”)II !strcmp(ks,”ad”))
{strcpy(merk,”Adidas”);
Hrg=3000000;}
Else if (!strcmp(ks,”RB”) II !strcmp(ks,”rb”))
{strcpy(merk,”Reebook”);
Hrg=1850000;}
Else
{strcpy(merk,”kode anda salah”);
Hrg=0;}
Tb=hrg#jum;
Pembuata Data Base dan Form Gaji
Dalam materi Visual Basic Lanjutan kita harus memiliki
software :
1. Visual
Basic
2. mysql-connector-odbc-3.51.12-win32
3. Apache
4. Crystal
report
Setelah kita melakukan penginstalan 3 aplikasi pendukung
tersebut, maka marilah kita membuat terlebih dahulu database di dalam apache.
Buatlah database sebagai berikut :
Buatlah form sbb :
membuat ADODC :
klik kanan pada toolbars
pilih component
ceklist : Microsoft ADO Data Control 6.0 (OLEDB)
untuk mengkoneksikan ADODC dengan form :
START
CONTROL PANEL
ADMINISTRATIVE TOOLS
PILIH DATA SOURCE ODBC
ADD
MYSQL ODBC 3.51 DRIVER
masukkan:
Data Source = nama tabel yang dibuat di myadmin
user = root
password = password
database name = pilih database anda yang dibuat
melakukan pengecekan koneksi :
buka form login
pilih ADODC1
klik kanan pilih adodc properties
use connection string = build
use data source = login
Buat Modul =
project
add modul
buat listing :
'MENDEFINISIKAN OBJEK
Public KON As New ADODB.Connection
Public rsbrg As ADODB.Recordset
Public rsuser As ADODB.Recordset
Public rsdetail As ADODB.Recordset
Public rstrans As ADODB.Recordset
Public rstemp As ADODB.Recordset
Sub koneksi()
'MEMBUKA OBJEK
Set KON = New ADODB.Connection
Set rsbrg = New ADODB.Recordset
Set rsuser = New ADODB.Recordset
Set rsdetail = New ADODB.Recordset
Set rstrans = New ADODB.Recordset
Set rstemp = New ADODB.Recordset
KON.ConnectionString = "Provider=MSDASQL.1;Persist
Security Info=False;Data Source=login"
KON.Open
End Sub
Masukkan listing untuk form sbb :
Private Sub
CMDLOGIN_Click()
Call koneksi
sql = "select * from login
where kodeuser ='" &
TXTUSER.Text & "' and
password='" & TXTPASS.Text & "'"
Set rsuser = KON.Execute(sql)
If Not rsuser.EOF Then
TXTUSER.Enabled = False
TXTPASS.SetFocus
If TXTPASS.Text =
"" Then
MsgBox
"password belum diisi", vbOKOnly, "informasi"
TXTPASS.SetFocus
ElseIf
TXTPASS.Text = rsuser!Password Then
TXTUSER.Text =
rsuser!Kodeuser
MsgBox
"selamat anda berhasil", 64, "info"
MNUUTAMA.Show
MNUUTAMA.Enabled = True
Unload Me
End If
Else
MsgBox "PASSWORD tdk ada", vbInformation,
"info"
TXTUSER.Enabled = True
TXTUSER.SetFocus
TXTPASS.Text = ""
End If
'End If
End Sub
Private Sub
Form_Activate()
TXTUSER.Enabled = True
TXTPASS.Enabled = False
TXTUSER.SetFocus
TXTUSER.MaxLength = 5
TXTPASS.PasswordChar = ""
TXTLEVEL.Visible = False
End Sub
Private Sub
TXTUSER_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call koneksi
sql = "select * from login where kodeuser ='"
& TXTUSER.Text & "'"
Set rsuser = KON.Execute(sql)
If TXTUSER.Text = "" Then
MsgBox "ketikkan kode user ", vbInformation,
"informasi"
ElseIf rsuser.EOF Then
lg = lg + 1
If lg = 3 Then
MsgBox "kesempatan login sudah habis",
vbExclamation,
"login gagal"
Unload Me
Unload MNUUTAMA
lg = 0
Else
MsgBox "kodeuser tdk ada", vbExclamation,
"informasi"
TXTUSER.Text = ""
TXTUSER.SetFocus
End If
Else
TXTUSER.Enabled = False
TXTPASS.Enabled = True
TXTPASS.SetFocus
End If
End If
End Sub
Langganan:
Postingan (Atom)