MEMBUATPROGRAM PORT PARALEL LED BERJALAN DENGAN VB

1. Buatlah hardwarenya dengan 12 buah led dimana 8 led pertama sambungkan dengan pin data (2-9) dan 4 led trakhir sambungkan dengan pin control (1,14,16,17) jangan lupa tambahkan resistor dan penyambungan system katoda.

2. Buat project baru kemudian tambahkan 12 shape untuk simulasi lednya, 1 label untuk judul kemudian 5 commandbutton dan 4 buah timer.

3. Kemudian desain lah menjadi seperti gambar berikut :

4. Atur properties masing-masing komponen seperti untuk shape backstyle ubah menjadi 1-opaque kemudian backcolornya pilih warna putih kemudian unutk timer semua interval beri nilai 100 dan dalam keadaan false.

5. Save project dan Form di folder yang sama lalu copykan inpout32.dll pada folder tempat penyimpanan tersebut.

6. Masukkan kode program seperti dibawah ini :

Private Declare Function Inp Lib "inpout32.dll" _

Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Private Declare Sub Out Lib "inpout32.dll" _

Alias "Out32" (ByVal PortAddress As Integer, ByVal value As Integer)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Out 888, 255

Out 890, 4

Shape1.BackColor = vbRed

Shape2.BackColor = vbRed

Shape3.BackColor = vbRed

Shape4.BackColor = vbRed

Shape5.BackColor = vbRed

Shape6.BackColor = vbRed

Shape7.BackColor = vbRed

Shape8.BackColor = vbRed

Shape9.BackColor = vbRed

Shape10.BackColor = vbRed

Shape11.BackColor = vbRed

Shape12.BackColor = vbRed

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

End Sub

Private Sub Command2_Click()

Out 888, 0

Out 890, 11

Shape1.BackColor = vbWhite

Shape2.BackColor = vbWhite

Shape3.BackColor = vbWhite

Shape4.BackColor = vbWhite

Shape5.BackColor = vbWhite

Shape6.BackColor = vbWhite

Shape7.BackColor = vbWhite

Shape8.BackColor = vbWhite

Shape9.BackColor = vbWhite

Shape10.BackColor = vbWhite

Shape11.BackColor = vbWhite

Shape12.BackColor = vbWhite

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

End Sub

Private Sub Command3_Click()

Timer1.Enabled = True

Timer2.Enabled = True

Command1.Enabled = False

Command2.Enabled = False

Command4.Enabled = False

Command5.Enabled = True

End Sub

Private Sub Command4_Click()

Timer4.Enabled = True

Timer3.Enabled = True

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command5.Enabled = True

End Sub

Private Sub Command5_Click()

Timer1.Enabled = False

Timer2.Enabled = False

Timer3.Enabled = False

Timer4.Enabled = False

Out 888, 0

Out 889, 11

Shape1.BackColor = vbWhite

Shape2.BackColor = vbWhite

Shape3.BackColor = vbWhite

Shape4.BackColor = vbWhite

Shape5.BackColor = vbWhite

Shape6.BackColor = vbWhite

Shape7.BackColor = vbWhite

Shape8.BackColor = vbWhite

Shape9.BackColor = vbWhite

Shape10.BackColor = vbWhite

Shape11.BackColor = vbWhite

Shape12.BackColor = vbWhite

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer2_Timer()

Dim a As Integer

a = Timer1.Interval

Timer1.Interval = a + 100

Select Case a

Case 100

Out 890, 11

Out 888, 1

Shape12.BackColor = vbWhite

Shape1.BackColor = vbRed

Case 200

Out 888, 2

Shape1.BackColor = vbWhite

Shape2.BackColor = vbRed

Case 300

Out 888, 4

Shape2.BackColor = vbWhite

Shape3.BackColor = vbRed

Case 400

Out 888, 8

Shape3.BackColor = vbWhite

Shape4.BackColor = vbRed

Case 500

Out 888, 16

Shape4.BackColor = vbWhite

Shape5.BackColor = vbRed

Case 600

Out 888, 32

Shape5.BackColor = vbWhite

Shape6.BackColor = vbRed

Case 700

Out 888, 64

Shape6.BackColor = vbWhite

Shape7.BackColor = vbRed

Case 800

Out 888, 128

Shape7.BackColor = vbWhite

Shape8.BackColor = vbRed

Case 900

Out 888, 0

Out 890, 10

Shape8.BackColor = vbWhite

Shape9.BackColor = vbRed

Case 1000

Out 888, 9

Shape9.BackColor = vbWhite

Shape10.BackColor = vbRed

Case 1100

Out 888, 15

Shape10.BackColor = vbWhite

Shape11.BackColor = vbRed

Case 1200

Out 888, 3

Shape11.BackColor = vbWhite

Shape12.BackColor = vbRed

Timer1.Interval = 100

End Select

End Sub

Private Sub Timer3_Timer()

Dim b As Integer

b = Timer4.Interval

Timer4.Interval = b + 100

Select Case b

Case 100

Out 888, 96

Shape1.BackColor = vbWhite

Shape12.BackColor = vbWhite

Shape6.BackColor = vbRed

Shape7.BackColor = vbRed

Case 200

Out 888, 144

Shape6.BackColor = vbWhite

Shape7.BackColor = vbWhite

Shape5.BackColor = vbRed

Shape8.BackColor = vbRed

Case 300

Out 888, 8

Out 890, 10

Shape5.BackColor = vbWhite

Shape8.BackColor = vbWhite

Shape4.BackColor = vbRed

Shape9.BackColor = vbRed

Case 400

Out 888, 4

Out 890, 9

Shape4.BackColor = vbWhite

Shape9.BackColor = vbWhite

Shape3.BackColor = vbRed

Shape10.BackColor = vbRed

Case 500

Out 888, 2

Out 890, 15

Shape3.BackColor = vbWhite

Shape10.BackColor = vbWhite

Shape2.BackColor = vbRed

Shape11.BackColor = vbRed

Case 600

Out 888, 1

Out 890, 3

Shape2.BackColor = vbWhite

Shape11.BackColor = vbWhite

Shape1.BackColor = vbRed

Shape12.BackColor = vbRed

Timer4.Interval = 100

End Select

End Sub

7. Sekarang silahkan run dan contoh hasilnya dapat anda lihat di video dibawah ini.

Lihat Artikel yang terkait :

PROGRAM PORT PARALEL MOTOR SERVO DENGAN VB

PROGRAM PORT PARALEL MOTOR STEPPER DENGAN VB

PROGRAM PORT PARALEL MOTOR SERVO DENGAN VB

Sebaiknya anda terlebih dahulu mengetahui dasar teori dari motor servo itu sendiri dan anda bisa lihat
dipostingan Program Motor Servo dengan CodevisionAVR
1. Buatlah hardwarenya dengan menyambungkan pin data 9 ke kabel kontrol servo yang biasanya warna
    putih/kuning, tambahkan supply servo dari luar antara 4,8-12 volt.

2. Buat project baru kemudian tambahkan 1 label untuk judul, 3 buah commandbutton.

3. Kemudian desain lah menjadi seperti gambar berikut :

4. Save project dan Form di folder yang sama lalu copykan inpout32.dll pada folder tempat penyimpanan tersebut.

6. Masukkan kode program seperti dibawah ini :

Private Declare Function Inp Lib "inpout32.dll" _

Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Private Declare Sub Out Lib "inpout32.dll" _

Alias "Out32" (ByVal PortAddress As Integer, ByVal value As Integer)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Dim c As Integer

For c = 0 To 50

Out 888, 128

Sleep 2

Out 888, 0

Sleep 18

Next c

End Sub

Private Sub Command2_Click()

Dim b As Integer

For b = 0 To 50

Out 888, 128

Sleep 1.5

Out 888, 0

Sleep 18.5

Next b

End Sub

Private Sub Command3_Click()

Dim a As Integer

For a = 0 To 50

Out 888, 128

Sleep 1

Out 888, 0

Sleep 19

Next a

End Sub

7. Sekarang silahkan run dan contoh hasilnya dapat anda lihat di video pada postingan Membuat Program Interfacing Port Parallel Led Berjalan Dengan Visual Basic

Lihat Artikel yang terkait :

PROGRAM PORT PARALEL MOTOR STEPPER DENGAN VB

PROGRAM PORT PARALEL MOTOR DC DENGAN VB

PROGRAM PORT PARALEL MOTOR STEPPER DENGAN VB

Sebaiknya anda terlebih dahulu mengetahui dasar teori dari motor stepper itu sendiri dan anda bisa lihat dipostingan Program Motor Stepper dengan CodevisionAVR 
1.Buatlah hardwarenya dengan menyambungkan pin data (2-5) ingat untuk menggerakkan motor steper dibutuhkan driver motor steper bisa ULN2803 atau UN2003 karena arus yang dihasilkan dari port parallel kecil sambungkan 4 buah kaki pin data tadi ke inputan driver motor stepper dan untuk outputnya sambungkan ke kaki-kaki motor stepper secara berurutan dan jangan lupa tambahkan supply 5-12 volt pada motor drivernya serta ground untuk lebih jelasnya lihat data sheetnya.
2. Buat project baru kemudian tambahkan 1 label untuk judul, 3 buah commandbutton dan 2 buah timer. Atur properties interval timer 100 dan dalam keadaan false.
3. Kemudian desain lah menjadi seperti gambar berikut :

4. Save project dan Form di folder yang sama lalu copykan inpout32.dll pada folder tempat penyimpanan tersebut.

6. Masukkan kode program seperti dibawah ini :

Private Declare Function Inp Lib "inpout32.dll" _

Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Private Declare Sub Out Lib "inpout32.dll" _

Alias "Out32" (ByVal PortAddress As Integer, ByVal value As Integer)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Out 888, 1

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Out 888, 0

End Sub

Private Sub Command3_Click()

Out 888, 1

Timer2.Enabled = True

End Sub

Private Sub Timer1_Timer()

Select Case Inp(888)

Case 1

Out 888, 4

Sleep 100

Case 4

Out 888, 2

Sleep 100

Case 2

Out 888, 8

Sleep 100

Case 8

Out 888, 1

Sleep 100

End Select

End Sub

Private Sub Timer2_Timer()

Select Case Inp(888)

Case 1

Out 888, 8

Sleep 100

Case 8

Out 888, 2

Sleep 100

Case 2

Out 888, 4

Sleep 100

Case 4

Out 888, 1

Sleep 100

End Select

End Sub

7. Sekarang silahkan run dan contoh hasilnya dapat anda lihat di video pada postingan Membuat Program Interfacing Port Parallel Led Berjalan Dengan Visual Basic

Lihat Artikel yang terkait :

PROGRAM PORT PARALEL MOTOR DC DENGAN VB

MEMBUAT PROGRAM SIMULASI LED BERJALAN DENGAN VB

PROGRAM PORT PARALEL MOTOR DC DENGAN VB

1. Buatlah hardwarenya dengan menyambungkan kaki-kaki motor DC pada pin data 7 dan 8.

2. Buat project baru kemudian tambahkan 1 label untuk judul dan 3 buah commandbutton

3. Kemudian desain lah menjadi seperti gambar berikut :

4. Save project dan Form di folder yang sama lalu copykan inpout32.dll pada folder tempat penyimpanan tersebut.

6. Masukkan kode program seperti dibawah ini :

Private Declare Function Inp Lib "inpout32.dll" _

Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Private Declare Sub Out Lib "inpout32.dll" _

Alias "Out32" (ByVal PortAddress As Integer, ByVal value As Integer)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Out 888, 32

End Sub

Private Sub Command2_Click()

Out 888, 0

End Sub

Private Sub Command3_Click()

Out 888, 64

End Sub

7. Sekarang silahkan run dan contoh hasilnya dapat anda lihat di video pada postingan Membuat Program Interfacing Port Parallel Led Berjalan Dengan Visual Basic

Lihat Artikel yang terkait :

MEMBUAT PROGRAM SIMULASI LED BERJALAN DENGAN VB

MEMBUAT PROGRAM ANIMASI GERAK DENGAN VB

MEMBUAT PROGRAM SIMULASI RUNNING LED DENGAN VB

1. Buat Project baru, kemudian tambahkan frame, Label, 5 buah shape, command button dan kontrol timer, dengan merubah properti seperti tabel berikut:

Kontrol	Properti	Setting
Label	Caption	Simulasi Led Berjalan Dengan Visual Basic
Frame	Caption	Led
Shape	FillColor FillStyle	Pilih Warna Putih Solid
Timer	Enabled Interval	False 100
CommandButton	Caption	Mulai

2. Aturlah Desain form seperti gambar berikut :

3. Klik ganda pada Kontrol Timer dan ketik program sebagai

berikut :

Dim a As Integer

a = Timer1.Interval

Timer1.Interval = a + 100

Select Case a

Case 100

Shape5.FillColor = vbWhite

Shape1.FillColor = vbRed

Case 200

Shape1.FillColor = vbWhite

Shape2.FillColor = vbRed

Case 300

Shape2.FillColor = vbWhite

Shape3.FillColor = vbRed

Case 400

Shape3.FillColor = vbWhite

Shape4.FillColor = vbRed

Case 500

Shape4.FillColor = vbWhite

Shape5.FillColor = vbRed

Timer1.Interval = 100

End Select

4. Klik ganda Command1Button Mulai dan ketik program sebagai

berikut :

Timer1.Enabled = True

5. Klik ganda Command2Button Stop dan ketik program sebagai

berikut :

Timer1.Enabled = False

Shape1.FillColor = vbWhite

Shape2.FillColor = vbWhite

Shape3.FillColor = vbWhite

Shape4.FillColor = vbWhite

Shape5.FillColor = vbWhite

5. Jalankan program dan coba klik tombol Mulai untuk menjalankan

Simulasi Led Berjalan dengan Visual Basic.

6. Untuk melihat simulasinya bisa anda tekan tombol Play pada Video

dibawah ini:

Lihat Artikel yang terkait :

MEMBUAT PROGRAM ANIMASI GERAK DENGAN VB

MEMBUAT PROGRAM JAM DIGITAL DENGAN VB