PopAds.net - The Best Popunder Adnetwork

code pemograman kalkulator melalui VB (VISUAL BASIC)

- Klik dua kali tombol (+) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) + CSng(TextBox2.Text)

- Klik dua kali tombol (-) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) - CSng(TextBox2.Text)

- Klik dua kali tombol (*) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) * CSng(TextBox2.Text)

- Klik dua kali tombol (/) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) / CSng(TextBox2.Text)

- Klik dua kali tombol (\) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) \ CSng(TextBox2.Text)

- Klik dua kali tombol (Mod) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) Mod CSng(TextBox2.Text)

- Klik dua kali tombol (^) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) ^ CSng(TextBox2.Text)

- Klik dua kali tombol (<) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) < CSng(TextBox2.Text)

- Klik dua kali tombol (>) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) > CSng(TextBox2.Text)

- Klik dua kali tombol (<=) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) <= CSng(TextBox2.Text)

- Klik dua kali tombol (>=) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) >= CSng(TextBox2.Text)

- Klik dua kali tombol (CON) dan masukkanlah kode program berikut ini.
TextBox3.Text = CSng(TextBox1.Text) & CSng(TextBox2.Text)

- Klik dua kali tombol (Sin) dan masukkanlah kode program berikut ini.
TextBox3.Text = Math.Sin(CSng(TextBox1.Text) * 3.1416 / 180)

- Klik dua kali tombol (Cos) dan masukkanlah kode program berikut ini.
TextBox3.Text = Math.Cos(CSng(TextBox1.Text) * 3.1416 / 180)

- Klik dua kali tombol (Tan) dan masukkanlah kode program berikut ini.
TextBox3.Text = Math.Tan(CSng(TextBox1.Text) * 3.1416 / 180)

- Klik dua kali tombol (LogBN) dan masukkanlah kode program berikut ini.
TextBox3.Text = Math.Log(CSng(TextBox1.Text)) / Math.Log(CSng(TextBox2.Text))

- Klik dua kali tombol (Log) dan masukkanlah kode program berikut ini.
TextBox3.Text = Math.Log(CSng(TextBox1.Text))

- Klik dua kali tombol (Exp) dan masukkanlah kode program berikut ini.
TextBox3.Text = Math.Exp(CSng(TextBox1.Text))

- Klik dua kali tombol (Sqr) dan masukkanlah kode program berikut ini.
TextBox3.Text = Math.Sqrt(CSng(TextBox1.Text))

- Klik dua kali tombol (Exit) dan masukkanlah kode program berikut ini.

            Close()
Previous
Next Post »

komentar tidak berisi spam.
terima kasih ConversionConversion EmoticonEmoticon