Pernahkah suatu ketika anda mendengarkan musik baik portable maupun speaker, lalu anda mendengarkan suara yang menyakitkan telinga? Terasa menusuk dan sangat mengganggu, sehingga kita tidak nyaman mendengarkannya
Apabila digambarkan suara tersebut seperti menghasilkan bunyi sshhh, atau sss, atau chhh yang berlebihan sehingga menyakitkan telinga dan terasa menusuk?
Apakah itu sebenarnya?
Itulah yang disebut dengan "SIBILANCE"
Apa itu sibilance?
Sibilance itu adalah suara yang berlebihan pada frekuensi dikisaran 7khz yang disebabkan oleh pengucapan "S", "SH", atau "Ch" maupun alat musik yang menghasilkan suara-suara senada dengan itu
Mengapa itu bisa terjadi?
Sibilance itu bisa disebabkan oleh beberapa hal
Bisa disebabkan oleh cans (audio equipment portable seperti headset/earphone/earbud/IEM) maupun speaker yang mempunyai karakter suara dikisaran frekuensi 7khz yang agak tinggi.
Bisa disebabkan oleh perangkat pemutar audio yang mempunyai karakter suara dikisaran frekuensi 7khz yang agak tinggi.
Bisa disebabkan oleh perangkat amplifier yang mempunyai karakter suara dikisaran frekuensi 7khz yang agak tinggi.
Beberapa langkah mengatasi sibilance
Bisa coba mengganti cans atau speaker dengan yang karakternya lebih smooth (bisa coba pinjam punya teman terlebih dahulu, untuk mengetahui apakah sibilance berasal dari situ).
Apabila terbukti cans atau speaker kita penyebabnya, bisa coba lakukan recabling (karakter kabel bisa merubah karakter suara yang dihasilkan).
Apabila masalah berasal dari perangkat pemutar audio maupun perangkat amplifier, bisa dilakukan modding pada perangkat perangkat tersebut untuk meminimalisir efek sibilance tersebut.
Public Function Koneksi_SQLServer(namaserver, namadb, userid, userpass) As Boolean
On Error GoTo KoneksiSalah
Dim cn_SQLServer As ADODB.Connection
Set cn_SQLServer = New ADODB.Connection
Koneksi_SQLServer = False
cn_SQLServer.Open "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;" & _
"User ID=" & userid & ";" & _
"Password=" & userpass & ";" & _
"Initial Catalog=" & namadb & ";" & _
"Data Source=" & namaserver
cn_SQLServer.Close
Set cn_SQLServer = Nothing
Koneksi_SQLServer = True
Exit Function
KoneksiSalah:
Select Case Err.Number
Case -2147467259 ' Server salah
MsgBox "Nama server atau database tidak ditemukan"
Case -2147217843 ' User atau password salah
MsgBox "Username atau password yang anda masukkan salah"
End Select
Koneksi_SQLServer = False
End Function
Fungsi Matematik Internal
VB menyediakan fungsi matematika siap pakai untuk manipulasi variabel.
Fungsi Contoh Penjelasan
Abs(x) a = abs(-32) 'a=32 nilai absolut x
Atn(x) Nilai arcus tangent x x dalam radian : degree = radian * 180/phi
Cos(x) Nilai cosinus x x dalam radian
Exp(x) Nilai exponensial x
Fix(x)
fix(3.2) = 3
fix(-3.2) = -3
mencari integer bilangan pecah, untuk bilangan negatif; mencari bilangan pertama > x
Int(x)
int(5.4) = 5
int(-5.4) =-6
Bilangan negatif; mencari bilangan pertama <=x
Log(x) nilai natural log x
Rnd(x)
0 <= hasil random <1
nilai x menentukan hasil random
sebelumnya gunakan perintah Randomize untuk memastikan bahwa hasil Rnd(x) selalu beda
Sgn(x)
menghasilkan :
1 bila x > 0
0 bila x = 0
-1 bilaa x < 0
Sin(x)
A = SQR(16) 'A=4
A = SQR(-16) 'error
nilai cosinus x dalam radian
Sqr(x) Akar bilangan x
Tan(x) Q = Tan(45*phi/180) 'Q=1
nilai tangent x dalam radian
phi=3.141592653589732
Derifat Fungsi Matematika
Fungsi matematika yang tidak ada dapat diderifasi dari fungsi yang tersedia.
Fungsi Manipulasi Bilangan VB mempunyai fungsi untuk memanipulasi data numerik sebagai berikut : Round : membulatkan bilangan cacah dengan jumlah desimal tertentu
MyValue = Round(33.4549, 2) ‘hasil 33.45
MyValue = Round(33.455, 2) ‘hasil 33.46
MyValue = Round(33.456, 2) ‘hasil 33.46 Val : menghasilkan bilangan numerik dari suatu variabel string
MyValue = Val(“2457”) ‘hasil 2457
MyValue = Val(“2 4 5 7”) ‘hasil 2457
MyValue = Val(“24 and 57”) ‘hasil 24 Str : menghasilkan variabel string (Variant) dari ekspresi numerik
MyString = Str (459) ‘hasil “459”
MyString = Str (-459.65) ‘hasil “-459.65”
MyString = Str (459.001) ‘hasil “459.001” Hex : menghasilkan nilai hexadesimal dari suatu bilangan
MyHex = Hex(5) ‘hasil 5
MyHex = Hex(10) ‘hasil A
MyHex = Hex(459) ‘hasil 1CB Oct : menghasilkan nilai octal dari setiap bilangan
MyOct = Oct(4) ‘hasil 4
MyOct = Oct(8) ‘hasil 10
MyOct = Oct(459) ‘hasil 713
tp kl beda subnet gimana atau kita ngeremot via ip publik.....?misal nya
ip komp DBE:192.168.1.23 ip publik nya: 125.165.23.123
ip publik server sql:203.130.23.45
gimana gan....?
(kok malah nanya..............) sabar gan
maka
pada server name diisi:ip-publik-server\namaserver
ups kok begini ya
muncul lah pesan error 26
unutuk menyelesaikan masalah di atas, cukup kita tambahin port berapa yang di pake si sql server.
jd pada server name di isi:ip-publik\servername,port-yang-dipake
misalnya: 203.130.23.24\server1.1138
Tutorial untuk membuat teks animasi menggunakan Visual basic 6.
Pertama-tama silakan buat desain seperti ini:
[vb6] Membuat Teks Animasi
Komponen pada form utama yang dibutuhkan adalah:
Untuk teks 1:
label1 : isi tulisan
label3 : menampilkan kecepatan animasi per milisecond
command1 : tombol untuk mengurangi kecepatan
command2 : tombol untuk menambah kecepatan
command3 : tombol start/pause animasi
command4 : tombol untuk menghentikan dan mereset animasi
timer1 : pengaturan waktu animasi
Untuk teks 2:
label2 : isi tulisan
label4 : menampilkan kecepatan animasi per milisecond
command5 : tombol untuk mengurangi kecepatan
command6 : tombol untuk menambah kecepatan
command7 : tombol start/pause animasi
command8 : tombol untuk menghentikan dan mereset animasi
timer2 : pengaturan waktu animasi
check1 : check box untuk pengaturan jumlah karakter yang muncul
option1 : option button untuk pengaturan margin kiri
option2 : option button untuk pengaturan margin tengah
option3 : option button untuk pengaturan margin kanan
Setting komponen diatur melalui koding atau source code, jadi lebih mudah dalam pembelajarannya.
Untuk animasi teks pertama, mirip dengan scroller text (teks yang berjalan memutar), algoritma sederhananya adalah:
Sedangkan animasi teks kedua adalah mirip dengan pengetikan tulisan per karakter oleh keyboard.
Source Code:
Code: vb
Option Explicit
'-------------------------------
' http://if.web.id
' http://forumif.web.id
'-------------------------------
Dim nama As String ' tulisan default pada label1
Dim iTimer1 As Integer ' speed atau interval awal timer1
Dim status1 As Boolean
Dim nama2 As String ' tulisan default pada label2
Dim iTimer2 As Integer ' speed atau interval awal timer2
Dim status2 As Boolean
Private Sub Command1_Click()
If Timer1.Interval < 2000 Then Timer1.Interval = Timer1.Interval + 100
End Sub
Private Sub Command2_Click()
If Timer1.Interval > 100 Then Timer1.Interval = Timer1.Interval - 100
End Sub
Private Sub Command3_Click()
Call Aktifkan(Timer1, Command3, Command1, Command2, Command4)
End Sub
Private Sub Command4_Click()
Label3.Caption = "Speed: 0 ms."
Timer1.Interval = iTimer1
Call Aktifkan(Timer1, Command3, Command1, Command2, Command4, True)
status1 = False
Label1.Caption = nama
End Sub
Private Sub Command5_Click()
If Timer2.Interval < 2000 Then Timer2.Interval = Timer2.Interval + 100
End Sub
Private Sub Command6_Click()
If Timer2.Interval > 100 Then Timer2.Interval = Timer2.Interval - 100
End Sub
Private Sub Command7_Click()
Call Aktifkan(Timer2, Command7, Command5, Command6, Command8)
End Sub
Private Sub Command8_Click()
Label4.Caption = "Speed: 0 ms."
Timer2.Interval = iTimer2
Call Aktifkan(Timer2, Command7, Command5, Command6, Command8, True)
status2 = False
Label2.Caption = nama2
End Sub
Private Sub Form_Load()
Form1.Caption = "Animasi Teks - by Galih Hermawan"
' Setting untuk keperluan label1 pada tulisan Galih Hermawan
nama = "Galih Hermawan"
iTimer1 = 1000
Label1.Caption = nama
Label1.FontSize = 36
Label1.ForeColor = vbBlue
Label1.Alignment = 2 ' rata tengah (center)
Label3.Caption = "Speed: " & Timer1.Interval & " ms."
Command1.Caption = "- Perlambat"
Command1.Enabled = False
Command2.Caption = "+ Percepat"
Command2.Enabled = False
Command3.Caption = "Start"
Command4.Caption = "Stop && Reset"
Command4.Enabled = False
'status1 = False
Command4.Value = True
' Setting untuk keperluan label1 pada tulisan Galih Hermawan
nama2 = "Forum Informatika"
iTimer2 = 1000
Label2.Caption = nama2
Label2.FontSize = 32
Label2.FontName = "Courier"
Label2.ForeColor = RGB(150, 40, 10)
Label2.Alignment = 2 ' rata tengah (center)
Label4.Caption = "Speed: " & Timer2.Interval & " ms."
Command5.Caption = "- Perlambat"
Command5.Enabled = False
Command6.Caption = "+ Percepat"
Command6.Enabled = False
Command7.Caption = "Start"
Command8.Caption = "Stop && Reset"
Command8.Enabled = False
Timer2.Interval = iTimer2
Check1.Caption = "Perkarakter"
Option1.Caption = "Kiri"
Option1.Value = True
Option2.Caption = "Tengah"
Option3.Caption = "Kanan"
End Sub
Private Sub Label1_Click()
Call Aktifkan(Timer1, Command3, Command1, Command2, Command4)
End Sub
Private Sub Label2_Click()
Call Aktifkan(Timer2, Command7, Command5, Command6, Command8)
End Sub
Private Sub Option1_Click()
Label2.Alignment = 0
End Sub
Private Sub Option2_Click()
Label2.Alignment = 2
End Sub
Private Sub Option3_Click()
Label2.Alignment = 1
End Sub
Private Sub Timer1_Timer()
Dim p As Integer, t As String
Dim sAwal As String, sAkhir As String
Static i As Integer
t = nama
p = Len(t)
If status1 = False Then
i = 0
status1 = True
End If
i = i + 1
sAwal = Mid(t, i + 1, p - i)
sAkhir = Mid(t, 1, i)
Label1 = sAwal & " " & sAkhir
If i = p Then i = 0
Label3.Caption = "Speed: " & Timer1.Interval & " ms."
End Sub
Private Sub Aktifkan(tmr As Timer, cmd As CommandButton, cmdMin As CommandButton, cmdPlus As CommandButton, cmdReset As CommandButton, Optional nyala As Boolean)
If tmr.Enabled Or nyala Then
cmd.Caption = "Start"
cmdMin.Enabled = False
cmdPlus.Enabled = False
cmdReset.Enabled = False
tmr.Enabled = False
Else
cmd.Caption = "Pause"
cmdMin.Enabled = True
cmdPlus.Enabled = True
cmdReset.Enabled = True
tmr.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
Dim p As Integer, t As String
Dim sAwal As String, sAkhir As String
Static i As Integer
t = nama2
p = Len(t)
If status2 = False Then
i = 0
status2 = True
End If
i = i + 1
If Check1.Value = False Then
sAwal = Mid(t, 1, i) ' & " "
Label2 = sAwal & " "
If i = p Then i = 0
Else
If Option3.Value = True Then
sAwal = Mid(t, p + 1 - (i - 1), 1)
Label2 = sAwal & Space(i)
ElseIf Option2.Value = True Then
sAwal = Mid(t, i, 1)
Label2 = Space(i) & sAwal & Space(i)
Else
sAwal = Mid(t, i, 1)
Label2 = Space(i) & sAwal
End If
If i = p Then
Label2.Caption = nama2
ElseIf i = p + 1 Then
i = 0
End If
End If
Label4.Caption = "Speed: " & Timer2.Interval & " ms."
End Sub
Sebuah Aplikasi selain dapat bekerja sesuai dengan fungsinya tentunya dituntut suatu keindahan diantaranya tampilan yang transparan.Sebuah form yang transparan dengan opaciti 0 – 100% tidak perlu mengunakan VB Net, dengan VB6 pun sudah bisa dengan bantuan file ActiveX yang sudah saya buat terlebih dahulu, oleh karena itu download dulu file TransX.ocx disini, ukurannya kecil sekali hanya sekitar 24 KB. Setelah file tersebut berhasil di download, copy kan ke c:windowssystem32 kemudian instalkan dengan cara klik Start -> Run pada kotak isian ketiklahregsvr32 “c:windowsSistem32TransX.ocx” kemudian klik OK akan tampil message seperti ini
Klik ok
Cara menggunakan file ActiveX TransX.ocx
Klik kanan toolbox kemudian pilih component
Ceklist TransZ, klik Aply
Tempelkan ActiveX tersebut pada form dengan cara double klik, maka pada from akan ada objek TransX1
Cara mengetes cara kerja ActiveX TransX.ocx, tempelkan objek HScroll,TextBox, dan Image pada form misalnya object tersebut bernama HScroll1. Atur porpertis HScroll1 sebagai berikut
Min = 0
Max = 100
Value = 100
Pada objext text1, atur text= 100
Pada Image tambahkan picture apa saja terserah anda, sehingga tampilan kira-kira seperti ini
Untuk membuat “Control Panel” sendiri, pertama kita buat sebuah folder. Klik kanan tombol Start dan kemudian pilih Explore. Ketika folder Start Menu tampil, klik ganda folderPrograms. Ketika folder Programs tampil, klik menu Organize pada toolbar Windows Explorer dan kemudian pilih New Folder. Selanjutnya, beri nama folder tersebut My Control Panel atau apa pun yang Anda suka.
GANTI ICON FOLDER
Sekarang, klik kanan folder My Control Panel, dan kemudian pilih Properties. Pilih tab Customize, dan kliktombol Change Icon pada panel Folder icons. Ketika kotakdialog Change Icon tampil, pilih icon untuk membedakan foldetersebut dari semua folder lainnya pada menu Start.
SERET FOLDER KE MENU START
Sekarang, seret folder My Control Panel dari folder Pro-grams dan arahkan ke tombol Start. Ketika menu Start terbuka, seret folder My Control Panel dan jatuhkan ke bagian paling atas menu Start. Sampai di sini, Anda bisa memasukkan tools ke “Control Panel”.
MASUKKAN TOOL (1)
Untuk memasukkan tools ke “Control Panel”, buka folder My Control Panel dari menu Start. Selanjutnya, buka Control Panel yang asli dan pilih Classic View. Sekarang, seret dan jatuhkan tools yang paling sering Anda gunakan dari Control Panel yang asli ke folder My Control Panel. Biasanya membuat shortcut dengan cara drag-and-drop sudah mencukupi. Namun seperti yang Anda ketahui, banyak tools yang terdapat di dalam tool lain. Sebagai contoh, untuk ke Display Settings, Anda harus membuka Personalization dulu.
MASUKKAN TOOL (2)
Untungnya beberapa shortcut command line tools lama masih eksis di Windows Vista dan Anda bisa meng-gunakannya. Tools Control Panel Windows Vista bisa ditemukan di folder Windows\System32 (dalam file CPL). Anda bisa menjalankannya dengan menggunakan format perintah: control tool.cpl di mana tool adalah tool Control Panel. Jika tool tersebut mempunyai beberapa tab, Anda bisa membuat shortcut langsung ke tab yang dituju dengan menggunakan format perintah: control tool.cpl,,# di mana # adalah nomor tab yang dituju. Beberapa shortcut command line bisa Anda lihat pada boks.
GANTI NAMA SHORTCUT
Ketika menyerettools, Windows Vista akan membuat shortcut ke tools tersebut. Windows Vista akan menambahkan “- Shortcut” ke setiap nama tools. Tentu saja, Anda bisa menghapus tambahan tersebut dan mengganti nama sesuai yang diinginkan. Ketika sudah selesai, tutup folder My Control Panel dan Control Panel yang asli. Sekarang ketika Anda ingin menjalankan tools yang sering digunakan, cukup klik tombol Start dan pilih icon My Control Panel.
Ketegori System Properties: tab Computer Name (sysdm. cpl), Hardware (sysdm.cpl,,2), Advanced (sysdm.cpl,,3), System Protection (sysdm.cpl,,4), dan Remote (sysdm.cpl,,5)
Kategori Internet Properties: tab General (inetcpl.cpl), Security (inetcpl.cpl,,1), Privacy (inetcpl.cpl,,2), Content (inetcpl. cpl,,3), Connections (inetcpl.cpl,,4), Programs (inetcpl.cpl,,5), dan Advanced (inetcpl.cpl,,6).
Kategori Regional and Language Options: tab Formats (intl.cpl), Location (intl.cpl,,1), Keyboards and Languages (intl. cpl,,2), dan Administrative (intl.cpl,,3).
Kategori Sound: tab Playback (mmsys.cpl), Recording (mmsys.cpl,,1), dan Sounds (mmsys.cpl,,2).
