BREAKING NEWS

BLOG

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 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 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 © 2017 AKADEMI INFORMATIKA - Member of Rumah IT
Our Partners: Indonesia Travel Guide - ICT Computer - Safe Your Link Away. Powered byBlogger