mendeteksi ganjil dan genap + luas segitiga

[genta]

asalmualikum ........salam
ketemu lg ama ane lonceng newbie yg mau ijin nyampah bila berkenan ,,,ne bekas jalan2 kemarin d s mbah google
lnsung aja deh

1.mendeteksi ganjil dan genap
ini memakai

Spoiler:

Code:

2 label
1 textbox
1 comand buton

terus tinggal masukan

Code:

Private Sub Command1_Click()
a = Text1.Text
Dim b
b = a / 2
Dim c
c = Int(b)
If b = c Then
Label1.Caption = "odd:false"
Label2.Caption = "Even:true"
Text1.Text = a
Text1.SetFocus
End If
End Sub

2. membuat luas segitiga

Spoiler:

ini memakai

Code:

3 label
3 textbox
2 command buton

pertama2-ganti nama yg berada di propertis menjadi

Code:

text1------menjadi txt_alas
text2-------menjadi txt_tinggi
text3-------menjadi txt_luas
command1 ---------menjadi cmd_proses
command2 ---------menjadi cmd_close

trus tinggal masukan kodingany dah

Code:

Dim alas As Double
Dim tinggi As Double
Dim luas As Double

Private Sub cmd_proses_Click()
alas = Txt_alas.Text
tinggi = Txt_tinggi.Text
luas = 0.5 * alas * tinggi
Txt_luas.Text = luas

End Sub

Private Sub smd_close_Click()
End
End Sub

maaf thread ini sma sekali gak bermutu kali buat para om2 semua ....karna saya hanya bisa mengcopy belum bisa menciptakan .......bila hanya menjadi sampah belaka silahkan d apus cukup sekian untuk kali ini
wasalamualaikum

[nobodyknowme]

widih lumayan nih buat kalo ada tugas tugas di akademik

[DnA19]

izin baca2 dulu ya 0mz...