16. Fungsi Bagian 5 (Tutorial Visual Basic 2010)

16.1 Memformat Tanggal dan waktu menggunakan format yang telah ditetapkan

Tanggal dan waktu dapat diformat dengan menggunakan format yang telah ditetapkan dan juga user-defined format. Format yang sudah ditetapkan tanggal dan waktu ditunjukkan pada Tabel 16.1.

Tabel 16.1 Predefined format tanggal dan waktu


* Daripada "Jenderal tanggal", nama dan Kembali juga dapat menggunakan format yang disingkat "G", yaitu Format (Now, "G"). Dan untuk "Long Time", Anda dapat menggunakan format disingkat "T". Adapun "Waktu Singkat", Anda dapat menggunakan format disingkat "t"

contoh 16,1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = Format(Now, "General Date")
Label2.Text = Format(Now, "Long Date")
Label3.Text = Format(Now, "short Date")
Label4.Text = Format(Now, "Long Time")
Label5.Text = Format(Now, "Short Time")
End Sub

Hasilya seperti di bawah ini :

16,2 Memformat Tanggal dan waktu menggunakan user-defined format

Selain menggunakan format yang telah ditetapkan, Anda juga dapat menggunakan fungsi user-defined format. Format umum dari user-defined untuk tanggal / waktu adalah

Format (expression,style)

Tabel 16.2 Beberapa user-defined fungsi format tanggal dan waktu


contoh 16.2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click

    Label1.Text = Format(Now, "M")
    Label2.Text = Format(Now, "MM")
    Label3.Text = Format(Now, "MMM")
    Label4.Text = Format(Now, "MMMM")
    Label5.Text = Format(Now, "dd/MM/yyyy")
    Label6.Text = Format(Now, "MMM,d,yyyy")
    Label7.Text = Format(Now, "h:mm:ss tt")
    Label8.Text = Format(Now, "MM/dd/yyyy h:mm:ss tt")

End Sub

Hasilnya seperti dibawah ini:

Sandi Permana

18113221

2KA39

Tulisan 17

Teori Organisasi Umum 1#

Budi Utami, S.E

Read More

15. Fungsi Bagian 4 (Tutorial Visual Basic 2010)

Fungsi Format adalah fungsi format yang sangat kuat yang dapat menampilkan nilai-nilai numerik dalam berbagai bentuk. Ada dua jenis fungsi Format, salah satunya adalah format built-in atau standar sementara satu sama lain dapat didefinisikan oleh pengguna.

(i) Format dari fungsi Format standar adalah
Format (n, "style argument")

dimana n adalah angka dan daftar argumen gaya diberikan pada Tabel 15.1.

Tabel 15.1 Daftar argumen gaya


contoh 15.1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button5.Click, Button4.Click, Button3.Click
Label1.Text = Format(8972.234, "General Number")
Label2.Text = Format(8972.2, "Fixed")
Label3.Text = Format(6648972.265, "Standard")
Label4.Text = Format(6648972.265, "Currency")
Label5.Text = Format(0.56324, "Percent")
End Sub

Hasilnya seperti dibawah ini:

(ii) Format dari fungsi Format user-defined adalah

Format (n, "user's format")

Meskipun diketahui sebagai user-defined format, kita masih perlu mengikuti gaya format tertentu. Contoh user-defined format gaya tercantum pada Tabel 15.2

Tabel 15.2: User-Defined Format


contoh 15.2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button5.Click, Button4.Click, Button3.Click
Label1.Text = Format(8972.234, "0.0")
Label2.Text = Format(8972.2345, "0.00")
Label3.Text = Format(6648972.265, "#,##0.00")
Label4.Text = Format(6648972.265, "$#,##0.00")
Label5.Text = Format(0.56324, "0%")
End Sub

Hasilnya seperti dibawah ini:

Sandi Permana
18113221
2KA39

Tulisan 16
Teori Organisasi Umum 1#
Budi Utami, S.E

Read More

14. Fungsi Bagian 3 (Tutorial Visual Basic 2010)

Kita telah belajar bagaimana VB2010 dapat melakukan fungsi aritmatika menggunakan operator matematika standar. Namun, untuk perhitungan matematika yang lebih kompleks, kita perlu menggunakan built-in fungsi matematika di VB2010. Ada banyak built-in fungsi matematika dalam Visual Basic yang akan kita memperkenalkan mereka satu per satu.

14.1 Abs fungsi

The Abs mengembalikan nilai absolut dari angka yang diberikan.
Sintaksnya adalah
Math. Abs (number)

* Kata kunci Matematika sini menunjukkan bahwa fungsi Abs milik kelas Matematika. Namun, tidak semua fungsi matematika milik kelas Matematika.

14,2 Fungsi Exp

Exp dari sejumlah x adalah nilai eksponensial dari x, yaitu mantan. Sebagai contoh, Exp (1) = e = 2,71828182
Sintaksnya adalah Math.Exp (number)

Contoh:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim num1, num2 As Single
    num1 = TextBox1.Text
    num2 = Math.Exp(num1)
    Label1.Text = num2

End Sub

14.3 Fungsi Perbaiki

Fungsi Perbaiki memotong bagian desimal dari angka positif dan mengembalikan integer terbesar yang lebih kecil dari nomor tersebut. Namun, ketika nomor tersebut adalah negatif, ia akan mengembalikan integer terkecil yang lebih besar dari nomor tersebut. Sebagai contoh, Fix (9.2) = 9 tapi Fix (-9,4) = -9

Contoh:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim num1, num2 As Single
    num1 = TextBox1.Text
    num2 = Fix(num1)
    Label1.Text = num2

End Sub

14,4 Fungsi Int

Int adalah fungsi yang mengubah angka ke dalam integer oleh truncating bagian desimal dan bilangan bulat yang dihasilkan adalah bilangan bulat terbesar yang lebih kecil dari dia nomor. Misalnya

Int (2.4) = 2, Int (6.9) = 6, Int (-5,7) = -6, Int (-99,8) = -100

14,5 Fungsi Login

Fungsi Login adalah fungsi yang mengembalikan logaritma natural dari suatu bilangan. Misalnya, Masuk (10) = 2,302585

Contoh:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim num1, num2 As Single
    num1 = TextBox1.Text
    num2 = Math.Log(num1)
    Label1.Text = num2

End Sub

* Logaritma dari num1 akan ditampilkan di label1

14,6 Para Rnd () Fungsi

Para Rnd sangat berguna ketika kita berurusan dengan konsep peluang dan probabilitas. Fungsi Rnd mengembalikan nilai acak antara 0 dan 1. Angka acak dalam bentuk aslinya tidak sangat berguna dalam pemrograman sampai kita mengkonversikannya ke bilangan bulat. Sebagai contoh, jika kita perlu untuk mendapatkan output yang acak dari 6 bilangan bulat antara 1 sampai 6, yang membuat program berperilaku seperti dadu virtual, kita perlu mengkonversi nomor acak untuk bilangan bulat dengan menggunakan rumus Int (Rnd * 6) +1 .

Contoh:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num as integer

Randomize( )
Num=Int(Rnd()*6)+1
Label1.Text=Num

End Sub

 Dalam contoh ini, Int (Rnd * 6) akan menghasilkan integer acak antara 0 dan 5 karena fungsi Int memotong bagian desimal dari bilangan acak dan mengembalikan integer. Setelah menambahkan 1, Anda akan mendapatkan nomor acak antara 1 dan 6 setiap kali Anda klik tombol perintah. Sebagai contoh, mari mengatakan nomor acak yang dihasilkan adalah 0,98, setelah mengalikannya dengan 6, menjadi 5,88, dan menggunakan fungsi integer Int (5,88) akan mengkonversi angka ke 5, dan setelah menambahkan 1 Anda akan mendapatkan 6.

14,7 Fungsi Putaran

Fungsi Round adalah fungsi yang putaran sampai nomor ke sejumlah tempat desimal. Format adalah Round (n, m) yang berarti untuk mengumpulkan nomor n untuk tempat m desimal. Sebagai contoh, Math.round (7,2567, 2) = 7.26

Contoh
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num1, num2 As Single
num1 = TextBox1.Text
num2 = Math.Round(num1, 2)
Label1.Text = num2

End Sub

* Kata kunci Matematika sini menunjukkan bahwa fungsi Putaran milik kelas Matematika.

Sandi Permana
18113221
2KA39

Tulisan 15
Teori Organisasi Umum 1#
Budi Utami, S.E

Read More

13. Fungsi Bagian 2 (Tutorial Visual Basic 2010)

Kami telah belajar konsep dasar fungsi serta fungsi MsgBox dan InputBox dalam Pelajaran 12. I. Bahkan, saya telah menunjukkan Anda sebuah fungsi manipulasi string sedikit Pelajaran 8, mereka adalah fungsi Len, fungsi Kiri dan Fungsi Kanan. Dalam pelajaran ini, kita akan belajar fungsi string manipulasi lainnya.

13.1 Fungsi Mid

Fungsi Mid digunakan untuk mengambil bagian dari bentuk teks frase tertentu. Format Fungsi Mid ini

Mid (phrase, position, n)

dimana

• frase adalah string dari mana suatu bagian dari teks yang akan diambil.posisi adalah posisi awal dari frase dari mana proses mengambil dimulai.
• posisi adalah posisi awal dari frase dari mana proses mengambil dimulai.
• n adalah jumlah karakter untuk mengambil.

Contoh 13.1:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myPhrase As String
myPhrase = Microsoft.VisualBasic.InputBox("Enter your phrase")
Label1.Text = Mid(myPhrase, 2, 6)
End Sub

* Dalam contoh ini, ketika pengguna mengklik tombol perintah, sebuah inputbox akan muncul meminta user untuk memasukkan frase. Setelah frase dimasukkan dan tombol OK ditekan, label akan menampilkan teks diekstraksi mulai dari posisi 2 kalimat dan jumlah karakter yang diambil adalah 6. Diagram adalah sebagai berikut:

13,2 The Right Function

Fungsi kanan ekstrak bagian kanan frase. Formatnya adalah
Microsoft.Visualbasic.Right ("Phrase", n)
Dimana n adalah posisi awal dari kanan dari fase di mana bagian kalimat yang akan diekstraksi. Sebagai contoh:
Microsoft.Visualbasic.Right ("Visual Basic", 4) = asic

Contoh 13.2: Kode berikut ekstrak bagian kanan setiap frase dimasukkan oleh pengguna.
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myword As String
myword = TextBox1.Text
Label1.Text = Microsoft.VisualBasic.Right (myword, 4)
End Sub

13.3 Fungsi Kiri

Fungsi Kiri ekstrak bagian kiri frase. Formatnya adalah
Microsoft.Visualbasic.Right ("Phrase", n)
Dimana n adalah posisi awal dari kiri dari fase di mana bagian kalimat yang akan diekstraksi. Sebagai contoh:
Microsoft.Visualbasic.Left ("Visual Basic", 4) = asic

Contoh 13.3: Kode berikut ekstrak bagian kiri setiap frase dimasukkan oleh pengguna.
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim myword As String 
    myword = TextBox1.Text 
    Label1.Text = Microsoft.VisualBasic.Left (myword, 4) 
End Sub

13,4 Fungsi Potong

Trim fungsi Potong kosong ruang di kedua sisi kalimat. Formatnya adalah
Trim ("Phrase")
Sebagai contoh,. Trim ("Visual Basic") = Visual Basic

Contoh 13,4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myPhrase As String
myPhrase = Microsoft.VisualBasic.InputBox("Enter your phrase")
Label1.Text = Trim(myPhrase)
End Sub

13,5 Fungsi Ltrim

Trim fungsi Ltrim kosong ruang dari bagian kiri frase. Formatnya adalah
Ltrim ("Phrase")

Sebagai contoh,.
 Ltrim ("Visual Basic") = Visual Basic

13,6 Fungsi RTRIM

Trim fungsi RTRIM kosong ruang dari bagian kanan frase. Formatnya adalah
RTRIM ("Phrase")
Sebagai contoh,.
RTRIM ("Visual Basic") = Visual Basic

13,7 Fungsi InStr

Fungsi InStr akan mencari frase yang tertanam dalam frase asli dan mengembalikan posisi awal dari frase tertanam. Formatnya adalah
Instr (n, original phase, embedded phrase)

Dimana n adalah posisi di mana fungsi Instr mulai melirik untuk frase tertanam. Misalnya
Instr(1, "Visual Basic","Basic")=8
* Fungsi mengembalikan nilai numerik.

Anda dapat menulis kode program seperti berikut:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = InStr(1, "Visual Basic", "Basic")
End Sub

13,8 Para ucase dan Fungsi LCase

Fungsi UCase mengkonversi semua karakter dari string ke huruf besar. Di sisi lain, fungsi LCase mengkonversi semua karakter dari string ke huruf kecil.

Formatnya adalah
Microsoft.VisualBasic.UCase (Phrase)
Microsoft.VisualBasic.LCase (Phrase)

Sebagai contoh,
Microsoft.VisualBasic.Ucase ("Visual Basic") = VISUAL BASIC
Microsoft.VisualBasic.Lcase ("Visual Basic") = visual basic

13,9 Para Chr dan fungsi Asc

Fungsi Chr mengembalikan string yang sesuai dengan kode ASCII sedangkan fungsi Asc mengkonversi karakter ASCII atau simbol untuk kode ASCII yang sesuai. ASCII singkatan dari "American Standard Kode untuk Informasi Interchange". Secara keseluruhan ada 255 kode ASCII dan karakter ASCII sebanyak. Beberapa karakter yang mungkin tidak ditampilkan karena dapat mewakili beberapa tindakan seperti menekan sebuah tombol atau menghasilkan suara beep. Format dari fungsi Chr adalah
Chr (charcode)

dan format dari fungsi Asc adalah
Asc (Character)

Berikut ini adalah beberapa contoh:
Chr (65) = A, Chr (122) = z, Chr (37) =%,
Asc ("B") = 66, Asc ("&") = 38

Sandi Permana
18113221
2KA39

Tulisan 14
Teori Organisasi Umum 1#
Budi Utami, S.E

Read More

12. Fungsi Bagian 1 (Tutorial Visual Basic 2010)

Fungsi ini mirip dengan prosedur normal, tetapi tujuan utama berfungsi untuk menerima input tertentu dan mengembalikan nilai yang diteruskan ke program utama untuk menyelesaikan eksekusi. Ada dua jenis fungsi, built-in fungsi (atau fungsi internal) dan fungsi yang dibuat oleh pemrogram.

Format umum dari suatu fungsi adalah

FunctionName (arguments)

Argumen adalah nilai-nilai yang diteruskan ke function.In pelajaran ini, kita akan mempelajari dua fungsi internal sangat dasar tapi berguna dari Visual dasar, yaitu MsgBox( ) dan InputBox ( ) functions.

12.1 MsgBox ( ) Function

Tujuan dari MsgBox adalah untuk menghasilkan kotak pesan pop-up dan meminta pengguna untuk mengklik pada tombol perintah sebelum ia / dia bisa terus berlanjut. Format ini adalah sebagai berikut:
yourMsg=MsgBox(Prompt, Style Value, Title)

Argumen pertama, Prompt, akan menampilkan pesan di kotak pesan. Nilai Gaya akan menentukan jenis tombol perintah muncul di kotak pesan, silahkan lihat Tabel 12.1 untuk jenis tombol perintah ditampilkan. Argumen Judul akan menampilkan judul dari papan pesan.

Table 12.1: Style Values


Kita bisa menggunakan konstanta bernama di tempat bilangan bulat untuk argumen kedua untuk membuat program lebih mudah dibaca. Bahkan, VB6 secara otomatis akan muncul daftar konstanta bernama di mana Anda dapat memilih salah satunya.
Contoh :
yourMsg=MsgBox( "Click OK to Proceed", 1, "Startup Menu")
and yourMsg=Msg("Click OK to Proceed". vbOkCancel,"Startup Menu")
are the same.

yourMsg adalah variabel yang menyimpan nilai-nilai yang dikembalikan oleh MsgBox () fungsi. Nilai ditentukan oleh jenis tombol diklik oleh pengguna. Itu harus dinyatakan sebagai tipe data Integer dalam prosedur atau pada bagian deklarasi umum. Tabel 12.2 menunjukkan nilai-nilai, yang sesuai bernama konstan dan tombol.

Table 12.2 : Return Values and Command Buttons


Contoh 12.1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim testmsg As Integer
testmsg = MsgBox("Click to test", 1, "Test message")
If testmsg = 1 Then
MessageBox.Show("You have clicked the OK button")
Else
MessageBox.Show("You have clicked the Cancel button")
End If

End Sub

Untuk membuat kotak pesan terlihat lebih canggih, Anda dapat menambahkan sebuah ikon di samping pesan. Ada empat jenis ikon tersedia di VB2008 seperti ditunjukkan pada Tabel 12.3

Table 12.3: Message box with icon


Contoh 12.2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim testMsg As Integer
testMsg = MsgBox("Click to Test", vbYesNoCancel + vbExclamation, "Test Message")
If testMsg = 6 Then
MessageBox.Show("You have clicked the yes button")
ElseIf testMsg = 7 Then
MessageBox.Show("You have clicked the NO button")
Else
MessageBox.Show("You have clicked the Cancel button")
End If

End Sub

Argumen pertama, Prompt, akan menampilkan pesan

12.2 The InputBox( ) Function

Fungsi InputBox () akan menampilkan kotak pesan di mana pengguna dapat memasukkan nilai atau pesan dalam bentuk teks. Di VB2005, Anda dapat menggunakan format berikut:








myMessage=InputBox(Prompt, Title, default_text, x-position, y-position)

myMessage adalah tipe data varian, tetapi biasanya hal ini dideklarasikan sebagai string, yang menerima masukan pesan oleh pengguna. Argumen ini dijelaskan sebagai berikut:

• Prompt = Pesan yang ditampilkan biasanya sebagai pertanyaan yang diajukan
• Title = Judul dari InputBox
• default-text = Teks default yang muncul dalam kolom input di mana pengguna dapat menggunakannya sebagai masukan yang dimaksudkan atau ia akan diganti oleh pesan yang ingin masuk
• x-position dan y position =  koordinat posisi atau tjumlah dari kotak input

Namun, format tidak akan bekerja di VB2008 karena InputBox dianggap namespace. Jadi, Anda perlu memasukkan nilai referensi ke namespace penuh InputBox, yang
Microsoft.VisualBasic.InputBox(Prompt, Title, default_text, x-position, y-position)
Parameter tetap sama.

Contoh 12.3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim userMsg As String

userMsg = Microsoft.VisualBasic.InputBox("What is your message?", "Message Entry Form", "Enter your messge here", 500, 700)

If userMsg <> "" Then
MessageBox.Show(userMsg)
Else
MessageBox.Show("No Message")
End If
End Sub

Para inputbox akan muncul sebagaimana ditunjukkan pada gambar di bawah saat Anda menekan tombol perintah

Sandi Permana
18113221
2KA39

Tulisan 13
Teori Organisasi Umum 1#
Budi Utami, S.E

Read More