SEVEN SEGMENT DIGITAL TIMER

Sebuah timer yang dibuat dengan menggunakan compiler VB 6.0. dengan teks menggunakan Seven segment. Berikut component yang dibutuhkan :

• Form
• Timer
• SevenSegment.ocx
• Dan beberapa tambahan component lain sebagai aksesoris. 

Source Code :

Private Sub Timer1_Timer()
On Error Resume Next
If Len(Time) = 8 Then
SevenSegment1.DisplayNumber = Mid(Time, 8, 1)
SevenSegment2.DisplayNumber = Mid(Time, 7, 1)
SevenSegment3.DisplayNumber = Mid(Time, 5, 1)
SevenSegment4.DisplayNumber = Mid(Time, 4, 1)
SevenSegment5.DisplayNumber = Mid(Time, 2, 1)
SevenSegment6.DisplayNumber = Mid(Time, 1, 1)
Else
SevenSegment1.DisplayNumber = Mid(Time, 7, 1)
SevenSegment2.DisplayNumber = Mid(Time, 6, 1)
SevenSegment3.DisplayNumber = Mid(Time, 4, 1)
SevenSegment4.DisplayNumber = Mid(Time, 3, 1)
SevenSegment5.DisplayNumber = Mid(Time, 1, 1)
SevenSegment6.DisplayNumber = 0
End If
End Sub


Complete Project :

Sedot Disini coy..


Jika Anda menyukai artikel ini klik Jempol untuk Donasi, Terimakasih...