komuikasi VB dan AVR 8535 (scada dengan VB dan AVR8535)

Pada artikel kali ini saya akan ON dan OFF PORTC.0 pada AVR 8535 dari PC dengan menggunakan VB6.0

1.Buatlah tampilan VB6.0 seperti pada gabar dibawah ini:

source code VB:
Dim data 'General Declaration
Private Sub kirim()
Dat$ = data
DatTX$ = Dat$ + Chr$(13)
MSComm1.Output = DatTX$
End Sub

Private Sub Command1_Click()

data = 1
kirim
Text1.Text = ""
End Sub

Private Sub Command2_Click()

data = 0
kirim
Text1.Text = ""
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1 '(port PC comm1,tapi tergantung PC anda)
MSComm1.Settings = "9600,N,8,1"   '(harus sama PC dan AVR)
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_oncom()

Dim masukan As String


masukan = MSComm1.Input
If masukan <> "" Then
With Text1
    .SelStart = Len(.Text)
    .SelText = masukan
End With
Text2.Text = Mid(Text1, 4, 8)
End If

End Sub

Private Sub Timer1_Timer()
MSComm1_oncom
End Sub

SOURCE CODE BASCOM AVR untuk avr 8535:

$regfile = "8535def.dat"
$crystal = 11059200
$baud = 9600
Dim Data1 As Byte
Declare Sub Nyala()
Declare Sub Mati()
Config Portc.0 = Output


Do
Input Data1
      Select Case Data1
      Case 1 : Call Nyala()
      Case 0 : Call Mati()

End Select
Loop
End


Sub Nyala()
Portc.0 = 1

Print "relay on"

End Sub

Sub Mati()
Portc.0 = 0
Print "relay off"

End Sub

untuk pertanyaan silahkan kirim email ke mhdyasseen@yahoo.com

Aplikasi Mikrokontroler AVR 8535 pengaturan kecepatan motor DC dengan PWM dan Tachometer dengan LCD dengan BASCOM AVR

Aplikasi Mikrokontroler AVR 8535 pengaturan kecepatan motor DC dengan PWM dan Tachometer dengan LCD menggunakan Bascom AVR
Untuk LCD dihubungkan dengan Port A
Timer1 sebagai pembangkit PWM
Timer0 sebagai penghitung pulsa encoder (sensor putaran)
Pinc.6 input berupa saklar geser
jika saklar ON maka motor akan berputar dan kecepatan motor akan di monitor pada LCD

berikut source code BASCOM AVR


$regfile = "m8535.dat"
$crystal = 11059200

$lib "lcd4busy.Lbx"
Config Lcd = 16 * 2
Const _lcdport = Porta
Const _lcdddr = Ddra
Const _lcdin = Pina
Const _lcd_e = 2
Const _lcd_rw = 1
Const _lcd_rs = 0
Cursor Off
Config Timer0 = Counter , Edge = Falling
Enable Interrupts
Enable Ovf0
On Ovf0 Int_counter
Dim speed As Integer
Dim Mulai As Bit
Config Portc.6 = Input
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 8
Config Portc = Input

Do

If Pinc.6 = 0 Then

Pwm1a = 500
Counter0 = 0
speed = 0
Start Timer0
Waitms 500
Stop Timer0
speed = speed + Counter0
speed = speed * 6 'Tergantung hasil kalibrasi

Cls
Lcd "***RPM****"
Locate 2 , 1
Lcd "(RPM)="
Locate 2 , 8
Lcd " "
Locate 2 , 8
Lcd speed
Else
Pwm1a = 0
End If

Loop
'---------------
Int_counter:
speed = speed+ 65535
Return

Gambar Rangkaian
To continued..
untuk pertanyaan silahkan email ke mhdyasseen@yahoo.com

Private VB ke PLC

Private Microcontroller AVR

 Private Mikrokontroller AVR ATMEGA 8535/16/32
Dari Dasar , dari tidak bisa sama sekali sampai bisa

Jadwal Kursus : Hari Sabtu / Minggu
Durasi   : 12 Jam (2 kali pertemuan )
Waktu    : Mulai jam 9:00 s/d 15.00

Fasilitas :
1.Maksimal 2 peserta
2.Komputer dan Modul training
3.Makan Siang
4.Snack

Metode Kursus:
1. Dengan Bahasa Basic yang mudah dimengerti
2. Teori 20 %
3. Praktek 80 %
Materi Training
1.Pengenalan Micro AVR atmega16/32/8535
2.konsep I/O
3.Bahas Basic
4.Seven Segment
5.4x4 Keypad Matrik
6.LCD
7.Timer dan Counter
8.Interupts
9.Analog Input
10.EEPROM
11.Komunikasi Serial
12.PWM

Kontak person :
M.Yassin
Hp 0812-8767-6325



Biaya Rp 900.000 GRATIS MINIMUM SYSTEM AVR 8535 untuk anda
Lokasi pasar minggu jakarta selatan (TB SIMATUPANG BELAKANG GEDUNG ANTAM)
PARKIR : MOBIL DAN MOTOR (AMAN)
BISA PRIVATE  DATANG KE RUMAH ATAU DI KANTOR ATAU PABRIK


GARANSI DIJAMIN BISA DAN MAHIR