Menbuat program nasabah VB 6

disini kita akan membuat contoh program nasabah yang simple.ini hanya contoh saja ,karena kita belajar dari sesuatu hal yang terkecil.. hehe

pertama-tama buka microsoft visual studio 6 -> pilih standard AXE di new project .

kemudian buat label sebanyak 6,textbox sebanyak 3, 1 optionbutton copy menjadi 2, 1 combobbox, 1 checkbox copy menjadi 3, dan commandbutton sebanyak 2

letakan object tersebut di form sesuai dengan gambar 1

gambar 1

ganti properties nya :

jika sudah silahkan kalian double click command1, dan ketik kode nya:

Private Sub Command1_Click()

Dim data As String

Dim i As Integer

Dim a As Integer

data = "No Rekening : " & Text1.Text & Chr(13)

data = data & "Nama Nasabah : " & Text2.Text & Chr(13)

data = data & "Alamat : " & Text3.Text & Chr(13)

For i = 0 To 1

    If Option1(i).Value = True Then

    data = data & "Status : " & Option1(i).Caption & Chr(13)

    End If

    Next

data = data & "Jenis Rekening : " & Combo1.Text & Chr(13)

data = data & "Cabang : "

For a = 0 To 2

    If Check1(a).Value = vbChecked Then

    data = data & Check1(a).Caption & " "

    End If

    Next

    'www.alimahmud23.co.cc

MsgBox data, , "Data Nasabah"

pesan = MsgBox("Apakah data ingin ditampilkan lagi??", vbOKCancel, "Keluar")

If pesan = vbOK Then

Form1.Show

Else

End

End If

End Sub

double click di command2 ,ketik kodenya:

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Option1(1).Value = False

Combo1.Text = ""

Text1.SetFocus

End Sub

jika sudah silahkan kalian run program nya:

dan seperti ini lah output nya:

selamat mencoba ..... hehe

Membuat program pembelian dengan VB 6

disini kita akan membuat contoh program pembelian toko yang simple.ini hanya contoh saja ,karena kita belajar dari sesuatu hal yang terkecil.. hehe

pertama-tama buka microsoft visual studio 6 -> pilih standard AXE di new project .
buat label sebanyak 14,textbox sebsanyak 10,combobox sebanyak 3,1 frame , 1 optionbutton dan copy menjadi 3 optionbutton

jika sudah sesuai kan object di form sesuai gambar 1

gambar 1

ganti propeties nya :




setelah sudah silah kan double klik di command1,dan ketik kodenya :

Private Sub Command1_Click()

Text6.Text = Val(Text3.Text) * Val(Text5.Text)

If Text5.Text >= 5 Then

Text7.Text = Val(Text6.Text) * 0.1

Else

End If

Text8.Text = Val((Text6.Text) + Val(Text4.Text)) - Val(Text7.Text)

Text9.SetFocus

If Text9.SelStart Then

Text10.Text = Val(Text9.Text) - Val(Text8.Text)

Else

End If

End Sub

kemudian double klik command2,dan ketik kodenya :

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
If Option1(0) Then
    Option1(0).Value = False
ElseIf Option1(1) Then
    Option1(1).Value = False
ElseIf Option1(2) Then
    Option1(2).Value = False
Else
End If
Text1.SetFocus
End Sub


double klik command3 :

Private Sub Command3_Click()

pesan = MsgBox("Anda Ingin Keluar ? ", vbYesNo + vbQuestion, "Keluar")
If pesan = vbYes Then
End
Else
End If

End Sub

double klik command4 :

Private Sub Command4_Click()
Dim data As String
Dim a As Integer
'www.alimahmud23.co.cc
data = data & "Nama Pembeli    = " & Text1.Text & Chr(13)
data = data & "Kode                     = " & Combo1.Text & Chr(13)
data = data & "Merk Barang        = " & Text2.Text & Chr(13)
data = data & "Jenis Barang         = " & Combo2.Text & Chr(13)
data = data & "Size                        = " & Combo3.Text + " " + Label6.Caption & Chr(13)
data = data & "Harga Barang      = " & Text3.Text & Chr(13)
For a = 0 To 2
    If Option1(a).Value = True Then
data = data & "Jenis Order           = " & Option1(a).Caption & Chr(13)
    Else
    End If
    Next
data = data & "Biaya Pesan          = " & Text4.Text & Chr(13)
data = data & "Jumlah Beli          = " & Text5.Text & Chr(13)
data = data & "Jumlah Bayar       = " & Text6.Text & Chr(13)
data = data & "Diskon                   = " & Text7.Text & Chr(13)
data = data & "=======================================" & Chr(13)
data = data & "Total Bayar           = " & Text8.Text & Chr(13)
data = data & "=======================================" & Chr(13)
data = data & "Uang Bayar           = " & Text9.Text & Chr(13)
data = data & "=======================================" & Chr(13)
data = data & "Uang Kembali      = " & Text10.Text & Chr(13) & Chr(13) & Chr(13)


data = data & "                           Terimakasi Telah Berbelanja di Toko Kami," & Chr(13)
data = data & "Barang yang sudah dibeli tidak bisa dikembalikan dengan alasan apapun !!"


MsgBox data, , "CETAK"
End Sub


Private Sub Form_Load()
Combo1.AddItem "K01"
Combo1.AddItem "S01"
Combo1.AddItem "V01"


Combo2.AddItem "Flash Disk"
Combo2.AddItem "MP3"
Combo2.AddItem "IPOD"


Combo3.AddItem "02"
Combo3.AddItem "04"
Combo3.AddItem "08"
End Sub

double klik  di option1 :



Private Sub Option1_Click(Index As Integer)
If Option1(0) Then
    Text4.Text = 5000
ElseIf Option1(1) Then
    Text4.Text = 2500
ElseIf Option1(2) Then
    Text4.Text = 0
End If
Text5.SetFocus
End Sub


setelah sudah semua sekarang kalian run:
dan ini output nya:

Membuat program hotel VB 6

disini kita akan membuat contoh program hotel yang simple.ini hanya contoh saja ,katena kita beljar dari sesuatu hal yang terkecil.. hehe

pertama-tama buka mikrosoft visual studio 6 -> pilih standard AXE di new project .

kemudian, buat label sebanyak 7 ,  textbox sebanyak 6 ,combobox  1 ,dan command batton sebanyak 2

jika sudah silahkan buat form seperti yang ada pada gambar 1

gambar 1

ganti properties nya :

setelah kalian sudah selesai menyamakan properties nya,silahkan double klik command1 ,lalu ketik kode seperti dibawah ini

Private Sub Command1_Click()

Dim harga As Currency, jumlah As Currency, total As Currency, diskon As Currency, totaldiskon As Currency

Dim fasilitas As String

If Combo1.Text = "" Then

    MsgBox "Anda Belom Masukan Kelas"

    Combo1.ListIndex = 0

ElseIf Text1.Text = "" Then

    MsgBox "Anda Belum Masukan Lama Inap"

    Text1.SetFocus

Exit Sub

End If

'www.alimahmud23.co.cc

Select Case Combo1.ListIndex

    Case 0

    harga = 900000

    fasilitas = "Berakfast and SPA"

    Case 1

    harga = 700000

    fasilitas = "Breakfast"

    Case 2

    harga = 500000

    fasilitas = "Only Room"

End Select

jumlah = Val(Text1.Text * harga)

Text2.Text = Format(harga, "currency")

Text3.Text = Format(jumlah, "currency")

Select Case Text1.Text

    Case Is > 2

    diskon = 0.1

    Case Else

    diskon = 0

End Select

totaldiskon = Val(Text3.Text * diskon)

Text4.Text = Format(totaldiskon, "currency")

total = Val(Text3.Text - Text4.Text)

Text5.Text = Format(total, "currency")

Text6.Text = Format(fasilitas)

End Sub

setelah itu double klik di command2,, ketik kode dibawah ini :

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Combo1.Text = ""

Combo1.SetFocus

End Sub

setelah sobat sudah selesai silahkan run program kalian,,

dan ini contoh running nya :

Membuat program regresi dalam C++

#include<iostream>
#include<conio.h>

using namespace std;
int main()
{
int n,i;
float x[100],y[100];
float rata_x= 0;
float rata_y= 0;
float rata_x2= 0;
float rata_y2= 0;
float rata_xy= 0;
float hasil_b;
float hasil_a;
cout<<"===============REGRESI================"<<endl;
cout<<"Masukan Banyak nilai (X) dan (Y) : ";
cin>>n;
cout<<endl;
cout<<"Masukan nilai (X) \n";
for(i=1;i<=n;i++)
{
cout<<"\t";
cin>>x[i];
}
cout<<"Masukan nilai (Y) \n";
for(i=1;i<=n;i++)
{
cout<<"\t";
cin>>y[i];
}
\\www.alimahmud23.co.cc
cout<<endl;
cout<<"Nomer|\tX\tY\tX2\tY2\tX.Y\n";
cout<<"-------------------------------------------"<<endl;
for(i=1;i<=n;i++)
{
cout<<i<<"    |\t"<<x[i]<<"\t"<<y[i]<<"\t"<<x[i]*x[i]<<"\t"<<y[i]*y[i]<<"\t"<<x[i]*y[i]<<"\n";
cout<<"-------------------------------------------"<<endl;
rata_x = rata_x + (x[i])/n;
rata_y = rata_y + (y[i])/n;
rata_x2 = rata_x2 + (x[i]*x[i])/n;
rata_y2 = rata_y2 + (y[i]*y[i])/n;
rata_xy = rata_xy + (x[i]*y[i])/n;
}
cout<<"-------------------------------------------"<<endl;
cout<<"rata |\t"<<rata_x<<"\t"<<rata_y<<"\t"<<rata_x2<<"\t"<<rata_y2<<"\t"<<rata_xy;
cout<<"\n\n";
hasil_b = (rata_xy-(rata_x*rata_y))/(rata_x2-(rata_x*rata_x));
hasil_a = rata_y - (hasil_b*rata_x);
cout<<"b = "<<hasil_b<<"\t";
cout<<"a = "<<hasil_a<<"\n\n";
cout<<"Jadi...."<<endl;

if(hasil_b < 0)
cout<<"f(x) = "<<hasil_a<<hasil_b<<"(x)";
else
cout<<"f(x) = "<<hasil_a<<" + "<<hasil_b<<"(x)";
getch();
}

Output:

www.alimahmud23.co.cc

sorry pemula.... hehehe 

Sequential searching

#include <iostream>
#include <conio.h>


using namespace std;
int main()
{
int i, n, dt, posisi, ketemu=0;
int data[50];

cout<<"Masukkan banyaknya data :";
cin>>n;

for(i=0; i<n; i++){
cout<<"Masukkan data ke-"<<(i+1)<<" = ";
cin>>data[i];
}
cout<<endl;
cout<<"Data yang anda cari : ";
cin>>dt;

ketemu=0;
i=0;
while((ketemu==0)&&(i<n)){
if(data[i]==dt){
ketemu=i;
posisi=i;
}
else {
i=i+1;
}
}
if(ketemu==0){
cout<<"Data yang anda cari tidak ditemukan"<<endl;
}
\\www.alimahmud23.co.cc
else{
cout<<"Data yang anda cari ditemukan"<<endl;
cout<<"Data anda berada pada posisi "<<(posisi+1);
}
getch();
}


Output:

www.alimahmud23.co.cc

Sekedar info beda Sequential searching dan Binary searching hanya pada array nya!!! sequential searching bisa di input secara acak sedangkan binary searching tidak ..

selamat mengedit (maaf pemula ..) heheh

Contoh fungsi

#include<iostream>
#include<conio.h>

using namespace std;
int deret_ganjil(int n)
{
    int total =0;
    for(int i=1;i<=n+n;i+=2)
    {
    total+=i;
    if (i==n+n-1)
    {
    cout<<i<<" = "<<total;
}
else
{
    cout<<i<<" + ";
}}
cout<<endl;
}
int deret_genap(int n)
{
    int total =0;
    for(int i=2;i<=n+n;i+=2)
    {
    total+=i;
    if (i==n+n)
    {
    cout<<i<<" = "<<total;
}
else
{
    cout<<i<<" + ";
}}
cout<<endl;
}

int main()
{
    int n;
    cout<<"Masukan Batasan : ";
    cin>>n;
 
    cout<<"Deret ganjil = " ;
    deret_ganjil(n);
    cout<<"Deret genap  = " ;
    deret_genap(n);
    getch();
}




Ouput:

www.alimahmud23.co.cc

Contoh Struct dalam class

#include<iostream>
#include<conio.h>

using namespace std;
struct str_mahasiswa
{
       int tgl,thn;
       char bln[10];
};
class mahasiswa
{
      public:
      void input();
      void output();
      private:
      int nip;
      char nama[20],alamat[50];
      str_mahasiswa p;
};
void mahasiswa::input()
{
cout<<"Masukan NIP    = ";
cin>>nip;
cout<<"Masukan Nama   = ";
cin>>nama;
cout<<"Masukan Alamat = ";
cin>>alamat;
cout<<"Tanggal = ";
cin>>p.tgl;
cout<<"Bulan   = ";
cin>>p.bln;
cout<<"Tahun   = ";
cin>>p.thn;

}
void mahasiswa::output()
{
cout<<endl;
cout<<"NIP\tNama\t\tAlamat\t\tTanggal Lahir \n";
cout<<nip<<"\t";
cout<<nama<<"\t";
cout<<alamat<<"\t\t";
cout<<p.tgl<<" "<<p.bln<<" "<<p.thn;
}
\\www.alimahmud23.co.cc
mahasiswa msh;

int main()
{
    msh.input();
    msh.output();
getch();
}

Output:

www.alimahmud23.co.cc

Contoh Simple class pegawai

#include<iostream>
#include<conio.h>

using namespace std;
class pegawai
{
      public:
      void input();
      void output();
      private:
      int nip;
      char nama[10],alamat[20],temp[5];
\\www.alimahmud23.co.cc
};
void pegawai::input()
{
cout<<"Nip    = ";
cin.getline(temp,5);
nip = atoi (temp);
cout<<"Nama   = ";
cin.getline(nama,10);
cout<<"Alamat = ";
cin.getline(alamat,20);
}
void pegawai::output()
{
cout<<endl;
cout<<nip<<endl;
cout<<nama<<endl;
cout<<alamat<<endl;
}

pegawai p ;

int main()
{
    p.input();
    p.output();

    getch();
}

Output:

www.alimahmud23.co.cc