Contoh Array (coding)

#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();
}

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