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

tutorial visual basic, membuat form command

Bentuk form pada Visual Basic

yang pertama, mencoba membuat form

setelah kita membuat form kita coba masukan logikanya ke dalam form tersebut.

contohnya sebagai berikut:

ini contoh form untuk membuat struktur login, jika user/ nama dan password berbeda, form tersebut akan menampilkan sebuah inforasi bahwa data yang dimasukan itu salah atau benar.

logikanya berada pada command click

contoh hasil akhir..

contoh apabila data yang masukan sesuai dengan logika yang kita buat















contoh apabila salah satu data nta salah ata tidak sesuai dengan logika yang telah di buat

selesai..

Pengertian keluarga

keluarga adalah unit/satuan masyarakat yang terkecil yang sekaligus merupakan suatu kelmpok kecil dalam asyarakat.

Keluarga pada umumnya, di ketahui terdiri dari seorang individu(suami), individu lasinnya(isteri) yang selalu menjaga ketentraman saat menjalani segala suka duka hidupdalam eratnya arti ikatan luhur hidu bersama

Keluarga sebagai kelompok pertama yang dikenal individu sangat berpengaruh secara langsung terhadap perkembangan individu sebelum mauun sesudah terjun langsung secara individual di masyarakat.

Pengertian fungsi keluarga

Dalam kehidupan sering kita jumpai pekerjaan pekerjaan yang harus di lakukan. Suatu pekerjaan atau tugas yang dilakukan itu yang biasa disebut fungsi. Fungsi keluarga adalah suatu pekerjaan pekerjaan atau tugas tugas yang harus dilaksanakan di dalam atau oleh keluarga itu.

Macam macam fungsi keluarga

Pekerjaan pekerjaan yang harus dlaksanakan keluarga itu dapat digoongkan kedalam beberapa fungsi:

a) Fungsi biologis

b) Fungsi pemeliharaaan

c) Fungsi ekonomi

d) Fungsi keagamaan