membuat simulasi 7segment pada visual basic

Pada kesempatan ini ane mau berbagi pengalaman tentang membuat simulasi seven segment menggunakan visual basic 0.6
seven segment itu sendiri adalah suatu segmen-segmen yang digunakan untuk menampilkan angka / bilangan decimal. Seven segment ini terdiri dari 7 batang LED yang disusun membentuk angka 8 dengan menggunakan huruf a-f yang disebut DOT MATRIKS. untuk lebih lengkapnya kawan-kawan biasa liat di artikel tentang seven segment aja yahhh,,,, (disini)
oke langsung aja deh bro,, dibawah ini ane coba tampilin from (tampilan muka di VB ntu sendiri) seven segment sederhana yang ane bauat sendiri nih , hehehehehee ma'af yah kalo jelek :)

nah tu tampilan seven segmen yang ane buat, kawan-kawan bisa mengkreasikan sendiri deh tampilan yang kawan-kawan suka,,,
1. button utuk menu pilihan angka yang ingin ditampilkan
2. keterangan untuk menampilkan atau menjelaskan angka yang kawan-kawan pilih
3. blok berwarna hitam untuk menampilkan seven segment
contoh tampilan yang udah dijalanin

oke gak broo tampilannya ? maklum lah tampilan sederhana hehehee :)

oke selanjutnya ane mau ngasih tau skrip program untuk seven segment'y, silahkan dicoba selengkapnya dibawah ini broo,,,

Private Sub Command1_Click()
a.FillStyle = 1
b.FillStyle = 0
c.FillStyle = 0
d.FillStyle = 1
e.FillStyle = 1
f.FillStyle = 1
g.FillStyle = 1
Out (&H378), (&H60)
Label1.Caption = "Angka : 1"
End Sub

Private Sub Command2_Click()
a.FillStyle = 0
b.FillStyle = 0
c.FillStyle = 1
d.FillStyle = 0
e.FillStyle = 0
f.FillStyle = 1
g.FillStyle = 0
Out (&H378), (&HDA)
Label1.Caption = "Angka : 2"
End Sub

Private Sub Command3_Click()
a.FillStyle = 0
b.FillStyle = 0
c.FillStyle = 0
d.FillStyle = 0
e.FillStyle = 1
f.FillStyle = 1
g.FillStyle = 0
Out (&H378), (&HF2)
Label1.Caption = "Angka : 3"
End Sub

Private Sub Command4_Click()
a.FillStyle = 1
b.FillStyle = 0
c.FillStyle = 0
d.FillStyle = 1
e.FillStyle = 1
f.FillStyle = 0
g.FillStyle = 0
Out (&H378), (&H66)
Label1.Caption = "Angka : 4"
End Sub

Private Sub Command5_Click()
a.FillStyle = 0
b.FillStyle = 1
c.FillStyle = 0
d.FillStyle = 0
e.FillStyle = 1
f.FillStyle = 0
g.FillStyle = 0
Out (&H378), (&HB6)
Label1.Caption = "Angka : 5"
End Sub

Private Sub Command6_Click()
a.FillStyle = 0
b.FillStyle = 1
c.FillStyle = 0
d.FillStyle = 0
e.FillStyle = 0
f.FillStyle = 0
g.FillStyle = 0
Out (&H378), (&HBE)
Label1.Caption = "Angka : 6"
End Sub

Private Sub Command7_Click()
a.FillStyle = 0
b.FillStyle = 0
c.FillStyle = 0
d.FillStyle = 1
e.FillStyle = 1
f.FillStyle = 1
g.FillStyle = 1
Out (&H378), (&HE0)
Label1.Caption = "Angka : 7"
End Sub

Private Sub Command8_Click()
a.FillStyle = 0
b.FillStyle = 0
c.FillStyle = 0
d.FillStyle = 0
e.FillStyle = 0
f.FillStyle = 0
g.FillStyle = 0
Out (&H378), (&HFE)
Label1.Caption = "Angka : 8"
End Sub

Private Sub Command9_Click()
a.FillStyle = 0
b.FillStyle = 0
c.FillStyle = 0
d.FillStyle = 0
e.FillStyle = 1
f.FillStyle = 0
g.FillStyle = 0
Out (&H378), (&HFC)
Label1.Caption = "Angka : 9"
End Sub

Private Sub Command10_Click()
a.FillStyle = 1
b.FillStyle = 1
c.FillStyle = 1
d.FillStyle = 1
e.FillStyle = 1
f.FillStyle = 1
g.FillStyle = 1
dot.FillStyle = 1
Out (&H378), (&H0)
Label1.Caption = "Clear"
End Sub

Private Sub Command11_Click()
a.FillStyle = 0
b.FillStyle = 0
c.FillStyle = 0
d.FillStyle = 0
e.FillStyle = 0
f.FillStyle = 0
g.FillStyle = 1
Out (&H378), (&HFC)
Label1.Caption = "Angka : 0"
End Sub

Private Sub Command12_Click()
If dot.FillStyle = 1
Then
dot.FillStyle = 0
Else: dot.FillStyle = 1
End If
End Sub

oke kawan-kawan mungkin cukup disini dulu tentang simulasi seven segment dengan program visual basic 0.6, semoga bisa bermanfa'at