Menampilkan Judul Tanpa Isi Posting di Label
Dedy E Hutauruk
Sebelum melanjutkan membaca postingan ini, alihkan pandangan sejenak ke sidebar kanan atas blog saya ini. Disitu ada Kategori, sekarang coba klik salah satu Kategori atau nama resmi dari Bloggernya adalah Label.....................Sudah Belum...???. Apa yang terlihat?. Ya..hasil klik tersebut dihalaman posting ini yang muncul judul posting dari kategori (label) itu saja. Tidak ada isi postingnya. Ini tentu saja akan memudahkan para penggemar blog kamu jika mau mencari sesuatu yang diminati di blog kamu. Pada Label "original" tentu yang tampil pasti beserta isinya. Jika isi label ada 20-an misalnya, kan pegal tuh telunjuk mencetin scroll maouse. Cara ini juga efektif untuk mempercepat loading page blog kamu.(mau tahu size dan loading page blog kamu? monggo periksa disini)



Pertamax
Buka Template -> Edit HTML -> centang pada kotak kecil Expand Widget Templates

Keduax
Cari kode ini:

<!-- posts -->
<div class='blog-posts hfeed'>
<b:include data='top' name='status-message'/>
<data:adStart/>
<b:loop values='data:posts' var='post'>
<b:if cond='data:post.dateHeader'>
<h2 class='date-header'><data:post.dateHeader/></h2>
</b:if>
<b:include data='post' name='post'/>


Perhatikan kode warna biru. Ganti kode tersebut dengan kode di bawah ini (timpa dengan cara copy paste)

<b:if cond='data:blog.homepageUrl !=
data:blog.url'>
<b:if cond='data:blog.pageType != "item"'>
<a expr:href='data:post.url'>
<data:post.title/></a><br/><br/>
<b:else/>
<b:include data='post' name='post'/>
</b:if>
<b:else/>
<b:include data='post' name='post'/>
</b:if>



Ketigax:
Simpan, lalu lihat hasilnya...
Label: 0 komentar | edit post
Mengetahui Size Blog Kita
Dedy E Hutauruk
Rata-rata blogger baru (seperti saya juga) dalam membuat blog sangat getol untuk menambahkan segala macam pernak-pernik untuk mempercantik blog. Widget-widget baru dicari sana-sini yang penting tampil di blog walau terkadang tidak ada hubungannya dengan isi blog itu sendiri. Itu sich..sah-sah saja menurut KUHP (lho...). Tetapi kalau kemudian pernak-pernik tersebut membuat blog kita menjadi berat, tentu akan menjadi masalah. "Masalahnya apa ya..?" Masalahnya adalah blog kita akan lambat saat di buka (loading), dan bukan mustahil pengunjung blog kita akan buru-buru kabur akibat kelamaan nunggu. Menunggu kan pekerjaan paling bete. Untuk mengatasi permasalahan ini, akan saya berikan sebuah alat deteksi berat atau speed blog. Alat ini akan berfungsi mengontrol blog sehingga tahu mengatur pernak-pernik apa yang perlu dan tidak usah dimasukkan
Alat deteksi ini akan menampilkan hasil Size (berat/ukuran), Load Time (waktu loading) dan Avarege Speed per KB (Kecepatan rata-rata / KB). Yang paling penting diperhatikan adalah SIZE, Angka yang keluar akan mengindikasikan kecepatan loading blog kita. Size ideal adalah Maksimal 100 KB. Jika melebihi 100 KB loading blog akan mulai melambat. Segera tata kembali blog dan buang pernak-pernik yang tidak perlu. Seperti Jam dan Kalender (ngapain juga ya pakai ini???, emangnya pengunjung blog kita gak punya kalender atau jam ).
Nah..jika sudah jelas silahkan masukkan alamat blog kamu atau bisa juga bareng dengan blog teman kamu sebagai perbandingan (ngintip gituh..). Maksimal 10 buah ya

Masukkan Alamat Web atau Blog (Maksimal 10)

(Cth: tipsvb-blog.blogspot.com)



Powered byiWEBTOOL
Label: 1 komentar | edit post
Visual Basic Dalam Sebuah Segitiga
Dedy E Hutauruk
Segitiga adalah: Nama suatu bentuk yang dibuat dari tiga sisi yang berupa garis lurus dan tiga sudut. Matematikawan Euclid yang hidup sekitar tahun 300 SM menemukan bahwa jumlah ketiga sudut di suatu segi tiga adalah 180 derajat. Hal ini memungkinkan kita menghitung besarnya salah satu sudut bila dua sudut lainnya sudah diketahui. Dalam postingan ini saya menggunakan segitiga siku-siku sebagai bahan untuk contoh pemrograman Visual Basic. Ciri segitiga siku-siku adalah salah satu sudutnya bernilai 90 derajat. Dengan program ini kita akan mudah menghitung secara otomatis komponen-komponen yang ada pada sebuah segitiga siku-siku dengan hanya meng-input 2 komponen yang diketahui. Komponen tersebut adalah:
- Besar sudut
- Nilai Alas,Tinggi dan Sisi Miringnya --> Rumus Phytagoras

Untuk memulai membuat program, persiapkan dulu hal-hal berikut
- Atur sebuah layout seperi gambar (lihat di bagian bawah postingan ini.
- Atur propertinya sbb:

* TextBox = TTinggi, TAlas, TAtas, TBawah, TSisi
* Label = LLuas
* CommandButton = CReset, CHitung, CKeluar
* Line untuk membentuk gambar segittiga

Option Explicit
Dim rAtas As String
Dim rBawah As String
Dim pi As String
Dim Opp As String
Dim SisiMiring As String
Dim Adj As String
Dim Sudut As String
Dim X As String


Sub Reset()
TTinggi.Text = ""
TAlas.Text = ""
TSisi.Text = ""
TAtas.Text = ""
TBawah.Text = ""
LLuas = ""
pi = 3.14159265358979
End Sub


Sub Konversi()
Opp = ""
SisiMiring = ""
Sudut = ""
Adj = ""
rAtas = ""
rBawah = ""
If TAtas.Text <> "" Then rAtas = TAtas.Text * pi / 180
If TBawah.Text <> "" Then rBawah = TBawah.Text * pi / 180
End Sub


Private Sub CHitung_Click(Index As Integer)
Call HitungSudut
If TTinggi.Text <> "" Or TAlas.Text <> "" Or TSisi.Text <> "" Then
Call Konversi
If rBawah <> "" And TTinggi.Text <> "" Or TSisi.Text <> "" And rBawah <> "" Then
Sudut = rBawah
Opp = TTinggi.Text
SisiMiring = TSisi.Text
Call Calcsin
TTinggi.Text = Opp
TSisi.Text = SisiMiring
End If
If rAtas <> "" And TAlas.Text <> "" Or TSisi.Text <> "" And rAtas <> "" Then
Opp = TAlas.Text
SisiMiring = TSisi.Text
Sudut = rAtas
Call Calcsin
TAlas.Text = Opp
TSisi.Text = SisiMiring
End If
If rBawah <> "" And TAlas.Text <> "" Or TSisi.Text <> "" And rBawah <> "" Then
Sudut = rBawah
Adj = TAlas.Text
SisiMiring = TSisi.Text
Call Calccos
TAlas.Text = Adj
TSisi.Text = SisiMiring
End If
If rAtas <> "" And TTinggi.Text <> "" Or TSisi.Text <> "" And rAtas <> "" Then
Sudut = rAtas
Adj = TTinggi.Text
SisiMiring = TSisi.Text
Call Calccos
TTinggi.Text = Adj
TSisi.Text = SisiMiring
End If
If rAtas <> "" And TAlas.Text <> "" Or rAtas <> "" And TTinggi.Text <> "" Then
Sudut = rAtas
Adj = TTinggi.Text
Opp = TAlas.Text
Call Calctan
TTinggi.Text = Adj
TAlas.Text = Opp
End If
If rBawah <> "" And TAlas.Text <> "" Or rBawah <> "" And TTinggi.Text <> "" Then
Sudut = rAtas
Adj = TAlas.Text
Opp = TTinggi.Text
Call Calctan
TAlas.Text = Adj
TTinggi.Text = Opp
End If
If rAtas = "" And TAlas.Text <> "" And TTinggi.Text <> "" Then
Sudut = rAtas
Opp = TAlas.Text
Adj = TTinggi.Text
Call InvTan
TAtas.Text = Sudut * 180 / pi
End If
If rBawah = "" And TAlas.Text <> "" And TTinggi.Text <> "" Then
Sudut = rAtas
Opp = TTinggi.Text
Adj = TAlas.Text
Call InvTan
TBawah.Text = Sudut * 180 / pi
End If
If rAtas = "" And TAlas.Text <> "" And TSisi.Text <> "" Then
Sudut = rAtas
Opp = TAlas.Text
SisiMiring = TSisi.Text
Call InvSin
TAtas.Text = Sudut * 180 / pi
End If
If rBawah = "" And TTinggi.Text <> "" And TSisi.Text <> "" Then
Sudut = rBawah
Opp = TTinggi.Text
SisiMiring = TSisi.Text
Call InvSin
TBawah.Text = Sudut * 180 / pi
End If
End If
LLuas = (TAlas.Text * TTinggi.Text) / 2
End Sub


Private Sub CKeluar_Click(Index As Integer)
Unload Me
End Sub


Private Sub CReset_Click()
Call Reset
End Sub


Private Sub Form_Load()
Call Reset
End Sub


Function Calcsin() As Single
If Opp = "" And SisiMiring <> "" And Sudut <> "" Then Opp = SisiMiring * Sin(Sudut)
If SisiMiring = "" And Opp <> "" And Sudut <> "" Then SisiMiring = Opp / Sin(Sudut)
End Function


Function Calccos() As Single
If Adj = "" And SisiMiring <> "" And Sudut <> "" Then Adj = SisiMiring * Cos(Sudut)
If SisiMiring = "" And Adj <> "" And Sudut <> "" Then SisiMiring = Adj / Cos(Sudut)
End Function


Sub HitungSudut()
If TBawah.Text <> "" And TAtas.Text <> "" Then
If Val(TAtas.Text) + Val(TBawah.Text) <> "90" Then MsgBox ("Tidak Bisa Diproses")
End If
If TBawah.Text <> "" And TAtas.Text = "" Then TAtas.Text = 90 - Val(TBawah.Text)
If TAtas.Text <> "" And TBawah.Text = "" Then TAtas.Text = 90 - Val(TAtas.Text)
If Val(TAtas.Text) > 90 Or Val(TAtas.Text) <> 90 Or Val(TBawah.Text) <>
End Sub


Function Calctan() As String
If Opp = "" And Adj <> "" And Sudut <> "" Then Opp = Adj * Tan(Sudut)
If Adj = "" And Opp <> "" And Sudut <> "" Then Adj = Opp / Tan(Sudut)
End Function


Function InvTan() As String
If Opp <> "" And Adj <> "" And Sudut = "" Then Sudut = Atn(Opp / Adj)
End Function


Function InvSin() As String
X = Opp / SisiMiring
Sudut = Atn(X / Sqr(-X * X + 1))
End Function



Maka hasil program akan seperti gambar di bawah ini:


Dalam contoh ini, data diinput pada Tinggi dan Alas lalu klik tombol Hitung. Maka hasilnya seperti yang terlihat pada gambar diatas. Bagi anda pakar Matematika silahkan dibuktikan hasil tersebut, jika ada kesalahan tolong dikoreksi yach...!!
Label: 0 komentar | edit post
Transfer Data Dari VB Ke Excel
Dedy E Hutauruk
Postingan kali ini akan menjelaskan cara Transfer data dari Visual Basic ke Excel. Melalui form Visual Basic kita dapat menentukan ke baris dan kolom mana data tersebut akan ditempatkan di sheet Excel.

Caranya:
1. Buat 2 buah kontrol TextBox dan 1 buah kontrol CommandButton pada form Visual Basic
2. Ubah Properties kontrol tersebut--->Ini bisa terserah anda

Dalam contoh ini propertiesnya sebagai berikut:
- TextBox = T1 dan T2
- CommandButton = CB1 --> Pada Caption ketik Transfer Data Ke Excel
- Hasil pengaturan lihat gambar hasil program (di bagian bawah postingan ini
- Pada Jendela Kode ketikkan kode berikut ini:

Kode:
Dim Transfer As Excel.Application
-------------------------------------------------------
Private Sub CB1_Click()
Transfer.Workbooks.Add
Transfer.Range(T1.Text).Value = T2.Text
Transfer.Visible = True
End Sub
-------------------------------------------------------
Private Sub Form_Load()
Set Transfer = CreateObject("excel.application")
End Sub
-------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
Transfer.Quit
End Sub

- Setelah Run Program, maka hasilnya akan seperti ini:

- Kotak pendek (TextBox T1) merupakan tempat mengetikkan baris dan kolom yang akan di tuju di sheet Excel. Sedangkan kotak panjang (TextBox T2) tempat mengetikkan teks.
- Data akan berpindah setelah Transfer Data Ke Excel di klik
- Selamat Mencoba.......
Label: 0 komentar | edit post
Ubah Warna Form Dengan HScrollBar
Dedy E Hutauruk
HScrollBar atau Horizontal ScrollBar ternyata dapat digunakan untuk merubah warna form Visual Basic anda. Mau tahu caranya??Ikuti langkah-langkah berikut ini.
1.Buka form Visual Basic anda
2.Buat 4 buah kontrol label, 3 buah HScrollBar dan 1 buah CommandButton
3.Atur propertiesnya sehingga menjadi gambar 1 (dibawah)

Dalam hal ini:
Label paling atas = LB1 ------> Caption dikosongkan saja
HScrollBar = HS1, HS2,HS3----> Ketik pada properti Name
CommandButton = CB1-----> Di Caption ketikkan "KELUAR"

4.Ketikkan kode berikut pada masing-masing kontrol:

Kode:
Private Sub Form_Load()
Me.Caption = "Warna Form"
End Sub
------------------------------------------------------------------------------------------------
Private Sub HS1_Change()
Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)
LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value
End Sub
------------------------------------------------------------------------------------------------
Private Sub HS2_Change()
Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)
LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value
End Sub
------------------------------------------------------------------------------------------------
Private Sub HS3_Change()
Me.BackColor = RGB(HS1.Value, HS2.Value, HS3.Value)
LB1.Caption = "MERAH = " & HS1.Value & " ," & "HIJAU = " & HS2.Value & "," & "BIRU = " & HS3.Value
End Sub
------------------------------------------------------------------------------------------------
Private Sub CB1_Click()
End
End Sub

Hasilnya lihat pada gambar 1 berikut ini:

Anda tinggal geser HSrollBar ke arah kanan sejauh keinginan anda, maka warna form akan otomatis berubah. Seperti gambar di atas HScrollBar di label MERAH digeser penuh, maka form berubah menjadi warna MERAH. Berminat mencoba HIJAU dan BIRU???
Coba aja trik ini..!!!
Label: 0 komentar | edit post