Artikel ini saya buat karena permintaan teman saya yang belum begitu mengerti dengan penjelasan dari dosen Logika Dan Algoritma di Kampus Swasta daerah Kota Tangerang, ok SKIP, langsung ke tutorial Membuat Menu bar, dan login dengan koneksi ke database MS.Access di visual basic 6, yap visual basic 6, saya juga bingung kenapa masih dipelajarin bahasa pemograman ini, padahal bahasa pemograman ini sudah banyak yang meninggalkan beralih ke pemograman .NET.

Langkah Pertama

pastinya sudah pada bisa dong membuat project baru, jadinya langsung saja ke area form1, klik kanan pada area FORM1, lalu pilih Menu Editor. Disini kita akan membuat Menu bar pada Form Utama, Setelah muncul jendela seperti digambar, buat lah beberapa Menu yang diinginkan.
Pada menu editor terdapat beberapa parameter, saya akan menjelaskan beberapa, untuk
Caption = Untuk tulisan yang tampil pada menu
Name = Sebuah penamaan UNIQ (tidak boleh sama) untuk digunakan dalam pemanggilan di coding/syntax
Shortcut = Hanya untuk sub menu, fungsinya untuk jalan pintas menggunakan keyboard mengakses sub menu tersebut.
Next = Untuk melanjutkan ke menu berikutnya
Insert = Untuk menambahkan ke menu berikutnya
Delete = Menghapus menu

Untuk membuat SUB MENU (Menu didalam Menu, pada gambar Master -> mahasiswa, buku, petugas, dll) pada saat next atau membuat menu baru tekan tombol panah ke kanan , kalau benar maka akan membentuk titik-titik sehingga menu berikutnya menjorong ke kanan (seperti gambar), untuk parameter lainnya saya tidak jelaskan disini, silahkan coba-coba sendiri.

Caption	Name
Login	login
Master	m
…...…...Mahasiswa	mhs
……...…Buku	bk
……...…Petugas	ptgs
Proses	p
……...…Pinjam	pnjm
…...……Kembali	kmbli
Laporan	l
……...…Bulanan	bln
……...…Tahunan	thn
Keluar	k

 

Langkah Kedua

Setelah menunya jadi,  sekarang lanjut ke code / syntaxnya pada form load. Fungsinya adalah disaat form ke load (muncul aplikasinya) sebelum login, beberapa menu yang ada dalam keadaan disabled atau tidak aktif.

Private Sub Form_Load()
    Form1.m.Enabled = False
    Form1.p.Enabled = False
    Form1.l.Enabled = False
   
End Sub

Keterangan :
Form1.m.Enabled = False
Form1 = Variablenya berada di Form1
m = Name menu yang akan disabled
Enabled = False = Keadaan Disabled

Langkah Ketiga

Buat form baru dengan cara pada panel Project di bagian kanan klik kanan dibagian form1 pilih Add -> Form -> Pilih Form Add/OK
Lalu pada form2 ini kita akan membuat form login yang hanya perlu memasukan password yang ada di database, pertama buat dulu beberapa komponen seperti:

Label1 = Untuk tulisan Password
Text1 = Untuk Memasukkan password
Command1 = Button/Tombol Login
Command2 = Button/Tombol Exit

Pada Properties Text1, Cari PasswordChar, dan ubah Valuenya menjadi * (star) ini berfungsi agar password yang kita ketik berubah menjadi tersembunyi atau berubah menjadi *****

Tampilan Form2

Langkah Keempat

Di langkah ini kita akan membuat databasenya, pertama pada menu bar, pilih Add Ins -> Visual Data Manager

Maka akan muncul jendela baru, langkah berikutnya pilih File -> New -> Microsofr Access -> Version 7.0 MDB

lalu diminta menyimpan file databasenya, arahkan ke folder project yang kita buat (Harus 1 folder dengan project yang dibuat untuk mempermudahkan peletakan path)
Selanjutnya adalah membuat table, klik kanan pada properties -> New Table
Akan muncul jendela baru seperti gambar diatas, lalu isi:
1. Table Name = TABEL_LOGIN (Sebaiknya tidak memakai SPASI, ganti dengan underscore_)
2. Add Field = Jendela untuk membuat Field
3. Name Field = isikan password
4. Size Field = isikan 32
5. OK, lalu close
Berikutnya klik tombol Build The Table



Selanjutnya double klik pada TABEL_LOGIN, lalu pilih Add untuk menambahkan VALUE pada Field.
1. Value Password = Yang menjadi password loginnya, disini saya masukkan 1234
2. Tombol Update = Untuk memperbaruhi value

Langkah Kelima

Masih di Form2, buat komponen baru yaitu Data, (icon pada gambar), biarkan Namenya tetap Data1

Langkah Keenam

    Data1.RecordSource = "SELECT * FROM TABEL_LOGIN WHERE password ='" & Text1.Text & "'"

    Data1.Refresh

    If Not Data1.Recordset.EOF Then

        Form1.Show
        Form1.m.Enabled = True
        Form1.p.Enabled = True
        Form1.l.Enabled = True
        Form1.login.Visible = False
        Unload Me
    Else
        MsgBox "Maaf Passwod Anda Salah...!", vbCritical, "Pesan"

        Text1.Text = ""
        Text1.SetFocus
    End If

Keterangan :
 "SELECT * FROM TABEL_LOGIN WHERE password ='" & Text1.Text & "'"
Pilih SEMUA field pada Tabel (TABEL_LOGIN) DIMANA password(Field) = Text1(yang diinput)
Unload Me = Untuk menutup Form yang terdapat syntax ini.
MsgBox = Menampilkan Alert/Pesan, dengan struktur, "Isi Pesan", Iconnya, "Title"
SetFocus = Kursor berada pada Text yang diberi syntax ini.
.Visible = False = Menyembunyikan Objek yang diberi syntax ini.
Lalu Double klik pada Button Exit (Command2), dan masukkan syntax ini:

Form1.Show
Unload Me

Semua langkah telah selesai, sekarang lihat hasilnya, jika berhasil maka akan seperti di gambar:

1. Hanya Menu Login dan Keluar yang aktif
2. Setelah menekan menu login, lalu memasukkan password tetapi salah, maka akan muncul pesan error.
3. Selelah memasukkan password yang benar, maka form login(form2) akan Unload dan menu login hilang sedangkan menu yang lainnya aktif (bisa diklik).

Sekian Tutorial yang sebenarnya singkat tapi saya buat panjang untuk dimengerti semuanya, semoga membantu dalam pembelajaran berikutnya.


(c) Original Tutorial By : Rizal Loa Wanda |FB|TW|

STRUKTUR CD INTERAKTIF MENGGUNAKAN FLASH

Umpamakan D:\rizal folder yang pertama kita buat itu adalah ROOT, semua isi yang ada di root nantinya akan kita burning ke CD/DVD.

Kata Kerja adalah bagian inti dari Tenses Bahasa Inggris. Kata kerja atau Verb pada rumus-rumus Tenses di blog ini, Kata kerja atau Verb ini sering saya singkat V saja. Jadi kalau V+ing artinya sama dengan Verb+ing, sering juga saya tulis sebagai “Ving” saja agar mudah.

Kata kerja dalam bahasa Inggris ada banyak bentuknya: V1, V2, V3, Ving.
Kata Kerja bentuk 1 atau disingkat V1, yaitu kata kerja dasar, seperti: drink, go, write, read, participate, learn, study, dan sebagainya. Ada kata kerja bentuk ke 2, sering disingkat V2. Kata kerja bentuk 3 ya V3. Serta Kata Kerja bentuk ING atau disingkat Ving.

Bagaimana cara menggunakan bentuk-bentuk kata kerja tersebut? Ada di masing-masing pelajaran Tenses Bahasa Inggris.

Perubahan Bentuk Kata Kerja
Perubahan bentuk Kata Kerja bentuk 1 (V1) ke bentuk kedua (V2) dan bentuk ke 3 (V3) ada yang  beraturan  (ada rumusnya) dan ada juga yang  tidak beraturan  (tidak ada rumusnya).

Kata Kerja Beraturan (Regular Verb):
Artinya ya mempunyai keteraturan bentuknya, ada rumusnya misalnya ditambah “D” atau “ED” seperti: live – lived – lived, play, played, played.
Walaupun ada aturannya tetapi aturan perubahan tersebut masih ada beberapa. Daftar kata kerja beraturan ini pun panjang sekali.

Kata Kerja TIDAK Beraturan (Irregular Verb):
Misalnya kata kerja “drink” berturut-turut untuk bentuk ke 1 sampai 3: drink-drank-drunk. Satu contoh lain lagi: break-broke-broken
Masih ingat V1, V2, V3 dan Ving? Jangan sampai lupa apa itu artinya, karena akan sering dipergunakan dalam setiap  tenses bahasa inggris

1. Present Tense (Waktu Sekarang)

a. Simple Present Tense (Waktu Sekarang Sederhana)
Rumus :
(+) S + V1 + O/C
(-) S + Do/does + not + V1 + O/C
(?) Do/does + S + V1 + O/C

Example :
(+) Sisca Reads book everyday
(-) Sisca does not Read book everyday
(?) does Sisca Read book everyday
"Yes He does / No He does not (doesn’t)" 

For
I, You, We, They = do
He, She, It = Does
Contoh kalimat :
(+) She is a new people here.
(+) He plays football every morning
(-) She isn’t a new people here.
(-) He does not playing football every morning.
(?) Is she a new people here?
(?) How playing football every morning?


b. Present Continuous Tense (Waktu Berlangsung Sekarang)
Menerangkan suatu perbuatan yang sedang berlangsung pada waktu sekarang.
Rumus :
(+) S + Be + V1 + ing + O/C
(-) S + Be + not + V1 + ing + O/C
(?) Be + S + V1 + ing + O/C

Example :
(+) They are playing badmintoon now
(-) They are not playing badmintoon now
(?) Are they palaying badmintoon now ?
"Yes They are / no they are not"

For
I = am
They, we, you = are
He, She, It = Is
Contoh dalam kalimat :
(+) He is playing badminton now
(-) He isn’t playing badminton now.
(?) Is he playing badminton now.


c. Present Perfect Tense (Waktu Sempurna Sekarang)
Rumus :
subject+auxiliary verb+main verb

Example :
(+) you have eaten mine.
(-) she has not been to Rome
(?) have you finished?

d. Present Perfect Continuous Tense (Waktu Berlangsung Sempurna Sekarang)
Rumus :
(+): S + have/has + been + Ving
(-): S + have/has + not + been + Ving
(?): Have/has + S + been + Ving

Example :
(+) She has been going to Malang since evening.
(+) We have been riding a horse for three days
(-) She hasn’t been going to Malang since evening.
(-) We haven’t been riding a horse for three days.
(?) Has she been going to Malang ?
(?) Have He been riding a horse for three days ?

2. Past Tense (Waktu Lampau)

a. Simple Past Tense (Waktu Lampau Sederhana)
Rumus :
(+) S+Be+Was/Were+O/C
(-) S+Be+Was/Were+not+O/C
(?) Be+Was/Were+ S+O/C

Example :
(+) We were at school yesterday
(-) We were not at school yesterday
(?) were we at school yesterday ?

For
I, He, She, It = Was
They, we, you = were
Contoh :
(+) I saw a good film last night
(+) He came here last month
(-) I saw not a good film last night
(-) He came not last month
(?) Saw I a good film last night
(?) Came He here last month


b. Past Continuous Tense (Waktu Berlangsung Lampau)
Rumus :
(+) S + was/were + Ving
(-) S + was/were + NOT + Ving
(?) Was/Were + S + Ving

Example :
(+) He was watching television all afternoon last week
(+) They were talking about sport when I met him
(-) He wasn’t watching television all afternoon last week
(-) They weren’t talking about sport when I met him
(?) Was He watching television all afternoon last week
(?) Were they talking about sport when I met him

c. Past Perfect Tense (Waktu Sempurna Lampau)
Rumus :
subject+auxiliary verb HAVE+main verb 
(+) S + had + V3
(-) S + had + not + V3
(?) Had + S + V3

Example :
(+) When my brother arrived , I had painted my motor cycle
(+) The ship had left before I arrived
(-) When my brother arrived , I hadn’t painted my motor cycle
(-) The ship hadn’t left before I arrived
(?) Had I my motor cycle , when my brother arrived ?
(?) Had the ship left before I arrived?

d. Past Perfect Continuous Tense (Waktu Berlangsung Sempurna Lampau)
Rumus :
subject+auxiliary verb HAVE+auxiliary verb BE+main verb

Example :
(+) They had been living there for two month
(+) When they washed my drees , your father had been playing badminton
(-) They hadn’t been living there for two month
(-) When they washed my dress , your father hadn’t been playing badminton
(?) Had they been living there for two month?
(?) When they washed my dress , had your father been playing badminton ?

3. Future Tense (Akan Datang)

a. Simple Future Tense (Waktu Akan Datang Sederhana)
Rumus :
subject+auxiliary verb WILL+main verb

Example :
(+) I will visit to yogyakarta tomorrow.
(+) he will met girl friend by seven o’clock
(?) Will he go to America next month?
(+) President shall at Nederland the day after tomorrow.
(-) President shall not at Nederland the day after tomorrow.
(?) Shall President at Nederland the day after tomorrow?

b. Future Continuous Tense (Waktu Berlangsung Akan Datang)
Rumus :
subject+auxiliary verb WILL+auxiliary verb BE+main verb

Example :
(+) I will be writing a comic.
(+) I will be studying tomorrow night.
(-) I will not writing a comic.
(-) I will not be studying tomorrow night.
(?) Will I be writing a comic ?
(?) Will I be studying tomorrow night ?

c. Future Perfect Tense (Waktu Sempurna Akan Datang)
Rumus :
subject+auxiliary verb WILL+auxiliary verb HAVE+main verb

Example :
(+) Iwill havefinishedby 10am.
(+) Youwill haveforgottenme by then.
(-) Shewillnothavegoneto school.
(-) Wewillnothaveleft.
(?) Willyou havearrived?
(?) Willthey havereceivedit?

d. Future Perfect Continuous Tense (Waktu Berlangsung Sempurna Akan Datang)
Rumus :
subject+auxiliary verb WILL+auxiliary verb HAVE+auxiliary verb BE+main verb

Example :
(+) I will have been reading a news paper.
(+) He will have been listening music.
(-) I will haven’t been reading a news paper.
(-) He will haven’t listening a music.
(?) Will I have been riding a news paper ?
(?) Will He have listening a music ?

4. Past Future Tense (Akan Datang Di Waktu Lampau)

a. Past Future Tense (Waktu Akan Datang Di Waktu Lampau)
Rumus :
(+) S + would + V1
(-) S + would + not + V1
(?) Would + S + V1

Example :
(+) He would come if you invited him.
(+) They would buy a home the previous day.
(-) He wouldn’t come if invited him.
(-) They wouldn’t buy a home the previous day.
(?) Would He come if invited him ?
(?) Would they buy a home the previous day ?

b. Past Future Continuous Tense (Waktu Akan Sedang Terjadi Diwaktu Lampau)
Rumus :
(+) S + would + be + Ving
(-) S + would + not + be + Ving
(?) Would + S + be + Ving

Example :
(+) I should be swimming at this time the following day.
(+) I shall be sliping at 10 o’clock tomorrow.
(-) I shouldn’t be swimming at this time the following day.
(-) I shalln’t be sleeping at 10 o’clock tomorrow.
(?) Shall I be swimming at this time the following day ?
(?) Shall I be sleeping at10 o’clock tomorrow ?

c. Past Future Perfect Tense (Waktu Akan Sudah Selesai Di Waktu Lampau)
Rumus :
(+) S + would + have + V3
(-) S + would + not + have + V3
(?) Would + S + have + V3

Example :
(+) He would have graduated if he had studies hard.
(+) Nonok will have studied moth by the end of this week.
(-) He wouldn’t have gone if he had met his darling
(-) Nonok will have not studied month by the end of this week
(?) Would He have gone if he had met his darling ?
(?) Will Nonok have studied month by the end of this week ?

d. Past Future Perfect Continuous Tense
(Waktu Yang Sudah Sedang Berlangsung Pada Waktu Lampau)
Rumus :
(+) S + would + have + been + Ving
(-) S + would + not + have + been + Ving
(?) Would + S + have + been + Ving

Example :
Rianawati would have been speaking English for two years
(+) Mrs. Anisa Munif would have been walking here for seventeen years
(+) Rianawati would have been speaking English for two years
(-) Mrs. Anisa Munif wouldn’t have been walking here for seventeen year
(-) Rianawati wouldn’t have been speaking English for two years
(?) Would Mrs. Anisa Munif have been walking here for seventeen years?
(?) Would Rianawati have been speaking English for two years?

Sumber : ekkasrirahayu[dot]wordpress[dot]com

Pada postingan kali ini macamateri akan membahas tentang barisan dan deret aritmatika, langsung ke pokok pembahasan.
Barisan bilangan adalah himpunan bilangan yang diurutkan menurut suatu aturan/pola tertentu yang dihubungkan dengan tanda “,”. Jika pada Barisan tanda “,” diganti dengan tanda “+”, maka disebut Deret  Masing-masing bilangan itu disebut suku-suku barisan, setiap suku diberi nama sesuai dengan nomor urutnya.

Secara umum barisan bilangan dapat ditulis: U1, U2, U3,…, Un.  dengan Un sering disebut f(n) yang menyatakan suku ke-n Sedangkan untuk deret bilangan dapat di tulis : U_{1 +} U_{2  +} U_{3  +} .…+ U_n.

BARISAN ARITMETIKA

      Barisan Aritmetika yaitu barisan yang suku-sukunya diperoleh dengan menambahkan suatu bilangan tetap ke suku sebelumnya. Bilangan tetap itu disebut beda atau selisih dan dilambangkan dengan b, sedangkan suku yang pertama (U1) dilambangkan dengan a.

 Rumus suku ke-n dari barisan aritmetika adalah Un = a + (n – 1)b, dengan b = Un – Un – 1 

Contoh Soal :

1. Diketahui barisan aritmetika  3, 8, 13, …
    a. Tentukan suku ke-10 dan rumus suku ke-n barisan tersebut!
    b. Suku keberapakah yang nilainya 198 ?

Jawab :
 
a. Dari barisan aritmetika 3, 8, 13, … diperoleh suku pertama a = 3 dan beda b = 8 – 3 = 5.

Un    = a + (n – 1)b
U10  = 3 + (10 – 1)5
         = 3 + 9 x 5
         = 3 + 45
         = 48

 Un   = a + (n – 1)b
        = 3 + (n – 1)5
        = 3 + 5n – 5
        = 5n – 2

b. Misalkan Un  = 198, maka berlaku :

Un      = 198
5n – 2 = 198
5n       = 200
 n        = 40
Jadi 198 adalah suku ke- 40 

---

2. Diketahui U1 = a = 3 , U5 = 19 , Un = 31
    a. Tentukan beda (b)
    b. Tentukan n
    c. Tentukan suku ke-20 
    d. Tentukan n jika Un = 51



Jawab :

a. Cari U5 terlebih dahulu, setelah itu cari b dengan rumus U5 yang telah didapat :

    Un = a + (n - 1)b
    U5 = a + (5 - 1)b
         = a + 4b

    b = a + 4b = 19
          3 + 4b = 19
                4b = 19 - 3
                  b = 16/4
                  b = 4  

 b. Gunakan rumus Un = a + (n - 1)b = 31 (diketahui Un = 31) :

      Un = 31
      a + (n - 1)b = 31
      3 + (n - 1)4 = 31
      3 + 4n - 4   = 31
            4n - 1   = 31
                   4n  = 31 + 1
                     n  = 32/4
                     n  = 8

 c. suku ke-20 , dik: a = 3 , b = 4 :

       Un   = a + (n - 1) b
       U20 = 3 + (20 - 1) 4
       U20 = 3 + 80 - 4
       U20 = 80 - 1
       U20 = 79 


d. Jika Un = 51 :

      Un = 51
      a + (n - 1)b = 51
      3 + (n - 1)4 = 51
      3 + 4n - 4   = 51
            4n - 1   = 51
                   4n  = 51 + 1
                     n  = 52/4
                     n  = 13

Sekian pembahasan barisan aritmatika beserta contohnya, semoga anda mengerti dengan penjelasan di atas, tunggu artikel berikutnya. Terimakasih.

sumber : matematikapakdi[dot]blogspot[dot]com