1 / 26

Algoritma Pemrograman 2 B

Algoritma Pemrograman 2 B. Dr. Lily Wulandari. Minggu 8. FUNGSI-FUNGSI BAWAAN VB. Definisi.

feivel
Download Presentation

Algoritma Pemrograman 2 B

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. AlgoritmaPemrograman 2 B Dr. Lily Wulandari

  2. Minggu8 FUNGSI-FUNGSI BAWAAN VB

  3. Definisi • fungsibawaanadalahsuatufungsi yang sudahadadalamVisual Basic dandapatdigunakansecaralangsung. Adasejumlahfungsi-fungsibawaandalamVB diantaranyaadalahfungsiuntukmengubahsuatutipe data String darisuatuTextBoxmenjaditipe data numerikagar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitandenganmatematika, dll.

  4. Fungsi-fungsiNumerik • Denganmenggunakanfungsi-fungsibawaan yang disediakan, waktupembuatansebuah program dapatdisingkat. Fungsi-fungsinumerikmerupakanfungsi-fungsi yang berkaitandengantipe data numerik.

  5. Fungsi-fungsiNumerik • Fungsi-fungsiinidapatdikelompokkansebagaiberikut: 1. Fungsi-FungsiKonversike Integer Adatigamacamfungsi yang melakukankonversiketipe data integer yaitusepertiterlihatpadatabelberikut : Tabel8.1. FungsiKonversikeInteger • Untukbilanganpositif, fungsi Fix() danInt() memberikanperlakuan yang sama.

  6. Sebagaicontoh, keduapernyataanberikutinimengembalikannilai yang sama: ans1 = Int(14.5) ‘mengembalikan 14 ans2 = Fix(14.5) ‘mengembalikan 14 • Namunfungsi Fix() danInt() memberikanperlakuanberbedapadabilangan negatif. Kedua pernyataan berikut memberikan pengembalianyang berbeda: ans1 = Int(-14.5) ‘mengembalikan -15 ans2 = Fix(-14.5) ‘mengembalikan -14

  7. SedangkanfungsiCInt() mengembalikanpembulatanangkayang terdekat. BerikutinicontohpenggunaanCInt() : ans1 = CInt(14.1) ‘mengembalikan 14 ans2 = CInt(14.5) ‘mengembalikan 14 ans3 = CInt(14.6) ‘mengembalikan 15 ans2 = CInt(-14.5) ‘mengembalikan -14 ans3 = CInt(-14.6) ‘mengembalikan -15

  8. Fungsi-fungsiKonversiTipe Data(1) • Tabel 8.2 merupakanfungsi – fungsi yang melakukankonversiketipe data. Tabel8.2 Fungsi-FungsiKonversikeTipe Data

  9. Fungsi-fungsiKonversiTipeData(2) • Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1/7). lblNilai= CSng(1/7) ‘ditampilkan 0.1428571 lblNilai= CDbl(1/7) ‘ditampilkan0.142857142857143 • Contoh yang lain, ketikaAndaakanmenghitung 2/0.5 : 'Contoh1: MsgBox2 / CInt(0.5) '<-- error Division by zero 'Contoh2: MsgBox2 / Val(0.5) '<-- error Division by zero 'Contoh3: MsgBox2 / CDbl(0.5) '<-- benarmenghasilkan4

  10. Fungsi-fungsiKonversiTipeData(3) • Mengapacontoh 1 dan 2 menghasilkan error Divisonbyzero? Karenabilangan pecahan di kedua contoh tersebut dikonversi ke bilangan bulat, sehingganilai 0.5 (nolkoma lima) dianggapsebagaiangkanolsaja. Semuaangka yang dibagidengannolmakaakanmenghasilkanerror . Jadi, solusinyagunakancarapadacontoh3.

  11. Fungsi-fungsiMatematika • Fungsi-fungsi yang bekaitandenganmatematikasepertiterlihatpadatabel 8.3. Tabel 8.3. Fungsi-FungsiMatematika

  12. Fungsi-fungsi String(1) • Selainfungsi-fungsinumerik, Visual Basic jugamempunyaisejumlahfungsi-fungsiString diantaranyasepertipadatabel8.4. Tabel8.4. Fungsi-Fungsi String

  13. Fungsi-fungsiString(2) Substring merupakanbagiandarisuatu string. Untukmemperoleh substring darisuatu string dapatdigunakan 3 fungsiberikut : a. Left(StringVal, length) Fungsiinimengembalikannilai string darisebelahkirisebanyak length karakter. b. Right(StringVal, length) Fungsiinimengembalikannilai string darisebelahkanansebanyak length karakter.

  14. Fungsi-fungsiString(3) c. Mid(StringVal, startVal, length) Fungsiinimengembalikannilai string daristartValsebanyaklength karakter. Contoh : Hurufkecil= LCase("DwiApri") 'HurufKecil= "dwiapri" hurufbesar= UCase("Setyorini") 'HurufBesar= "SETYORINI" Title = "STMIK Duta Bangsa" lTitle= Left(Title, 3) 'lTitle= "STM" rTitle= Right(Title, 5) 'RTitle= "angsa" mTitle= Mid(Title, 3, 8) 'MTitle= "MIK Duta" Panjang= Len(Title) 'length = 17

  15. Fungsi-fungsiTanggaldanWaktu • Jika dalam suatu aplikasi diperlukan pengambilan tanggal atau waktudarisistem, Visual Basic menyediakanfungsi – fungsi Now(), Date(), dan Time(). Lihat tabel 8.5 berikut : Tabel8.5. Fungsi-fungsiTanggaldanWaktu

  16. Fungsi-fungsiTanggaldanWaktu • Untukmencariselisihdariduabuahtanggaltidaklahsulit, karenadalam visual basic telah disediakan fasilitas untuk melakukan hal tersebutdenganmenggunakanfungsi "DateDiff ", yaitusebuahfungsi yang digunakanuntukmendapatkanselisihdariduabuahtanggal. • Dari fungsiDafeDiffkitabisamendapatkanselisihhari, bulandantahundariduabuahtanggal.

  17. Fungsi-fungsiTanggaldanWaktu • Cara penggunaandarifungsiiniadalahsbb: Dim hari, bulan, tahun 'Untukmencariselisihhari hari=DateTime.DateDiff("d",CDate(Text1.Text),CDate(Text2.Text)) 'Untukmencariselisihbulan bulan= DateTime.DateDiff("m",CDate(Text1.Text),CDate(Text2.Text)) 'Untukmencariselisihtahun tahun= DateTime.DateDiff("yyyy",CDate(Text1.Text),CDate(Text2.Text))

  18. Fungsi-fungsiTanggaldanWaktu • Selainfungsi-fungsidiatasterdapatsebuahfungsiyaitu format() yang berkaitandenganfungsi-fungsiTanggaldanwaktu. Format(Ekpresi[,format[,firstdayofweek[, firstweekofyear]]]) • Fungsiinimengembalikannilai variant atau string sesuaidengan format yang ditentukan.

  19. Contoh Program(1) • Membuat Marquee untuk Form Caption, dimana caption dariform yang kita gunakan akan berjalan dari kanan kekiri secara terus menerus. Kontrol yang digunakanadalahsatubuahkontroltimer yang intervalnyakita set menjadi 100 ataubisakitagantisesuaikeinginankita.

  20. ContohProgram(2) Ketikkankode program sepertiberikut : Private Sub Form_Load() Form1.Caption = " [ Belajar VB 6.0 ] " End Sub Private Sub Timer1_Timer() a = Left(Form1.Caption, 1) b = Len(Form1.Caption) c = Right(Form1.Caption, b - 1) Form1.Caption = c + a End Sub

  21. ContohProgram(3) • MenghitungLuasSegitiga, jikadiketahuipanjangduasisisegitigadanbesarsudut yang diapitolehsegitigatersebut. Untukmenyelesaikanmasalahtersebutdapatdigunakanfungsiberikut : L = ½ .a.b Sin r • Catatan: sudut r yang Andamasukkandalamukuranderajat, untukituperludirubahterlebihdahulusebelumdimasukkandalamfungsisin yang disediakanoleh VB. (Rad = Phi/180)

  22. ContohProgram(4) • Rancangformnyasepertiberikutini :

  23. ContohProgram(5) • Ketikkodeprogramnyasebagaiberikut: Private Sub cmdUsia_Click() A = Val(txtA.Text) B = Val(txtB.Text) R = Val(txtR.Text) hasil = 0.5 * A * B * Sin(R * (3.14 / 180)) txtLuas.Text= Round(hasil, 2) End Sub

  24. SOAL LATIHAN • Buatlahprogram yang dapatmenampilkanharidantanggalsaatini. ContohFormnya: • Buatprogram untukmenghitungusiaseseorang. Ketikaprogram dijalankanmunculinputboxdan user dimintauntukmemasukkantanggallahir.

  25. SOAL LATIHAN • Tampilannyasepertigambarberikut: • Setelahuser memasukkantanggallahir, danmengkliktombol OK, munculmessagebox yang menampilkanusiaAnda. Tampilannyasepertiberikut:

  26. TerimaKasih

More Related