membuat folder dengan vb.6

mkdir "D:\eka"

maksudnya ,membuat sebuah folder yang bernama eka,dan terletak didalam drive D.

Code Scan File pada driver

COPY CODE INI PADA MODULE
‘***********************************************************
‘ Nama : I Gede Eka Wardana *
‘ Alamat : Ds Bengkala, Kec Kubutambahan, Kab buleleng – Bali *
‘ Email : ekawardana98@yahoo.co .id *
‘ Status : sedang menempuh pendidikan S1 di STIKI Denpasar *
‘***********************************************************
Option Explicit
Private Const MAX_PATH As Long = 260
Private Const MAX_BUF As Long = 512
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 'folder
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_DEVICE = &H40
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const FILE_ATTRIBUTE_SPARSE_FILE = &H200
Private Const FILE_ATTRIBUTE_REPARSE_POINT = &H400
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800 'terkompres ntfs.
Private Const FILE_ATTRIBUTE_OFFLINE = &H1000
Private Const FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = &H2000 'tidak masuk dalam index
pencarian file
Private Const FILE_ATTRIBUTE_ENCRYPTED = &H4000 'enkripsi ntfs
Private Const FILE_ATTRIBUTE_VIRTUAL = &H10000 'device virtual
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long 'FILE_ATTRIBUTES
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH '<>MAX_BUF
cAlternate As String * 14
End Type
Private Declare Function FindFirstFileW Lib "kernel32" (ByVal lpFileName As Long, ByVal
lpFindFileData As Long) As Long
Private Declare Function FindNextFileW Lib "kernel32" (ByVal hFindFile As Long, ByVal lpFindFileData
As Long) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Boolean
Public scAn As Boolean
Public total As Long
Public Sub scanN(ByVal PATH As String, Optional ByVal FIRS As Boolean = False, Optional ByVal
sCanALL As Boolean = True)
On Error Resume Next
Dim WFD As WIN32_FIND_DATA
Dim hFind As Long
Dim NextStack As Long
Dim zSlash As String
Dim szFullPath As String
Dim szFileName As String
Dim bIsFolder As Boolean
Dim isHiden As Boolean
Dim ttk1 As String
Dim ttk2 As String
ttk1 = ChrW$(46)
ttk2 = ttk1 & ttk1
zSlash = ChrW$(42)
If FIRS = True Then scAn = True
If scAn = False Then GoTo ErH
PATH = fixP(PATH)
hFind = FindFirstFileW(StrPtr(PATH & zSlash), VarPtr(WFD))
If hFind < 1 Then GoTo ErH
Do
If scAn = False Then Exit Do
szFileName = TrimW(WFD.cFileName)
szFullPath = PATH & szFileName
bIsFolder = ((WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) =
FILE_ATTRIBUTE_DIRECTORY)
If szFileName <> ttk1 And szFileName <> ttk2 Then
lewaT:
Form1.l1.Text = PATH & vbCrLf & "=>" & szFileName ‘PROGRAM UTAMA
total = total + 1
'pasang ceksum disini
DoEvents
Else
bIsFolder = False
End If
If bIsFolder = True Then
If scAn = False Then Exit Do
If sCanALL = True Then
Call scanN(szFullPath, False)
End If
End If
NextStack = FindNextFileW(hFind, VarPtr(WFD))
Loop While NextStack
Call FindClose(hFind)
ErH:
End Sub
Private Function fixP(ByVal pat As String) As String
On Error Resume Next
If Right$(pat, 1) <> ChrW$(92) Then
fixP = pat & ChrW$(92)
Else
fixP = pat
End If
End Function
Private Function TrimW(ByVal pat As String) As String
On Error Resume Next
Dim ksG As Long
ksG = InStr(pat, ChrW$(0))
If ksG > 0 Then
TrimW = Left$(pat, (ksG - 1))
Else
TrimW = pat
End If
End Function

Koneksi ke Database

# CODE PADA FORM #
=========================

Public koneksi As ADODB.Connection 'Paling atas taruh
--------------------------------------------------------
Function Konek( ) As Boolean
'On Error GoTo out
Set koneksi = New ADODB.Connection
koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\eka.mdb"
koneksi.CursorLocation = adUseClient
Konek = True
End Function
---------------------------------------------------------------------------------------------------------
Private Sub Form_Load( )
If Konek() Then
MsgBox "coneksi berhasil"
Else
MsgBox "coneksi gagal"
End If
End Sub

Cek Data pada Database

Private Sub Command1_Click()

'====cek inputan data dengan DE
'If DataEnvironment1.rsCommand1.State = 0 Then DataEnvironment1.rsCommand1.Open
'DataEnvironment1.rsCommand1.Find ("indonesia='" & StrConv(Text1.Text, 2) & "'")
'If Not DataEnvironment1.rsCommand1.EOF Then
'MsgBox "Data Sudah Diinptkan", vbInformation, "Konfirmasi"
'Exit Sub
'End If
'===========

'=cek inputan data dengan DAO
If Daad.Recordset.RecordCount > 0 Then
Daad.Recordset.MoveFirst
While Not Daad.Recordset.EOF
If StrConv(Text1.Text, 2) = StrConv(Daad.Recordset.Fields("indonesia"), 2) Then
MsgBox "Data Sudah Diinptkan", vbInformation, "Konfirmasi"
Exit Sub
End If
Daad.Recordset.MoveNext
Wend
End If

Tentang Komunikasi

KOMUNIKASI
DIFINISI KOMUNIKASI
Kata atau istilah “komunikasi” (Bahasa Inggris“communication”) berasal
dari Bahasa Latin “communicatus” yang berarti “berbagi” atau “menjadi milik
bersama”.
Dengan demikian, kata komunikasi menurut kamus bahasa mengacu pada
suatu upaya yang bertujuan untuk mencapai kebersamaan.
Menurut Webster New Collogiate Dictionary dijelaskan bahwa komunikasi
adalah “suatu proses pertukaran informasi di antara individu melalui sistem
lambang-lambang, tanda-tanda atau tingkah laku”.
FUNGSI KOMUNIKASI
Fungsi komunikasi adalah untuk mengumpulkan dan menyebarkan informasi
mengenai kejadian dalam suatu lingkungan (kalau dalam media massa hal ini
sebagai penggarapan berita).
Beberapa fungsi komunikasi :
a. Memberikan informasi kepada masyarakat.
b. Mendidik masyarakat.
c. Mempengaruhi masyarakat.
d. Menghibur masyarakat.
TUJUAN KOMUNIKASI
a. Perubahan Sosial dan partisipasi sosial. Memberikan berbagai informasi
pada masyarakat tujuan akhirnya supaya masyarakat mau mendukung
dan ikut serta terhadap tujuan informasi itu disampaikan. Misalnya supaya
masyarakat ikut serta dalam pilihan suara pada pemilu atau ikut serta
dalam berperilaku sehat, dan sebagainya.
b. Perubahan Sikap. Kegiatan memberikan berbagai informasi pada
masyarakat dengan tujuan supaya masyarakat akan berubah sikapnya.
Misalnya kegiatan memberikan informasi mengenai hidup sehat tujuannya
adalah supaya masyarakat mengikuti pola hidup sehat dan sikap
masyarakat akan positif terhadap pola hidup sehat.
c. Perubahan pendapat. Memberikan berbagai informasi pada masyarakat
tujuan akhirnya supaya masyarakat mau berubah pendapat dan
persepsinya terhadap tujuan informasi itu disampaikan, misalnya dalam
informasi mengenai pemilu. Terutama informasi mengenai kebijakan
pemerinatah yang biasanya selalu mendapat tantangan dari masyarakat
maka harus disertai penyampaian informasi yang lengkap supaya
pendapat masyarakat dapat terbentuk untuk mendukung kebijakan
tersebut.
d. Perubahan perilaku. Kegiatan memberikan berbagai informasi pada
masyarakat dengan tujuan supaya masyarakat akan berubah perilakunya.
Misalnya kegiatan memberikan informasi mengenai hidup sehat tujuannya
adalah supaya masyarakat mengikuti pola hidup sehat dan perilaku
masyarakat akan positif terhadap pola hidup sehat atau mengikuti perilaku
hidup sehat.
CARA BERKOMUNIKASI YANG BAIK
a. Tekanan Dan Ekspresi.
Modal berkomunikasi adalah suara. Dengan suara yang berintonasi baik,
jelas, dinamis, bertempo yang tepat dan dijeda dengan baik. Anda dapat
mengutarakan maksud atau ide dengan efektif. Selain itu, latihlan ekspresi
untuk menunjang komunikasi verbal.
b. Kekuatan Kata-kata.
Akan lebih baik kalau Anda sendiri merasa nyaman dengan kata-kata
yang diucapkan. Rasa percaya yang Anda ungkapkan lewat kata-kata
yang maknanya kuat bagi diri sendiri, akan mudah ditangkap oleh lawan
bicara Anda.
c. Percakapan.
Keahlian berkomunikas dapat ditunjukan dengan menggunakan kata-kata
yang mudah dipahami oleh lawan bicara. Konsep-konsep yang penting
dan berbobot dapat diungkapkan dengan kata-kata yang sederhana. Di
sinilah, keindahan dari kesederhanaan dapat dipancarkan.
d. Pendengar Yang Aktif.
Dengarkan apa yang diungkapkan lawan bicara dengan baik dan
tampilkan bahwa Anda benar-benar tertarik. Anda juga harus mengetahui,
kapan waktunya harus bicara, kapan mesti diam dan kapan waktunya
Anda harus menyela percakapan. Semuanya ini dapat diraih bila Anda
memberikan perhatian yang cukup, bersikap sensitif dan menunjukan rasa
simpati.

Membuat Form Tranparan Dengan VB.6

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
Private Const LWA_ALPHA = &H2&


Private Sub Form_Load()

Dim lOldStyle As Long
Dim bTrans As Byte ' The level of transparency (0 - 255)
bTrans = 128
lOldStyle = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
SetWindowLong Me.hwnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED
'SetWindowLong Me.hwnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED Or WS_EX_TRANSPARENT
SetLayeredWindowAttributes Me.hwnd, 0, bTrans, LWA_ALPHA

End Sub