Tugas Pemrograman Visual

Post kali ini seperti biasa akan mempublikasikan tugas pemrograman visual. Kali ini mahasiswa dituntut untuk mengkoneksikan database sederhana dengan form. Bagaimana caranya? Bagi Anda yang belum tahu caranya silahkan simak disini. Bahi Anda yang sudah paham betul cara peng-koneksiannya tidak masalah. Nah, sebenarnya bukan itu tugasnya :) hehehe

Tugas sebenarnya setelah database tersebut masuk (terkoneksi) ke form, mahasiswa harus membuat tombol berikut :
1. Baru (mengosongkan textbox dll untuk bisa diisi dengan data baru)
2. Simpan (menyimpan data yang dimasukkan & ditampilkan pada table)
3. Awal (meng-highlight rekaman data pertama)
4. Sebelumnya
5. Selanjutnya
6. Akhir(meng-highlight rekaman data terakhir)
7. Hapus

Baiklah, langsung kita coba simak bersama. Namun sebelumnya kita buat dahulu form sebagai berikut  :


Kemudian masukkan program pada masing-masing tombol.
1. Baru dan Simpan





2. Awal









4. Hapus dan Subprogram
 

 

Berikut  ini screenshot-nya :

Read More

Tugas PV 8

 I. Function dengan Return Value Berupa Array

II. Overloading Function
Fungsi yang sudah digunakan pada perintah awal digunakan oleh perintah selanjutnya.

III.   Macam-Macam Function bawaan
Fungsi bawaan adalah fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

• Fungsi Numeric
  CInt () ===> Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
  Fix ()    ===> Pemotongan suatu nilai desimal menjadi integer
  Int ()    ===> Pembuatan ke bawah suatu nilai desimal
• Fungsi String
  Left          → mengambil karakter dari sebelah kiri
  Right      → mengambil karakter dari sebelah kanan
  Mid         → mengambil karakter dari tengah
  LTrim    → membuang semua semua awal spasi yang ada disebelah kiri
  RTrim    → membuang semua semua awal spasi yang ada disebelah kanan
  Trim       → membuang semua spasi yang ada disebelah kiri dan kanan
  Len          → memberikan nilai balik integer sebagai panjang string
  LCase     → mengubah string menjadi huruf kecil semua
  UCase    → mengubah string menjadi huruf besar semua
  Str (int) → mengubah bilangan menjadi string (konversi)
  Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter
• Fungsi Matematika
  
  Val (Str)                                     → konversi string menjadi integer
  Asc(Char)                                 → konversi karakter menghasilkan nilai ascii
  Abs(Number)                         → memberikan nilai mutlak dari suatu nilai negatif
  Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal
  Sqr(Number)                          → memberikan hasil akar kuadrat dari suatu nilai
  Tan()                                           → mengembalikan nilai tangen dari argument dalam radian
  Cos()                                            → mengembalikan nilai cosinus dari argument dalam radian
  Atn()                                            → mengembalikan nilai arc tangen dari argument dalam bentuk radian
  Long()                                         → mengembalikan nilai logaritma dari argument
  CInt()                                          → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat
  Fix()                                             → pemotongan suatu nilai decimal menjadi integer
  Int()                                              → pembulatan ke bawah suatu nilai decimal
• Fungsi Tanggal dan Waktu
  Time : mencari tahu waktu saat ini atau menetapkan waktu, tergantung format
  pemakaiannya ( lihat contoh di bawah ini)
  A$ = Time ‘hasil 18:16:35 AM
  MyTime = #4:35:17 PM# ‘assign a time
  Time = MyTime ‘set system time to MyTimeNow : merekam tanggal dan waktu sekarang
  A$ = Now ‘hasil 10/8/02 18:16:35 AM Timer : menghitung  jumlah  detik  sejak tengah malam
  Start = Timer ‘hasilnya 29991
  Date : menetapkan hari pada sistem komputer
  Dim MyDate
  MyDate = #February 12, 1985 # ‘Assign a date
  Date = MyDate ‘Change system date
  DateAdd : menghasilkan Varian(Date) yang berisi tanggal baru setelah suatu interval waktu yang ditetapkan dari tanggal lama.
  DateAdd(kode_interval,jumlah_interval,tanggal_lama)
  Isi kode interval:
  
  Contoh pemakaiannya :
  Dim FirstDate As_Date ‘Declare variables
  Dim IntervalType As String
  Dim Number As Integer
  Dim Msg
  FirstDate = InputBox(“Enter a date”)
  Bynber = InputBox(“Enter number of months to add”)
  Msg = “New date : “ & DateAdd(“m”, Number, FirstDate)
  MsgBox Msg
  DateDiff : mencari interval waktu antara dua tanggal
  DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) Dim TheDate As Date ‘declare variables
  TheDate = InputBox(“Enter a date”) Msg = “Day from today : “ & DateDiff(“d”, Now, TheDate)
  MsgBox Msg
  DateSerial : menghasilkan tanggal dengan bulan/hari/tahun
  MyDate = DateSerial(1969, 2, 12) ‘Hasil 2/12/69
  DateValue : menghasilkan tanggal
  MyDate = DateValue(“February 12, 1969”) ‘Hasil 2/12/69
  Year : menghasilkan tahun sekarang
  MyYear = Year(#2/12/1969#) ‘Hasil 1969
  Month : menghasilkan bilangan integer yang menunjukkan bulan
  MyDate = #February 12, 1969# ‘Assign a date
  MyMonth = Month(MyDate) ‘MyMonth = 2
  MonthName : menghasilkan teks yang menunjukkan nama bulan
  a$ = MonthName(1, True) ‘a$ = Jan
  b$ = MonthName(1, False) ‘b$ = January
  c$ = MonthName(1) ‘c$ = January
  Day : menghasilkan integer yang menunjukkan tanggal dari data date
  MyDate = #February 12, 1969# ‘Assign a date
  MyDay = Day(MyDate) ‘MyDay berisi 12
  Hour : menghasilkan integer yang menunjukkan jam dari data timer
  MyTime = #4:35:17 PM# ‘Assign a time
  MyHour = Hour(MyTime) ‘MyHour berisi 16
  Minute : menghasilkan integer yang menunjukkan menit dari data timer
  MyTime = #4:35:17 PM# ‘Assign a time
  MyMinute = Minute(MyTime) ‘MyMinute berisi 35
  Second : menghasilkan integer yang menunjukkan detik dari data timer
  MyTime = #4:35:17 PM# ‘Assign a time
  MySecond = Second(MyTime) ‘MySecond berisi 17
  TimeSerial : menghasilkan waktu dengan jam/menit/detik
  MyTime = TimeSerial(16, 35, 17) ‘Isinya 4:35:17 PM
  TimeValue : mengubah string waktu dari pukul 0:00:00 (12:00:00 AM) sampai 23:59:59 (11:59:59 PM) menjadi data waktu
  MyTime = TimeValue(“4:35:17 PM”) ‘Isinya 4:35:17 PM
  MyTime = TimeValue(“0:00:00”) ‘Isinya 12:00:00 AM
  WeekDay : menghasilkan bilangan petunjuk hari dari suatu tanggal
  Hari = #February 12, 1969# ‘Hari Rabu
  MyweekDay = Weekday(Hari) ‘MyweekDay isinya 4
  
  WeekDayName : menghasilkan teks nama hari dalam satu minggu WeekDayName(weekday, abbreviate, firstdayofweek)
  Hari = #2/12/1969# ‘Assign a date
  MyWeekDay = Weekday(Hari) ‘MyWeekDay isinya 4
  MyTime = WeekdayName(MyWeekDay) ‘Isinya Wednesday

Read More

MDI Form, Menustrip dan Toolstrip

Bismillahirrahmanirrahim...

Post kali ini mengenai MDI Form, Menustrip dan Toolstrip.
Langsung saja sesuai tugas yang diberikan, berikut adalah ketentuan program yang harus dibuat :
========================================================================
1. Buatlah 1 induk form dan 4 anak form MDI.
2. Buatlah Menu strip : Window - tile horisontal, tile vertikal, casade untuk mengatur posisi form anak MDI.
3. Atur possisi toolbar sesuai selera ( top, bottom, center)
4. Buatlah menu strip ( design wajib menggunakan library dari pihak ke tiga)
========================================================================

# Point 1
Dalam MDI, dikenal MDI-Parent yaitu form induk/utama yang nantinya memuat form-form anak atau dikenal MDI-Child.
Untuk mengatur agar sebuah form menjadi form induk (parent), kita cukup mengatur properties form-nya sebagai berikut :

Selanjutnya, buat form-form anak (4 ekor).

Nah, agar anak-anak form ini berjalan pada induk form-nya pertama kita harus menentukan bahwa form induknya adalah form yang sedang kita buka. Kemudian baru tampilkan form anak dengan code [namaform].show( ) pada form induk.

Mendeklarasikan form sebagai Induk form MDI

Menampilkan form anak

Untuk mempermudah menampilkan form-form anak, kita masukkan Menustrip atau Toolstrip atau keduanya.
Kemudian atur agar setiap submenu atau tool yang dibuat menampilkan berapa form anak, 1, 2, 3, atau 4.

 

Toolstrip diisi dengan button

# Point 2
Buatlah sebuah menu lagi seperti berikut :

Masing-masing submenu akan mengatur posisi form-form anak.

Coding pengaturan posisi form anak MDI

 Dan berikut ini screenshotnya :

Horizontal

Vertikal

Cascade

# Point 3
Untuk point ini, pengaturan posisi toolbar yang saya buat baru sampai pada pengaturan posisi lewat menu, belum sampai drag position. Sebenarnya bisa saja membuat toolbar bisa di-drag posisinya, namun nantinya akan menutupi form anak yang ditampilkan karena menggunakan ToolstripContainer. Hingga saat post ini dibuat, saya belum menemukan metode untuk mengatur  agar toolbar dapat di-drag posisinya tanpa harus mengorbankan form anak.

Default Position

# Point 4
 Menggunakan desain dari library pihak ketiga.

Read More