SONGKO TO BONE
RP.1000.000,00
SONGKO TO BONE
RP.1000.000,00
SONGKO TO BONE
RP.2000.000,00
SONGKO TO BONE
RP.1.500.000,00
SARUNG TENUN
RP.3.500.000,00
SARUNG TENUN
RP.4.000.000,00
SONGKO TO BONE
RP.2.000.000,00
SONGKO TO BONE
RP.1.000.000,00
SONGKO TO BONE
RP.3.000.000,00
SONGKO TO BONE
RP.1.500.000,00
SONGKO TO BONE
RP.2000.000,00
SONGKO TO BONE
RP.4000.000,00
BAJU BODO WANITA
RP. 1.500.000,00
PAKAIAN PENGANTIN COLOR MERAH
Rp.7.000.000,00
PAKAIAN PENGANTIN & PAKAIAN PADDUPPA
COLOR HIJAU
Rp.25.000.000,00
PAKAIAN PENGANTIN
COLOR KUNING
Rp.6.500.000,00
PAKAIAN PENGANTIN
COLOR KUNING
Rp.25.000.000,00
PAKAIAN ADAT PRIA
Rp.1.500.000,00
PAKAIAN PENGANTIN
COLORPINK
Rp.35.000.000,00
PAKAIAN ADAT ANAK-ANAK
Rp.1.000.000,00
COLOR MERAH
RP. 2.500.000,00
BAJU BODO WANITA
PAKAI JILBAB
COLOR PINK
RP. 3.500.000,00
PAKAIAN PENGANTIN
COLOR KUNING
Rp.7.000.000,00
BAJU BODO WANITA
COLOR PINK
RP. 1.500.000,00
PAKAIAN PENGANTIN
COLOR MERAH
Rp.7.000.000,00
PAKAIAN PENGANTIN
COLOR PUTIH
Rp.7.000.000,00
PAKIAN ADAT
UPACARA ADAT
Rp.3.0000.000,00
PAKAIAN PENGANTIN
COLORPINK
Rp.7.000.000,00
DIJAMIN KUALITAS DAN HARGA BERSAHABAT
CONTOH PROGRAM KALKULATOR
SILAHKAN DESAIN FORM DIBAWAH INI
TULIS LISTING PROGRAM DIBAWAH INI DENGAN CARA MENGKLIK FORM :
Public Class Form1
'Ketika button1 di klik maka akan mengerjakan perintah dibawah
SILAHKAN DESAIN FORM DIBAWAH INI
TULIS LISTING PROGRAM DIBAWAH INI DENGAN CARA MENGKLIK FORM :
Public Class Form1
'Ketika button1 di klik maka akan mengerjakan perintah dibawah
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
ElseIf RadioButton3.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
ElseIf RadioButton4.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
Else
TextBox3.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)
End If
End Sub
'Ketika button2 di klik maka akan mengerjakan perintah dibawah
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Focus()
End Sub
End Class
Langganan:
Postingan (Atom)
