Make login form and get user id login to next form on visual basic

make a login form on visual basic it's so easy, but we can make some creation to make an user id can identifiying on the next form,
follow thats instruction:
1. create new project, choice vb enterprise edition control
2. go to Project, references, include that :
- visual basic for apps
- visual basic runtime object and procedure
- ole automation
- microsoft access 9 object library
- microsoft activex data objects 2.51 library
- microsoft DAO 3.51 objects library
- microsoft data binding collection
3. add 2 form, login form and main form
4. on the login form, add 2 text and 2 command button, the include this code :

Private Sub form_load()
'open connection to db
cn.Open ("Provider= Microsoft.Jet.OLEDB.4.0;Persist security info=False;Data Source=" & App.Path & "\database.mdb" & ";Jet OLEDB:Database;")
End Sub

Private Sub Command1_Click()
'access table user "tbuser", with "if id=text1 anf password=text2", if one of them not correct then login would fail
rs.Open "Select*from tbuser where id='" & Text1.Text & "' AND Password ='" & Text2.Text & "'", cn, 3, 3
If rs.EOF Then
'EOF yaitu end of field or if did'nt find
MsgBox "ID not registered or incorrect password", vbOKOnly + vbExclamation, "Attention !"
Text1.Text = ""
Text2.Text = ""
'clear text1 and text2
rs.Close
'close
Else
'-----------------------------------------------------------------
'use this code to get user login name
With rs
strid_user = !id 'set strid_user same as id login
End With
rs.Close 'close recordset
'============
Unload Me 'close form login
Main.Show 'show form main
End If
End Sub

Private Sub Command2_Click()
cn.Close
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
' Enter
If KeyAscii = 13 Then
'TAB
SendKeys vbTab
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'TAB
SendKeys vbTab
End If
End Sub

5. on the main form add timer1, label 10, label11, label12, then include this code :
Private Sub form_load()
'load eeverything here
'show day
Ahari = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
SHari = Ahari(Abs(Weekday(Date) - 1))
'chow info
Label17 = "information of form"
'show user as login
Label10 = strid_user
'show date
Label12 = "" & SHari & ", " & Format(Date, "dd-mm-yyyy")
'call timer to show time
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label11 = Format(Time, "hh:mm:ss")
End Sub
6. make a module then include this :
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public strid_user As String
7. dont forget include database.mdb on link download bottom, and run your project, use p id = a pass = a...

good luck

still dizzy, get project and learn...
download here : (use pass : do-stupid-things.blogspot.com
login as user_pass_do-stupid-things.blogspot.com.rar - 31 KB

» Read More...

how to print all data in rich textbox on Visual Basic

now.., if you think to print all data on a richtextbox is a hard to do, you wrong just foolow that steps:
1. create new project
2. create new form, richtextbox, and one command1 button then include that code :

Private Sub Command1_Click()
Printer.FontName = "Courier New" 'font type
Printer.FontSize = "9" 'size
Printer.Print RichTextBox1.Text 'print all
'to printer
Printer.EndDoc
End Sub


3. turn on your printer, run your project, click command

good luck

just download the project : (use password : do-stupid-things.blogspot.com)
Print all in Rich TextBox.rar

» Read More...

Different of vbmodal, vbmodeles and only form show on visual basic

sometimes we need to create new form without close another or a form cannot be touched before new form closed, follow steps :
1. create new project
2. create form1, command1, command2, command3 on the form, include the code :

Private Sub Command1_Click()
Form2.Show vbModeless, Me
End Sub

Private Sub Command2_Click()
Form2.Show vbModal, Me
End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

3. create form2, and run your project, looks the different

good luck

just download the project : (use password : do-stupid-things.blogspot.com)
different of vbmodal, vbmodeles and only form show on visual basic

» Read More...

The basic of controlling servo motor using Atmega Series microcontroller

Servo motor is a important part in world technology, but using that is so different with other motor types, every angle of rotation must be controlled by digital signal for example, using microcontroller ( in this section we would use parallax servo motor type standard )



Now, by using CodevisionAVR, please follow instructions :
1. create new project by codevisionavr, set PORTA as output (0) and PORTD as input (T)
2. enter code declaration and go to global variable in codevisionavr :

#include <mega8535.h>
#include <delay.h>
#define servo PORTA.0
// Declare your global variables here
char i,j;

// instruction to moving servo here, void called by command while(1)
void center(char j) // center
{
for(i=0;i<j;++i)
{
servo=1;
delay_us(1500);
servo=0;
delay_ms(20);
}
}

void full_cw(char j) //rotate 180 degree CW
{
for(i=0;i<j;++i)
{
servo=1;
delay_us(2400);
servo=0;
delay_ms(20);
}
}

void full_ccw(char j) //rotate180 degree CCW
{
for(i=0;i<j;++i)
{
servo=1;
delay_us(600);
servo=0;
delay_ms(20);
}
}
// end perintah

/********standard of servo parallax
 1000us(0derajat)-2000us(180degree),
so each degree 2000-1000=1000us/180degree=5,56us
example we should rotate to 45 degree
it means the pwm to put is 45*5,56=250,2us+1000us=1250,2us
so if you want to move 45 degree give pwm 1250,2us
more example to 130degree:130*5,56=722,8us+1000us=1722,8us
you should give1722,8us
****/

3. then put this code to while (1)

// Place your code here  
      if (PIND.0==1)
      {
      full_cw(40);
      }
      else if (PIND.1==1)
      {
      full_ccw(40);
      }
      else
      {
      center(40);
      }

4. build all and simulated to proteus 7.7 (on this file)

please download the source code here
project atmega8535 codevisionAVR basic servo motor standard1.rar - 42 KB
good luck

» Read More...

PEMROGRAMAN BAHASA C UNTUK AVR
Bahasa C luas digunakan untuk pemrograman berbagai jenis perangkat,
termasuk mikrokontroler. Bahasa ini sudah merupakan high level
language, dimana memudahkan programmer menuangkan algoritmanya. Untuk
mengetahui dasar bahasa C dapat dipelajari sebagai berikut.


1. Struktur penulisan program
#include < [library1.h] > // Opsional
#include < [library2.h] > // Opsional
#define [nama1] [nilai] ; // Opsional
#define [nama2] [nilai] ; // Opsional
[global variables] // Opsional
[functions] // Opsional
void main(void) // Program Utama
{
[Deklarasi local variable/constant]
[Isi Program Utama]
}
2. Tipe data
char : 1 byte ( -128 s/d 127 )
unsigned char : 1 byte ( 0 s/d 255 )
int : 2 byte ( -32768 s/d 32767 )
unsigned int : 2 byte ( 0 s/d 65535 )
long : 4 byte ( -2147483648 s/d 2147483647 )
unsigned long : 4 byte ( 0 s/d 4294967295 )
float : bilangan desimal
array : kumpulan data-data yang sama tipenya.

3. Deklarasi variabel & konstanta
Variabel adalah memori penyimpanan data yang nilainya dapat diubah-ubah.
Penulisan : [tipe data] [nama] = [nilai] ;
Konstanta adalah memori penyimpanan data yang nilainya tidak dapat diubah.
Penulisan : const [nama] = [nilai] ;

Tambahan:
Global variabel/konstanta yang dapat diakses di seluruh bagian program.
Local variabel/konstanta yang hanya dapat diakses oleh fungsi tempat dideklarasikannya.

4. Statement
Statement adalah setiap operasi dalam pemrograman, harus diakhiri
dengan [ ; ] atau [ } ]. Statement tidak akan dieksekusi bila diawali
dengan tanda [ // ] untuk satu baris. Lebih dari 1 baris gunakan
pasangan [ /* ] dan [ */ ]. Statement yang tidak dieksekusi disebut
juga comments / komentar.
Contoh:
suhu=adc/255*100; //contoh rumus perhitungan suhu

5. Function
Function adalah bagian program yang dapat dipanggil oleh program utama.
Penulisan :
[tipe data hasil] [nama function]([tipe data input 1],[tipe data input 2])
{
[statement] ;
}

6. Conditional statement dan looping
if else : digunakan untuk penyeleksian kondisi
if ( [persyaratan] ) {
[statement1];
[statement2];
}
else {
[statement3];
[statement4];
}


for : digunakan untuk looping dengan jumlah yang sudah diketahui
for ( [nilai awal] ; [persyaratan] ; [operasi nilai] ) {
[statement1];
[statement2];
}


while : digunakan untuk looping jika dan salama memenuhi syarat tertentu
while ( [persyaratan] ) {
[statement1];
[statement2];
}

do while : digunakan untuk looping jika dan salama memenuhi syarat tertentu, namun min 1 kali
do {
[statement1];
[statement2];
}
while ( [persyaratan] )

switch case : digunakan untuk seleksi dengan banyak kondisi
switch ( [nama variabel] ) {
case [nilai1]: [statement];
break;
case [nilai2]: [statement];
break;
}


7. Operasi logika dan biner
Logika
AND :&&
NOT : !
OR : ||
Biner
AND : &
OR : |
XOR : ^
Shift right: >>
Shift left : <<
Komplemen : ~

8. Operasi relasional (perbandingan)
Sama dengan : ==
Tidak sama dengan : !=
Lebih besar : >
Lebih besar sama dengan : >=
Lebih kecil : <
Lebih kecil sama dengan : <=

9. Operasi aritmatika
+ , – , * , / : tambah,kurang,kali,bagi
+= , -= , *= , /= : nilai di sebelah kiri operator di tambah/kurang/kali/bagi dengan nilai di sebelah kanan operator
% : sisa bagi
++ , — : tambah satu (increment) , kurang satu (decrement)

Contoh :

a = 5 * 6 + 2 / 2 -1 ; maka nilai a adalah 30

a *= 5 ; jika nilai awal a adalah 30, maka nilai a = 30×5 = 150.

a += 3 ; jika nilai awal a adalah 30, maka nilai a = 30+5 = 33.

a++ ; jika nilai awal a adalah 5 maka nilai a = a+1 = 6.

a– ; jika nilai awal a adalah 5 maka nilai a = a-1 = 4.


sumber :
marausna.wordpress.com

» Read More...

1. INTERFACING LED TO ATMEGA8535

Berikut adalah beberapa aplikasi praktik yang nantinya dapat lebih menjelaskan fungsi dan fasilitas input/output.
Rangkailah rangkaian berikut (hardware atau simulasi proteus)


APLIKASI 1: OUTPUT
• Setting Hardware:

1. Hubungkan PORTC minimum sistem dengan led array menggunakan kabel pita.

2. Hubungkan downloader dengan Min Sys Atmega8535

3. Hidupkan saklar power, led power pada Min Sys Atmega8535 harus dalam keadaan nyala.

• Programming:

1. Buka CV AVR., pilih File->New->Project.

2. Klik YES ketika terdapat option untuk meggunakan codeWizardAVR.

3. Pilih chip yang akan digunakan ATMEGA8535 dengan harga clock 4 Mhz.

4. Klik tab Ports, pilih tab Port C seperti pada gambar, ubah setting bit 0 – bit 7 sebagai out.

Hasil setting ini berpengaruh pada nilai register DDRxn, dan PORTxn.

5. Setting selesai, untuk mengenerate program pilih File Generate, Save, and Exit.

6. Buat direktori dengan nama io1.

7. Save file CV AVR dengan nama io1.cwp pada direktori io1.

8. Save file .C dengan nama io1.c pada direktori io1.

9. Save file project dengan nama io1.prj pada direktori io1.

• Project Setting

1. Terlihat pada tampilan CV AVR kode yang telah digenerate. Konfigurasi project dengan memilih menu project >> configure.

2. Pilih tab after make, aktifkan program the chip. Terlihat tampilan seperti pada gambar dibawah,

setting ini akan membantu kita mengotomasi untuk langsung memrogram chip ketika kita

selesai Make Project File.

• Listing Program

1. Sekarang perhatikan kode bahasa C pada bagian setting register DDRxn, dan PORTxn,tampak sebagai berikut,

DDRC = 0xFF yang berarti 8 bit port C difungsikan sebagai output. PORTC = 0x00

berarti nilai awalan output adalah 0 (low)

2. Nilai register PORTC diatas adalah nilai awalan pada saat mikrokontroller start-up, kitabisa mengubah nilai output port C dengan mengubah nilai register PORTC pada loopingwhile.

PORTC = 0xCD, nilai output port C adalah CD dalam bentuk hexa atau 11001101 dalam bentuk biner.

3. Program chip dengan memilih menu Project ; Make atau dengan menekan shift + F9.



Jika pada kode masih terdapat kesalahan/error akan terlihat pada message.
4. Klik Program, jika ada kesalahan periksa kembali setting hardware.

5. Perhatikan led array, lampu led akan menyala 11001101 jika diurut dari Port7- Port0.

6. Ulangi langkah 2 sampai 6 dengan memberikan nilai PORTC yang berbeda beda pada looping while. Perhatikan perubahan nyala led pada led array.

Download Project running LED pada Atmega8535 dengan codevisionAVR

» Read More...

Search This Blog

Follow by Email

Recent Post

Popular Posts