.jpg)
oke agan" sekalian kali ini saya bakal bahas tentang bagaimana cara membuat aplikasi led berjalan ke kiri-kanan dan sebaliknya menggunakan Visual Basic 6..
Bahan-bahan yang diperlukan adalah:
1. VB 6 ----> ini sudah jelas, kalau belum ada silahkan download dan cari sendiri :p
2. laptop ----> nah ini jelas banget malah *plak
yang harus diperhatikan ada pengisian form, settingan propertis pada VB 6..
oke lanjut langkah pertama adalah membuka VB 6 yg kalian punya
1. buka VB6 klik open new project
Bahan-bahan yang diperlukan adalah:
1. VB 6 ----> ini sudah jelas, kalau belum ada silahkan download dan cari sendiri :p
2. laptop ----> nah ini jelas banget malah *plak
yang harus diperhatikan ada pengisian form, settingan propertis pada VB 6..
oke lanjut langkah pertama adalah membuka VB 6 yg kalian punya
1. buka VB6 klik open new project
jika kurang jelas silahkan klik gambar..
kemudian kita harus memasukkan module inpout32.bass
2. kemudian buat pengaturan desainnya seperti gambar dibawah:
yang harus dipilih untuk template desainnya adalah..
a. textbox
b. label
c. frame
d. timer
jika sudah selesai seperti gambar diatas, kita hanya perlu memasukkan source kodenya saja..
disini saya akan memberikan kodenya, simak dan lakukan dengan berurut:
1. klik tombol start dan masukkan kode berikut
If Command1.Caption = "START" Then
Command1.Caption = "STOP"
If Option1.Value = True Then
a = 128
tim_kanan.Enabled = True
tim_kiri.Enabled = False
End If
If Option2.Value = True Then
a = 1
tim_kiri.Enabled = True
tim_kanan.Enabled = False
End If
Out &H378, &HFF
Else
Command1.Caption = "START"
tim_kanan.Enabled = False
tim_kiri.Enabled = False
Out &H378, 0
End If
Command1.Caption = "STOP"
If Option1.Value = True Then
a = 128
tim_kanan.Enabled = True
tim_kiri.Enabled = False
End If
If Option2.Value = True Then
a = 1
tim_kiri.Enabled = True
tim_kanan.Enabled = False
End If
Out &H378, &HFF
Else
Command1.Caption = "START"
tim_kanan.Enabled = False
tim_kiri.Enabled = False
Out &H378, 0
End If
2. klik textbox disamping label interval.. masukka kode berikut:
If Text2.Text = "" Then
Text2.Text = "1"
End If
Text2.Text = "1"
End If
3. klik option button kanan-kiri.. isikan kode:
If Command1.Caption = "STOP" Then
tim_kanan.Enabled = True
tim_kiri.Enabled = False
End If
tim_kanan.Enabled = True
tim_kiri.Enabled = False
End If
3. klik lagi option kode tetapi yang kiri-kanan.. isikan lagi kode:
If Command1.Caption = "STOP" Then
tim_kiri.Enabled = True
tim_kanan.Enabled = False
End If
tim_kiri.Enabled = True
tim_kanan.Enabled = False
End If
4. disini kita menggunakan 2 timer.. timer pertama disetting di propertis alphabetisnya:
timer yang pertama diatur:
name = tim_kanan
enable =false
interval = 100
timer yang kedua diatur:
name = tim_kiri
enable =false
interval = 100
kemudian masukkan kode ke timer yg pertama sebagai berikut:
tim_kanan.Interval = Text2.Text
Text1.Text = Hex(a)
a = a * 2
If a > 128 Then a = 1
Out &H378, a
Text1.Text = Hex(a)
a = a * 2
If a > 128 Then a = 1
Out &H378, a
timer yang kedua :
tim_kiri.Interval = Text2.Text
Text1.Text = Hex(a)
a = a / 2
If a < 1 Then a = 128
Out &H378, a
Text1.Text = Hex(a)
a = a / 2
If a < 1 Then a = 128
Out &H378, a
5 jika sudah semuanya, maka langkah yg terakhir jgn lupa memberikan kode:
Dim a As Integer pada general form kodenya..
oke.. jika sudah semua diikuti, silahkan coba play..
jika ada yg belum berhasil coba ditanyakan lagi sama guru/dosen masing" piss :v
Subscribe to:
Post Comments
(Atom)
0 komentar:
Post a Comment