DESCOD: visual basic

untuk membuat pemberi makan ikan otomatis diperlukan Mikrokontroler, Disini saya menggunakan minimum sistem ATMEGA 16, RTC DS1305, RELAY 12 Volt, FAN PC 12volt.

download Souce Code VB: tiny Upload
download source code CV-AVR mikro :
.

Project :

Version :

Date    : 6/18/2014

Author  : NeVaDa

Company :

Comments:

Chip type               : ATmega16

Program type            : Application

AVR Core Clock frequency: 8.000000 MHz

Memory model            : Small

External RAM size       : 0

Data Stack size         : 256

*****************************************************/

#include <mega16.h>

#include <stdio.h>

#include <stdlib.h>

#include <delay.h>

#include <string.h>

int jstart, mstart, sstart;

int jfinish, mfinish, sfinish;

unsigned char *hourr;

unsigned char *minutee;

unsigned char *secc;  

int jam, menit, detik;

int tunda, interval;

unsigned char ber[8];

unsigned char bet[8]; 

int interval,tunda;

// I2C Bus functions

#asm

.equ __i2c_port=0x15 ;PORTC

.equ __sda_bit=1

.equ __scl_bit=0

#endasm

#include <i2c.h>

// DS1307 Real Time Clock functions

#include <ds1307.h>

#ifndef RXB8

#define RXB8 1

#endif

#ifndef TXB8

#define TXB8 0

#endif

#ifndef UPE

#define UPE 2

#endif

#ifndef DOR

#define DOR 3

#endif

#ifndef FE

#define FE 4

#endif

#ifndef UDRE

#define UDRE 5

#endif

#ifndef RXC

#define RXC 7

#endif

#define FRAMING_ERROR (1<<FE)

#define PARITY_ERROR (1<<UPE)

#define DATA_OVERRUN (1<<DOR)

#define DATA_REGISTER_EMPTY (1<<UDRE)

#define RX_COMPLETE (1<<RXC)

// USART Receiver buffer

#define RX_BUFFER_SIZE 8

char rx_buffer[RX_BUFFER_SIZE];

#if RX_BUFFER_SIZE <= 256

unsigned char rx_wr_index,rx_rd_index,rx_counter;

#else

unsigned int rx_wr_index,rx_rd_index,rx_counter;

#endif

// This flag is set on USART Receiver buffer overflow

bit rx_buffer_overflow;

//*********************************************************************************************

// USART Receiver interrupt service routine

interrupt [USART_RXC] void usart_rx_isr(void)

{

char SBUF; int interval, tunda ;

char status,data;                        

status=UCSRA;

data=UDR;                

if(data=='B')

{ 

interval=SBUF;                                                      //PROGRAM TERIMA DATA DARI VB

SBUF=NULL;

}

else if(data=='C')

{ tunda=SBUF;

SBUF=NULL;

}

else

SBUF=data;           

//************************************************************************************************

if ((status & (FRAMING_ERROR | PARITY_ERROR | DATA_OVERRUN))==0)

{

rx_buffer[rx_wr_index++]=data;

#if RX_BUFFER_SIZE == 256

// special case for receiver buffer size=256

if (++rx_counter == 0)

{

#else

if (rx_wr_index == RX_BUFFER_SIZE) rx_wr_index=0;

if (++rx_counter == RX_BUFFER_SIZE)

{

rx_counter=0;

#endif

rx_buffer_overflow=1;

}

}

}

#ifndef _DEBUG_TERMINAL_IO_

// Get a character from the USART Receiver buffer

#define _ALTERNATE_GETCHAR_

#pragma used+

char getchar(void)

{

char data;

while (rx_counter==0);

data=rx_buffer[rx_rd_index++];

#if RX_BUFFER_SIZE != 256

if (rx_rd_index == RX_BUFFER_SIZE) rx_rd_index=0;

#endif

#asm("cli")

--rx_counter;

#asm("sei")

return data;

}

#pragma used-

#endif

// Standard Input/Output functions

#include <stdio.h>

// Declare your global variables here

char buf[33];

void main(void)

{

// Declare your local variables here

// Input/Output Ports initialization

// Port A initialization

// Func7=In Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In 

// State7=T State6=T State5=T State4=T State3=T State2=T State1=T State0=T 

PORTA=0x00;

DDRA=0x00;

// Port B initialization

// Func7=Out Func6=Out Func5=Out Func4=Out Func3=Out Func2=Out Func1=Out Func0=Out 

// State7=0 State6=0 State5=0 State4=0 State3=0 State2=0 State1=0 State0=0 

PORTB=0x00;

DDRB=0xFF;

// Port C initialization

// Func7=In Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In 

// State7=T State6=T State5=T State4=T State3=T State2=T State1=T State0=T

PORTC=0x00;

DDRC=0x00;

// Port D initialization

// Func7=In Func6=In Func5=In Func4=In Func3=In Func2=In Func1=In Func0=In 

// State7=T State6=T State5=T State4=T State3=T State2=T State1=T State0=T 

PORTD=0x00;

DDRD=0x00;

// Timer/Counter 0 initialization

// Clock source: System Clock

// Clock value: Timer 0 Stopped

// Mode: Normal top=0xFF

// OC0 output: Disconnected

TCCR0=0x00;

TCNT0=0x00;

OCR0=0x00;

// Timer/Counter 1 initialization

// Clock source: System Clock

// Clock value: Timer1 Stopped

// Mode: Normal top=0xFFFF

// OC1A output: Discon.

// OC1B output: Discon.

// Noise Canceler: Off

// Input Capture on Falling Edge

// Timer1 Overflow Interrupt: Off

// Input Capture Interrupt: Off

// Compare A Match Interrupt: Off

// Compare B Match Interrupt: Off

TCCR1A=0x00;

TCCR1B=0x00;

TCNT1H=0x00;

TCNT1L=0x00;

ICR1H=0x00;

ICR1L=0x00;

OCR1AH=0x00;

OCR1AL=0x00;

OCR1BH=0x00;

OCR1BL=0x00;

// Timer/Counter 2 initialization

// Clock source: System Clock

// Clock value: Timer2 Stopped

// Mode: Normal top=0xFF

// OC2 output: Disconnected

ASSR=0x00;

TCCR2=0x00;

TCNT2=0x00;

OCR2=0x00;

// External Interrupt(s) initialization

// INT0: Off

// INT1: Off

// INT2: Off

MCUCR=0x00;

MCUCSR=0x00;

// Timer(s)/Counter(s) Interrupt(s) initialization

TIMSK=0x00;

// USART initialization

// Communication Parameters: 8 Data, 1 Stop, No Parity

// USART Receiver: On

// USART Transmitter: On

// USART Mode: Asynchronous

// USART Baud Rate: 9600

UCSRA=0x00;

UCSRB=0x98;

UCSRC=0x86;

UBRRH=0x00;

UBRRL=0x33;

// Analog Comparator initialization

// Analog Comparator: Off

// Analog Comparator Input Capture by Timer/Counter 1: Off

ACSR=0x80;

SFIOR=0x00;

// ADC initialization

// ADC disabled

ADCSRA=0x00;

// SPI initialization

// SPI disabled

SPCR=0x00;

// TWI initialization

// TWI disabled

TWCR=0x00;

// I2C Bus initialization

i2c_init();

// DS1307 Real Time Clock initialization

// Square wave output on pin SQW/OUT: Off

// SQW/OUT pin state: 0

rtc_init(0,0,0);

rtc_set_time(02,56,12);

rtc_get_time(hourr,minutee,secc);   

puts("Pemberi makan IKAN");

// Global enable interrupts

#asm("sei")

while (1)

{ 

puts(hourr);

puts(minutee);

puts(secc);

itoa(interval,ber);  

itoa(tunda,bet);   

jam = atoi(hourr);

jstart=jam;

menit=atoi(minutee);

mstart=menit;

detik=atoi(secc);

sstart=detik;

jfinish=jstart+interval;

mfinish=mstart;

sfinish=sstart;

jam=atoi(hourr);

menit=atoi(minutee);

detik=atoi(secc); 

if(jfinish==jam && mfinish==menit && sfinish==detik)

{ 

PORTB.2=1;

delay_ms(tunda);

PORTB.2=0;

} 

}

}

mekanisme alat:

program vb mengirimkan nilai A dan B. A digunakan untuk mengirim berapa jam sekali memberi makan ikan. B = digunakan untuk menirimkan berapa lama FAN berputar untuk mendorong/mengupankan makanan ke aquarium.

Nilai A dan B akan diterima oleh microcontroler dan dicocokkan dengan Jam pada Rtc. pada Microkontroler dibandingkan apakah jam sekarang sama dengan inputan A. jika ya maka mikrokontroler memicu Relay kemudia relay mengalirkan arus ke Fan selama delay B. yang kita kirimkan tadi dari visual basic.

berikut Flowchart umumnya:
pada vb // Interval = A
// Makan =B

Gambar 1. pengiriman waktu makan ikan dari VB

Gambar 2. Flowchart Penerimaan data dari VB

Gambar 3. Flowchart Eksekusi pemberian makan

>>Terima kasih telah berkunjung di AKUBECUS.blog <<<

Paint merupakan aplikasi grafis bawaan dari OS Windows. mulai dari Windows 98 sampai Windows 8 aplikasi ini selalu ada. pasti kalian tahu kan, aplikasi ini. untuk membuat aplikasi "paint" ikuti langkah-langkah berikut:

1. Buka Visual Basic, pilih standard.exe, maka akan tampil area kerja.sesuaikan ukuran kerja sesuai dengan rancangan kalian.

2. pilih tool "PictureBox" , klik dan drag pada area kerja.

Gambar 1. Icon PictureBox

3. ubah warna "BackColor" menjadi putih.

4. pilih tool "VschroolBar" nantinya digunakan untuk mengatur ketebalan Brush Tool. Agar aplikasi mudah di mengerti orang awam tambahkan label juga.

Kodenya ini: Picture1.DrawWidth = VScroll1

5. ini masih belum lengkap, lengkapnya tunggu lanjutin sesinya...

6. dibawah ini gambar aplikasinya:

Gambar 2. Aplikasi Paint (sesi 1)

Kode program lengkapnya ini:

Dim draw As Boolean
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
draw = True
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If draw Then
        Picture1.PSet (X, Y), vbBlack
    End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    draw = False
End Sub

Private Sub VScroll1_Change()
Picture1.DrawWidth = VScroll1
End Sub

Sekian posting saya yang sederhana ini, semoga dapat memberi wawasan baru untuk anda.

>>Terima kasih telah berkunjung di AKUBECUS.blog <<<

Pages

2 Maret 2015

Pemberi makan ikan otomatis VB6.0 + (Mikrokontroler)

Membuat gambar Icon Command Button Vb6.0

1 Maret 2015

Membuat Aplikasi Paint di Visual Basic 6.0