tambah lagi pada menu editor.
hasilnya seperti berikut :
buat form awal seperti saat membuat form awal menghitung waktu akses
ini adalah rumus asli cara menghitung waktu akses :
==> record x ((panjang char/densitas)/kec. akses tape saat membaca) x waktu berhenti x block
lalu buat coding vb nya
Private Sub Command1_Click()
a = Val(Text2.Text) / Val(Text1.Text)
b = Val(Text5.Text)
Text7.Text = (Val(Text5.Text) * (a / Val(Text3.Text))) + Val(Text5.Text) * Val(Text4.Text) * Val(Text6.Text)
End Sub
masukan coding ini kedalam vb, beserta coding yang lainnya.
sbb :
Private Sub Command1_Click()
a = Val(Text2.Text) / Val(Text1.Text)
b = Val(Text5.Text)
Text7.Text = (Val(Text5.Text) * (a / Val(Text3.Text))) + Val(Text5.Text) * Val(Text4.Text) * Val(Text6.Text)
End Sub
Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub
setelah selesai coba di running..
selamat mencoba
0 komentar:
Posting Komentar