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.

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 PrevDetikundefinedByVal 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 WaktuValidundefinedByVal 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 TulisJamundefinedByVal t As waktu) As String
        Return t.J & ":" & t.M & ":" & t.D
    End Function
    Sub Mainundefined)
        Dim T1, T2 As waktu

        Console.Writeundefined"Masukkan Jam : ")
        T1.J = Console.ReadLineundefined)
        Console.Writeundefined"Masukkan Menit : ")
        T1.M = Console.ReadLineundefined)
        Console.Writeundefined"Masukkan Detik : ")
        T1.D = Console.ReadLineundefined)

        If WaktuValidundefinedT1) Then
            Console.WriteLineundefined"Waktu = " + TulisJamundefinedT1))
            T2 = PrevDetikundefinedT1)
            Console.WriteLineundefined"Detik Sebelumnya = " + TulisJamundefinedT2))
        Else
            Console.WriteLineundefined"Waktu Tidak Valid")


        End If
        Console.ReadLineundefined)
    End Sub

End Module

Silahkan Running, maka akan muncul tampilan seperti berikut :

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