Minggu, 22 Mei 2011
HIT COUNTER FORM VISUAL BASIC
Rabu, 18 Mei 2011
RENAME FILE DENGAN VISUAL BASIC
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Const FO_RENAME = &H4
Sub RenameFile()
Dim TitleFile
Dim PathFile
TitleFile = "Lama"
PathFile = App.Path & "\contoh.ocx" 'file dan path setelah direname jadi seperti ini
Dim SHDirOp As SHFILEOPSTRUCT
With SHDirOp
.wFunc = FO_RENAME
.pFrom = App.Path & "\contoh.txt" 'ini path dan nama file sebelum direname. file asli
.pTo = App.Path & "\contoh.ocx" 'path dan nama file sesudah di rename
End With
SHFileOperation SHDirOp
MsgBox "Rename berhasil dilakukan", vbInformation, "Berhasil"
End Sub
Private Sub Command1_Click()
RenameFile
End Sub
Selasa, 17 Mei 2011
Membuka program melalui Visual Basic 6, plus menutup kembali
'#www.semesta-abu.co.nr
'Jika ingin share kembali mohon tidak dihilangkan link ini
'#semoga bermanfaat
'membuka aplikasi
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim X As String
'menutup aplikasi
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_QUIT = &H12
Sub link()
Dim link As Long
link = ShellExecute(0, vbNullString, App.Path & "\contoh.txt", "", "", vbNormalFocus)
'membuka file txt dengan lokasi c:\
End Sub
Private Sub Command1_Click()
Call link
End Sub
Dim sTitle As String
Dim iHwnd As Long
Dim ihTask As Long
Dim iReturn As Long
sTitle = "contoh - notepad"
' ini bisa diganti dengan tittle yang ada di aplikasi yang ingin ditutup
iHwnd = FindWindow(0&, sTitle)
iReturn = PostMessage(iHwnd, WM_QUIT, 0&, 0&)
MsgBox "Program sudah ditutup", vbInformation, "Berhasil"
End Sub
Project VB bisa didownload disini
Minggu, 15 Mei 2011
Programming Microsoft Visual Basic 6 Ebook Edition
untuk Ebooknya silahkan download disini menggunakan password: semesta-abu (kalau diminta)
CARA MEMBUAT DAFTAR ISI DENGAN MUDAH
FORMAT WORD CEPAT, MUDAH DAN RAPIH PART 2
FORMAT WORD CEPAT, MUDAH DAN RAPIH PART 1
CONVERT POWERPOINT KE FLASH
Ini tampilan awal ketika menjalankan ispring, program ini tidak berjalan sendiri tetapi harus berjalan bersama powerpoint, jadi powerpoint musti ada, untuk melakukan konversi klik tombol Launch Powerpoint, ketika powerpoint dibuka akan terlihat menu tambahan ispring seperti gambar dibawah ini:
Untuk mengkonversi project PPT bisa langsung membuat slide langsung tetapi jika ingin konversi file PPT yang sudah ada klik Open lalu browse file PPT, setelah slide terbuka lalu klik Quick Publish untuk mengkonversi secara instan, artinya file dikonversi secara standar tidak ada konfigurasi lain lain. Jika ingin memberikan setting lain klik tombol Publish dan akan muncul jendela seperti dibawah ini:
Nah.. dijendela ini banyak yang bisa kita konfigurasi, dari derasi slide perdetik, generat HTML dan masih beberapa settingan lainnya. Setelah merasa cukup klik tombol Publish, lihat hasilnya dan coba jalankan, hasilnya akan seperti di bawah ini:
Dibagian bawah ada beberapa tombol dan thumbnail slide, bisa dipilih secara manual atau berjalan secara otomatis, dengan ispring kita juga bisa menginport flash (SWF) ke dalam powerpoint dengan sangat mudah, disebelah menu Publish di powerpoint ada menu Flash, tinggal tekan lalu browse file Flash lalu open, maka flash akan muncul di powerpoint, Flash yang baru kita konversi dari powerpoint juga bisa dimasukin lagi loh.. jadi dari powerpoin dijadiin Flash, setelah jadi Flash dimasukin lagi ke powerpoint. Jadi muter-muter deh hehe..
Sekian dulu Tutorial kali ini, semoga bermanfaat.