bingung mau buat project apa, dan kepikiran hal yang simple, program lcd dengan interface, mungkin agan-agan udah kebayang bentuknya dan programnya, bagi yang belum mari di simak, so langsung aja ke tkp
berikut hasil jadi program dan skemanya .. (simulasi) saya membuat ini agar memudahkan bagi agan-agan yang ingin belajar mikrokontroler dan vb6, namun tidak mempunyai hardware yang memadai, ya bisa di bilang seperti saya ini, hanya bisa simulasi.hehe
1. yang kita lakukan sekarang membuat skema / simulasi di proteus dulu, seperti gambar di atas, jangan lupa untuk mensseting properties pada mikrokontroler dan compim pada simulasi, setting propertiesnya ini sudah di bahas sebelumnya pada bab Membuat Program Led Atmega16 Dengan Interface VB6 jadi bagi agan-agan yang belum mengerti bisa melihat bab tersebut untuk setting propertiesnya, setelah selesai lalu buka bascom avr, dan berikut untuk programnya
bagian untuk mikrokontroler sudah selesai, sekarang kita membuat interface dengan vb,
2. buka aplikasi VB6, dan buat form seperti gambar di bawah
formnya benar saya buat sederhana.hehe ,setelah selesai, masukan script program di bawah ..
setelah selesai bagian interface, sekarang mengkoneksikannya dengan VSPE, hal ini juga sudah di bahas di bab sebelumnya, bab Membuat Program Led Atmega16 Dengan Interface VB6
@catatan : sebenarnya mikrokontroler yang sudah di program bisa di cek pada hyperterminal, tetapi karena saya menginginkan sesuatu yang berbeda dan terlihat lebih modern.hehe
Download http://adf.ly/1ZL0kn
password rar: ganyang-angkara.blogspot.com
*..sesama blogger harus saling menghargai, jika agan-agan ingin mengcopas harap cantumkan alamat urlnya, Terimakasih..*
berikut hasil jadi program dan skemanya .. (simulasi) saya membuat ini agar memudahkan bagi agan-agan yang ingin belajar mikrokontroler dan vb6, namun tidak mempunyai hardware yang memadai, ya bisa di bilang seperti saya ini, hanya bisa simulasi.hehe
1. yang kita lakukan sekarang membuat skema / simulasi di proteus dulu, seperti gambar di atas, jangan lupa untuk mensseting properties pada mikrokontroler dan compim pada simulasi, setting propertiesnya ini sudah di bahas sebelumnya pada bab Membuat Program Led Atmega16 Dengan Interface VB6 jadi bagi agan-agan yang belum mengerti bisa melihat bab tersebut untuk setting propertiesnya, setelah selesai lalu buka bascom avr, dan berikut untuk programnya
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.4 , _
Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Enable Urxc
Enable Interrupts
On Urxc , Out_serial
Dim In_serial As String * 16
Print "Ketik Pada Terminal lalu ketik enter"
Do 'buffer
Loop
Out_serial:
Input In_serial 'mengambil data yang di kirim lewat serial
Locate 1 , 1
Lcd In_serial ; " "
Return
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.4 , _
Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Enable Urxc
Enable Interrupts
On Urxc , Out_serial
Dim In_serial As String * 16
Print "Ketik Pada Terminal lalu ketik enter"
Do 'buffer
Loop
Out_serial:
Input In_serial 'mengambil data yang di kirim lewat serial
Locate 1 , 1
Lcd In_serial ; " "
Return
bagian untuk mikrokontroler sudah selesai, sekarang kita membuat interface dengan vb,
2. buka aplikasi VB6, dan buat form seperti gambar di bawah
Private Sub out_serial()
MSComm1.Output = Text1.Text
MSComm1.Output = Chr(13)
Text1.Text = ""
End Sub
Private Sub Command1_Click()
On Error GoTo err
If Command1.Caption = "Connect" Then
MSComm1.CommPort = Combo1.ListIndex + 1
MSComm1.PortOpen = True
Command1.Caption = "Disconnect"
Combo1.Enabled = False
MsgBox "Berhasil terhubung", vbInformation, "created by ganang"
Else
MSComm1.PortOpen = False
Combo1.Enabled = True
Command1.Caption = "Connect"
MsgBox "komunikasi terputus", vbInformation, "created by ganang"
End If
Exit Sub
err:
MsgBox "com tidak tersedia", vbCritical, "created by ganang"
End Sub
Private Sub Form_Load()
For i = 1 To 15
Combo1.AddItem "Com " & i
Next i
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If MSComm1.PortOpen = True Then
If KeyCode = 13 Then
out_serial
End If
End If
End Sub
MSComm1.Output = Text1.Text
MSComm1.Output = Chr(13)
Text1.Text = ""
End Sub
Private Sub Command1_Click()
On Error GoTo err
If Command1.Caption = "Connect" Then
MSComm1.CommPort = Combo1.ListIndex + 1
MSComm1.PortOpen = True
Command1.Caption = "Disconnect"
Combo1.Enabled = False
MsgBox "Berhasil terhubung", vbInformation, "created by ganang"
Else
MSComm1.PortOpen = False
Combo1.Enabled = True
Command1.Caption = "Connect"
MsgBox "komunikasi terputus", vbInformation, "created by ganang"
End If
Exit Sub
err:
MsgBox "com tidak tersedia", vbCritical, "created by ganang"
End Sub
Private Sub Form_Load()
For i = 1 To 15
Combo1.AddItem "Com " & i
Next i
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If MSComm1.PortOpen = True Then
If KeyCode = 13 Then
out_serial
End If
End If
End Sub
setelah selesai bagian interface, sekarang mengkoneksikannya dengan VSPE, hal ini juga sudah di bahas di bab sebelumnya, bab Membuat Program Led Atmega16 Dengan Interface VB6
@catatan : sebenarnya mikrokontroler yang sudah di program bisa di cek pada hyperterminal, tetapi karena saya menginginkan sesuatu yang berbeda dan terlihat lebih modern.hehe
moga bermanfaat bagi agan-agan yang ingin mencobanya,
moga berhasil mencobanya..
moga berhasil mencobanya..
Download http://adf.ly/1ZL0kn
password rar: ganyang-angkara.blogspot.com
*..sesama blogger harus saling menghargai, jika agan-agan ingin mengcopas harap cantumkan alamat urlnya, Terimakasih..*