Sinauku Telaten

Belajar Membuat Program Konversi Uang Rupiah Sederhana dengan Delphi
     

1. Langkah pertama tentunya adalah pembuatan componen terlebih dahulu.
2. Dan buat seperti dibawah ini:

3. Untuk tampilan si terserah kalian aja.Selanjutnya yaitu mencari nilai mata uang asing bila dirupiahkan.
4. Bila sudah dapat kita mulai membuat sintaxnya .Klik Radiogroup lalu buat sintax programnya,pertama buat variabel terlebih dahulu.Untuk sintax lengkapnya seperti dibawah ini :


procedure TForm1.RadioGroup1Click(Sender: TObject); var nilai:real; hasil:real; begin case RadioGroup1.ItemIndex of 0: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/8900); Edit2.Text:=CurrToStr(hasil); end; 1: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/7006); Edit2.Text:=CurrToStr(hasil); end; 2: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/1143); Edit2.Text:=CurrToStr(hasil); end; 3: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai* (1/9556); Edit2.Text:=CurrToStr(hasil); end; 4: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/14314); Edit2.Text:=CurrToStr(hasil); end; 5: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/8934); Edit2.Text:=CurrToStr(hasil); end; 6: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/108); Edit2.Text:=CurrToStr(hasil); end; 7: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/1404); Edit2.Text:=CurrToStr(hasil); end; 8: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/1664); Edit2.Text:=CurrToStr(hasil); end; 9: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/9166); Edit2.Text:=CurrToStr(hasil); end; 10: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/12324); Edit2.Text:=CurrToStr(hasil); end; 11: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/2382); Edit2.Text:=CurrToStr(hasil); end; 12: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/6567); Edit2.Text:=CurrToStr(hasil); end; 13: begin nilai:=StrToCurr(Edit1.Text); hasil:=nilai*(1/1355); Edit2.Text:=CurrToStr(hasil); end; end; end;
5. Untuk penambahan negar lain silahkan kalian tambahkan sendiri.
6. Apabila ingin mencoba program lengkapnya silahkan klik link dibawah ini :