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 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 Detik : 59
Waktu = 3:0:59
Detik Sebelumnya = 3:0:58
Masukkan Jam : 24
Masukkan Menit : 23
Masukkan Detik : 12
Waktu Tidak Valid
Post a Comment