setelah berkeliling melewati bermacam-macam test masuk kerja baik bumn maupun swasta, akhirnya banyak cerita yang bisa saya ceritakan ke teman-teman semua, pada tanggal 26 Agustus 2013 yang berlokasi di Universitas Riau Gobah Ged. Q, Pekanbaru.
setelah menerima sms pertama dalam bahasa inggris dan sms kedua tentang jadwal test akhirnya saya memutuskan berangkat ke pekanbaru karena posisi saya di kota yang berbeda. singkat cerita akhirnya saya tiba dipekan baru dan di pagi 26 agustus saya menuju lokasi test dan mengisi daftar absen dari tim recrutment pt hm sampoerna.
ada beberapa hal penting yang harus diketahui sebelum test, info ini langsung di paparkan ketika semua peserta berkumpul dengan media slideshow.
++++++++++++
berhubung posisi yang dibutuhkan adalah Supervisor Sales Leader dan Area Sales Analyst maka jika peserta lulus tahapan yang harus dihadapi selama menjadi pegawai tidak tetap selama 1 thn yaitu :
1. masa probation 1-2 week, introducing sales dan lainnya
2. 1-3 bln pertama anda akan bekerja sebagai Sales Executive RRO (klo temn2 pernah liat sales sampoerna yang datang ke warung manisan, ato minimarket nah begitulah klo ada mobil ya pakai mobil klo fasilitas cuma motor ya diterima)
3. selesai tahap ini kinerja anda akan dievaluasi jika memenuhi syarat maka kontrak berlanjut, jika tidak dengan terpaksa anda di PHK.
4. bln ke 4 dan 5 anda akan menjadi Sales Executive RO (Sama seperti sebelumnya namun targetnya toko yang lebih besar) kemudian evaluasi seperti point 3
5. bln ke 6 anda akan menjadi Sales executive Drop (tugasnya sama, masih jualan namun targetnya lebih besar seperti Hypermart, Mall dll) kemudian evaluasi seperti point 3
6. bulan ke 7-12 maka anda akan menjalani OJT sebagai supervisor Junior, selama 6 bulan ini kinerja anda lebih dimonitoring, karena disini akan diputuskan apakah anda akan jadi pegawai tetap atau malah di PHK
++++++++++++
oke deh ini dia bentuk soalnya :
Soal terdiri dari 50 soal dan dikerjakan dalam waktu 60 menit, INGAT benar +4 salah -1
1. 10 soal berbentuk bahasa inggris, beberapa soal tebakan sinonim, structure dan soal text mencari arti dari beberapa kata, serta pokok cerita paragraf.
2. Soal Matematika umum, seperti menghitung Volum kubus jika dikertahui luas alas,  panjang sisi segitiga, dan hitungan lainnya
3. Soal Matematika ekonomi, biasanya membaca grafik, niali tertinggi, persentasi harga, atau rarat-rata
4. Soal Psikotest, persamaan beberapa simbol, deret matematika, soal logika, serta lanjutan gambar

intinya klo gx tau ya jangan diisi, saya aj cuma isi 30an dari 50.

» Read More...

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...

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...

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...

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...