BREAKING NEWS

SOFTWARE

ARTIKEL PUBLIK

SEO

Friday, 13 November 2015

Struktur dan Fungsi di Visual Basic studi kasus menentukan jam dan bulan

Dalam praktik kali ini, saya akan membahas penggunaan Struktur dan Fungsi di Visual Basic. Namun dalam praktik ini saya menggunakan VB Console agar lebih mudah dimengerti. Langsung saja buka Microsoft Visual Studio nya. Buat Project baru.

Struktur dan Fungsi di Visual Basic studi kasus menentukan jam dan bulan

Dalam kasus ini, kita akan membuat struktur waktu kemudian kita akan membuat fungsi untuk mengetahui detik sebelumnya.

1. Menentukan 1 Detik Sebelumnya




Module Module1

    Structure waktu
        Dim J, M, D As Integer
    End Structure
    Function PrevDetik(ByVal T As waktu) As waktu
        Dim prev As waktu
        prev = T
        prev.D = prev.D - 1
        If prev.D = -1 Then
            prev.M = prev.M - 1
            prev.D = 59
            If prev.M = -1 Then
                prev.J = prev.J - 1
                prev.M = 59
                If prev.J = -1 Then
                    prev.J = 23
                End If
            End If
        End If

        Return prev
    End Function
    Function WaktuValid(ByVal t As waktu) As Boolean
        Return t.J >= 0 And t.J <= 23 And t.M >= 0 And t.M <= 59 And t.D >= 0 And t.D <= 59
    End Function
    Function TulisJam(ByVal t As waktu) As String
        Return t.J & ":" & t.M & ":" & t.D
    End Function
    Sub Main()
        Dim T1, T2 As waktu

        Console.Write("Masukkan Jam : ")
        T1.J = Console.ReadLine()
        Console.Write("Masukkan Menit : ")
        T1.M = Console.ReadLine()
        Console.Write("Masukkan Detik : ")
        T1.D = Console.ReadLine()

        If WaktuValid(T1) Then
            Console.WriteLine("Waktu = " + TulisJam(T1))
            T2 = PrevDetik(T1)
            Console.WriteLine("Detik Sebelumnya = " + TulisJam(T2))
        Else
            Console.WriteLine("Waktu Tidak Valid")


        End If
        Console.ReadLine()
    End Sub

End Module


Silahkan Running, maka akan muncul tampilan seperti berikut :

Masukkan Jam : 3
Masukkan Menit : 0
Masukkan Detik : 59
Waktu = 3:0:59
Detik Sebelumnya = 3:0:58


Jika Format waktu yang kita masukkan tidak sesuai, maka akan muncul peringatan :

Masukkan Jam : 24
Masukkan Menit : 23
Masukkan Detik : 12
Waktu Tidak Valid

Post a Comment

 
Copyright © 2013 RUMAH IT
Distributed By Free Premium Themes. Powered byBlogger