Posting Tulisan HTML di Blog atau Website

Mungkin artikel ini sudah banyak dijumpai dimana-mana, awalnya terasa sangat menjengkelkan karena ingin posting artikel dengan sedikit tag HTML tidak bisa, setiap kali ingin diposting akan tampil halaman yang telah dikonvert menjadi tampilan web.

Setelah googlink akhirnya menemukan juga situs yang dapat menkonversi tulisan HTML agar bisa dipost pada blog atau website, untuk mencobanya klik aja link ini http://www.eblogtemplates.com/blogger-ad-code-converter/

Misalnya ingin posting tag seperti dibawah ini : 

<a href="ymsgr:sendIM?budiyanto_chen@ymail.com"><img src="http://opi.yahoo.com/online?u=budiyanto_chen@ymail.com&m=g&t=0"/></a>

jika tidak di-convert maka akan muncul seperti ini :

Selamat mencoba...

Status YM di Blog

Berawal dari penasaran, ingin memperindah blog serta mempermudah komunikasi akhirnya ketemu caranya buat pasang status "Yahoo Messenger" di blog, rupanya tidak sesulit yang dibayangkan hanya cukup copy and paste "tag html"-nya saja.

Langsung aja berikut tag html-nya  :

<a href="ymsgr:sendIM?budiyanto_chen@ymail.com"><img src="http://opi.yahoo.com/online?u=budiyanto_chen@ymail.com&m=g&t=0"/></a>

Nah, sekarang cukup mengganti :

• ganti YahooID budiyanto_chen@ymail.com dengan YahooID Anda
  
• terakhir pada tulisan merah t=0, itu merupakan icon YM Anda, anda dapat merubahnya 1 hingga 16, mungkin kedepannya bisa lebih dari itu. Tergantung pengembangan dari Yahoo

Berikut gambar YM :

t=0

t=1

t=2

t=3

t=4

t=5

t=6

t=7

 

t=8 

t=9

t=10

t=11

 

t=12

t=13

 

t=14

t=15

t=16

Langkah-langkah Membuat Yahoo Groups

Pertama-tama untuk membuat mailist / milis Anda bisa menggunakan YahooGroups, silahkan ketikkan pada browser Anda http://groups.yahoo.com/

Akan muncul halaman yahoo groups seperti yang tampak dibawah ini:

Jika Anda sudah mempunyai account / akun Yahoo! silahkan klik pada kiri atas Sign In dan jika Anda belum mempunyai account Yahoo jangan khawatir, Anda dapat mendaftarkan account Yahoo yang baru dengan mengklik Sign Up. Untuk kali ini saya asumsikan bahwa Anda sudah mempunyai account Yahoo, setelah mengklik Sign In. Anda diminta untuk mengisi Yahoo ID dan password, silahkan isikan.

Berikut akan tampil halaman seperti di atas, Anda dapat memulai untuk membuat Yahoo Groups yang baru dengan mengklik “Start your group”

Pada langkah berikutnya, Anda diminta untuk memilih kategori dari Group Anda, silahkan masukkan sesuai dengan konten pembahasan dalam Group Anda.

Anda dapat menggunakan fasilitas pencari atau tinggal mengklik pilihan yang ada di bawahnya. Jika Anda sudah selesai memilih silahkan klik “Place my group here”

Kemudian akan muncul tampilan untuk mengisi nama Group Anda, email yang digunakan untuk posting (untuk mengirim pesan sekaligus ke-anggota group Anda) dan deskripsi tentang group Anda, silahkan isikan.

Langkah berikutnya yaitu untuk mengkonfirmasikan alamat email yang ingin Anda gunakan untuk menerima email dari Yahoo Groups

Berikut akan muncul halaman ucapan selamat atas keberhasilan membuat Yahoo Groups, yang berisikan nama Groups, Group home page (diingat atau dicatat, ini digunakan untuk anggota baru masuk kegroup Anda)

http://groups.yahoo.com/group/

Secara default formatnya seperti di atas, kemudian Groups email yang Anda gunakan untuk posting artikel atau tulisan.
Pada sisi bawahnya terdapat 2 tombol, pertama untuk menggatur Group Anda, yang kedua untuk mengundang teman-teman Anda untuk bergabung di Groups Anda.

Untuk menggatur Group Anda silahkan klik “Customize Your Group”.

Pada pada pilihan pertama dan kedua biarkan saja secara default seperti itu, pilihan ketiga berfungsi untuk otorisasi post isi pada Group Anda, jika Anda hanya ingin anggota Anda yang bisa post maka biarkan secara default jika tidak silahkan pilih yang Anda inginkan.


Pada step ke-2, berfungsi untuk mengatur apakah post dari anggota Groups Anda atau semua orang perlu konfirmasi dari Anda atau tidak, berikutnya apakah balasan dari post di-email kesemua anggota atau hanya yang post.

langkah berikutnya biarkan saja secara default, atau silahkan Anda customize...

Pada tahapan berikutnya Anda diminta untuk memilih untuk mengundang teman atau masuk ke Groups Anda, jika ingin mengundang teman silahkan klik “Invite People”

 

Sampai disini, Anda telah berhasil membuat Yahoo Groups. Untuk login ke group Anda http://groups.yahoo.com/

Membuat Form Koneksi Database dengan VB 2005

Untuk membuat suatu aplikasi agar bisa dijalankan pada sebuah jaringan diperlukan sebuah form koneksi agar programmer tidak perlu lagi membuka source code aplikasi untuk merubah Connection String-nya. Hal ini sangat berguna jika aplikasi dijalankan pada komputer yang berlainan dengan database. Berikut ini saya membuat form untuk melakukan koneksi ke-database SQL Server 2000 dengan menggunakan Visual Studio 2005 dan koneksi yang dibuat disimpan pada file notepad dengan extention ".ini". Dalam hal ini saya juga menggunakan module agar bisa diakses disemua form nantinya.







Berikut source code-nya :



Source pada module


Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Module mdlConnection
Public sqlConn As New SqlConnection
Public sqlCmd As New SqlCommand
Public DA As New SqlDataAdapter
Public DS As New DataSet
Public SR As StreamReader
Public SW As StreamWriter
Private dbServer, dbUserName, _
dbPassword, dbDatabase As String
Public myPath As String = _
AppDomain.CurrentDomain.BaseDirectory
Private Sub winConnString()
sqlConn.ConnectionString = _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog=" & dbDatabase & _
";Data Source=" & dbServer
End Sub
Private Sub ConnString()
sqlConn.ConnectionString = _
"Persist Security Info=False;User ID=" & _
dbUserName & ";Pwd=" & dbPassword & _
";Initial Catalog=" & dbDatabase & _
";Data Source=" & dbServer
End Sub
Public Sub OpenConn()
sqlConn.Close()

dbServer = ""
dbUserName = ""
dbPassword = ""
dbDatabase = ""

Try
SR = File.OpenText(myPath & "Connection.ini")
Do While SR.Peek <> -1
dbServer = SR.ReadLine.Trim
dbUserName = SR.ReadLine.Trim
dbPassword = SR.ReadLine.Trim
dbDatabase = SR.ReadLine.Trim
Loop
SR.Close()
If dbUserName = "" And dbPassword = "" Then
winConnString()
Else
ConnString()
End If
sqlCmd.CommandType = CommandType.Text
sqlCmd.Connection = sqlConn
sqlConn.Open()
Catch ex As Exception
MessageBox.Show("Connection Failed", _
"Connection Error", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
frmConnection.ShowDialog()
End Try
End Sub
Public Function tryConnection(ByVal chxWin As CheckBox, _
ByVal dServer As String, ByVal dUserName As String, _
ByVal dPassword As String, ByVal dDatabase As String) _
As Boolean

dbServer = dServer
dbUserName = dUserName
dbPassword = dPassword
dbDatabase = dDatabase

If chxWin.Checked = True Then
winConnString()
Else
ConnString()
End If
Try
sqlConn.Open()
sqlConn.Close()
Return True
Catch ex As Exception
sqlConn.Close()
Return False
End Try
End Function
Public Function saveConn(ByVal dServer As String, _
ByVal dUserName As String, ByVal dPassword As String, _
ByVal dDatabase As String) As Boolean
Try
File.Delete(myPath & "Connection.ini")
SW = File.AppendText(myPath & "Connection.ini")
With SW
.WriteLine(dServer)
.WriteLine(dUserName)
.WriteLine(dPassword)
.WriteLine(dDatabase)
End With
SW.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function
End Module


Pada form koneksi

Public Class frmConnection

Private Sub btnCancel_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()
End Sub

Private Sub chxWindows_CheckedChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles chxWindows.CheckedChanged
txtUserName.Clear()
txtPassword.Clear()
If chxWindows.Checked = True Then
txtUserName.ReadOnly = True
txtPassword.ReadOnly = True
Else
txtUserName.ReadOnly = False
txtPassword.ReadOnly = False
End If

End Sub

Private Sub btnTest_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnTest.Click
If tryConnection(chxWindows, _
txtServer.Text.Trim, _
txtUserName.Text.Trim, _
txtPassword.Text.Trim, _
txtDatabase.Text.Trim) = True Then
MessageBox.Show("Connection Success", "Connection Success", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Connection Failed", "Connection Failed", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSave.Click
If saveConn(txtServer.Text.Trim, txtUserName.Text.Trim, _
txtPassword.Text.Trim, txtDatabase.Text.Trim) = True Then
OpenConn()
MessageBox.Show("Connection Saved Successful", "Success", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.Close()
End If
End Sub
End Class

Pembuatan form koneksi ini tidak menggunakan enkripsi untuk lebih aman dapat menggunakan enkripsi dan juga dapat disimpan pada registry.