Belajar Database 1

MsgBox dan InputBox

Macam-macam MsgBox:

vbOKOnly

vbOKCancel

vbAbortRetryIgnore

vbYesNoCancel

vbYesNo

vbRetryCancel

Nilai kembalian:

1.       vbOK

2.       vbCancel

3.       vbAbort

4.       vbRetry

5.       vbIgnore

6.       vbYes

7.       vbNo

Contoh:

Private Sub cmdkeluar_Click()

If MsgBox("yakin ingin keluar aplikasi ?", vbYesNo + vbDefaultButton2 + vbQuestion, "Question") = vbYes Then

End

End If

End Sub

Private Sub Command1_Click()

z = MsgBox("yakin mau keluar?" & vbNewLine & "Pilih Yes atau No" & vbNewLine & "(zkashare tutor)", vbYesNo + vbQuestion, "Pertanyaan")

        If z = vbYes Then

        End

        Else

        MsgBox "Tidak jadi keluar" & vbNewLine & "OK", vbOKOnly, "Info"

        End If

End Sub

Private Sub Command1_Click()

Dim pesan As Integer

pesan = MsgBox("Tekan Ok untuk proses selanjutnya", vbYesNoCancel + vbExclamation, "Aplikasi MsgBox (Title)")

If pesan = 6 Then

    Label1.Caption = "Anda baru saja menekan tombol Yes"

ElseIf pesan = 7 Then

    Label1.Caption = "Anda baru saja menekan tombol No"

Else

    Label1.Caption = "Anda baru saja menekan tombol Cancel - Fail"

End If

End Sub

INPUT Box

Private Sub Command1_Click()

Dim pesan As String

pesan = InputBox("Masukkan pesan Anda", "Aplikasi InputBox (Title)", "Masukkan pesan Anda di sini", 1400, 600)

If pesan <> "" Then

    Label1.Caption = pesan

Else

    Label1.Caption = "Tidak Ada Pesan"

End If

End Sub

Procedure dan Function

MATERI 1

Private Sub TulisTeks(teks As String, warna As ColorConstants)

With Label1

.Caption = teks

.ForeColor = warna

End With

End Sub

Private Function JumlahAngka() As String

Dim angka1 As String, angka2 As String

Dim hasil As Single

angka1 = InputBox("Tulis angka 1 :", "Jumlah Angka")

angka2 = InputBox("Tulis angka 2 :", "Jumlah Angka")

If angka1 <> "" And angka2 <> "" Then

hasil = CSng(angka1) + CSng(angka2)

JumlahAngka = Cstr(hasil)

End If

End Function

Private Sub Command1_Click()

Call TulisTeks("Hallo", vbRed)

End Sub

Private Sub Command2_Click()

Label1.Caption = "Jumlah = " & JumlahAngka()

End Sub

MATERI 2

Private Function Penjumlahan (ByVal a As Integer, ByVal b As Integer) As Integer

    Hitung = a + b

End Function

Private Sub Command1_Click()

    Dim a As Single

    Dim b As Single

    Dim hasil As Integer

    a = 10.5

    b = 5.25

    hasil = Penjumlahan (a, b)

    MsgBox hasil 

End Sub

Private Sub Penjumlahan(Nilai1 As Single, Nilai2 As Single)

    Dim HasilPerhitungan As Single

    HasilPerhitungan = Nilai1 + Nilai2

    MsgBox HasilPerhitungan

End Function

Private Sub Button1_Click()

    HasilPerhitungan = Penjumlahan(100, 200)

End Sub