Docstoc

vb-pertemuan3

Document Sample
vb-pertemuan3 Powered By Docstoc
					PEMROGRAMAN I (VB)
Pertemuan 3                       By: Augury
                     augury@pribadiraharja.com
                     augury@pribadiraharja.com
Type Data
variant
  variant
  adalah type data yang menerima segala
  jenis data yang dimasukkkan/diisikan
  kepadanya.
  Jika kita mendeklarasikan sebuah variable
  tanpa menentukan type-nya (tanpa As),
  maka secara default visual basic akan
  menganggap variable tersebut ber- type
  variant.
Type Data
variant – sebagai tipe tanggal dan waktu
  Type data variant selain dapat bernilai
  angka atau string, juga dapat bernilai
  waktu dan tanggal.

  Syntax:
              DateSerial(intTahun, intBulan, intHari)
               DateSerial(intTahun, intBulan, intHari)
              Year(dtTanggal)
               Year(dtTanggal)
              Hour(dtWaktu)
               Hour(dtWaktu)
              Minute(dtWaktu)
               Minute(dtWaktu)
Type Data
variant – sebagai tipe tanggal dan waktu
   Contoh:            Private Sub cmdWaktu_Click()
                       Private Sub cmdWaktu_Click()
                            Dim Sekarang, SisaHari, SisaJam, SisaMenit
                             Dim Sekarang, SisaHari, SisaJam, SisaMenit
                            Sekarang == Now             ‘menyatakan tanggal sekarang
                             Sekarang    Now             ‘menyatakan tanggal sekarang
                            Print ““ ““
                             Print
                            Print ““ ““ &&Sekarang
                             Print            Sekarang
                            Print ““ ““
                             Print
                            SisaHari == Int(DateSerial(Year(Sekarang)+1, 1, 1) –– Sekarang)
                             SisaHari    Int(DateSerial(Year(Sekarang)+1, 1, 1)      Sekarang)
                            SisaJam == 24 –– Hour(Sekarang)
                             SisaJam    24    Hour(Sekarang)
                            SisaMenit == 60 –– Minute(Sekarang)
                             SisaMenit     60   Minute(Sekarang)
                            Print ““ ““ &&SisaHari && “hari lagi tahun ini berakhir
                             Print            SisaHari    “hari lagi tahun ini berakhir
                            Print ““ ““ &&SisaJam && “jam lagi hari ini berakhir
                             Print            SisaJam    “jam lagi hari ini berakhir
                            Print ““ ““ &&SisaMenit && “menit lagi jam ini berakhir
                             Print            SisaMenit    “menit lagi jam ini berakhir
                      End Sub
                       End Sub




Catatan:
     Kata yang dicetak tebal merupakan fungsi internal visual basic.
     DateSerial         mengubah ke type variant (DateTime) dari Integer
     Year               mengubah tahun ke type variant (Integer) dari DateTime
     Hour               mengubah jam ke type variant (Integer) dari DateTime
     Menute             mengubah menit ke type variant (Integer) dari DateTime
Daftar type data pada VB
Tipe Data     Penyimpanan                                Jangkauan                              Kelompok
Integer     2 byte                -32768 – 32767                                                 Numerik
Long        4 byte                -2147483648 – 2147483647                                       Numerik
                                  -3.403823 E38 – -1.401298 E-45 untuk nilai negatif
Single      4 byte                1.401298 E-45 – 3.403823 E38 untuk nilai positif
                                                                                                 Numerik

                                  -1.79769313486232 E308 –      -4.94065645841247 E-324
Double      8 byte                -4.94065645841247 E-324 –     -1.79769313486232 E308
                                                                                                 Numerik

Currency    8 byte                -922,337203685477.5808 – 922,337203685477.5807                 Numerik

                                  0 – 65500 karakter untuk win 3.1
String      1byte per karakter    0 – 2 E32 karakter untuk win 9x/NT
                                                                                                  String

Byte        1 byte                0 – 255                                                        Numerik
Boolean     2 byte                True atau False                                                Boolean
Date        8 byte                1 January 100 – 31 December 9999                                Date
Object      4 byte                Referensi object                                               Obejct

            16 byte + 1 byte      Null, Error,Nilai numeric sampai jangkauan tie data Double,
Variant                                 Character text, Object, atau array
                                                                                                 Variant
            untuk tiap karakter
Type Casting
Konversi Tipe Data
  Contoh:                                 Fungsi konversi     Konversi ke –
                                         Cbool(val)         Boolean
                                         Cbyte(val)         Byte
                                         Ccur(val)          Currency
                                         CDate(val)         Date
                                         CDbl(val)          Double
                                         Cint(val)          Integer
                                         CLng(val)          Long
                                         CSng(val)          Single
                                         CStr(val)          String
 Private Sub cmdOk_Click()
  Private Sub cmdOk_Click()              CVar(val)          Variant
   Dim dd
    Dim
   Const phi == 3.14159265358979         CVerr(val)         Error
    Const phi     3.14159265358979
   dd == txtDiameter.text
          txtDiameter.text
   txtkeliling.text == CCur(phi ** d)
    txtkeliling.text     CCur(phi   d)
   txtLuas.text == CCur(1/4*phi*d^2)
    txtLuas.text     CCur(1/4*phi*d^2)
 End Sub
  End Sub
Type Data Buatan Sendiri
 Pembuatan type data sendiri ini
 menggunakan kombinasi dari type data
 yang telah ada

 Pendeklarasiannya menggunakan perintah
 Type setelah kata Public atau Private.
 Penggunaan kata Public dan Private
 tergantung pada ruang lingkup variable
 yang kita inginkan
Type Data Buatan Sendiri
 Contoh Deklarasi type buatan sendiri :
      Public Type DataMahasiswa
       Public Type DataMahasiswa
              strNama As String
               strNama As String
              lNIM As Long
               lNIM As Long
              strJurusan As String
               strJurusan As String
              TglLahir As Date
               TglLahir As Date
      End Type
       End Type
      Dim Data As DataMahasiswa
       Dim Data As DataMahasiswa      ‘DataMahasiswa sbg Type
                                       ‘DataMahasiswa sbg Type



 Mengisi nilai untuk variable dengan type
 buatan sendiri:
      Data.Nama = “Wiro Sableng”
      Data.Nama = “Wiro Sableng”
      Data.TglLahir = #17 Agustus 1975#
      Data.TglLahir = #17 Agustus 1975#
Variable Array
 Array merupakan type variable yang
 memungkinkan kita untuk menyimpan data
 secara berurutan dalam satu nama variable

 Dalam array data tersimpan dengan
 menggunakan index untuk memudahkan
 kita dalam pencarian kembali data tersebut.
Variable Array
 Contoh deklarasi variable array:
    Dim arrIntContoh1(19) As Integer
     Dim arrIntContoh1(19) As Integer              ‘array dgn 20 elemen
                                                    ‘array dgn 20 elemen
    Dim arrStrContoh2(1 to 20) As String
     Dim arrStrContoh2(1 to 20) As String          ‘array dgn 20 elemen
                                                    ‘array dgn 20 elemen
    Dim arrIntContoh3(19, 19) As Integer
     Dim arrIntContoh3(19, 19) As Integer          ‘array 22 Dimensi
                                                    ‘array    Dimensi
    Public arrLContoh4(80) As Long
     Public arrLContoh4(80) As Long

    Keterangan :    secara defaut indeks array dimulai dari 0, maka
                    arrIntContoh1 memiliki 20 elemen dengan indeks 0 sampai 19
                    arrIntContoh2 memiliki 20 elemen dengan indeks 1 sampai 20



 Mengisi nilai untuk variable array dengan
 index tertentu:
     arrIntContoh1(0) = 23
      arrIntContoh1(0) = 23
     arrStrContoh2(1) = “Senin”
      arrStrContoh2(1) = “Senin”
     arrIntContoh3(1,2) = 11
      arrIntContoh3(1,2) = 11
Thanks

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:0
posted:2/19/2012
language:
pages:11