lanjutan yang kemarin, tambah pada menu editor. contoh. sbb :
hasilnya seperti berikut :
lalu buat formnya, disini saya membuat contoh sederhana dalam form :
masukan rumus asli dari cara menghitung kapasitas penyimpanan kedalam format vb nya,
co : panjang tape x 12 / record x (panjang char/densitas) x block
lalu di samakan menggunakan coding vb nya
a = Val(Text4.Text) * 12
b = Val(Text3.Text) / Val(Text1.Text)
c = Val(Text5.Text) * b + Val(Text2.Text) * Val(Text6.Text)
Text7.Text = a / c
masukan coding ini kedalam vb, beserta coding yang lainnya.
sbb :
Private Sub Command1_Click()
a = Val(Text4.Text) * 12
b = Val(Text3.Text) / Val(Text1.Text)
c = Val(Text5.Text) * b + Val(Text2.Text) * Val(Text6.Text)
Text7.Text = a / c
End Sub
Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub
setelah selesai coba di running..
selamat mencoba
0 komentar:
Posting Komentar