ARTIKEL 24. Tanggal dan Waktu di Visual Basic

Bahasa Visual Basic memiliki dukungan yang kuat untuk nilai tanggal. Hal ini dilengkapi dengan tipe data sendiri bernama Tanggal. Untuk membuat dan memanipulasi tanggal, Anda memiliki berbagai pilihan. Untuk mendeklarasikan variabel tanggal, Anda dapat menggunakan salah satu Tanggal atau tipe data DateTime.

Sementara Tanggal adalah jenis data yang benar, DateTime adalah kelas tetapi, meskipun kita belum belajar kelas belum, kita bisa mulai menggunakan DateTime. Kami akan membatasi diri untuk menggunakannya hanya sebagai tipe data.

Kami tahu bagaimana cara mendeklarasikan sebuah variabel tanggal menggunakan Tanggal. Kita juga tahu bahwa, jika Anda sudah tahu komponen nilai tanggal yang ingin Anda gunakan, Anda dapat memasukkannya antara dua # tanda-tanda tetapi mengikuti aturan format tanggal dari Regional Settings dari Control Panel. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal DateHired = # 2003/02/08 # MsgBox ("Tanggal Dipekerjakan:" & DateHired) Kembali 0 End Function Akhir Modul

Ini akan menghasilkan: Para Bagian dari Nilai Tanggal Ketika Anda menulis nilai tanggal, Anda harus mengikuti beberapa aturan. Aturan tergantung pada bahasa yang Anda gunakan. Kami akan meninjau orang-orang dari Inggris US. Dalam satu tahun, satu bulan diakui oleh indeks dalam kisaran 1 sampai 12. Sebulan juga memiliki nama. Nama bulan diberikan dalam dua format: lengkap atau pendek. Ini adalah: Bulan Indeks Nama Lengkap Pendek Nama 1 Januari Jan 2 Februari Februari 3 Maret Merusak 4 April April 5 Mei Mei 6 Juni Juni 7 Juli Juli 8 Agustus Agustus 9 September September 10 Oktober Oktober 11 November November 12 Desember Desember Seminggu adalah kombinasi dari 7 hari berturut-turut dari bulan. Setiap hari dapat diakui oleh indeks dari 1 sampai 7 (1, 2, 3, 4, 5, 6, 7). Hari indeks masing-masing diakui oleh nama. Dalam bahasa Inggris AS, hari pertama memiliki indeks 1 bernama Minggu sementara hari terakhir dengan indeks 7 bernama Senin. Seperti bulan tahun, hari-hari seminggu memiliki nama panjang dan pendek. Ini adalah: US English Day Indeks Nama Lengkap Pendek Nama 1 Minggu Matahari 2 Senin Mon 3 Selasa Tue 4 Rabu Menikahkan 5 Kamis Thu 6 Jumat Fri 7 Sabtu Sat Ini adalah standar dalam bahasa Inggris AS. Dalam perhitungan kebanyakan, bahasa Visual Basic memungkinkan Anda untuk menentukan apa hari harus menjadi yang pertama dalam seminggu. Tahun ini dinyatakan sebagai nilai numerik. Format tanggal Dalam bahasa Inggris AS, untuk mengekspresikan nilai tanggal, Anda dapat menggunakan salah satu format berikut: mm-dd-yy mm-dd-yyyy Anda harus mulai tanggal dengan nomor yang mewakili bulan (nomor dari 1 sampai 12). Setelah nilai bulan, masukkan -. Kemudian ketik nilai hari sebagai angka antara 1 dan 28 29, 30, atau 31 tergantung pada bulan dan tahun (kabisat). Ikuti dengan -. Akhiri dengan nilai tahun 2 atau 4 digit. Berikut adalah contoh 06-12-08 atau 2006/10/08. Anda juga dapat menggunakan salah satu format berikut: dd-mmm-yyyy dd mmm yy dd mmmm-yy- dd mmmm yyyy dd-mmm-yyyy dd mmm yyyy dd mmmm-yyyy- dd mmmm yyyy Kali ini, masukkan nilai hari diikuti baik oleh ruang kosong atau -. Ikuti dengan nama pendek dari bulan dalam placeholder mmm atau nama lengkap bulan untuk placeholder mmmm, diikuti dengan baik ruang kosong atau -. Akhiri dengan nilai tahun, menggunakan 2 atau 4 digit. Seperti yang Anda mungkin sudah tahu, dalam bahasa Inggris AS, Anda dapat memulai kencan dengan bulan. Dalam hal ini, Anda dapat menggunakan salah satu format berikut: mmm dd, yy mmm dd, yyyy mmmm dd, yy mmmm dd, yyyy Seperti yang terlihat dengan format sebelumnya, mmm merupakan nama pendek dari satu bulan dan mmmm mewakili nama lengkap bulan. Seperti yang sudah disebutkan, hari dd dapat dinyatakan dengan 1 atau 2 digit dan digit tunggal dapat memiliki 0 terkemuka. Setelah nilai hari, (Anda harus) masukkan koma diikuti dengan tahun baik dengan 2 atau 4 digit. Sebuah Nilai Tanggal Kita telah melihat bahwa, saat membuat kencan, Anda dapat memasukkan nilai antara tanda-tanda #. Alternatif adalah untuk memberikan tanggal sebagai string. Untuk mendukung hal ini, bahasa Visual Basic menyediakan fungsi bernama DateValue. Sintaks-nya adalah: Publik Fungsi DateValue (ByVal StringDate As String) Sebagai DateTime Ketika memanggil fungsi ini, memberikan tanggal yang sah sebagai argumen. Validitas tergantung pada bahasa dari sistem operasi. Jika bekerja dalam bahasa Inggris AS, Anda dapat menggunakan salah satu format yang kita lihat di atas. Berikut adalah contoh: Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal DateHired = DateValue ("22-Agustus-2006") MsgBox ("Tanggal Dipekerjakan:" & DateHired) Kembali 0 End Function Ini akan menghasilkan: Sebuah Tanggal sebagai Serial Sebuah alternatif untuk menginisialisasi sebuah variabel tanggal adalah dengan menggunakan fungsi bernama DateSerial. Sintaks-nya adalah: DateSerial Fungsi Publik (ByVal [Tahun] As Integer, _ ByVal [Bulan] As Integer, _ ByVal [Hari] As Integer) Sebagai DateTime Seperti yang Anda lihat, fungsi ini memungkinkan Anda untuk menentukan tahun, bulan, dan hari dari nilai tanggal, tentu saja tanpa tanda-tanda #. Ketika telah disebut, fungsi ini mengembalikan nilai Tanggal. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal DateHired = DateSerial (2003, 02, 08) MsgBox ("Tanggal Dipekerjakan:" & DateHired) Kembali 0 End Function Akhir Modul Ketika melewati nilai-nilai ke fungsi ini, Anda harus membatasi setiap komponen untuk rentang yang diijinkan nilai. Anda dapat melewati tahun ini dengan dua angka dari 0 sampai 99. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal DateHired = DateSerial (03, 2, 8) MsgBox ("Tanggal Dipekerjakan:" & DateHired) Kembali 0 End Function Akhir Modul Jika Anda lulus tahun sebagai nilai antara 0 dan 99, compiler akan mengacu pada jam di komputer untuk mendapatkan abad. Pada saat tulisan ini (tahun 2008), abad 20 dan akan menjadi tahun yang ditentukan akan ditambahkan, yang akan menghasilkan 2003. Untuk lebih tepat dan mengurangi kebingungan, Anda selalu harus lulus tahun dengan 4 digit. Bulan harus (harus) menjadi nilai antara 1 dan 12. Jika Anda melewati nilai yang lebih tinggi dari 12, compiler akan menghitung sisa jumlah itu dengan 12 (angka MOD 12 =?). Hasil pembagian integer akan digunakan sebagai jumlah tahun dan ditambahkan ke argumen pertama. Sisanya akan digunakan sebagai bulan nilai tanggal. Misalnya, jika Anda melewati bulan sebagai 18, dengan pembagian integer akan menghasilkan 1, sehingga 1 tahun akan ditambahkan ke argumen pertama. Sisanya adalah 6 (18 MOD 12 = 6), maka bulan akan digunakan sebagai 6 (Juni). Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal DateHired = DateSerial (2003, 18, ​​8) MsgBox ("Tanggal Dipekerjakan:" & DateHired) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Sebagai contoh lain, jika Anda melewatkan bulan sebagai 226, divisi integer (226 \ 12) menghasilkan 18 dan nomor yang akan ditambahkan ke argumen pertama (2003 + 18 = 2021). Sisa dari 226 sampai 12 (226 MOD 12 = 10) adalah 10 dan yang akan digunakan sebagai bulan. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal DateHired = DateSerial (2003, 226, 8) MsgBox ("Tanggal Dipekerjakan:" & DateHired) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Jika bulan dilewatkan sebagai 0, itu dianggap 12 (Desember) dari tahun sebelumnya. Jika bulan dilewatkan sebagai -1, itu dianggap 11 (November) dari tahun sebelumnya dan seterusnya. Jika bulan dilewatkan sebagai angka yang lebih rendah dari -11, compiler akan menghitung pembagian integer untuk 12, tambahkan 1 sampai hasil tersebut, menggunakan nomor itu sebagai tahun, menghitung sisanya sampai 12, dan menggunakan hasil sebagai bulan. Tergantung pada bulan, nilai dari argumen hari dapat lulus sebagai nomor antara 1 dan 28, antara 1 dan 29, antara 1 dan 30, atau antara 1 dan 31. Jika argumen hari dilewatkan sebagai angka lebih rendah dari 1 atau lebih tinggi dari 31, compiler menggunakan hari pertama bulan berlalu sebagai argumen kedua. Ini adalah 1. Jika hari dilewatkan sebagai -1, hari ini dianggap hari terakhir dari bulan sebelumnya argumen Bulan. Misalnya, jika argumen Bulan dilewatkan sebagai 4 (April) dan argumen Hari dilewatkan sebagai -1, compiler akan menggunakan 31 sebagai hari karena hari terakhir bulan Maret adalah 31. Jika argumen Bulan dilewatkan sebagai 3 (Maret) dan argumen Hari dilewatkan sebagai -1, compiler akan mengacu pada argumen Tahun untuk menentukan apakah tahun adalah lompatan atau tidak. Hal ini akan memungkinkan compiler untuk menggunakan 28 atau 29 untuk nilai hari ini. Compiler menggunakan algoritma ini untuk setiap nilai hari berlalu sebagai argumen ketiga ketika jumlah lebih rendah dari 1. Jika argumen Hari dilewatkan dengan nilai yang lebih tinggi dari 28, 29, 30, atau 31, compiler menggunakan algoritma yang sama ini dalam urutan terbalik untuk menentukan bulan dan hari. Konversi Nilai untuk Berkencan Jika Anda memiliki nilai seperti yang disediakan sebagai string dan Anda ingin mengubahnya menjadi kencan, Anda dapat menghubungi CDate () fungsi. Sintaks-nya adalah: Fungsi CDate (Nilai Sebagai Obyek) Sebagai Tanggal Fungsi ini dapat mengambil jenis nilai tetapi nilai harus dikonversi ke tanggal yang valid. Jika fungsi berhasil konversi, menghasilkan nilai Tanggal. Jika konversi gagal, menghasilkan kesalahan. Komponen-komponen Tanggal suatu Pengantar Seperti yang terlihat sejauh ini, tanggal adalah nilai yang terbuat dari setidaknya tiga bagian: tahun, bulan, dan hari. Urutan komponen dan bagaimana mereka disatukan untuk membentuk tanggal dikenali tergantung pada bahasa dan mereka didefinisikan dalam Pengaturan Bahasa dan Regional di Control Panel. Tahun Tanggal suatu Bahasa Visual Basic mendukung tahun dari tanggal mulai dari 1 sampai 9999. Ini berarti bahwa ini adalah kisaran yang Anda dapat mempertimbangkan ketika berhadapan dengan tanggal dalam aplikasi Anda. Dalam operasi kebanyakan, saat membuat kencan, jika Anda menetapkan nilai antara 1 dan 99, compiler akan menggunakan abad ini untuk dua digit kiri. Ini berarti bahwa, pada saat tulisan ini (2008), tahun seperti 4 atau 04 akan menghasilkan di tahun 2004. Dalam kebanyakan kasus, untuk lebih tepatnya, Anda harus biasanya atau selalu menentukan tahun dengan 4 digit. Jika Anda memiliki nilai tanggal yang tahun Anda ingin mencari tahu, Anda dapat menghubungi Tahun () fungsi. Sintaks-nya adalah: Fungsi Publik Tahun (ByVal DateValue Sebagai DateTime) As Integer Seperti yang Anda lihat, fungsi ini mengambil nilai tanggal sebagai argumen. Argumen harus memegang tanggal yang valid. Jika tidak, fungsi mengembalikan tahun numerik kencan. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal = # 2004/02/08 # MsgBox ("Dalam pekerjaan karena" & Tahun (DateHired)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Bulan Year suatu Bagian bulan kencan adalah nilai numerik yang berlangsung dari 1 sampai 12. Ketika membuat kencan, Anda dapat menentukan dengan 1 atau 2 digit. Jika bulan adalah antara 1 dan 9 disertakan, Anda dapat mendahuluinya dengan 0 terkemuka. Jika Anda memiliki nilai tanggal dan ingin mendapatkan bulan, Anda dapat menghubungi Bulan () fungsi. Sintaks-nya adalah: Fungsi public Bulan (ByVal DateValue Sebagai DateTime) As Integer Fungsi ini membutuhkan objek sebagai argumen Tanggal. Jika tanggal tersebut valid, fungsi mengembalikan angka antara 1 dan 12 pada bulan tersebut. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal = # 2004/02/08 # MsgBox ("Bulan disewa" & Bulan (DateHired)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Seperti yang sudah disebutkan, fungsi Bulan menghasilkan nilai numerik yang mewakili bulan kencan. Alih-alih mendapatkan indeks numerik dari bulan kencan, jika Anda ingin mendapatkan nama bulan, Anda dapat memanggil fungsi bernama MonthName. Sintaks-nya adalah: Fungsi publik MonthName (Bulan ByVal As Integer, _ ByVal opsional menyingkat Sebagai Boolean = False) As String Fungsi ini membutuhkan satu argumen opsional yang diperlukan dan satu. Argumen yang dibutuhkan harus mewakili nilai satu bulan. Jika itu sah, fungsi ini mengembalikan nama yang sesuai. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal = # 2004/02/08 # MsgBox ("Hari disewa" & MonthName (Bulan (DateHired))) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Argumen kedua memungkinkan Anda untuk menentukan apakah Anda ingin mendapatkan lengkap atau nama pendek. Standarnya adalah nama lengkap, dalam hal nilai default dari argumen adalah False. Jika Anda ingin mendapatkan nama pendek, lulus argumen kedua sebagai Benar. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal = # 2004/02/08 # MsgBox ("Bulan disewa" & MonthName (Bulan (DateHired), True)) Kembali 0 End Function Akhir Modul Hari Bulan yang Hari adalah nilai numerik dalam sebulan. Tergantung pada bulan (dan tahun), nilainya bisa berkisar antara 1 hingga 29 (Februari di tahun kabisat), dari 1 sampai 28 (Februari di tahun non-kabisat), dari 1 sampai 31 (Januari, Maret, Mei , Juli, Agustus, Oktober, dan Desember), atau 1 sampai 30 (April, Juni, September, dan November). Jika Anda memiliki nilai tanggal dan Anda ingin tahu hari dalam setahun, Anda dapat memanggil Hari () fungsi. Sintaks-nya adalah: Fungsi public Hari (ByVal DateValue Sebagai DateTime) As Integer Fungsi ini membutuhkan kencan sebagai argumen. Jika tanggal tersebut valid, fungsi mengembalikan hari numerik di bulan argumen tanggal. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal = # 2004/02/08 # MsgBox ("Hari disewa" & Day (DateHired)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Hari Seminggu Untuk mendapatkan nama hari dalam seminggu, Anda dapat fungsi bernama WeekdayName. Sintaks-nya adalah: Fungsi publik WeekdayName (_ Hari kerja ByVal As Integer, _ ByVal opsional menyingkat Sebagai Boolean = False, _ Opsional ByVal FirstDayOfWeekValue Sebagai FirstDayOfWeek = FirstDayOfWeek.System _ ) As String Fungsi ini mengambil satu argumen opsional yang diperlukan dan dua. Argumen yang dibutuhkan harus, atau mewakili, nilai antara 0 dan 7. Jika Anda lulus sebagai 0, compiler akan mengacu pada bahasa sistem operasi untuk menentukan hari pertama minggu itu, yang dalam bahasa Inggris AS hari Minggu. Jika tidak, jika Anda lulus salah satu indeks di atas, fungsi akan mengembalikan nama sesuai hari. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer MsgBox ("Hari disewa:" & WeekdayName (4)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Jika Anda melewati sebuah nilai negatif atau nilai yang lebih tinggi dari 7, Anda akan menerima pesan kesalahan. Argumen kedua memungkinkan Anda untuk menentukan apakah Anda ingin mendapatkan lengkap atau nama pendek. Nilai default dari argumen ini adalah False, yang menghasilkan nama lengkap. Jika Anda ingin nama pendek, lulus argumen kedua sebagai Benar. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer MsgBox ("Hari disewa:" & WeekdayName (4, True)) Kembali 0 End Function Akhir Modul Seperti yang sudah disebutkan, bahasa Visual Basic memungkinkan Anda untuk menentukan apa hari harus menjadi hari pertama dalam minggu itu. Ini adalah peran argumen ketiga. Memformat Nilai Tanggal Pengantar Memformat tanggal terdiri dari menentukan bagaimana nilai akan ditampilkan kepada pengguna. Bahasa Visual Basic menyediakan berbagai pilihan. Bahasa Inggris AS mendukung dua format tanggal primer dikenal sebagai tanggal panjang dan tanggal pendek. Anda dapat memeriksa mereka di halaman properti Tanggal Options Customize Regional diakses dari Settings Regional di Control Panel: Untuk mendukung format utama, bahasa Visual Basic menyediakan fungsi bernama FormatDateTime. Sintaks-nya adalah: Fungsi FormatDateTime ( ByVal Expression Sebagai DateTime, Opsional ByVal NamedFormat Sebagai DateFormat = DateFormat.GeneralDate ) As String Argumen pertama dari fungsi ini harus menjadi nilai Tanggal valid. Argumen kedua adalah anggota dari pencacahan DateFormat. Untuk tanggal, argumen ini dapat LongDate atau ShortDate. Berikut adalah contoh: Publik Fungsi Main () As Integer Dim DateHired $ DateHired $ = FormatDateTime ("22-Aug-2006", DateFormat.LongDate) MsgBox ("Tanggal Dipekerjakan:" & DateHired) Kembali 0 End Function Ini akan menghasilkan: Menggunakan Fungsi Format Untuk mendukung lebih banyak pilihan, bahasa Visual Basic menyediakan Format () fungsi yang kita lihat dalam pelajaran sebelumnya. Kami melihat bahwa sintaks adalah: Publik Bersama Fungsi Format (_ ByVal Expression Sebagai Obyek, _ Gaya ByVal opsional As String = "" _ ) As String Ingatlah bahwa argumen pertama adalah tanggal yang perlu diformat. Argumen kedua adalah string yang berisi format untuk menerapkan. Untuk menciptakannya, Anda menggunakan kombinasi bulan, hari, dan / atau karakter tahun kami lihat sebagai format tanggal . Berikut adalah contoh: Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal = # 2006/12/28 # MsgBox ("Tanggal Dipekerjakan:" & Format (DateHired, "MMMM dd, yyyy")) Kembali 0 End Function Ini akan menghasilkan: Built-In Fungsi Waktu Pengantar Bahasa Visual Basic mendukung nilai-nilai waktu. Untuk membuat nilai waktu, Anda dapat mendeklarasikan variabel dari jenis tanggal. Untuk menginisialisasi variabel, membuat nilai yang valid menggunakan aturan yang ditetapkan dalam Regional Settings dan bahasa Control Panel, dan termasuk bahwa nilai antara dua tanda #. Berikut adalah contoh; Publik Modul Latihan Publik Fungsi Main () As Integer Dim DepositTime Sebagai Tanggal = # 07:14 # MsgBox ("Deposito Berjangka:" & DepositTime) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Menciptakan Nilai Waktu Daripada termasuk waktu dalam # tanda-tanda, Anda juga dapat memberikan sebagai string. Untuk mendukung hal ini, bahasa Visual Basic menyediakan fungsi bernama TimeValue. Sintaks-nya adalah: Publik Fungsi TimeValue (StringTime ByVal As String) Sebagai DateTime Fungsi ini mengharapkan waktu yang valid sebagai argumen. Jika argumen yang valid, fungsi mengembalikan nilai waktu. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DepositTime Sebagai Tanggal = TimeValue ("7:14") MsgBox ("Deposito Berjangka:" & DepositTime) Kembali 0 End Function Akhir Modul Sebagai alternatif untuk menginisialisasi variabel waktu, Anda dapat memanggil fungsi bernama TimeSerial. Sintaks-nya adalah: Publik Fungsi TimeSerial (Jam ByVal As Integer, _ ByVal Menit As Integer, _ Kedua ByVal As Integer) Sebagai DateTime Fungsi ini memungkinkan Anda untuk menentukan jam, menit, dan nilai-nilai kedua waktu. Jika Anda melewatkan nilai yang valid, fungsi mengembalikan waktu. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DepositTime Sebagai Tanggal DepositTime = TimeSerial (7, 14, 0) MsgBox ("Deposito Berjangka:" & DepositTime) Kembali 0 End Function Akhir Modul

Komponen dari Nilai Waktu The Jam Hari Dalam bahasa Inggris AS, waktu terbuat dari berbagai bagian. Yang pertama dari mereka adalah jam. Waktu adalah pembagian ruang tanggal 24 hari. Hal ini diwakili oleh nilai numerik antara 0 dan 23. Ketika menciptakan nilai waktu, Anda menetapkan jam di sisi kiri. Untuk mendapatkan jam waktu yang valid, Anda dapat memanggil fungsi bernama Jam. Sintaks-nya adalah: Fungsi publik Hour (ByVal TimeValue Sebagai DateTime) As Integer Fungsi ini membutuhkan nilai waktu sebagai argumen. Jika waktu yang valid dilewatkan, fungsi mengembalikan bagian jam. Acara Hour suatu Satu jam dibagi dalam 60 bagian. Masing-masing bagian disebut menit dan diwakili oleh nilai numerik antara 0 dan 59. Jika Anda memiliki nilai waktu dan ingin mendapatkan bagian menit, Anda dapat memanggil fungsi bernama Menit. Sintaks-nya adalah: Fungsi publik Menit (ByVal TimeValue Sebagai DateTime) As Integer Ketika memanggil fungsi ini, menambahkan sebuah nilai waktu. Jika argumen memegang nilai yang valid, fungsi mengembalikan angka antara 0 dan 59 dan yang mewakili menit. Para Detik Menit Semenit dibagi dalam 60 bagian dan masing-masing bagian disebut kedua. Hal ini diwakili oleh nilai numerik antara 0 dan 59. Jika Anda memiliki nilai waktu dan ingin mengekstrak bagian kedua dari itu, Anda dapat memanggil Kedua () fungsi bernama. Sintaks-nya adalah: Fungsi Umum Kedua (ByVal TimeValue Sebagai DateTime) As Integer Jika Anda memanggil fungsi ini, melewati waktu yang valid. Jika demikian, fungsi akan kembali nomor merupakan bagian detik. Operasi pada Nilai Tanggal dan Waktu Pengantar Karena tanggal dan waktu terutama dianggap sebagai nilai normal, terdapat berbagai operasi Anda dapat melakukan pada mereka. Anda dapat menambah atau mengurangi beberapa tahun atau menambah atau mengurangi beberapa bulan, dll bahasa Visual Basic menyediakan mekanisme sendiri untuk melakukan operasi tersebut berkat ke perpustakaan macam fungsi. Menambah Nilai untuk sebuah Tanggal atau Waktu yang Untuk mendukung penambahan nilai ke tanggal atau waktu, bahasa Visual Basic menyediakan fungsi bernama dateadd. Dalam bahasa Visual Basic, yang DateAdd () fungsi datang dalam dua versi yang syntaxes adalah: Publik Overloads Fungsi DateAdd (_ Interval ByVal Sebagai DateInterval, _ ByVal Number As Double, _ ByVal DateValue Sebagai DateTime _ ) Sebagai DateTime '-Atau- Publik Overloads Fungsi DateAdd (_ Interval ByVal As String, _ ByVal Number As Double, _ ByVal DateValue Sebagai Obyek _ ) Sebagai DateTime Fungsi ini membutuhkan tiga argumen bahwa semua yang diperlukan. Karena kita belum mempelajari enumerations dan kelas belum, kita akan mengabaikan versi pertama. Argumen DateValue adalah nilai tanggal atau waktu di mana Anda ingin melakukan operasi ini. Ini harus menjadi Tanggal valid atau nilai DateTime. Argumen Interval dilewatkan sebagai string. Ini menentukan jenis nilai yang ingin Anda tambahkan. Argumen ini akan tertutup antara tanda kutip ganda dan dapat memiliki salah satu dari nilai berikut: Selang Digunakan Untuk Tambah s Kedua n Menit h Jam w Numeric Hari kerja ww Minggu of the Year d Hari y Numeric Hari of the Year m Bulan q Perempat tttt Tahun Argumen Nomor menentukan jumlah unit Interval Anda ingin menambah nilai DateValue. Jika Anda menetapkan sebagai positif, nilainya akan ditambahkan. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim LoanStartDate Sebagai Tanggal = # 1998/06/10 # Dim DepositTime Sebagai Tanggal = TimeValue ("07:14:00") MsgBox ("Pinjaman Panjang:" & DateAdd ("yyyy", 5, LoanStartDate)) MsgBox ("Waktu Ready:" & DateAdd ("h", 8, DepositTime)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Kami melihat bahwa, untuk menambahkan nilai ke tanggal atau waktu, Anda bisa memanggil DateAdd () fungsi. Argumen pertama dari fungsi ini membawa argumen yang dimiliki penghitungan bernama DateInterval. Alih-alih termasuk karakter atau kombinasi dari karakter dalam tanda kutip ganda dengan kemungkinan kesalahan, pencacahan ini membuatnya mudah dengan memungkinkan Anda untuk memilih anggota dari pencacahan dan menggunakan nama mudah dikenali. Para anggota pencacahan DateInterval adalah: String Interval Pencacahan Anggota Digunakan Untuk Tambah s DateInterval.Second Kedua n DateInterval.Minute Menit h DateInterval.Hour Jam w DateInterval.Weekday Numeric Hari kerja ww DateInterval.WeekOfYear Minggu of the Year d DateInterval.Day Hari y DateInterval.DayOfYear Numeric Hari of the Year m DateInterval.Month Bulan q DateInterval.Quarter Perempat tttt DateInterval.Year Tahun Perhatikan bahwa dengan menggunakan pencacahan DateInterval sebagai argumen, interval dipilih lebih mudah untuk memilih. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim LoanStartDate Sebagai Tanggal = # 1998/06/10 # Dim DepositTime Sebagai Tanggal = TimeValue ("07:14:00") MsgBox ("Pinjaman Panjang:" & DateAdd (DateInterval.Year, 5, LoanStartDate)) MsgBox ("Waktu Ready:" & DateAdd (DateInterval.Hour, 8, DepositTime)) Kembali 0 End Function Akhir Modul Mengurangkan Nilai suatu Dari Tanggal atau Waktu yang Alih-alih menambahkan nilai ke tanggal atau nilai waktu, Anda mungkin ingin mengurangi. Untuk melakukan operasi ini, lulus argumen Nomor sebagai nilai negatif. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim LoanPayDate Sebagai Tanggal = # 2008/08/12 # Dim TimeReady Seperti Tanggal = TimeValue ("17:05") MsgBox ("Pinjaman Panjang:" & DateAdd ("m", -48, LoanPayDate)) MsgBox ("Waktu Deposit:" & DateAdd ("n", -360, TimeReady)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Perbedaan Antara Dua Nilai Tanggal atau Waktu Operasi lain yang berharga yang dilakukan terdiri dari menemukan perbedaan antara dua nilai tanggal atau waktu. Untuk membantu Anda melakukan operasi ini, bahasa Visual Basic menyediakan fungsi bernama DateDiff. Fungsi ini memungkinkan Anda untuk menemukan jumlah detik, menit, jam, hari, minggu, bulan, atau tahun dari dua nilai tanggal atau waktu yang valid. Fungsi DateDiff mengambil argumen 5, 3 dan 2 yang diperlukan adalah opsional. Rumus fungsi ini Publik Overloads Fungsi DateDiff (_ ByVal Sebagai Interval [DateInterval | String], _ ByVal Date1 Sebagai DateTime, _ ByVal date2 Sebagai DateTime, _ Opsional ByVal dayOfWeek Sebagai FirstDayOfWeek = FirstDayOfWeek.Sunday, _ Opsional ByVal WeekOfYear Sebagai FirstWeekOfYear = FirstWeekOfYear.Jan1 _ ) As Long Fungsi ini membutuhkan waktu lima argumen, tiga dari yang dibutuhkan dan dua adalah opsional. Argumen Date1 dapat menjadi tanggal awal atau waktu mulai. Argumen date2 dapat menjadi tanggal akhir atau waktu akhir. Kedua argumen ini juga dapat dibalik, dalam hal argumen date2 dapat menjadi tanggal awal atau waktu mulai dan argumen Date1 akan menjadi tanggal akhir atau waktu akhir. Kedua nilai harus berlaku tanggal atau waktu nilai Argumen Interval menentukan jenis nilai yang Anda inginkan sebagai hasilnya. Argumen ini akan tertutup antara tanda kutip ganda dan dapat memiliki salah satu dari nilai berikut: Selang Digunakan Untuk Dapatkan s Kedua n Menit h Jam w Numeric Hari kerja ww Minggu of the Year d Hari y Numeric Hari of the Year m Bulan q Perempat tttt Tahun Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim LoanStartDate Sebagai Tanggal = # 2003/08/12 # Dim LoanEndDate Sebagai Tanggal = # 2008/10/05 # Dim Bulan Seperti DateDiff = Panjang ("m", LoanStartDate, LoanEndDate) MsgBox ("Pinjaman Tanggal Mulai:" & vbTab & LoanStartDate & vbCrLf & _ "Pinjaman Akhir Tanggal:" & vbTab & LoanEndDate & vbCrLf & _ "Pinjaman Panjang:" & vbTab & Bulan & "bulan") Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Secara default, hari-hari minggu dihitung mulai pada hari Minggu. Jika Anda ingin mulai menghitung hari-hari pada hari yang lain, pasokan argumen option1 menggunakan salah satu dari nilai berikut: vbSunday, vbMonday, vbTuesday, vbWednesday, vbThursday, vbFriday, vbSaturday. Ada varian lain untuk argumen itu. Jika perhitungan Anda melibatkan minggu atau menemukan jumlah minggu, secara default, minggu dihitung mulai 1 Januari. Jika Anda ingin menghitung minggu Anda mulai pada tanggal yang berbeda, menggunakan argumen Option2 untuk menentukan mana program harus dimulai. Kami melihat bahwa kita bisa menggunakan DateDiff () fungsi untuk mendapatkan perbedaan antara dua nilai tanggal atau waktu. Argumen pertama dapat ditentukan sebagai string. Sebuah ide yang lebih baik adalah dengan menggunakan anggota dari pencacahan DateInterval. Dua yang terakhir argumen dari fungsi ini adalah tipe enumerasi. Argumen keempat memungkinkan Anda untuk menentukan apa hari harus dipertimbangkan pertama dalam seminggu. Secara default, dalam bahasa Inggris AS, hari pertama adalah hari Minggu. Untuk mengubah ini, gunakan anggota dari pencacahan FirstDayOfWeek. Para anggota adalah: Pencacahan Anggota Konstan Nilai Deskripsi FirstDayOfWeek.System 0 Compiler akan merujuk pada sistem operasi untuk mencari tahu hari apa harus menjadi yang pertama. Dalam bahasa Inggris AS, ini harus Minggu FirstDayOfWeek.Sunday 1 Minggu (default dalam bahasa Inggris AS) FirstDayOfWeek.Monday 2 Senin FirstDayOfWeek.Tuesday 3 Selasa FirstDayOfWeek.Wednesday 4 Rabu FirstDayOfWeek.Thursday 5 Kamis FirstDayOfWeek.Friday 6 Jumat FirstDayOfWeek.Saturday 7 Sabtu Secara default, minggu pertama tahun adalah salah satu yang mencakup 1 Januari tahun itu. Ini adalah bagaimana hal itu dianggap di tanggal berbasis perhitungan biasa. Jika Anda ingin mengubah pengaturan default, Anda dapat menggunakan argumen terakhir dari fungsi DateDiff (). Nilai argumen ini adalah dari pencacahan bernama FirstWeekofYear. Para anggota pencacahan ini adalah: Pencacahan Anggota Konstan Nilai Deskripsi FirstWeekOfYear.System 0 Compiler akan merujuk pada sistem operasi untuk mencari tahu hari apa harus menjadi yang pertama. Ini harus menjadi minggu yang meliputi 1 Januari FirstWeekOfYear.Jan1 1 Ini akan menjadi minggu yang meliputi 1 Januari FirstWeekOfYear.FirstFourDays 2 Ini akan menjadi minggu pertama yang mencakup setidaknya 4 hari pertama tahun FirstWeekOfYear.FirstFullWeek 3 Ini akan menjadi minggu pertama yang mencakup 7 4 hari pertama tahun ini

Rumah	http://translate.google.co.id/translate?hl=id&langpair=en|id&u=http://www.functionx.com/visualbasic/topics/datetime.htm&ei=3t–UISRMsLLmAWVg4G4AQ

ARTIKEL 23. VISUAL BASIC STRING

Seperti yang terlihat dalam Pelajaran 3, string adalah satu atau kombinasi dari karakter. Untuk mendeklarasikan variabel untuk itu, Anda dapat menggunakan salah satu atau jenis String Obyek data. Untuk menginisialisasi variabel, menempatkan nilai dalam tanda kutip ganda dan assign ke variabel. Berikut adalah contoh:

Publik Modul Latihan Publik Fungsi Main () As Integer Dim FirstName Sebagai Obyek Dim LastName As String FirstName = "William" LastName = "Sansen" Kembali 0 End Function Akhir Modul

Memproduksi Suara Bip Jika Anda ingin, Anda dapat membuat komputer menghasilkan bunyi sebuah suara dalam menanggapi sesuatu, apa saja. Untuk mendukung hal ini, bahasa Visual Basic menyediakan fungsi yang disebut Bunyi. Sintaks-nya adalah: Public Sub Beep () Berikut adalah contoh menyebutnya: Modul Latihan Publik Fungsi Main () As Integer Beep () Kembali 0 End Function Akhir Modul Jika fungsi ini disebut ketika sebuah program sedang berjalan, komputer mengeluarkan suara singkat. String konkatenasi Seperti yang terlihat dalam Pelajaran 2, penggabungan string terdiri dari penambahan satu string yang lain. untuk mendukung operasi ini, Anda dapat menggunakan salah + atau operator &. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim FirstName Sebagai Obyek Dim LastName As String Dim nama lengkap As String FirstName = "William" LastName = "Sansen" FullName = LastName + "," & FirstName MsgBox ("Nama Lengkap:" & nama lengkap) Kembali 0 End Function Jika Anda memiliki banyak string untuk menambah string utama, Anda dapat menggunakan baik + = atau operator & =. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim nama lengkap As String FullName = "Sansen" Nama lengkap + = "," Nama lengkap + = "William" MsgBox ("Nama Lengkap:" & nama lengkap) Kembali 0 End Function Akhir Modul Pengantar Karakter Karakter Duplikasi Dalam Pelajaran 3, kami memiliki pengenalan singkat string . Kami belajar bahwa string adalah kombinasi karakter. Dari pengetahuan kita menggunakan komputer, kita tahu bahwa, untuk membuat sebuah string, kita dapat menekan karakter yang diinginkan pada keyboard. Contoh dari string akan menjadi: “Produksi”. Untuk memiliki karakter berulang dalam sebuah string, Anda dapat menekan tombol sebagai sebanyak yang Anda inginkan. Misalnya, dalam “kerjasama”, Anda akan tekan o dua kali. Untuk melakukan pemrograman seperti operasi, yaitu, untuk menduplikasi karakter dalam sebuah string, Anda dapat menghubungi strdup () fungsi. Fungsi ini disediakan dalam dua versi yang syntaxes adalah: Publik Bersama Fungsi strdup (_ ByVal Number As Integer, _ Karakter ByVal Sebagai {Char | String} _ ) As String '-Atau- Publik Bersama Fungsi strdup (_ ByVal Number As Integer, _ Karakter ByVal Sebagai Obyek _ ) Sebagai Obyek Argumen kedua adalah karakter yang akan digandakan. Argumen pertama menetapkan jumlah kali untuk menirunya. Berikut adalah contoh: Publik Fungsi Main () As Integer Mulai Dim Sebagai Char = "Kita perlu c Anda" Akhir Dim $ = "peration untuk mempercepat hal ini" Dim Hasil $ Hasil $ = Mulai & strdup (2, "o") & Akhiri $ MsgBox (Hasil $) Kembali 0 End Function Ekspresi Karakter Konversi Jika Anda memiliki seperti string, Anda mungkin tertarik pada karakter individu yang dikandungnya. Dalam Pelajaran 3, kita juga melihat bahwa, untuk mengubah ekspresi ke karakter, Anda dapat menghubungi CCHAR () fungsi. Sintaks-nya adalah: Fungsi CCHAR (Ekspresi ByVal Sebagai Obyek) Sebagai Char Fungsi ini mengambil nilai sebagai argumen. Argumen harus dikonversi ke karakter. Jika demikian, fungsi mengembalikan karakter. Mendapatkan Karakter ASCII Nomor Karakter yang digunakan dalam bahasa Inggris AS dan karakter yang paling umum Latin berbasis bahasa diciptakan dalam daftar atau peta kode karakter. Masing-masing karakter diwakili dengan sejumlah kecil antara 0 dan 255. Ini berarti bahwa masing-masing karakter harus cocok dalam byte. Untuk membantu Anda menemukan karakter ASCII setara seperti angka, bahasa Visual Basic menyediakan fungsi bernama Chr. Sintaks-nya adalah: Publik Fungsi Chr (ByVal charcode As Integer) Sebagai Char Ketika memanggil fungsi ini, melewati sejumlah kecil sebagai argumen. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim Karakter Sebagai Char Dim Jumlah As Integer Nomor = 114 Karakter = Chr (Nomor) MsgBox ("Karakter ASCII dari" & Nomor & "adalah" & Karakter) Kembali 0 End Function Mendapatkan Karakter ASCII Luas Nomor Jika Anda melewati angka yang lebih rendah dari 0 atau lebih tinggi dari 255 ke fungsi Chr (), Anda akan menerima pesan kesalahan. Alasan Anda mungkin melewati angka lebih tinggi dari 255 adalah bahwa Anda mungkin ingin mendapatkan karakter melampaui orang-orang AS Inggris, seperti â. Untuk mendukung nomor tersebut, bahasa Visual Basic menyediakan versi lain dari fungsi. Sintaks-nya adalah: Publik Fungsi ChrW (ByVal charcode As Integer) Sebagai Char The W sini mewakili Karakter lebar. Hal ini memungkinkan untuk menyimpan karakter dalam memori setara dengan tipe data Pendek integer, yang dapat menampung angka dari -32.768 ke 32767. Biasanya, Anda harus mempertimbangkan bahwa karakter harus sesuai dengan tipe data Char, yang harus angka positif antara 0 dan 65535. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim Karakter Sebagai Char Dim Nomor Sebagai Pendek Nomor = 358 Karakter = ChrW (Nomor) MsgBox ("Karakter ASCII dari" & Nomor & "adalah" & Karakter) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: The Panjang String Salah satu karakteristik paling mendasar dari string adalah jumlah karakter yang dikandungnya. Jumlah ini disebut sebagai panjang string. Untuk membantu Anda dengan mencari panjang string, bahasa Visual Basic menyediakan fungsi bernama Len. Sintaks-nya adalah: Publik Bersama Fungsi Len (Ekspresi ByVal As String) As Integer Fungsi ini mengharapkan string sebagai argumen. Jika fungsi berhasil menghitung jumlah karakter, yang biasanya tidak, ia mengembalikan integer. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim Barang As String Dim Panjang As Integer Item = "Televisi" Panjang = Len (Barang) MsgBox ("Jumlah karakter dalam" "" & Barang & "" "adalah" & Panjang) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Karakter, String, dan Prosedur Melewati Karakter atau String ke sebuah Prosedur Seperti nilai normal, karakter atau string dapat dikirimkan ke prosedur. Ketika membuat prosedur, masukkan argumen dan namanya dalam kurung dari prosedur. Kemudian, dalam tubuh prosedur, menggunakan argumen sesuai keinginan Anda. Berikut adalah contoh: Publik Modul Latihan Private Sub Tampilkan (ByVal GDR Sebagai Char) MsgBox (GDR) End Sub Akhir Modul Saat memanggil prosedur, Anda dapat melewati nilai untuk argumen dalam tanda kutip ganda. Berikut adalah contoh: Publik Modul Latihan Private Sub Tampilkan (Sex ByVal Sebagai Char) MsgBox (Sex) End Sub Publik Fungsi Main () As Integer Tampilkan ("F") Kembali 0 End Function Akhir Modul Dengan cara yang sama, Anda dapat menerapkan salah satu fitur yang kami pelajari untuk prosedur, termasuk lulus sebagai argumen yang Anda inginkan atau melewati campuran karakter, string, dan jenis-jenis argumen. Anda juga dapat membuat prosedur yang menerima argumen opsional. Mengembalikan Karakter atau String Dari Fungsi Untuk membuat sebuah fungsi yang mengembalikan sebuah karakter atau string, membuat prosedur dengan menggunakan kata kunci Fungsi dan, di sisi kanan dari tanda kurung, termasuk tipe data Char atau String didahului oleh kata kunci Sebagai. Berikut adalah contoh yang kita lihat dalam Pelajaran 5: Publik Modul Latihan Fungsi GetFullName $ () FirstName Dim $, LastName $ FirstName = InputBox ("Masukkan Nama:") LastName = InputBox ("Masukkan Nama Belakang:") Kembali LastName & "," & FirstName End Function Akhir Modul Ketika memanggil fungsi, Anda dapat menggunakannya sebagai prosedur normal atau Anda dapat mengambil nilai itu kembali dan menggunakannya sesuai keinginan Anda. Berikut adalah contoh: Publik Modul Latihan Fungsi GetFullName $ () FirstName Dim $, LastName $ FirstName = InputBox ("Masukkan Nama:") LastName = InputBox ("Masukkan Nama Belakang:") GetFullName = LastName & "," & FirstName End Function Private Sub Tampilkan (Nama ByVal As String, ByVal As String GDR) MsgBox ("= - = Pendaftaran Mahasiswa = - =" & vbCrLf & _ "Nama Lengkap:" & Nama & vbCrLf & _ "Gender:" & vbTab & GDR) End Sub Publik Fungsi Main () As Integer Dim nama lengkap As String FullName = GetFullName () Tampilkan (nama lengkap, "Unknown") Kembali 0 End Function Akhir Modul Berikut adalah contoh menjalankan program: Dengan cara yang sama, Anda dapat menerapkan salah satu fitur dari prosedur dan fungsi kita belajar di Pelajaran 5 dan 6. Karakter dari String Mendapatkan Karakter Dari Posisi dalam String Seperti yang sudah disebutkan, string adalah kombinasi dari simbol atau karakter. Contohnya adalah “Televisi”. Setiap karakter dalam sebuah string memiliki posisi diindeks dari 1 sampai karakter terakhir: T e l e v i s i o n 1 2 3 4 5 6 7 8 9 10 Untuk mengetahui apa karakter menempati posisi tertentu dalam sebuah string, Anda dapat menghubungi getchar () fungsi. Sintaks-nya adalah: Publik Bersama Fungsi getchar (_ ByVal str As String, _ Indeks ByVal As Integer _ ) Sebagai Char Argumen pertama adalah string yang akan dipertimbangkan. Jika Anda melewatkan argumen ini sebagai string kosong atau Tidak, Anda akan menerima pesan kesalahan. Argumen kedua adalah posisi yang akan dipertimbangkan dalam string. Nilai harus antara 1 dan panjang string. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim Barang As String Item = "Televisi" MsgBox ("Karakter di posisi 5 adalah" & getchar (Item, 5)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Mendapatkan Setara Numeric ASCII Karakter Jika Anda memiliki karakter dan ingin menemukan karakter yang setara, Anda dapat menghubungi Asc () fungsi. Sintaks-nya adalah: Overloads publik Fungsi Asc (ByVal String Sebagai Char) As Integer Fungsi ini mengambil karakter sebagai argumen. Jika fungsi ini berhasil, ia mengembalikan setara numerik. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim Karakter Sebagai Char Dim Jumlah As Integer Karakter = "W" Nomor = Asc (Karakter) MsgBox ("Jumlah" & Karakter & "adalah" & Nomor) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Karakter dan String Konversi Pengantar Dalam Pelajaran 3, kita melihat bahwa, untuk mengubah ekspresi ke string, Anda dapat menghubungi CStr () fungsi. Sintaks-nya adalah: Publik Fungsi CSTR (Ekspresi ByVal Sebagai Obyek) As String Argumen dapat hampir ekspresi apapun tetapi compiler harus mampu mengubahnya menjadi string, yang dalam banyak kasus bisa. Jika itu berhasil, fungsi mengembalikan string. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim DateHired Sebagai Tanggal DateHired = # 2005/01/04 # MsgBox ("Tanggal Dipekerjakan:" & CStr (DateHired)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: The CStr () fungsi digunakan untuk mengkonversi semua jenis nilai string. Jika nilai yang akan dikonversi adalah angka, Anda dapat menggunakan Str () fungsi. Sintaks-nya adalah: Publik Bersama Fungsi Str (Nomor ByVal Sebagai Obyek) As String Fungsi ini mengharapkan sejumlah sebagai argumen. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim Jumlah As Double Nomor = 1450,5 / 2 MsgBox ("1.450,50 / 2 =" & Str (Number)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Numeric Konversi Heksadesimal Dalam Pelajaran 3, kami melihat bahwa bahasa Visual Basic mendukung nomor heksadesimal dan kita melihat bagaimana untuk menginisialisasi variabel integer dengan angka heksadesimal. Sekarang, di sisi lain, jika Anda memiliki angka desimal tetapi membutuhkannya dalam format heksadesimal, Anda bisa mengubahnya. Untuk mendukung operasi ini, Anda dapat menghubungi Hex () fungsi. Sintaks-nya adalah: Publik Bersama Fungsi Hex (_ ByVal Nomor Seperti {Byte | SByte | Pendek | USHORT | Integer | UInteger | Panjang | ULong | Obyek} _ ) As String Fungsi ini digunakan untuk mengkonversi baik integer-based atau angka desimal ke heksadesimal setara nya. Ia mengembalikan hasil sebagai string. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim Nomor Sebagai UInteger Nomor = 286.345 MsgBox (CSTR (Number) & "dalam format heksadesimal adalah" & Hex (Nomor)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Numeric Oktal Konversi Jika Anda memiliki angka desimal yang akan dikonversi ke format oktal, Anda dapat memanggil fungsi Okt (). Sintaks-nya adalah: Publik Bersama Fungsi Okt (_ ByVal Nomor Seperti {Byte | SByte | Pendek | USHORT | _ Integer | UInteger | Panjang | ULong | Obyek} _ ) As String Fungsi ini mengambil nomor integer berbasis atau desimal dan mengkonversi yang setara oktal. Ia mengembalikan hasil sebagai string. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim Jumlah As Integer Nomor = 286.345 MsgBox (CSTR (Number) & "dalam format oktal adalah" & Okt (Nomor)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Kasus Konversi Jika Anda disajikan dengan string atau ekspresi yang kasusnya harus sama, Anda dapat mengkonversi semua karakter yang baik dalam huruf besar atau huruf kecil. Untuk mengkonversi karakter, string atau ekspresi menjadi huruf besar, Anda dapat menghubungi UCase () fungsi. Fungsi-fungsi ini mengambil satu argumen sebagai string atau ekspresi yang harus dipertimbangkan. Para syntaxes adalah: Publik Bersama Fungsi UCase (Nilai ByVal Sebagai Char) Sebagai Char Publik Bersama Fungsi UCase (Nilai ByVal As String) As String Versi pertama menerima karakter sebagai argumen. Jika karakter sudah dalam huruf besar, itu akan kembali sama. Jika karakter bukan karakter dibaca, konversi tidak akan terjadi dan fungsi akan mengembalikannya. Jika karakter dalam huruf kecil, itu akan diubah menjadi huruf besar dan fungsi kemudian akan kembali setara dengan huruf besar. Versi kedua menganggap argumen yang diberikan sebagai string. Setiap surat yang ada di huruf kecil dalam string akan dikonversi ke huruf besar. Setiap surat yang dalam huruf besar akan dipertahankan dan tidak akan berubah. Setiap karakter non-abjad dalam string akan terus “sebagaimana adanya”. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim ProgrammingEnvironment As String ProgrammingEnvironment = "Microsoft Visual Basic 2008 Express Edition" MsgBox (UCase (ProgrammingEnvironment)) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Untuk mengkonversi karakter atau string ke huruf kecil, Anda dapat menghubungi lcase () fungsi. Hal ini kelebihan beban dalam dua versi yang syntaxes adalah: Publik Bersama Fungsi lcase (Nilai ByVal Sebagai Char) Sebagai Char Publik Bersama Fungsi lcase (Nilai ByVal As String) As String Versi pertama menerima karakter sebagai argumen. Jika karakter tidak simbol dibaca, itu akan terus “sebagaimana adanya”. Jika karakter dalam huruf kecil, itu tidak akan diubah. Jika karakter dalam huruf besar, itu akan diubah menjadi huruf kecil. Versi kedua dari fungsi menerima string sebagai argumen. Setiap surat dalam huruf besar dalam string akan dikonversi menjadi huruf kecil. Setiap surat yang dalam huruf kecil tidak akan berubah. Setiap karakter non-abjad dalam string akan terus “sebagaimana adanya”. Selain UCase () dan fungsi lcase (), untuk mengkonversi kasus dari karakter dalam string, bahasa Visual Basic menyediakan fungsi StrConv (). Sintaks-nya adalah: Publik Bersama Fungsi StrConv (_ ByVal str As String, _ Konversi ByVal Sebagai Microsoft.VisualBasic.VbStrConv, _ Opsional ByVal LocaleID As Integer, ) As String Fungsi ini menghasilkan string. Argumen pertama dari fungsi ini adalah string karakter yang akan dikonversi. Argumen kedua menentukan apa jenis konversi akan dilakukan. Argumen ini merupakan anggota dari pencacahan VbStrConv. Dari apa yang telah kita pelajari sejauh ini, argumen ini dapat memiliki salah satu dari nilai berikut: VbStrConv.None: Tidak akan ada konversi VbStrConv.UpperCase: Ini akan memiliki efek yang sama seperti fungsi $ UCase. Ini mengubah karakter argumen pertama untuk huruf besar. Berikut adalah contoh: Publik Fungsi Main () As Integer Dim ProgrammingEnvironment As String Dim Hasil $ ProgrammingEnvironment = "Microsoft Visual Basic 2008 Express Edition" Hasil $ = $ StrConv (ProgrammingEnvironment, VbStrConv.Uppercase) MsgBox (Hasil $) Kembali 0 End Function VbStrConv.LowerCase: Ini akan memiliki efek yang sama seperti fungsi $ lcase. Ini mengubah karakter argumen pertama untuk huruf kecil VbStrConv.ProperCase: Karakter pertama dari setiap kata dari argumen pertama akan dikonversi ke huruf besar. Berikut adalah contoh: Publik Fungsi Main () As Integer Dim MCQ $ Dim Hasil $ MCQ $ = "Pilihan pemeriksaan pertanyaan ganda" Hasil $ = $ StrConv (MCQ $, VbStrConv.ProperCase) MsgBox (Hasil $) Kembali 0 End Function Ini akan menghasilkan: Argumen terakhir adalah opsional. Hal ini memungkinkan Anda untuk menentukan bahwa bahasa yang aturan akan digunakan untuk mengarahkan konversi. Secara default, compiler mengacu pada bahasa sistem operasi. Dalam kebanyakan komputer di Amerika Serikat, ini akan menjadi US English. Jika karena alasan tertentu, Anda ingin menerapkan aturan yang berbeda, menentukan bahasa sebagai argumen ketiga. Sub-String dari String Pengantar Sebuah string sub-adalah karakter atau sekelompok karakter atau simbol-simbol yang merupakan bagian dari string yang ada. Bahasa Visual Basic menyediakan fungsi untuk membuat, memanipulasi atau mengelola sub-string. Aturan utama untuk diingat adalah bahwa string sub-merupakan bagian dari, dan tergantung pada, string. Dengan kata lain, Anda tidak dapat memiliki sub-string jika Anda tidak memiliki string di tempat pertama. Sub-String Kiri String Jika Anda memiliki sebuah string yang ada tetapi ingin membuat string baru menggunakan sejumlah karakter dari karakter sisi kiri string, Anda dapat menggunakan Kiri () fungsi. Sintaks-nya adalah: Publik Bersama Fungsi Left (str ByVal As String, ByVal As Integer Panjang) As String Fungsi membutuhkan dua argumen dan keduanya diperlukan. Argumen pertama adalah string yang ada. Argumen kedua adalah jumlah karakter dihitung dari sisi kiri string. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim Proses As String Proses = "belajar" MsgBox ("To" & Left (Process, 5) & "adalah untuk mendapatkan pemahaman") Kembali 0 End Function Akhir Modul Ini akan menghasilkan: String Sub-Hak String Untuk membuat string baru menggunakan satu atau lebih karakter dari sisi kanan string yang ada, memanggil fungsi bernama Kanan. Sintaks-nya adalah: Publik Bersama Fungsi Kanan (str ByVal As String, ByVal As Integer Panjang) As String Kedua argumen yang diperlukan. Argumen pertama adalah string asli. Argumen kedua adalah jumlah karakter dihitung dari sisi kanan string. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim ProgrammingEnvironment As String ProgrammingEnvironment = "Microsoft Visual Basic" MsgBox ("Q" & Kanan (ProgrammingEnvironment, 5) & "di MS DOS 5.2") Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Sub-String Mid of String Anda mungkin ingin membuat sebuah string menggunakan beberapa karakter baik dari kiri, dari kanan, atau dari suatu tempat di dalam string yang sudah ada. Untuk membantu Anda dengan ini, bahasa Visual Basic menyediakan fungsi bernama Mid. Sintaks-nya adalah: Publik Modul Latihan Publik Fungsi Main () As Integer Dim ProgrammingEnvironment As String ProgrammingEnvironment = "Microsoft Visual Basic 2008 Express Edition" MsgBox ("The" & Mid (ProgrammingEnvironment, 10, 13) & "bahasa") Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Mencari String Sub- Salah satu operasi yang paling biasa Anda akan tampil pada string terdiri dari mencari tahu apakah mengandung karakter tertentu atau kelompok tertentu yang berdekatan karakter. Untuk membantu Anda dengan operasi ini, bahasa Visual Basic menyediakan fungsi InStr (). Hal ini dipenuhi dengan dua versi yang syntaxes adalah: Publik Bersama Fungsi InStr (_ ByVal string1 As String, _ ByVal string2 As String, _ Opsional ByVal Bandingkan Sebagai CompareMethod _ ) As Integer '-Atau- Publik Bersama Fungsi InStr (_ Mulai ByVal As Integer, _ ByVal string1 As String, _ ByVal string2 As String, _ Opsional ByVal Bandingkan Sebagai Microsoft.VisualBasic.CompareMethod _ ) As Integer Dalam versi pertama dari fungsi, argumen string1 adalah string yang operasi akan dilakukan. Argumen string2 adalah karakter atau string sub-untuk mencari. Jika string2 ditemukan dalam string1 (sebagai bagian dari string1), fungsi mengembalikan posisi karakter pertama. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim ProgrammingEnvironment As String ProgrammingEnvironment = "Microsoft Visual Basic Express Edition" MsgBox ("Dalam" & ProgrammingEnvironment & "," "Basic" "ditemukan pada posisi" & _ InStr (ProgrammingEnvironment, "Basic")) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Versi pertama dari fungsi meminta penerjemah untuk memeriksa string1 dari kiri mencari string2. Jika string1 berisi lebih dari satu contoh dari string2, fungsi kembali (hanya) posisi contoh pertama. Setiap contoh selanjutnya lainnya akan diabaikan. Jika Anda ingin melewatkan contoh pertama atau ingin penafsir mulai memeriksa dari posisi lain selain karakter kiri, gunakan versi kedua. Dalam hal ini, argumen mulai memungkinkan Anda untuk menentukan posisi awal dari mana untuk memulai mencari string2 string1 dalam. The InStr () fungsi digunakan untuk memulai memeriksa string dari sisi kiri. Jika Anda ingin mulai memeriksa dari sisi kanan, memanggil InStrRev () fungsi. Sintaks-nya adalah: Publik Fungsi InStrRev ( ByVal StringCheck As String, ByVal StringMatch As String, Opsional ByVal Mulai As Integer = -1, ByVal opsional Bandingkan Sebagai CompareMethod = CompareMethod.Binary ) As Integer Mengganti Karakter atau String Sub-in String Setelah menemukan karakter atau di dalam sub-string dari string, Anda dapat mengambil tindakan di atasnya. Salah satu operasi Anda dapat melakukan terdiri dari menggantikan bahwa karakter atau sub-string dengan karakter lain atau sub-string. Untuk melakukan hal ini, bahasa Visual Basic menyediakan Replace () fungsi. Sintaks-nya adalah: Publik Fungsi Replace ( ByVal Expression As String, Cari ByVal As String, Penggantian ByVal As String, Opsional ByVal Mulai As Integer = 1, Opsional ByVal Hitung As Integer = -1, ByVal opsional Bandingkan Sebagai CompareMethod = CompareMethod.Binary ) As String Argumen pertama adalah string yang operasi akan dilakukan. Argumen kedua adalah karakter atau string yang harus dicari dalam Ekspresi. Jika itu karakter atau string ditemukan, argumen ketiga adalah karakter atau string untuk menggantinya dengan. Berikut adalah contoh: Publik Modul Latihan Publik Fungsi Main () As Integer Dim ProgrammingEnvironment As String ProgrammingEnvironment = "Microsoft Visual Basic 2008 Express Edition" MsgBox (Ganti (ProgrammingEnvironment, "Basic", "C + +")) Kembali 0 End Function Akhir Modul Ini akan menghasilkan: Lain Operasi pada String Membalikkan String Setelah string telah diinisialisasi, salah satu operasi Anda dapat melakukan di atasnya terdiri dari membalikkan itu. Untuk melakukan ini, Anda dapat menghubungi StrReverse () fungsi. Sintaks-nya adalah: Fungsi publik StrReverse (Ekspresi ByVal As String) As String Fungsi ini mengambil sebagai argumen string yang perlu dibalik. Setelah melakukan operasi, fungsi mengembalikan string baru yang terbuat dari karakter dalam urutan terbalik. Berikut adalah contoh: Publik Fungsi Main () As Integer Dim strValue As String Dim StrRev As String StrValue = "République d'Afrique du Sud" StrRev = StrReverse (strValue) MsgBox (strValue & vbCrLf & StrRev) Kembali 0 End Function Ini akan menghasilkan: Karena StrReverse () mengembalikan fungsi string, Anda dapat menuliskannya sebagai $ StrReverse. String dan Spaces Kosong String yang paling sederhana adalah mungkin salah satu yang Anda dideklarasikan dan diinisialisasi. Dalam beberapa kasus lain, Anda mungkin bekerja dengan string yang Anda harus terlebih dahulu memeriksa. Misalnya, untuk beberapa alasan, string dapat berisi ruang kosong ke kiri atau ke kanan. Jika Anda hanya memulai melakukan operasi tertentu di atasnya, operasi mungkin gagal. Salah satu tindakan pertama Anda dapat mengambil string akan terdiri dari menghapus ruang kosong (s), jika ada di sisi-sisinya. Untuk menghapus semua ruang kosong dari sisi kiri string, Anda dapat menghubungi LTRIM () fungsi. Sintaks-nya adalah: Publik Bersama Fungsi LTRIM (str ByVal As String) As String Untuk menghapus semua ruang kosong dari sisi kanan string, Anda dapat menghubungi RTRIM () fungsi. Sintaks-nya adalah: Publik Bersama Fungsi RTRIM (str ByVal As String) As String Untuk menghapus ruang kosong dari kedua sisi dari string, Anda dapat menghubungi Trim () fungsi. Sintaks-nya adalah: Publik Bersama Fungsi Trim (str ByVal As String) As String Membuat String Spaced Kosong Jika Anda ingin membuat sebuah string yang terbuat dari satu atau lebih ruang kosong, Anda dapat menghubungi Space () fungsi. Sintaks-nya adalah: Publik Bersama Fungsi Ruang (Nomor ByVal As Integer) As String Fungsi ini adalah setara dengan program menekan Space bar saat mengetik string untuk memasukkan ruang kosong antara dua karakter. String Perbandingan Untuk membandingkan dua string, Anda dapat menghubungi strcmp () function. Sintaks-nya adalah: Publik Bersama Fungsi StrComp (_ ByVal string1 As String, _ ByVal string2 As String, _ <Microsoft.VisualBasic.OptionCompareAttribute> _ Opsional ByVal Bandingkan Sebagai Microsoft.VisualBasic.CompareMethod _ ) As Integer Argumen pertama dan kedua untuk fungsi ini adalah string dan keduanya diperlukan. Setelah fungsi telah melakukan perbandingan, ia mengembalikan -1 Jika string1 kurang dari string2 0 jika string1 string2 adalah sama dan 1 jika string1 lebih besar dari string2 Argumen ketiga memungkinkan Anda untuk menentukan perbandingan dalam biner atau format teks. Argumen ini dapat memiliki salah satu dari nilai berikut: Konstan Nilai Deskripsi vbBinaryCompare 0 Lakukan perbandingan biner vbTextCompare 1 Lakukan perbandingan tekstual Berikut adalah contoh: Private Sub cmdCreate_Click () Dim strValue1 As String Dim strValue2 As String Dim iComparisonValue strValue1 = "République d'Afrique du Sud" strValue2 = "Republik Afrika Selatan" iComparisonValue = StrComp (strValue1, strValue2, vbTextCompare) MsgBox "Membandingkan" "" & strValue1 & "" "dengan" "" & _ strValue2 & "" "menghasilkan" & CStr (iComparisonValue) End Sub

ARTIKEL 22. Variabel di Visual Basic

Anda sering perlu untuk menyimpan nilai ketika melakukan perhitungan dengan Visual Basic. Sebagai contoh, Anda mungkin ingin menghitung beberapa nilai, membandingkan mereka, dan melakukan operasi yang berbeda pada mereka, tergantung pada hasil dari perbandingan. Anda perlu untuk mempertahankan nilai-nilai jika Anda ingin membandingkan mereka.

Pemakaian

Visual Basic, seperti kebanyakan bahasa pemrograman, menggunakan variabel untuk menyimpan nilai-nilai. Sebuah variabel memiliki nama (kata yang Anda gunakan untuk merujuk kepada nilai variabel berisi) dan tipe data (yang menentukan jenis data yang dapat menyimpan variabel). Sebuah variabel dapat mewakili array jika perlu untuk menyimpan set diindeks dari item data yang terkait erat.

Menetapkan Nilai

Anda menggunakan pernyataan penugasan untuk melakukan perhitungan dan menugaskan hasil ke sebuah variabel, sebagai menunjukkan contoh berikut.

VB

Kopi

 'Pernyataan berikut memberikan nilai 10 ke variabel.
 applesSold = 10
 'The penambahan pernyataan berikut variabel.
 applesSold = applesSold + 1
 "Variabel sekarang memegang nilai 11.

Catatan
Tanda sama (=) dalam contoh ini adalah operator penugasan, bukan operator kesetaraan. Nilai sedang ditugaskan ke applesSold variabel.

Untuk informasi lebih lanjut, lihat Cara: Pindahkan Data Ke dan Dari Variabel a .

Variabel dan Properti

Seperti variabel, properti merupakan nilai yang dapat Anda akses. Namun, lebih kompleks daripada variabel. Sebuah properti menggunakan blok kode yang mengontrol cara menetapkan dan mengambil nilainya. Untuk informasi lebih lanjut, lihat Perbedaan Antara Properties dan Variabel di Visual Basic .

 http://translate.google.co.id/translate?hl=id&langpair=en|id&u=http://msdn.microsoft.com/en-us/library/cd6hcy37%28v%3Dvs.80%29.aspx

ARTIKEL 22. If…Then…Else Statement (Visual Basic)

f condition [ Then ]
    [ statements ]
[ ElseIf elseifcondition [ Then ]
    [ elseifstatements ] ]
[ Else
    [ elsestatements ] ]
End If
-or-
If condition Then [ statements ] [ Else [ elsestatements ] ]

Parts

---

condition

Required. Expression. Must evaluate to True or False, or to a data type that is implicitly convertible to Boolean.

Then

Required in the single-line form, optional in the multiple-line form.

statements

Optional. One or more statements following If…Then that are executed if condition evaluates to True.

elseifcondition

Required if ElseIf is present. Expression. Must evaluate to True or False, or to a data type that is implicitly convertible to Boolean.

elseifstatements

Optional. One or more statements following ElseIf…Then that are executed if elseifcondition evaluates to True.

elsestatements

Optional. One or more statements that are executed if no previous condition or elseifcondition expression evaluates to True.

End If

Terminates the If…Then…Else block.

Remarks

---

You can use the single-line form for short, simple tests. However, the multiple-line form provides more structure and flexibility than the single-line form and is usually easier to read, maintain, and debug.

When a multiple-line If…Then…Else is encountered, condition is tested. If condition is True, the statements following Then are executed. If condition is False, each ElseIf statement is evaluated in order. When a True elseifcondition is found, the statements immediately following the associated Then are executed. If no elseifcondition evaluates to True, or if there are no ElseIf statements, the statements following Else are executed. After executing the statements following Then, ElseIf, or Else, execution continues with the statement following End If.

Tip
The Select…Case Statement (Visual Basic) might be more useful when evaluating a single expression that has several possible values.

In the single-line form, it is possible to have multiple statements executed as the result of an If…Then decision. All statements must be on the same line and be separated by colons. The following example demonstrates this.

 

 

If A > 10 Then A = A + 1 : B = B + A : C = C + B

In the multiple-line form, the If statement must be the only statement on the first line. The ElseIf, Else, and End If statements can be preceded only by a line label. The multiple-line If…Then…Else block must end with an End If statement.

To determine whether or not an If statement introduces a multiple-line form, examine what follows the Then keyword. If anything other than a comment appears after Then in the same statement, the statement is treated as a single-line If statement. If Then is absent, it must be the beginning of a multiple-line If…Then…Else.

The ElseIf and Else clauses are both optional. You can have as many ElseIf clauses as you want in a multiple-line If…Then…Else, but none can appear after an Else clause. Multiple-line forms can be nested within one another.

Example

---

The following example shows both the multiple- and single-line forms of the If…Then…Else statement.

VB

 

Dim number, digits As Integer
Dim myString As String
number = 53
If number < 10 Then
    digits = 1
ElseIf number < 100 Then
    digits = 2
Else
    digits = 3
End If
If digits = 1 Then myString = "One" Else myString = "More than one"

In the preceding example, the ElseIf condition evaluates to True, and digits is assigned a value of 2. The last statement then assigns a value of “More than one” to myString.

See Also

---

Reference

#If…Then…#Else Directives
Choose Function
Select…Case Statement (Visual Basic)
Switch Function

http://msdn.microsoft.com/en-us/library/752y8abs%28v=vs.80%29.aspx

ARTIKEL 21.Dimana aja sih letak perbedaan antara vb 2008 da vb 6,selain tampilannya..?

Jawaban Terbaik – Dipilih oleh Suara Terbanyak

Microsoft Visual Basic .net 9.0 yang merupakan bahasa pemrograman berorientasi pada objek (object oriented programming/ OOP) berbasis Windows.

Visual Basic .net adalah bahasa pemrograman visual yang berorientasi kepada objek dan dapat diimplementasikan pada sistem operasi Windows yang telah mensupport sistem berbasis teknologi .net seperti Windows XP, Windows Vista dan Windows Seven.

Dan kelebihan Visual Basic .net adalah implementasi pada pemrograman berbasis objek jauh lebih lengkap dibanding pendahulunya Visual Basic 6.0. Dan Visual Basic .net dapat dengan mudah untuk dimengerti karena bahasa pemrograman ini merupakan bahasa pemrograman yang user friendly, dan mempunyai fasilitas auto checking dan auto correcting yang dapat dengan cepat memberi pesan kepada penggunanya jika terjadi error pada kode, dan jika pengguna mengijinkan maka program akan mengkoreksinya secara otomatis. Dan masih banyak kelebihan Visual Basic .net seperti :
1. Sistem threading, yang mana kita bisa mengalokasikan sebuah proses untuk dikerjakan oleh prosessor tertentu (jadi tidak harus banyak proses dikerjakan oleh satu prosessor)
2. Dukungan anonymous types, Language Integrated Query (LINQ), ekspresi Lambda, ADO.NET, literal XML dan terhadap inferensi tipe data.
Jika kita berbicara mengenai Visual Basic .net maka kita tidak bisa terlepas dari apa yang namanya .NET Framework. .NET Framework adalah platform yang memungkinkan kita untuk membangun software aplikasi dan library yang disebut “managed application” (aplikasi yang diatur), memberikan kita compiler dan tool agar bisa di-build, debug, dan mengeksekusi managed application. Untuk tujuan ini, bisa dikatakan bahwa .NET adalah platform yang memberikan kita semua yang kita perlukan untuk membangun dan menjalankan managed application yang berjalan di sistem operasi Windows. Dikatakan aplikasi yang diatur (managed application), karena eksekusinya diatur oleh .NET Framework. Faktanya, .NET Framework adalah yang mengatur eksekusi dengan menyediakan lingkungan pengontrol runtime (runtime controlled) yang memberikan variasi layanan yang luas seperti loading aplikasi, pengaturan memori, dan akhirnya memonitor dan menjaga keamanan dan integritas ketika aplikasi dijalankan. Sebelum .NET (dan Java), aplikasi tidak diatur karena tidak dijalankan menggunakan runtime controlled. Aplikasi haruslah mengatur servisnya sendiri, yang kadangkala menciptakan terjadinya error-error dalam kode, bug, dan pemborosan data. Karena masalah inilah, aplikasi sebaiknya dijaga dan di debug.
.NET Framework juga memberikan kita tool lainnya seperti debugger, programming language, dan execution engine (CLR-Commong Language Runtime-merupakan bagian paling utama, karena merupakan mesin yang mengatur proses pengaturan dalam menjalankan source code), developer tool, dan masih banyak lagi librari-librari lainnya. Librari-librari itu dinamakan FCL (Framework Class Libraries).
Salah satu tugas dari .NET Framework ini adalah menerjemahkan perintah-perintah dalam bahasa IL menjadi bahasa assembly murni yang bisa dijalankan oleh CPU yang sebenarnya. Jika digambarkan, .NET Framework merupakan sebuah layer yang berada ditengah-tengah antara aplikasi yang dibuat dengan .NET dan sistem operasi Windows. Jadi ketika Anda menjalankan sebuah program .exe, .NET Framework akan secara otomatis menangkap dan memeriksa file .exe tersebut terlebih dahulu. Apakah file .exe biasa atau file .exe yang dibuat oleh .NET Framework. Apabila file exe biasa, maka file tersebut akan dijalankan seperti biasanya namun apabila file tersebut dibuat dengan bahasa .NET, maka .NET Framework akan menerjemahkan bahasa yang ada didalamnya menjadi bahasa mesin murni sebelum melemparkannya kepada CPU atau Windows untuk dijalankan. Karena kode program akan di tangani terlebih dahulu oleh .NET Framework sebelum diberikan ke sistem operasi, maka kode-kode yang membahayakan sistem operasi secara keseluruhan bisa dicegah. Dengan konsep semacam ini, diharapkan program-program yang menyebabkan Windows menjadi hang bisa teratasi (kecuali .NET Framework-nya sendiri bermasalah).

materi referensi:

Kebetulan skripsi saya tentang pemrograman dengan memakai vb.net 2008 atau yg dikenal dgn vb net 9, dan saya copy paste dari skripsi saya sendiri.

http://id.answers.yahoo.com/question/index?qid=20100407103721AA0G9Lf

ARTIKEL 20. Macam-macam Microsoft Visual Basic

VISUAL BASIC EDISI BELAJAR
Belajar Visual Basic 6.0 Edition membantu mendidik semua pengguna pada bagaimana program di Visual Basic . Dengan paket ini pengguna harus menerima diri yang serba tutorial CD-ROM , Visual Basic 6.0 tindakan buku dengan petunjuk langkah demi langkah , dan contoh-contoh berbagai sumber kode.

VISUAL BASIC PROFESSIONAL EDITION
Visual Basic 6.0 Professional mencakup fitur-fitur baru seperti Visual C + + 6.0 dioptimalkan kode asli kompiler , ADO ( Active X Data Objects ) , Database Tools ( SQL Server 6.5 , Oracle 7.3.3 , AS/400 ) , data otomatis mengikat, Halaman Dynamic HTML desainer , dukungan komputasi mobile dan banyak lagi.

VISUAL BASIC ENTERPRISE EDITION
Visual Basic 6.0 Enterprise Edition mencakup petunjuk langkah demi langkah untuk bagaimana memanfaatkan fitur Windows 2000 , kompilator kode asli , ADO ( Active X Data Objects ) , alat untuk mengimplementasikan Usaha Terpadu database ke dalam aplikasi , data otomatis mengikat, Designer Halaman Dynamic HTML , Dukungan Komputasi Mobile , Microsoft SQL Server 6.5 Developer Edition , Visual Modeler , Microsoft Visual SourceSafe 6.0 dan banyak lagi . Listen Read phonetically Rate translation

VISUAL BASIC EDISI BELAJAR
Belajar Visual Basic 6.0 Edition membantu mendidik semua pengguna pada bagaimana program di Visual Basic . Dengan paket ini pengguna harus menerima diri yang serba tutorial CD-ROM , Visual Basic 6.0 tindakan buku dengan petunjuk langkah demi langkah , dan contoh-contoh berbagai sumber kode.

VISUAL BASIC PROFESSIONAL EDITION
Visual Basic 6.0 Professional mencakup fitur-fitur baru seperti Visual C + + 6.0 dioptimalkan kode asli kompiler , ADO ( Active X Data Objects ) , Database Tools ( SQL Server 6.5 , Oracle 7.3.3 , AS/400 ) , data otomatis mengikat, Halaman Dynamic HTML desainer , dukungan komputasi mobile dan banyak lagi.

VISUAL BASIC ENTERPRISE EDITION
Visual Basic 6.0 Enterprise Edition mencakup petunjuk langkah demi langkah untuk bagaimana memanfaatkan fitur Windows 2000 , kompilator kode asli , ADO ( Active X Data Objects ) , alat untuk mengimplementasikan Usaha Terpadu database ke dalam aplikasi , data otomatis mengikat, Designer Halaman Dynamic HTML , Dukungan Komputasi Mobile , Microsoft SQL Server 6.5 Developer Edition , Visual Modeler , Microsoft Visual SourceSafe 6.0 dan banyak lagi .

 

Sumber: http://id.shvoong.com/internet-and-technologies/software/2204095-macam-macam-microsoft-visual-basic/#ixzz2E9TXBNxa

ARTIKEL 19.Elemen-elemen utama pada VB

TITLE BAR
Merupakan batang judul yang terletak pada bagian atas jendela program visual basic yang berfungsi untuk menunjukkan nama proyek yang sedang aktif.
MENU BAR
Merupakan batang menu yang berisi menu-menu utama,seperti File, edit, view, project dan lain-lain yang berfungsi untuk mengoperasikan program visual basic 6.0
MAIN TOOLBAR
Merupakan sebuah batang ikon yang berisi tombol-tombol dengan gambar ikon yang dapat diklik untuk melakukan suatu perintah khusus secara cepat .
TOOLBOX
Merupakan kotak perangkat yang terdiri atas beberapa class objek yang digunakan dalam proses pembuatan aplikasi.
PROJECT
Merupakan jendela yang digunakan untuk menampilkan proyek-proyek, form-form, atau modul-modul yang terlibat dalam proses pembuatan aplikasi.
FORM
Marupakan tempat yang digunakan unutuk merancang aplikasi yang sedang dibuat . Didalam form anda dapat merancang sebuah program aplikasi dengan menempatkan control-kontrol yang ada di bagian TOOLBOX.
JENDELA CODE
Merupakan jendela yang digunakan untuk menampilkan atau menuliskan kode program.
JENDELA PROPERTIES
Merupakan jendela yang digunakan untuk menampilkan dan mengubah properti-properti yang dimiliki sebuah obyek . Pada jendela properties terdapat dua pilihan tabulasi, yaitu ALPHABETIC (urut berdasarkan abjad) dan CATAGORIZED (urut berdasarkan kelompok).
JENDELA FORM LAYOUT
Merupakan jendela yang digunakan untuk mengatur posisi form pada layar monitor saat program dijalankan .
JENDELA IMMEDIATE
Merupakan jendela yang digunakan untuk melihat dan memeriksa hasil suatu ekspresi secara langsung.
JENDELA OBJECT BROWSER
Merupakan jendela yang digunakan untuk melihat objek-objek yang terlibat dalam pembuatan aplikasi . Pada jendela ini anda dapat melihat metode, event atau properties yang dimiliki sebuah objek

http://nicodms.wordpress.com/2011/10/09/elemen-elemen-utama-pada-vb/

ARTIKEL 18. PERTEMUAN VISUAL BASIC

Pertuman pertama di lab SI [ Viaual Basic ]. saat memasuki lab SI hal pertama yang akan di tanyakan adalah Kartu Praktikum dan Map Merah. Oleh karena itu jangan sampai anda tidak membawa kedua benda keramat ini jika anda tidak ingin di usir dari lab SI. setelah memasuki ruang lab dan memilih komputer. anda akan di berikan sebuah pertanyaan seputar Visual Basic. Berikut Pertanyaanya :

1. Jelaskan Pengertian Dari Visual Basic !
2. Sebutkan Dan Jelaskan 5 tools yang berada di visual basic !
3. Jelaskan Sejarah Visual Basic 6 secara singkat !

Jawabannya

1. Visual Basic merupakan turunan bahasa BASIC dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Objects (DAO), Remote Data Objects (RDO), atau ActiveX Data Object (ADO), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX. Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.

2.  
A.Pointer
bukan merupakan suatu kontrol; gunakan icon ini ketika anda ingin memilih kontrol yang sudah berada pada form.

 B. PictureBox
adalah kontrol yang digunakan untuk menampilkan image dengan format: BMP, DIB (bitmap), ICO (icon), CUR (cursor), WMF (metafile), EMF (enhanced metafile), GIF, dan JPEG.

C. Label
adalah kontrol yang digunakan untuk menampilkan teks yang tidak dapat diperbaiki oleh pemakai. TextBox adalah kontrol yang mengandung string yang dapat diperbaiki oleh pemakai, dapat berupa satu baris tunggal, atau banyak baris.

D. Frame
adalah kontrol yang digunakan sebagai kontainer bagi kontrol lainnya. CommandButton merupakan kontrol hampir ditemukan pada setiap form, dan digunakan untuk membangkitkan event proses tertentu ketika pemakai melakukan klik padanya.

E. CheckBox
digunakan untuk pilihan yang isinya bernilai yes/no, true/false. OptionButton sering digunakan lebih dari satu sebagai pilihan terhadap beberapa option yang hanya dapat dipilih satu.
ListBox mengandung sejumlah item, dan user dapat memilih lebih dari satu (bergantung pada property MultiSelect).

F. ComboBox
merupakan konbinasi dari TextBox dan suatu ListBox dimana pemasukkan data dapat dilakukan dengan pengetikkan maupun pemilihan. HScrollBar dan VScrollBar digunakan untuk membentuk scrollbar berdiri sendiri.

G. Timer
digunakan untuk proses background yang diaktifkan berdasarkan interval waktu tertentu. Merupakan kontrol non-visual. DriveListBox, DirListBox, dan FileListBox sering digunakan untuk
membentuk dialog box yang berkaitan dengan file.

H. Shape dan Line
digunakan untuk menampilkan bentuk seperti garis, persegi, bulatan, oval.

I. Image berfungsi
menyerupai image box, tetapi tidak dapat digunakan sebagai kontainer bagi kontrol lainnya. Sesuatu yang perlu diketahui bahwa kontrol image menggunakan resource yang lebih kecil dibandingkan dengan PictureBox

J. Data
digunakan untuk data binding OLE dapat digunakan sebagai tempat bagi program eksternal seperti Microsoft Excel, Word, dll.

 3. Sejarah singkat VB 6
 Sejarah singkat Visual Basic:
–         diperkenalkan pertama kali tahun 1991 yaitu program Visual Basic untuk DOS dan untuk Windows.
–         Visual Basic 3.0 dirilis tahun 1993
–         Visual Basic 4.0 dirilis pada akhir 1995 ( tambahan dukungan untuk aplikasi 32 bit )
–         Visual Basic 6.0 dirilis pada akhir 1998
Microsoft umumnya membuat tiga edisi Visual Basic yaitu:
–         Standard Edition : merupakan produk dasar
–         Professional Edition : berisi tambahan Microsoft Jet Data Access Engine        ( database ) dan pembuatan server OLE automation
–         Enterprise Edition : adalah edisi client server.

http://rhatavarium.blogspot.com/2011/03/pertemuan-pertama-visual-basic-part-1.html

artikel 17.Sejarah Visual Basic (Dulu – Sekarang – Akan Datang)

Evolusi Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.

Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :

 

Perjalanan dari Visual Basic (VB1 to VB 10)

1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992.  Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System
   
4. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi  versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
6. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk  versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5  memperkenalakan kemampuan untuk membuat  User Control.
8. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
9. Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan  kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
10. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
11. Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya : 
    1. Edit and Continue , mungkin inilah kekurangan fitur terbesar dari  VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan
    2. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1. 
12. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y  menjadi If X  IsNot Y
13. Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
14. Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya : 
    – True Tenary operator , yaitu fungsi If(boolean,value, value)  yg digunakan untuk menggantikan fungsi IIF 
    – LINQ Support  
    – Ekspresi Lambda 
    – XML Literals 
    – Nullable types 
    – Type Inference 
15. Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang  juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLigh.

http://pondokindah.wordpress.com/2007/06/29/sejarah-visual-basic-dulu-sekarang-akan-datang/

artikel 16.Perkembangan pemrograman Visual Basic dari dulu sampai sekarang

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.
Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :
Perjalanan dari Visual Basic (VB1 to VB 10)
1.    Proyek “Thunder” dirintis
2.    Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3.    Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992.  Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System
4.    Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5.    Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi  versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
6.    Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7.    Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk  versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5  memperkenalakan kemampuan untuk membuat  User Control.
8.    Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
9.    Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan  kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
10.    Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
11.    Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata.NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :
1.    Edit and Continue , mungkin inilah kekurangan fitur terbesar dari  VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan
2.    Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
12.    IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y  menjadi If X  IsNot Y
13.    Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
14.    Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :
– True Tenary operator , yaitu fungsi If(boolean,value, value)  yg digunakan untuk menggantikan fungsi IIF
– LINQ Support  
– Ekspresi Lambda
– XML Literals
– Nullable types
– Type Inference
15.    Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang  juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1

 

http://cimahi-one.com/knowledge/idx.php/20/141/Source-Code-Program-Aplikasi-dengan-VB/article/Perkembangan-pemrograman-Visual-Basic-dari-dulu-sampai-sekarang.html