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..

membuat deret pada vb

Membuat deret pada vb

Buat form seperti berikut














klik 2 kali pada command1

dan masukan seperti berikut

Private Sub Command1_Click()
Dim a, b, c, d, e, f As Integer
For a = 1 To Val(Text1.Text)
For b = 1 To a
Print "*";
Next b
Print
Next a
For c = Val(Text1.Text) - 1 To 1 Step -1
For d = 1 To c
Print "*";
Next d
Print
Next c
End Sub

dan command 2 seperti berikut

Private Sub Command2_Click()
Cls
Text1.Text = ""
End Sub

Misal text box di isi 4
Diagram alur

A.....B...........output
1.....1............1
2.....12.........12
3.....123.......123
4.....1234.....1234

C.....D..........output
3.....123.....123
2.....12........12
1.....1..........1

Jasi hasli output nya

1 namun pada program yang ditampilkan dalam bentuk buntang (“*”)
12
123
1234
123
12
1

Berikut hasil program

membuat menu input box pada VB

pertama buat form kosong seperti berikut











lalu klik 2 kali pada form vb

setelah itu tulis seperti berikut

Private Sub Form_Load()

1 pass = InputBox("arbi pramana", "password")
If pass = "password anda" Then
MsgBox "password benar, silakan masuk ke program menu", vbInformation
GoTo 10
Else
MsgBox " maaf password anda salah", vbCritical
GoTo 1
10 End If
End Sub

Logika program tersebut di maksudkan agar, saat program di jalan kan tepatnya pada form 1, akan box.

Jadi.. apabila inputbox di isi dengan “password anda” program akan menampilkan menu program Jika tidak, kembali ke menu inputbox.
Berikut tampilan saat di jalankan

jika salah











dan menampilkan messege box seperti berikut







dan kembali ke input box


jika benar





















dan akan masuk ke dalam form 1.

mencari determinan menggunakan Quick basic

buat flowchart untuk mengerjakan determinan.
contoh salah satu flowchart untuk mencari determinan :

























setelah itu buat programnya ke dalam bahasa pemograman, di sini kita memakai qbasic

contoh listing program pada quick basic :













setelah jadi kita coba untuk merunning nya














hasil running pada determinan pada program q basic...

selesai...

cara menampilkan teks ke label pada Visual basic

seperti biasa yang pertama kita buad formnya dulu


















setelah di buat form nya masukan logikanya ke dalam masing masing command.. yang ada pada form VB tersebut.

contoh logika..










setelah jadi,, kita coba merunningnya, tekan f5


















secara otomatis semua dat tulisan yang kita masukan ke dalam text box setelah di klik pada command ok label akan menampilkan teks yang di input tersebut

dan command hapus akan menghapus keduanya (label dan text box).

selesai..