program sederhana untuk menghitung waktu akses pada tape

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

program sederhana untuk menghitung kapasitas penyimpanan pada tape

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

Membuat Program Sedehana untuk Vektor

langkah yang pertama
- buat form awal seperti berikut


- buat menu editor seperti berikut


- klik form awal, lalu pada object pilih general dan masukan coding seperti di bawah ini

Private Sub di3_Click()
Form5.Show
Unload Me
End Sub

Private Sub ku1_Click()
Form2.Show
Unload Me
End Sub

Private Sub ku3_Click()
Form4.Show
Unload Me
End Sub

Private Sub ku4_Click()
Form6.Show
Unload Me
End Sub

Private Sub kuII_Click()
Form3.Show
Unload Me
End Sub


- buat form baru / ke 2 pada program vb tersebut
buat bentuk form seperti ini


lalu buat coding seperti berikut pada object umum (general):

Private Sub Command1_Click()
Text7.Text = Tan(Val(Text4.Text) / Val(Text1.Text))
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub


-buat lagi form berikutnya / ke 3 dengan cara yang sama
-buat bentuk formnya


-lalu masukan codingnya seperti berikut, sama seperti yang tadi di tempatkan pada object umum (general)

Private Sub Command1_Click()
Text7.Text = 180 - Tan(Val(Text4.Text) / Val(Text1.Text))
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

-buat lagi form berikutnya yang ke 4
-buat bentuk formnya


masukan codingnya dengan cara yang sama

Private Sub Command1_Click()
Text7.Text = 180 + Tan(Val(Text4.Text) / Val(Text1.Text))
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

-buat lagi form berikutnya yang ke 5
-buat bentuk formnya


masukan codingnya

Private Sub Command1_Click()
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2) + (Val(Text2.Text) ^ 2))
Text7.Text = Cos((Val(Text1.Text) / Text10.Text))
Text3.Text = Cos((Val(Text4.Text) / Text10.Text))
Text5.Text = Cos((Val(Text2.Text) / Text10.Text))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub


-buat lagi form yang ke 6
- bentuk formnya


masukan codingnya


Private Sub Command1_Click()
a = (Val(Text2.Text) - Val(Text1.Text))
b = (Val(Text3.Text) - Val(Text4.Text))
c = Val(b / a)
Text7.Text = Val(360 - Tan(c))
Text10.Text = Sqr((Val(Text1.Text) ^ 2) + (Val(Text4.Text) ^ 2))
End Sub

Private Sub Command2_Click()
Form1.Show
Unload Me
End Sub

selesai.. sekian ia.. selamat mencoba..