Cara Minimize form ke sistem tray–vb6

Selamat Datang di Blog Muslih System, pada postingan kali ini saya akan membahas bagaimana cara meminimize sebuah form ke system tray, sebelumnya sistem tray adalah menu yang terdapat pada pojok kanan bawah taskbar.

Oke untuk langkah-langkah sebagai berikut:

- Buka Microsoft Visual Basic 6.0 nya, pilih standard exe.

- Masukan Sebuah Button seperti pada gambar di bawah ini:

- Kemudian Buka menu editor dengan cara pilih Tools >> Menu Eitor.

- Rancang Menunya sesuai dengan gambar dibawah ini

- Centang Visible untuk semua menu kecuali menu pertama “Systray”.

- Lalu buat sebuah module & masukan sintak berikut ini:

Option Explicit

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const HWND_TOPMOST = -1

Public nid As NOTIFYICONDATA

Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

- Setelah itu masukn pula di Form sintak berikut:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Sys As Long
Sys = x / Screen.TwipsPerPixelX
Select Case Sys
Case WM_LBUTTONDOWN:
Me.PopupMenu mnuSystray
End Select
End Sub
Private Sub Form_Resize()
If WindowState = vbMinimized Then
Me.Hide
Me.Refresh
With nid
.cbSize = Len(nid)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
.szTip = Me.Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
Else
Shell_NotifyIcon NIM_DELETE, nid
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub
Private Sub mnuexit_Click()
Unload Me
End Sub
Private Sub mnuRestore_Click()
WindowState = vbNormal
Me.Show
End Sub
Private Sub Command1_Click()
WindowState = vbMinimized
End Sub

- Setelah selesai Kita jalankan programnya.

- Ketika kita klik button minimize maka aplikasi akan sembunyi di sistem tray.

- Untuk Mengembalikan kembali tinggal klik Buka dan Exit untuk Keluar.

Bagi yang mau mendownload Source Kodenya bisa di download melalui Link di bawah ini:

Sekian tutorialnya & Selamat mencoba.

Read More

Program menghitung luas & volume tabung-(turbo pascal)

Selamat datang di blog muslih system, pada postingan turbo pascal kali ini akan membahas tentang program menghitung luas & volume tabung / silinder, pertama kali ada baiknya kita mengetahui terlebih dahulu rumus-rumusnya:

- Luas Tabung:

- Volume Tabung:

Keterangan:

L : Luas	r : Jari-jari
V : Volume	t : tinggi tabung
π : Tetapan 22/7 atau 3.14

Dilanjutkan ke Sintak Pascalnya:

uses wincrt;
var
r,t:integer;
l,v : real;
begin
writeln ('=============================');
writeln ('  Menghitung Luas & Volume');
writeln ('            Tabung ');
writeln ('=============================');
writeln (' ');
write ('Masukan Panjang Jari-jari : ');readln (r);
write ('Masukan Tinggi Tabung     : ');readln (t);
l := (2*(22/7)*r*r)+((22/7)*(2*r)*t) ;
v := ((22/7)*r*r)*t;
writeln ('Luas Pemukaan Bola : ', l:1:1 , ' satuan luas');
writeln ('Volume Bola        : ', v:1:1 , ' satuan Volume');
readln;
end.

Berikut gambar programnya setelah dijalankan:

Bagi yang mau download Source Codenya silahkan download di bawah ini:

Sekian pembahasannya, semoga bermanfaat.

Read More

Program menghitung luas, keliling dan volume balok-(turbo pascal)

Selamat datang di blog Muslih System, pada postingan kali ini akan membahas mengenai cara menghitung Luas, Keliling dan Volume Balok, untuk Rumus matematikanya:

-Rumus Luas:

- Rumus Keliling:

- Rumus Volume :

Keterangan:

L : Luas	p : Panjang
K : Keliling	l : Lebar
V : Volume	t : Tinggi

dan untuk sintak programnya:

uses wincrt;
var
p,lb,t:integer;
l,k,v : real;
begin
writeln ('=============================');
writeln (' Menghitung Luas, keliling &');
writeln ('         Volume Balok ');
writeln ('=============================');
writeln (' ');
write ('Masukan Panjang : ');readln (p);
write ('Masukan Lebar   : ');readln (lb);
write ('Masukan Tinggi  : ');readln (t);
l := 2*((p*lb)+(p*t)+(lb*t));
k := ((p+lb+t))*4;
v := p*lb*t;
writeln ('Luas Pemukaan Balok : ', l:1:1 , ' satuan luas');
writeln ('Keliling Balok      : ', k:1:1 , ' satuan keliling');
writeln ('Volume Balok        : ', v:1:1 , ' satuan Volume');
readln;
end.

Dan berikut tampilan programnya setelah dijalankan:

Bagi yang mau download Source Kodenya silahkan download link dibawah:

Selamat Mencoba & Semoga Bermanfaat.

Read More

Menghitung luas & volume BOLA–(turbo pascal)

Selamat datang di blog Muslih System, pada postingan tentang Turbo Pascal ini saya akan membahas mengenai cara menghitung luas dan volume bola, sebelum ke sintak nya ada baiknya kita mengetahui rumus-rumus berikut ini:

- Luas Permukaan Bola:

- Volume Bola:

Keterangan:

L : Luas Bola

V : Volume Bola

π : Tetapan 22/7 atau 3.14

r : jari-jari

Dan berikut sintak programnya:
uses wincrt;
var
r:integer;
l,v : real;
begin
writeln ('=============================');
writeln ('  Menghitung Luas & Volume');
writeln ('             Bola ');
writeln ('=============================');
writeln (' ');
write ('Masukan Panjang Jari-jari : ');readln (r);
l := 4*(22/7)*r*r ;
v := (4/3)*(22/7)*r*r*r;
writeln ('Luas Pemukaan Bola : ', l:1:1 , ' satuan luas');
writeln ('Volume Bola        : ', v:1:1 , ' satuan Volume');
readln;
end.

Setelah dijalankan program maka tampilannya akan seperti gambar dibawah ini:

Bagi yang mau download Source Code program pascalnya bisa download di link:

Sekian pembahasannya, Semoga bermanfaat…

Read More

Program mencari luas, keliling dan volume kubus (turbo pascal)

Sekarang saatnya membahas mengenai mencari luas, keliling dan volume kubus menggunakan turbo pascal. Kita mungin tahu bahwa kubus merupakan bangun ruang yang setiap rusuknya sama besar, Berikut rumus-rumusnya:

Luas Permukaan Kubus:

Keliling Kubus:

Volume Kubus:

L = Luas

K = keliling

V = Volume

s = panjang rusuk

Dan berikut sintak program Turbo Pascal nya:

uses wincrt;
var
s:integer;
l,k,v,l1 : real;
begin
writeln ('=============================');
writeln (' Menghitung Luas, keliling &');
writeln ('         Volume Kubus ');
writeln ('=============================');
writeln (' ');
write ('Masukan Panjang Rusuk : ');readln (s);
l1:= s*s;
l := l1*6 ;
k := 12*s;
v := s*s*s;
writeln ('Luas Salah Satu Sisi: ', l1:1:1 , ' satuan luas');
writeln ('Luas Pemukaan Kubus : ', l:1:1 , ' satuan luas');
writeln ('Keliling Kubus      : ', k:1:1 , ' satuan keliling');
writeln ('Volume Kubus        : ', v:1:1 , ' satuan Volume');
readln;
end.

Tampilan program setelah di jalankan:

Bagi yang mau download Souce Code nya silahkan download link nya:

Semoga bermanfaat..

Read More

Menghitung Luas dan keliling persegi PANJANG (turbo pascal)

Selamat datang di blog Muslihsystem, untuk postingan kali ini saya akan membahas mengenai cara mencari Luas dan Keliling dari bangun datar Persegi Panjang. Tapi sebelum membahas ke sintak ada baiknya kita mengetahui rumus matematika nya, Rumus Luas:

L : Luas Persegi Panjang

p : Panjang

l = Lebar

Sedangkan untuk Kelilingnya:

K : Keliling Persegi Panjang

Dan untuk sintak pascalnya, bisa kita lihat di bawah ini:

uses wincrt;
var
p,lb:integer;
l,k : real;
begin
writeln ('========================');
writeln ('   Menghitung Luas dan');
writeln ('Keliling Persegi Panjang ');
writeln ('========================');
writeln (' ');
write ('Masukan Panjang : ');readln (p);
write ('Masukan Lebar   : ');readln (lb);
l := p*lb;
k := 2*(p+lb);
writeln ('Jadi Luasnya adalah    ', l:1:1 , ' satuan luas');
writeln ('dan kelilingnya adalah ', k:1:1 , ' satuan keliling');
readln;
end.

Bila program ini dijalankan maka akan tampak seperti pada gambar berikut ini:

Bagi yang mau mendownload Source Code programnya bisa di download di link:

Semoga Bermanfaat..

Read More

Membuat tulisan berGerak – vb6

Selamat datang di blog Muslih System , pada postingan kali saya akan membahas mengenai cara membuat tulisan berjalan pada form VB6, trik ini dibuat agar tampilan form lebih menarik. Untuk langkah-langkahnya sebagai berikut:

- Buka VB6 nya lalu pilih Standard Exe.

- Kemudian ubah Caption Form dengan “Contoh tulisan berjalan” atau apa saja menurut keinginan kita.

- Masukan sebuah componen Timer dan ubah intervalnya menjadi 100

- Double Click pada timer dan masukan sintak berikut ini:

Private Sub Timer1_Timer()
a = Form1.Caption
b = Left(a, 1)
C = Right(a, Len(a) - 1)
Form1.Caption = C + b
End Sub

- Jalankan programnya maka kita akan melihat tulisan pada caption form akan bergerak dari kanan ke kiri.

Bagi yang mau source code vb-nya silahkan download melalui link di bawah ini:

Selamat mencoba & Semoga bermanfaat.

Read More