Contoh Program Penjualan Sederhana (Delphi 7)

Langsung aj..kali ini gw mau post contoh program penjualan sederhana Deplphi 7...Intinya program delphi yang seperti itu hampir sama dengan VB alias visual basic...
Nih source code dari running program di atas bisa di download disini...ada contoh .exe nya juga...

Program Penjualan sederhana

Kalo ada yang mau di tanyakan silahkan di koment aja yaa.... ^_^ See yaa...
ReadMore...

Program Kalkulasi Nilai Mahasiswa Sederhana (Delphi)

Ok...Sekarang gw mau posting program sederhana Delphi 7 perhitungan nilai mahasiswa sederhana..running programnya kira2 seperti di atas..

So...Download programnya disini.. Program Nilai Mahasiswa

Cara bukanya,klik 2 x yg file .dpr nya klo ga bisa ekstrak dulu file .rar nya trus buka lewat program delphi 7 nya yaa..klik file>>Open trs buka file yang extensionnya .dpr

Kalo ada yang mau ditanyakan bisa koment ajj yaa.. ^_^ see yaa..
ReadMore...

Looping/Perulangan (Nested For)

create an output like this..

This is a listing program :

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


main()

{
int a,b;
clrscr();

for(a=1;a<=5;a++)
{
   printf("\n");
   for(b=a;b<=5;b++)
   cout<<a;
   }
getch();
}


Enjoy it...if any one does not understand please ask by leaving a comment ..
and do not forget to follow our blog ... ^ _ ^

ReadMore...

Looping ( FOR )

..create an output like this..

This is a program listing :

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

main()

{

int a;
clrscr();
for(a=1;a<=10;a++)
cout<<a<<endl;

getch();
}

Enjoy it..if any one does not understand please ask by leaving a comment ..
and do not forget to follow our blog ... ^ _ ^

ReadMore...

IF Fuction (Visual Basic)

Use: Label, Textbox, Option, Frame and command buttons.

Terms of Problem:

When the selected item code item name and price will appear.

When the inputted number of buy and clicked enter then the total price will appear.

When the money to pay the money back even typed will appear.

This is the listing :

Private Sub ckobar_Click()
If ckobar.Text = "EMB" Then
    txtnabar.Text = "EMBER"
    txtharga.Text = 15000
ElseIf ckobar.Text = "PNC" Then
    txtnabar.Text = "PANCI"
    txtharga.Text = 75000
Else
    txtnabar.Text = "SAPU"
    txtharga.Text = 10000
End If
End Sub

Private Sub cmdinput_Click()
txtnapem.Text = ""
ckobar.Text = "-PiliH-"
txtnabar.Text = ""
txtharga.Text = ""
txtfasilitas.Text = ""
optdelivery = Clear
optditempat = Clear
txtjumbel.Text = ""
txttotbay.Text = ""
txttotbay.Enabled = False
txtubay.Text = ""
txtukem.Text = ""
txtukem.Enabled = False
txtnapem.SetFocus
End Sub

Private Sub cmdkeluar_Click()
If MsgBox("Yakin lo mau Keluar ?? Serius ??", 36, "Peringatan") = vbYes Then
End
End If
End Sub

Private Sub Form_Load()
ckobar.AddItem ("EMB")
ckobar.AddItem ("PNC")
ckobar.AddItem ("SPU")
'cmdinput.SetFocus
End Sub

Private Sub optdelivery_Click()
txtfasilitas.Text = 15000
txtjumbel.SetFocus

End Sub

Private Sub optditempat_Click()
txtfasilitas.Text = 0
txtjumbel.SetFocus

End Sub


Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    txttotbay.Text = Val(txtharga) * Val(txtjumbel) + Val(txtfasilitas)
    txtubay.SetFocus
End If
End Sub


Private Sub txtubay_Change()
txtukem.Text = Val(txtubay) - Val(txttotbay)
End Sub

Enjoy it..^_^

if any one does not understand please ask and leave a comment ..^_^

ReadMore...

Nested IF Quis ( VB )

Terms of problem : 

kode montir kode motor biaya

WWN                   SZK 50000

(Wewen)                HND       55000

                            YMH 60000

BDI                        SZK       60000

(Budi) HND 65000

                            YMH 70000

When the form is active then the textbox code mechanic, motor code, name of the mechanic, service prices, oil prices, total prices and money back in an inactive state.

At the click "Hitung" will pay out the total value.

When the input of money paid and the press enter then the money returned.

At the click "Input Lagi" then all net textbox.

To make a timer using two labels and a timer in the properties

Change the name of the label 1 = jam

And label 2 = tanggal

Click 2x on a timer and enter the listing:

jam.caption = time

Tanggal.caption = format (date, "dddd, d mmmm, yyyy")

on the properties of the timer, change interval = 100

this is the listing :

Private Sub cck1_Click()

If cck1 = 1 And cck2 = 1 Then

    txtservis = 80000

ElseIf cck1 = 1 Then

    txtservis = 30000

ElseIf cck2 = 1 Then

    txtservis = 50000

Else

    txtservis = 0

End If

End Sub

Private Sub cck2_Click()

If cck1 = 1 And cck2 = 1 Then

    txtservis = 80000

ElseIf cck1 = 1 Then

    txtservis = 30000

ElseIf cck2 = 1 Then

    txtservis = 50000

Else

    txtservis = 0

End If

End Sub

Private Sub Ckomon_Click()

If Ckomon.Text = "WWN" Then

    txtnamon = "Wewen"

Else

    txtnamon = "Budi"

End If

End Sub

Private Sub Ckotor_Click()

If Ckotor.Text = "SZK" Then

    txtjenis = "Suzuki"

    If Ckomon.Text = "WWN" Then

        txtbiaya = 50000

    Else

        txtbiaya = 60000

    End If

ElseIf Ckotor.Text = "HND" Then

    txtjenis = "Honda"

    If Ckomon.Text = "WWN" Then

        txtbiaya = 55000

    Else

        txtbiaya = 65000

    End If

Else

    txtjenis = "Yamaha"

    If Ckomon.Text = "WWN" Then

        txtbiaya = 60000

    Else

        txtbiaya = 70000

    End If

End If

End Sub

Private Sub Cmdhitung_Click()

txttotbay = Val(txtbiaya) + Val(txtservis) + Val(txtoli)

txtubay.SetFocus

End Sub

Private Sub cmdinput_Click()

txtnama = ""

Ckomon = "-PiliH-"

Ckotor = "-PiliH-"

txtnamon = ""

txtjenis = ""

txtbiaya = ""

cck1 = False

cck2 = False

txtservis = ""

optganti = False

opttidak = False

txtoli = ""

txttotbay = ""

txtubay = ""

txtukem = ""

End Sub

Private Sub cmdkeluar_Click()

If MsgBox("Yakin lo mau Keluar ??", 36, "WArning") = vbYes Then

End

End If

End Sub

Private Sub Form_Load()

txtnamon.Enabled = False

txtjenis.Enabled = False

txtbiaya.Enabled = False

txtservis.Enabled = False

txtoli.Enabled = False

txttotbay.Enabled = False

txtukem.Enabled = False

End Sub

Private Sub optganti_Click()

txtoli = 30000

Cmdhitung.SetFocus

End Sub

Private Sub opttidak_Click()

txtoli = 0

Cmdhitung.SetFocus

End Sub

Private Sub Timer1_Timer()

jam.Caption = Time

tanggal.Caption = Format(Date, "dddd, d ,mmmm, yyyy")

End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    txtukem = Val(txtubay) - Val(txttotbay)

    cmdinput.SetFocus

End If

End Sub

Enjoy it... ^_^
If anyone does not understand please ask and leave a comment ..
and do not forget to follow our blog ..^_^

ReadMore...

Toko Swalayan Program

Terms of Problem:

1. The others in the ordinary input.

2. when the amount bought in the press enter the total price paid will appear.

3. current at the input of money to pay the money back will appear.

4. when the program runs, the display of textbox in an inactive state, and after the click data input and then active again.

Use the textbox tool, command buttons and labels

This is the listing Program :

Private Sub cmdinput_Click()

txtnofak.Enabled = True

txtnofak.Text = ""

txtkobar.Enabled = True

txtkobar.Text = ""

txtnabar.Enabled = True

txtnabar.Text = ""

txtharga.Enabled = True

txtharga.Text = ""

txtjumbel.Enabled = True

txtjumbel.Text = ""

txttotbay.Enabled = False

txttotbay.Text = ""

txtubay.Enabled = True

txtubay.Text = ""

txtukem.Enabled = False

txtukem.Text = ""

txtnofak.SetFocus

End Sub

Private Sub cmdkeluar_Click()

If MsgBox("Yakin lw mau keluar ???", 36, "Warning") = vbYes Then

End

End If

End Sub

Private Sub Form_Activate()

txtnofak.Enabled = False

txtkobar.Enabled = False

txtnabar.Enabled = False

txtharga.Enabled = False

txtjumbel.Enabled = False

txttotbay.Enabled = False

txtubay.Enabled = False

txtukem.Enabled = False

cmdinput.SetFocus

End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    txttotbay = Val(txtharga) * Val(txtjumbel)

    txtubay.SetFocus

End If

End Sub

Private Sub txtubay_Change()

txtukem.Text = Val(txtubay) - Val(txttotbay)

End Sub

Enjoy it... ^_^
If anyone does not understand please ask and leave a comment ..
and do not forget to follow our blog ..^_^


ReadMore...