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.