hitung Archives » Jaranguda

procedure TForm1.Button1Click(Sender: TObject); var sekarang : TDateTime; nanti : TDateTime; selisih : String; begin sekarang := ZVDateTimePicker3.Date; nanti := ZVDateTimePicker4.Date; selisih := IntToStr(DaysBetween(nanti,sekarang)); // hasilnya edit1.Text:= selisih; end;

Aplikasi yang kita buat ini, masih sangat sederhana, tujuannya adalah untuk mempelajari cara untuk mempelajari fungsi if then elseif di Gambas.
Buat design aplikasi tiket kereta api seperti gambar dibawah ini

1 buah combobox
Isi list combobox dengan Yogyakarta, Jakarta dan Malang.
7 buah TextBox
1 buah Button
ubah property text button menjadi hitung.

Klik dua kali di form kosong, tambahkan script dibawah ini, agar nilai di TextBox 1 sampai 7 dihilangkan

TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox4.Clear
TextBox5.Clear
TextBox6.Clear
TextBox7.Clear

klik dua kali pada tombol Hitung, lalu paste script dibawah ini

Dim harga As Integer
Dim jumlah As Integer
Dim total As Integer
 
  TextBox3.Text = TextBox1.Text
  If ComboBox1.Text = "Jakarta" Then 
  TextBox4.Text = "Jakarta"
  TextBox5.Text = 120000
  Endif
  If ComboBox1.Text = "Yogyakarta" Then
    TextBox4.Text = "Yogyakarta"
    TextBox5.Text = 150000
  Endif
    If ComboBox1.Text = "Malang" Then
    TextBox4.Text = "Malang"
    TextBox5.Text = 200000
  Endif
 
  TextBox6.text = TextBox2.Text
  jumlah = TextBox2.text
  harga = TextBox5.Text
  total = jumlah * harga
  TextBox7.Text = total