commutative program

Sequence is a series of statements and execution sequence yangg sequence, so it is earlier in the reading will be done first. if the order of the statement will have the meanings behind different yangg

commutative operators such as addition and multiplication, the order of the process can be done anywhere, while non-commutative operator with properties such as subtraction, division, integer division, and the rest of the division of the process sequence must be noticed

examples of commutative program
<br /> #include <iostream><br /> #include <stdlib.h><br /> <br /> using namespace std;<br /> class perkalian{<br /> friend ostream& operator<<(ostream&, const perkalian&); friend istream& operator>>(istream&, perkalian&);<br /> public:<br /> perkalian();<br /> void hitung_perkalian(){hasil=(a*b);}<br /> private:<br /> int a,b;<br /> int hasil;<br /> };<br /> <br /> perkalian::perkalian(){}<br /> <br /> istream& operator>>(istream& in, perkalian& masukan){<br /> cout<<"masukan nilai a : "; in>>masukan.a;<br /> cout<<"masukan nilai a : "; in>>masukan.b;<br /> return in;<br /> }<br /> <br /> ostream& operator<<(ostream& out, const perkalian& keluaran){ out<<"jadi "<<keluaran.a<<" dikali "<<keluaran.b<<endl; out<<"adalah "<<keluaran.hasil<<endl; return out; } int main(int argc, char *argv[]) { perkalian X; cin>>X;<br /> X.hitung_perkalian();<br /> cout<<X; system("PAUSE"); return 0; }

final result in dev :

how to determine prime number

this program will determine whether input is prime number or no, whats is prime number.

prime number is a natural number that has exactly two distinct natural number divisors: 1 and itself.

this is program how to determine prime number....

<br /> #include <iostream><br /> #include <stdlib.h><br /> <br /> using namespace std;<br /> <br /> int main(int argc, char *argv[])<br /> {<br /> <br /> int bil,s,cek,f;<br /> cout<<"Masukkan bilangan : "; cin>>bil;<br /> <br /> for(s=1;s<=bil;s++) { cek=0 ; for(f=1;f<=bil;f++) { if(s%f==0) {cek++;} } } if(cek==2) {cout<<bil<<" merupakan bilangan prima \n";} else {cout<<bil<<" bukan bilangan prima "<<endl;} system("PAUSE"); return 0; }

final result in dev :

Bagaimana menemukan tahun kabisat dengan delphi

Dalam program ini akan membantu Anda menemukan tahun kabisat, sehingga Anda tidak harus menghitung secara manual, dengan kode sederhana di bawah ini Anda akan menemukan tahun kabisat atau tidak.

kita dapat membuat fungsi baru berdasarkan komponen Tdate

ok langsung saja kita buat program.function KabisatByDate(const DT: TDate): Boolean;<br /> var<br /> d, m, y: Word;<br /> begin<br /> DecodeDate(DT, y, m, d);<br /> Result:= isLeapYear(y);<br /> end;

Kemudian masukkan kode di bawah ini untuk button
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if KabisatByDate(DateTimePicker1.Date) then ShowMessage('Yes') else<br /> ShowMessage('Not');<br /> end;

Source koding - leap year

 

Download

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Cara Menghitung Jumlah Karakter dengan delphi

Sekarang kita akan membuat program untuk Menghitung Jumlah Karakter, di sini kita dapat mengetahui berapa banyak karakter yang ada dalam surat-surat, tidak menghitung secara manual. kami baru saja mulai untuk memasukkan kode di bawah ini:

Fungsinya adalah sebagai berikut:function HitungKarakter(const teks: Char; kalimat: String;<br /> caseSensitive: Boolean): Integer;<br /> var<br /> i,tmp: Integer;<br /> begin<br /> Result:= 0;<br /> i:= 0;<br /> tmp:= 0;<br /> while i <= Length(Kalimat) do begin if caseSensitive then begin if kalimat[i] = teks then Inc(tmp); end else begin if Lowercase(kalimat[i]) = Lowercase(teks) then Inc(tmp); end; Inc(i); end; Result:= tmp; end;

dalam program ini kita dapat menyaring letters caseSensitive.

Download

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Cara menyimpan gambar kedalam database dengan delphi

Seringkali pertanyaan kita adalah bagaimana menyimpan gambar ke database. Cara yang digunakan adalah sama dengan prosedur standar ketika Anda ingin menyimpan data baru (insert, edit) on the field.

tipe data dari gambar blob pada table kita menggunakan Assign.

Untuk contoh kamu ingin menyimpan graphic yang ada di TImage (image1) kedalam field BLOB (di sini saya menunjukkan, nama field adalah sebuah pic):
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if Image1.Picture.Graphic <> nil then<br /> begin<br /> with ADOTable1 do<br /> begin<br /> Insert;<br /> FieldByName('pic').Assign(Image1.Picture.Graphic);<br /> Post;<br /> end;<br /> end;<br /> end;

Untuk menyimpan gambar ke dalam field adalah jenis / format gambar yang ingin Anda simpan, apakah  JPEG / JPG, PNG, GIF atau BMP. Jika Anda ingin semua data pada field 'pic' hanyalah grafis tipe JPEG / JPG, maka Anda harus mengkonversi sebuah grafis yang ada di image1 untuk TJPEGImage kemudian disimpan ke lapangan. Hal ini akan memudahkan Anda ketika menampilkan grafis untuk TImage, karena grafis yang akan ditampilkan sudah pasti TJPEGImage, jadi tidak perlu untuk mendeteksi tipe gambar yang akan ditampilkan. Tapi semua tergantung pada orientasi dari program Anda buat.

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Mengecek letak file dengan delphi How to Check for File Existence delphi

Untuk memeriksa apakah file tersebut ada di direktori tertentu, Anda dapat menggunakan fungsi yang disediakan dalam Delphi.

Formula fungsi:
FileExists (const FileName: string): boolean.
Step 1: masukan koding didalam Edit Button and Form

Step two: enter the program with the program listings below :a
Procedure Tfrom.Button1Click(Sender:TObject);<br /> begin<br /> if Edit1.Text = ' ' then<br /> ShowMessage('fill in the name of the file is searched')<br /> else<br /> begin<br /> if FileExits(Edit1.Text) = true then <br /> ShowMessage('file " ' +Edit1.Text + ' " file exist. ')<br /> else <br /> showMessage('File " ' +Edit1.Text + ' " not exist. ');<br /> end;<br /> end;

Jalankan Program

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Cara membuat form login dengan delphi

Tampilan bisa dibuat seperti gambar dibawah:

On public add koding dibawah:
public<br /> { Public declarations }<br /> class function Execute : Boolean;
Add koding dibawah implementation
class function TFrmLogin.Execute:Boolean;<br /> begin<br /> with TfrmLogin.Create(nil) do<br /> try<br /> Result := ShowModal = mrOK;<br /> finally<br /> free;<br /> end;<br /> end;
On Click Button Login add koding dibawah:

How to change background color delphi

You can change the background color by adding the components:

• ColorDialog

• button

And enter the code below
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if ColorDialog1.Execute then<br /> form1.Color := ColorDialog1.Color;<br /> end;

Good Luck

how to determine leap year

Leap year is a year containing one extra day (or, in the case of lunisolar calendars, a month) in order to keep the calendar year synchronized with the astronomical or seasonal year.Because seasons and astronomical events do not repeat in a whole number of days, a calendar that had the same number of days in each year would, over time, drift with respect to the event it was supposed to track. By occasionally inserting (or intercalating) an additional day or month into the year, the drift can be corrected. A year that is not a leap year is called a common year.

now i'm will make a program how to determine leap year, chek it out...

calculate the volume of the ball

formula for calculating volume of a sphere of volume sphere = 4/3.phi.r * r * r, phi can be 3.14 or 22 / 7 but here we use the 3.14 and the radius is specified by the user

The following example program check it out

#include <iostream><br /> #include <stdlib.h><br /> <br /> using namespace std;<br /> <br /> int main(int argc, char *argv[])<br /> {<br /> <br /> int v, r;<br /> cout<<"Volume Bola : "; cin>>r;<br /> cout<<" phi = 3,14 \n"; v=4/3*3.14*(r*r*r); cout<<"Volume Bola : "<<v<<endl; system("PAUSE"); return 0; }

final result like this

Mengurutkan data dengan dbgrid delphi

mengkompile data penting untuk mempermudah pencarian data lagi. Berikut koding untuk menyortir data.

Mengurutkan data dengan ascending procedure TForm1.Button2Click(Sender: TObject);<br /> begin<br /> ADOTable1.Sort := 'column ASC'; //your name table.sort := 'yournamecolumn Ascending';<br /> end;
Mengurutkan data dengan descending

Bagaimana Filter Karakter di EditBox delphi

EditBox hanya bisa menerima input karakter tertentu. Sebagai contoh, agar EditBox hanya bisa diisi dengan angka, bukan karakter.

Program berikut menunjukkan bagaimana EditBox hanya bisa diisi dengan bilangan heksadesimal, percaya (0 .. 9), (A. F.), Atau (a. F.).

input and output part 2

how to make the program save the data already now we make a program that will display or read data from the file that we who first created the program last,…….
program reads data
<br /> <br /> #include <iostream><br /> #include <fstream><br /> using namespace std;<br /> int main(int argc, char *argv[])<br /> { ifstream filein;<br /> filein.open("nilai.txt");<br /> int nilai [10];<br /> for(int i=0; i<10; i++){ filein>>nilai[i];<br /> cout<<"nilai ke- "<<i+1<<"\t:"<<nilai[i]<<endl; } <br /> system("PAUSE"); <br /> return 0 ;} <br />

 

input and output part 1

we make every imaginable data program in the program we had in store in the computer memory either internal or external, so this time we make a program that can store data and programs which can dial / display of data we have more input in the first program, cekidot ……

programs that store data
<br /> <br /> #include <iostream><br /> #include <fstream> //<------- replace with fstream because that was not previously <br /> using namespace std; <br /> int main(int argc, char *argv[]) { <br /> int nilai; ofstream fileout; fileout.open("nilai.txt"); //<-------- These later will create a file nilai.txt <br /> for(int i=0; i<10; i++){ <br /> cout<<"data ke- "<<i+1<"; cin>>nilai;<br /> fileout<<nilai<<endl; } <br /> system("PAUSE"); <br /> return 0; }<br />

try to make the program

do not have much to say right now we directly test the program, cekidot ....
<br /> #include<iostream><br /> #include<stdlib.h><br /> using namespace std;<br /> int jumlahkan(int x,int y){<br /> return x+y;<br /> }<br /> <br /> int main(int argc, char *argv[])<br /> {<br /> int a=5,b=10;<br /> int hasil;<br /> cout<<"nilai a : "<<a<<endl; cout<<"nilai b : "<<b<<endl; cout<<"hasil penjumlahan : "<<jumlahkan(a,b)<<endl; system("PAUSE"); return 0; }
It is the sum of the input program that we have direct input in the program (int a = 5, b = 10;)

calculate the area of ​​a circle

below is a sample program to calculate the area of ​​a circle:

formula to calculate the circle is L = pi * r * r, phi = 3.14 or 22 / 7 here we use the phi = 3.14 with the fingers of the user input
<br /> #include<iostream><br /> #include<stdlib.h><br /> using namespace std;<br /> int main(int argc, char *argv[])<br /> {<br /> int l, r;<br /> cout<<”luas lingkaran \n”;<br /> cout<>r;<br /> cout<<” phi = 3,14 \n”;<br /> l=3.14*r*r;<br /> cout<<”luas lingkaran : “<<l<<endl;< p=""> </l<<endl;<><br /> system(“PAUSE”);<br /> return 0;<br /> }

finish ,now you can calculate the area of ​​a circle with this program

cara mengakses database dengan MS Access delphi

Untuk mengakses database dengan MS access bisa mengikuti step by step dibawah:

Step 1 buka your Ms Access:

Step 2  Klik File > New > Blank database > Choose Storage

introduction dev

had not been informed Internet blog content again increased but without any increase in quality. but no problem was the late reply than none at all
the first thing we start from the beginning that is familiar with application programming there are 2 applications that I know that Borland and the dev, but the average "most people make dev maybe because it's easier
now we see how rich display dev

for example, we want to start the program how to click a file>> new>> project>> select console Application>> ok