Menyembunyikan Gadget Followers Pada Halaman Depan

Yup, untuk ketiga kalinya boogle akan menjawab pertanyaan seorang teman via form comment. Pertanyaan berhubungan dengan gadget followers yang ingin di sembunyikan pada halaman depan blog ( from page or home page ).
Hmmm, gitu ya kang..??
Cuma, kalo nyembunyiin gadget followers di home page kok kayak'x susah yah...
Kemaren tak ubrek2 gak bisa2
Sebenarnya tentang trik petak umpat ini secara garis besar sudah saya jelaskan pada postingan “ membuat page dinamis “. Tapi tak ada salahnya saya jelaskan lagi terutama untuk kasus tertentu, seperti menyembunyikan gadget followers, adsense dan gadget lain-nya.
Untuk menyembunyikan gadget Followers pada home page
Simpan script ini, setelah tag ]]></b:skin>
<b:if cond='data:blog.pageType != &quot;item&quot;'>
<style>
#Followers1 {display:none;}
</style>
</b:if>
Keterangan;
a.Script di atas menyembunyikan gadget followers pada halaman depan dan indek label.
b.Secara default gadget ini di beri id Followers1. Namun untuk memastikan bisa di cek menggunakan pencarian Ctrl+F >> Followers
c.Cara ini bisa ente gunakan untuk gadget lainnya, seperti ; gadget Html, Adsense dll.

Followers Via Dasboard Page Elements Vs Google Friendconnect

Selain gadget Follower bisa kita dapatkan via page elements sebenarnya ada cara lain untuk mendapatkan gadget ini yaitu via google friendconnect.
dan Saran boogle sih untuk menggunakan gadget followers lebih baik memangfaatkan yang ada di google friendconnect, karena salah satu kelebihanya kita dapat menggatur baris followers –nya  sesuai dengan keingina kita. – misalkan jika terlalu memberatkan kita dapat menampilkan baris followernya hanya dua baris saja. Setelah itu copy kode html –nya dan salin ke gadget Html/javascript.
Tentu saja untuk menyembunyikan pada halaman depan ( home page ), bukan lagi #Followers1 tapi Html yang id –nya dapat di cari menggunakan CTRL+F >> Html ( kode followers ).


blogspot tutorial

Bagaimana cara Menyembunyikan gadget atau widget pada postingan tertentu

Ini ada pertanyaan dari teman kita yang sedang ikutan kontes. Bagaimana caranya agar kita bisa menyembunyikan gadget atau sidebar pada postingan / artikel tertentu.
… Maksudnya bagaimana ngilangin sidebar dihalaman postingan tertentu yakni agar ukuran kbnya gak lebih dari 100kb.pusing2 googling surfing di google eh gak ada euy tutorialnya buat nyembunyiin sidebar di halaman tertentu saja….
Caranya kenali dulu gadget / widget apa yang ingin dihilangkan. dan asal tahu saja setiap kita menambahkan gadget / widget mempunyai nama yang unik.
misal untuk html / javascript ; HTML1, HTML2, HTML3 dst. untuk label;Label1,Label2 dst.  begitu juga untuk gadget / widget yang lainnya.
Ok. Selanjutnya simpan kode ini sebelum tag </head>
<b:if cond='data:blog.url == &quot;http://max-chip.blogspot.com/2009/10/indonesia-dalam-berita.html&quot;'>
<style>
#HTML2 {display:none;}
</style>
</b:if>
* Ganti url “ http://max-chip.blogspot.com/2009/10/indonesia-dalam-berita.html “ dgn posts kontes seo ente.
* Ganti #HTML2 dengan gadget / widget yang ingin di sembuyikan.
* Jika banyak gadget / widget yang ingin di sembuyikan jadinya seperti ini >> misal ; #HTML1, #Label1, #Followers1 {display:none}
* Begitu juga jika ingin menyembunyikan sidebarnya sekaligus.
* Trik ini bisa ente kembangkan lebih lanjut, misal untuk menambah ukuran main-wrapper dan sidebar-wrapper, menambah warna sidebar , menyembunyikan kotak komentar dll pada postingan tertentu. ( baca lebih lanjut ; page dinamis )

 

Alat penterjemah webblog yang terbaru dari om gogo

Pernahkah kepikiran blog curhat dan gagasan teman-teman di baca oleh Mr Obama, atau penawaran kaos clothing teman-teman di baca oleh pemuda tanggung dari arab saudi.
Nah itu bisa teman-teman lakukan dengan cara menggunakan atau menambah sebuah gadget “ website translation tool” dan perlu teman-teman ketahui, ini bukan hanya satu halaman tapi menerjemahkan keseluran isi web/blog .
Tools - Google Translate_1254399055132

Terus apa perbedaanya dengan gadget "Google Translate" yang sudah ada ?

Yang boogle lihat selain dari segi tampilan lebih halus dari gadget sebelumnya, dari cara kerjanya pun sangat berkelas tidak lagi menggunakan Frame. Setelah kita memilih terjemahan bahasa apa yang diinginkan, maka di atas halaman akan terlihat sebuah toolbar browser mengambang ( floting ) yang teman-teman bisa membuat pilihan bahasa selanjutnya atau keluar/close. untuk demo bisa di lihat pada sidebar blog ini “ Google Translate”

Bagaimana Cara Menggunakan Gadget Tersebut

Sangat mudah sekali seperti teman-teman biasa menambahkan sebuah kode/script ke dalam Html/Javascript.
Untuk mendapatkan kode scriptnya teman-teman bisa mengambil di Google Translate page.

boogle-white

Bagaimana Cara Membuat artikel terkait atau related posts

Related Post atau Postingan Terkait itu sendiri banyak versi. Namun tujuannya tetap sama yakni menampilkan artikel terkait menurut kategorie atau label dari tulisan yang sedang kita baca. Dan ini biasanya sangat membantu jumlah PageView ( halaman yang di baca ) pada blog kita, Terutama bagi visitor yang ingin menggali lebih dalam artikel lainnya yang kita tulis.
Untuk tata letak bagusnya “ Related Post “ di simpan tepat bawah artikel, atau sedikit jarak dengan artikel.
* Perhatian
Dan perlu di ingat Post terkait ini akan berjalan atau terlihat jika artikel kita mempunyai label/kategorie/tag yang sama dari beberapa tulisan.
Related Post atau Artikel Terkait 

Menambah Script Artikel Terkait “ Related Post “

Berikut ini tahap-tahap untuk menambahkan script Arttikel Terkait ke dalam Template Blog.
1. Login/masuk  ke Blogger.com jika belum log in.
2. Pada halaman Dasboard masuk ke Layout ( tata-letak ), pilih tab Edit Html.
3. Kemudian tandai/centang kotak di samping tulisan “Expand Template Widget
4. Setelah itu tempatkan script berikut ini di bawah tag ]]></b:skin>

<script type='text/javascript'>
//<![CDATA[
var relatedTitles = new Array();
var relatedTitlesNum = 0;
var relatedUrls = new Array();
function related_results_labels(json) {
for (var i = 0; i < json.feed.entry.length; i++) {
var entry = json.feed.entry[i];
relatedTitles[relatedTitlesNum] = entry.title.$t;
for (var k = 0; k < entry.link.length; k++) {
if (entry.link[k].rel == 'alternate') {
relatedUrls[relatedTitlesNum] = entry.link[k].href;
relatedTitlesNum++;
break;
}
}
}
}
function removeRelatedDuplicates() {
var tmp = new Array(0);
var tmp2 = new Array(0);
for(var i = 0; i < relatedUrls.length; i++) {
if(!contains(tmp, relatedUrls[i])) {
tmp.length += 1;
tmp[tmp.length - 1] = relatedUrls[i];
tmp2.length += 1;
tmp2[tmp2.length - 1] = relatedTitles[i];
}
}
relatedTitles = tmp2;
relatedUrls = tmp;
}
function contains(a, e) {
for(var j = 0; j < a.length; j++) if (a[j]==e) return true;
return false;
}
function printRelatedLabels() {
var r = Math.floor((relatedTitles.length - 1) * Math.random());
var i = 0;
document.write('<ul>');
while (i < relatedTitles.length && i < 20) {
document.write('<li><a href="' + relatedUrls[r] + '">' + relatedTitles[r] + '</a></li>');
if (r < relatedTitles.length - 1) {
r++;
} else {
r = 0;
}
i++;
}
document.write('</ul>');
}
//]]>
</script>

5 Kemudian cari bagian ini, dan tambahkan seperti kode yang di beri warna

<span class='post-labels'>
<b:if cond='data:post.labels'>
<data:postLabelsLabel/>
<b:loop values='data:post.labels' var='label'>
<a expr:href='data:label.url' rel='tag'><data:label.name/></a><b:if cond='data:label.isLast != &quot;true&quot;'/>
<b:if cond='data:blog.pageType == &quot;item&quot;'>
<script expr:src='&quot;/feeds/posts/default/-/&quot; + data:label.name + &quot;?alt=json-in-script&amp;callback=related_results_labels&amp;max-results=10&quot;' type='text/javascript'/>
</b:if>
</b:loop>
</b:if>
</span>

6. Sekarang cari kode baris post-footer berikut ini.
<div class='post-footer-line post-footer-line-3'>
kemudian masukan di bawahnya script ini.
<b:if cond='data:blog.pageType == &quot;item&quot;'>
<div class='related-posts'>
<h4>Posts Terkait:</h4>
<script type='text/javascript'>
removeRelatedDuplicates();
printRelatedLabels();
</script>
</div>
</b:if>

Simpan Perubahan ( save template ).

Jika ingin memberi style atau gaya pada tampilan Widget Related Post ini. kita bisa menambahkan pada halaman Css-nya, script berikut, sebelum tag ]]></b:skin>
.related-posts h4{
margin: 0 0 0 10px;
padding: 0 0 0;
font-size: ukuran font;
color: #nilai warna;
}

Untuk List
.related-post ul{
margin: 0 0 0;
padding: 0 0 0;
list-style-type:none;}
.related-posts li{
margin: 0 0 0;
padding: 2px 0px 0px;
list-style-type:none;
font-size: ukuran font;}
.related-posts li a{color: #nilai warna}
.related-posts li a:hover{color: #nilai warna; text-decoration:none;}
di tulis dari berbagai sumber.
usuariocompulsiv
templatesparanovoblogg

fun-and-happy

TIPS UNTUK TEXTBOX VB

http://erge32.blogspot.com Hampir tiga minggu blog ekakom ini gak update posting, ini karena ada sedikit kesibukan maklum nyari uang tambahan buat uang bli rokok (wekekekeke) trus lagi ngurus blog yang satunya lagi http://ndakdo.blogspot.com sekalian belajar modiv template.

Untuk postingan kali ini masih seputaran Visual Basic yaitu mengenai Control Textbox, saya coba berbagi sedikit tips mengenai control ini buat VB Beginner karena ada beberapa dari sobat-sobat bertanya melalui email saya, yg pertanyaan nya lebih kurang seperti ini ..
"Mas kalo buat inputan hanya berupa angka dan kalau Huruf Kapital aja dimuat di textbox
cara nya bagaimana" , disini saya akan langsung membahas nya.

yang perlu dingat adalah event ini terjadi saat user ato pengguna menekan tombol keyboard atau yang lebih tepat nya pada event Keypress(KeyAscii as integer). nah untuk mengizinkan user hanya menginput berupa angka (number) codding nya seperti dibawah ini


Option Explicit

Const vbKeyDecPt = 46

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then Exit Sub Else KeyAscii = 0 End If End Sub

Untuk Menampilkan semua huruf Kapital (Huruf besar) pada textbox walaupun tombol Caps lock pada keyboard tidak di pencet codding seperti dibawah ini

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Event ini tidak akan berjalan kalo codding nya tidak ditempatkan pada event KeyPress(KeyAscii As Integer).

mudah-mudahan ada mamfaatnya bagi sobat-sobat VB Beginner ... dan terimakasih sebelumnya buat temen-temen yang sudah berkenan memberikan komentar nya ... salam

Membuat Caption Label Bergerak (VB)

http://erge32.blogspot.com Semangat lagi nih Pagerank udah pulih , hehehe .. kemarin sempat diturunin jadi dua sekarang udah normal lagi jadi tiga .. thx mbah Google (wekekeke). Walau beberapa hari ini jarang ol dikarenakan ada sedikit gangguan tapi eRGe masih sempatkan untuk Update Posting Blog Ekakom ini, Tips kali ini masih seputar Visual Basic yaitu Membuat Caption Label Bergerak , maksudnya bisa berjalan-jalan (smoga aja gak kesasar yah .. wekekeke) kalau di Html istilah nya Marquee (kalo gak salah), mudah-mudahan yang saya maksud bisa ngerti yah, kalo gak ngerti di mengertiin aja deh (wekekeke), Nah bagi yang berminat silakan ikuti langkah-langkah dibawah ini, Persiapan :

- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)


Ketik Coding dibawah ini pada Form Project

Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String

Private Sub Form_Load()
iTeks = 1
End Sub

Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh ..."
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan Visual Basic"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub

Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian tapi hati-hati sob jangan sampai labelnya kesasar gak tau pulang (wekekekekeke).

Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada VB Depelover yang masih pemula tentunya (Salam), terimakasih sebelumnya buat sobat-sobat yang sudah bersedia memberikan komentarnya.

Membuat Efek Vibrate Pada Form (VB)

http://erge32.blogspot.com Masih tentang Tips Visual Basic tentu nya .. kali ini eRGe mencoba berbagi lagi tentang Membuat Efek Vibrate pada Form . sebenarnya tips ini tidak terlalu penting, tapi sekedar mencoba share ilmu tentang VB aja buat sobat-sobat VB Developer tentunya yang masih junior. Tips ini untuk membuat unik Form sewaktu di run atau ditampilkan, maksud Efek Vibrate ini adalah efek getaran jadi sewaktu form di tampilan Form akan bergetar-getar seperti cacing kepanasan (wekekekeke .. kiding sob), untuk effect ini codingnya tidak panjang tidak capek ngetik nya, nah untuk mempersingkat waktu kita langsung to the point aja (wekeke..). bagi yang berminat silakan ikuti langkah-langkah berikut

Persiapan yang di lakukan :
Buat Project baru stardart exe .. lalu ketik coding berikut pada form sobat


Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub

Gak panjang kan, nah kalo udah selesai coba sobat jalankan (Run) atau tekan F5 , apa bener form nya bergetar-getar seperti cacing kepanasan ... (wekekeke ....), selamat mencoba aja yah.

mudah-mudahan ada mamfaat nya bagi kita semua dan khusus nya bagi VB Developer Junior semoga dapat menambah referensinya, sebelumnya terimakasih buat sobat-sobat yang sudah sudi mengkomentari artikel ini ... salam.

Penghitungan VB Ala Ms. Excel

http://erge32.blogspot.com Sudah berapa minggu ini vakum dengan postingan Visual Basic, seperti yang sudah tersurat dan tersirat pada blog ekakom ini, misi utama adalah Mencoba dan Belajar serta Berbagi tentang Visual Basic (hehehehehe kaya' pasukan tempur aja punya misi). Nah kesempatan kali ini eRGe kembali mencoba berbagi lagi tentang VB mengenai masalah Penghitungan VB ala Excel , sudah barang tentu sobat VB Depelopper pernah melihat perkalian seperti ini 20*10+(30-19) yang menghasilkan 211 kalau di Excel, hmm bisa kah perkalian ini di terapkan di Visual Basic .. ?, jawabannya tentu dunk (hehehehe). Bagi yang tertarik dan berminat silakan aja ikuti langkah berikut ini eRGe akan ngasih contoh codingnya

Persiapan yang dilakukan:

  • Buat Project Baru Standart exe
  • Tambahkan 1 buah TextBox (Text1)
  • Tambahkan 1 buah Label (Label1)
  • Tambahkan 1 Buah CommandButton (Command1) caption : =
'Ketik Coding dibawah ini pada Form Project

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

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 crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()
Dim excel_app As Object
Dim excel_sheet As Object

Set excel_app = CreateObject("Excel.Application")

excel_app.Workbooks.Add
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

excel_sheet.Cells(1, 1) = "=" & Text1.Text

Label1.Caption = excel_sheet.Cells(1, 1)
Label1.Caption = Format$(Label1.Caption, "#,##0")

excel_app.ActiveWorkbook.Close False

excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub

Setelah semua selesai coba sobat ketik
20*10+(30-19) atau perkalian yang lain pada Text1 .. kemudian tekan enter atau click CommandButton .. pada Label1 akan didapat hasil perkalian tersebut.

Mudah-mudah ada mamfaatnya bagi kita semua khusus nya bagi rekan-rekan VB Developper yang masih junior seperti saya semoga Artikel ini bisa menambah perbendaharaan ilmu nya dan terima kasih sebelum bagi sobat-sobat yang sudah berkenan memberikan Argumen nya ... salam.

Membuat Auto Complete pada Combo Box (VB)

http://erge32.blogspot.com Pada postingan kali ini saya akan membahas kembali mengenai Visual Basic yaitu Membuat Auto Complete pada Combo Box, maksud Auto Complete disini adalah Melengkapi Teks secara Otomatis pada saat sedang melakukan pengetikan ke data yang mendekati atau yang dinginkan, dengan catatan apabila data tersebut ada pada list data Combo Box tersebut.

Tip ini sangat berguna apabila menggunakan combobox yang di dalamnya terdiri atas ratusan bahkan ribuan data. User (pengguna/pemakai program) akan kesulitan jika harus memilih satu per satu menggunakan scroll combobox ke bawah hingga data yang diinginkan ketemu. Dengan adanya tip ini, user cukup hanya mengetikkan beberapa karakter awal, dan program akan otomatis melengkapinya, sehingga tidak perlu mengetik sampai akhir. Nah bagi yang berkenan untuk Tip ini silahkan ikuti langkah-lah berikut

  • Buatlah Project Baru Standart Exe
  • Tambahkan 1 buah ComboBox Style : Dropdown Combo
  • Tambahkan 1 buah Module
'Ketik Coding berikut pada Module

Option Explicit

Const CB_FINDSTRING = &H14C

Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Public Enum EnumKarakter
Asli = 0
Ubah = 1
End Enum

Public Function AutoComplete( _
cbCombo As ComboBox, _
sKeyAscii As Integer, _
Optional bUpperCase As Boolean = True, _
Optional cCharacter As EnumKarakter = Asli) _
As Integer
Dim lngFind As Long, intPos As Integer
Dim intLength As Integer, tStr As String
With cbCombo
If sKeyAscii = 8 Then
If .SelStart = 0 Then Exit Function
.SelStart = .SelStart - 1
.SelLength = 32000
.SelText = ""
Else
intPos = .SelStart
tStr = .Text
If bUpperCase = True Then
.SelText = UCase(Chr(sKeyAscii))
Else
.SelText = (Chr(sKeyAscii))
End If
End If

lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, _
ByVal .Text)
If lngFind = -1 Then
Exit Function
Else
intPos = .SelStart
intLength = Len(.List(lngFind)) - Len(.Text)
If cCharacter = Ubah Then
.SelText = .SelText & Right(.List(lngFind), _
intLength)
Else
.Text = .List(lngFind)
End If
.SelStart = intPos
.SelLength = intLength
End If
End With
End Function

' Ketik Coding diberikut pada Form

Option Explicit

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = AutoComplete(Combo1, KeyAscii, False, Asli)
End Sub

Private Sub Form_Load()
Call AddData
End Sub

Private Sub AddData()
With Combo1
.Clear
.AddItem "Ana Lestari"
.AddItem "Budi Setiawan"
.AddItem "Eka Syahputra"
.AddItem "Wahyu Perdana"
.AddItem "Blog walking"
.AddItem "Terserah"
End With
End Sub

Kemudian Run (jalankan) Program atau tekan F5, lalu pada combobox coba ketik huruf a , maka secara Otomatis teks pada combobox akan menjadi Ana Lestari. Semoga Tip ini ada mamfaat nya bagi kita semua, dan jangan lupa nitip komennya ya, terimakasih sebelumnya ... salam


Menampilkan Angka Terbilang dengan Visual Basic

http://erge32.blogspot.com Senang rasanya bisa berbagi lagi buat temen-temen karena udah lama gak posting, kali ini tentang cara Menampilkan Angka Terbilang dengan Visual Basic. Maksud angka terbilang disini adalah penulisan angka-angka dengan huruf misalnya Rp. 1.500 jadi (Seribu Lima Ratus Rupiah) tapi tip kali ini hanya untuk penulisan bilangan genap saja dan belum bisa digunakan untuk bilangan decimal atu bilangan berkoma, untuk menghemat waktu dan jangan capek ngetiknya (udah pasti neh) lanjut aja kita dengan cara pembuatan coding nya, nah bagi yang berkenan silakan ikuti langkah-langkah berikut

Persiapan yang dilakukan
  • Buat Project Baru Standart Exe
  • Tambahkan 1 buah TextBox dan 1 Label
  • Tambahkan 1 buah Module

’Ketik Coding dibawah ini pada module

Option Explicit

Public Const vbKeyDecPt = 46
Public Function ConvertirEnText(ValNum As Double) As String

Static Unites(0 To 9) As String
Static Dixaines(0 To 9) As String
Static LesDixaines(0 To 9) As String
Static Milliers(0 To 4) As String

Dim i As Integer
Dim nPosition As Integer
Dim ValNb As Integer
Dim LesZeros As Integer
Dim strResultat As String
Dim strTemp As String
Dim tmpBuff As String

Unites(0) = "nol"
Unites(1) = "satu"
Unites(2) = "dua"
Unites(3) = "tiga"
Unites(4) = "empat"
Unites(5) = "lima"
Unites(6) = "enam"
Unites(7) = "tujuh"
Unites(8) = "delapan"
Unites(9) = "sembilan"

Dixaines(0) = "sepuluh"
Dixaines(1) = "sebelas"
Dixaines(2) = "dua belas"
Dixaines(3) = "tiga belas"
Dixaines(4) = "empat belas"
Dixaines(5) = "lima belas"
Dixaines(6) = "enam belas"
Dixaines(7) = "tujuh belas"
Dixaines(8) = "delapan belas"
Dixaines(9) = "sembilan belas"

LesDixaines(0) = ""
LesDixaines(1) = "sepuluh"
LesDixaines(2) = "dua puluh"
LesDixaines(3) = "tiga puluh"
LesDixaines(4) = "empat puluh"
LesDixaines(5) = "lima puluh"
LesDixaines(6) = "enam puluh"
LesDixaines(7) = "tujuh puluh"
LesDixaines(8) = "delapan puluh"
LesDixaines(9) = "sembilan puluh"

Milliers(0) = ""
Milliers(1) = "ribu"
Milliers(2) = "juta"
Milliers(3) = "milyard"
Milliers(4) = "triliyun"

On Error GoTo NbVersTexteError

strTemp = CStr(Int(ValNum)) 'Untuk Konversi Angka yang di format ke default

For i = Len(strTemp) To 1 Step -1
ValNb = Val(Mid$(strTemp, i, 1))
nPosition = (Len(strTemp) - i) + 1
Select Case (nPosition Mod 3)
Case 1
LesZeros = False
If i = 1 Then
If ValNb > 1 Then
tmpBuff = Unites(ValNb) & " "
Else
tmpBuff = ""
End If
ElseIf Mid$(strTemp, i - 1, 1) = "1" Then
tmpBuff = Dixaines(ValNb) & " "
i = i - 1
ElseIf ValNb > 0 Then
tmpBuff = Unites(ValNb) & " "
Else
LesZeros = True
If i > 1 Then
If Mid$(strTemp, i - 1, 1) <> "0" Then
LesZeros = False
End If
End If
If i > 2 Then
If Mid$(strTemp, i - 2, 1) <> "0" Then
LesZeros = False
End If
End If
tmpBuff = ""
End If
If LesZeros = False And nPosition > 1 Then
tmpBuff = tmpBuff & Milliers(nPosition / 3) & " "
End If
strResultat = tmpBuff & strResultat
Case 2
If ValNb > 0 Then
strResultat = LesDixaines(ValNb) & " " & _
strResultat
End If
Case 0
If ValNb > 0 Then
If ValNb > 1 Then
strResultat = Unites(ValNb) & " ratus " & _
strResultat
Else
strResultat = "seratus " & strResultat
End If
End If
End Select
Next i
If Len(strResultat) > 0 Then
strResultat = UCase$(Left$(strResultat, 1)) & _
Mid$(strResultat, 2)
End If

EndNbVersTexte:
ConvertirEnText = strResultat & " rupiah"
Exit Function

NbVersTexteError:
strResultat = "Une Erreur !"
Resume EndNbVersTexte
End Function

Public Function AngkaTerbilang(Counter As Double) As String
On Error Resume Next
Dim A As Single
AngkaTerbilang = ConvertirEnText(Counter)
A = Len(ConvertirEnText(Counter))
If Mid(ConvertirEnText(Counter), 1, 4) = "Ribu" Then
AngkaTerbilang = "Se" + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 4) = "Juta" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
If Mid(ConvertirEnText(Counter), 1, 7) = "Milyard" Then
AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)
End If
End Function

’Ketik Coding dibawah ini pada Form

Option Explicit

Private Sub Text1_Change()
If Text1 <> "" Then
Text1.Text = Format(Text1, "#,##0")
Text1.SelStart = Len(Text1)
Label1.Caption = AngkaTerbilang(Text1)
Label1.Caption = StrConv(Label1, vbProperCase)
Else
Label1.Caption = ""
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
Exit Sub
Else
KeyAscii = 0
End If
End Sub

Nah coba jalankan program atau tekan F5 dan isi beberapa angka pada Text1 akan secara otomatis angka terbilangnya akan ditampilkan pada Label1.

Mudah-mudahan ada mampaat nya bagi kita semua, dan jangan lupa beri komentar nya yah … sebelumnya saya ucapkan terima kasih ... wassalam

Contoh Pembuatan Program Trial Version (VB)

Program Versi Trial merupakan suatu Program atau Aplikasi yang sengaja dibuat menggunakan batas waktu tertentu sesuai keingingan si Software Maker, jadi apabila lewat batas waktu yg sudah ditentukan program tidak dapat digunakan lagi. Apabila pengguna sudah terlanjur menyukai program tersebut dan ingin menggunakan nya lagi, mau tidak mau pengguna harus memenuhi persyaratan yg diajukan oleh si software maker. Kebanyakan Program yg seperti ini digunakan sebagai sarana untuk mempromosikan suatu progam atau aplikasi.

Nah pada postingan kali ini saya coba membahas tentang contoh pembuatan program tersebut, bagi yang berkenan silakan ikuti langkah – langkah berikut :


- Buat Project Baru (Standart Exe)
- Tambah dua buah Label pada Form

Ketik code berikut pada Form


Option Explicit

Dim x
Dim y
Dim jumlah
Dim sisa

Private Sub Form_Load()
MsgBox "Program ini hanya dapat di gunakan 5 kali", 48, "Info"
x = GetSetting("y", "y", "y")
jumlah = Val(x) + 1
SaveSetting "Y", "Y", "Y", jumlah
Label1.Caption = "Program sudah dijalankan " & jumlah & " Kali"
sisa = 5 - jumlah
Label2.Caption = "Sisa pemakaian " & sisa & " Kali"

If jumlah > 5 Then
MsgBox "Batas waktu pemakaian sudah habis" + vbCrLf + _
"untuk menggunakan program ini lagi" + vbCrLf + _
"Anda harus menghubungi saya ....", 4, "Info"
Unload Me
End If

End Sub


Mudah – mudahan ada mampaat nya bagi kita semua … dan terimakasih bagi yang mau ngasih komen pada postingan ini …. Salam

Contoh Aplikasi Database Bag. II (VB6)

Pada kesempatan kali saya mencoba untuk berbagi lagi khusus bagi VB developer yg masih junior seperti saya tentang Pemrogram Database yg memakai Acces 2003 bagian 2, disini saya juga tidak menulis coding-coding nya karena lumayan panjang bisa pingsan jari saya kalaw ngetik nya hehehe … tapi temen-temen bisa mendownload nya. Aplikasi ini tentang Daftar Urut Kepangkatan (DUK) PNS yaitu cara menyortir Kepangkatan PNS yg merupakan Aplikasi saya yg ke dua untuk program database. Hal-hal yang dibahas dalam aplikasi antara lain :

1. Sortiran Data
2. Contoh sederhana tentang membuat program serial number (Trial Version)
3. Input Data

4. Edit Data
5. Hapus data
6. Output data (Mencetak Data) dengan Crystall Report

7. Backup Database

8. Compact Database
9. Mencopy dan menghapus file


Screen shot seperti gambar di bawah ini



Aplikasi ini belum final 100 % , dan agar program ini bisa berjalan dengan baik .. pastikan Settingan Format Tanggal pada komputer anda dd/mm/yyyy. Bagi yg ingin memodifikasi program ini saya persilahkan.

Yang berminat bisa mendownload nya disini … untuk password aplikasi ini 1234 Semoga ada mampaat nya bagi kita semua …. Terimakasih …salam

Contoh Aplikasi Database (VB6)

http://erge32.blogspot.com Masih seputaran postingan VB, kali ini saya akan berbagi sedikit tentang membuat program database yang memakai Ms. Acces 2003. Tapi disini saya tidak menuliskan coding-coding nya karena terlalu panjang sob, capek ngetiknya. Jadi sob bisa download langsung disini, Aplikasi ini tentang pencarian data pelanggan, input, edit, menghapus data dan mengexsport database ke excel file serta dilengkapi file setup nya kalau yang mau menginstall, Aplikasi ini merupakan Aplikasi saya yang pertama untuk pemrograman Database jadi coding nya masih belum begitu rapi hehehe. Bagi yang masih VB Beginner mohon konfirmasi dulu setelah mendownload karena aplikasi ini mempunyai Password. Screen shoot seperti gambar dibawah ini

http://erge32.blogspot.com


mudah-mudahan ada mamfaat nya bagi kita semua, bagi yang nyedot jangan lupa ya titip komentar nya .. makasih

User Name : telkom
Password : telkom

Control ActiveX VB Part2

Feed Dalam membuat sebuah Aplikasi (Program) Tampilan atau design program sangat lah menunjang bagi puas nya user (pengguna program) dan Software maker itu sendiri (ciaaah), disini saya mencoba membagikan sedikit ilmu yang saya dapat untuk menunjang design tampilan tersebut yang merupakan Control ActiveX (komponen tambahan), Button adalah salah satu nya. Kalau anda tertarik bisa anda dapatkan disini dan jangan lupa baca dulu Readme nya ada panduan sedikit disana, gimana style button nya .. liat aja dibawah.




gimana ....... cool-cool kan (yaa iyaa lah gak pake' iyang donk). Kalau nyedot jangan lupa koment nya bro, mudah2an anda mamfaat nya bagi anda ... thanx (eRGe)

Mencari Selisih Tanggal (VB6)

Saya coba berbagi lagi neh untuk para junior VB ataw yang baru blajar VB tentang mencari selisih tanggal, untuk eksperimen .. saya coba menerapkannya pada contoh project dibawah ini yaitu tentang menghitung umur, bagi yang berkenan silakan ikuti langkah2 berikut

persiapan yang dilakukan :
  • Buatlah Project Baru (Standard exe)
  • Tambahkan :
  • 3 Label
  • Label1 (Caption : Mencari Selisih Tanggal)
  • Label2 (Caption : Lahir :)
  • Label3 (Caption : Umur Anda)
  • 1 Buah Frame ------> Caption : Masukan Tanggal Lahir
  • 3 Buah ComboBox ----> Style : 2 - Dropdown List
  • 1 Buah Command Button
yang kurang lebih penampakannya seperti gambar dibawah ini



kemudian ketik Coding dibawah ini pada Form

Option Explicit

Private Sub showTanggal()
Dim i As Byte
For i = 1 To 31
Combo1.AddItem Format(i, "00")
Next i
Combo1.ListIndex = 0
End Sub

Private Sub showBulan()
Dim i As Byte
For i = 1 To 12
Combo2.AddItem Format(i, "00")
Next i
Combo2.ListIndex = 0
End Sub

Private Sub showTahun()
Dim i As Integer
For i = 1950 To Year(Now)
Combo3.AddItem i
Next i
Combo3.ListIndex = 0
End Sub

Private Sub Command1_Click()
Dim sLahir As String
sLahir = Combo1 + "/" + Combo2 + "/" + Combo3
If IsDate(sLahir) = True Then
Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)
Else
MsgBox "Tanggal nya salah coy", 48, "Info"
Combo1.SetFocus
End If
End Sub

Private Sub Form_Load()
showTanggal
showBulan
showTahun
End Sub

Private Function SelisihTanggal(ByVal TanggalAwal As _
Date, ByVal TanggalAkhir As Date) As String

Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo pesan
SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"
Exit Function
pesan:
MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"
End Function

Mudah2an ada manfaat nya bagi rekan2 VB Beginner dan selamat mencoba jangan lupa nitip comment nya .. makasih salam ..

Membuat Database dengan memakai coding (VB6)

Feed Pada posting kali ini saya coba mengulas kembali mengenai pembuatan program dengan Visual Basic khususnya tentang database. Ada beberapa alternatif dalam hal pembuatan database ini seperti memakai Visdata yang merupakan Tool bawaan dari VB, SqlServer, Ms. Acces, memakai coding dll. Nah kali ini saya akan membahas sesuai dengan judul posting yaitu Membuat Database dengan memakai coding. Untuk mempersingkat waktu kita langsung to the point aja, persiapan yang harus dilakukan ……………

Buatlah Project baru (Standard Exe)

Tambahkan Microsoft DAO 3.6 Object Library dengan cara click menu Project > References … cari dan pilih Microsoft DAO 3.6 Object Library

Tambahkan 1 module

'Ketik coding berikut pada Module

Option Explicit
Public DbLokasi As String
Public DbNama As String

Public Function CreateDB()
Dim DTB As Database
Dim Tabel As TableDef

Screen.MousePointer = vbHourglass
Set DTB = CreateDatabase(DbLokasi & "\" & DbNama, dbLangGeneral)

Set Tabel = DTB.CreateTableDef("Login")
With Tabel
.Fields.Append .CreateField("UserName", dbText)
.Fields.Append .CreateField("Password", dbText)
End With
DTB.TableDefs.Append Tabel

Set Tabel = Nothing
DTB.Close
Screen.MousePointer = vbDefault

End Function

'Ketik Coding berikut pada Form

Private Sub Form_Load()
DbLokasi = App.Path
DbNama = "DBase.mdb"

If Dir(DbLokasi & "\" & DbNama) <> "" Then
Kill DbLokasi & "\" & DbNama
End If

Call CreateDB
End Sub

Kemudian simpan project lalu run program, lihat pada folder tempat anda menyimpan project sudah ada file baru dengan nama “DBase.mdb”

Mudah2an ada mamfaat nya bagi anda … terimakasih

Widget Penerjemah Dari Google

Widget penerjemah bahasa dari google ini sudah banyak digunakan dikalangan blogger dan webmaster, apabila ada pengunjung dari manca negara yang tidak bisa mengartikan bahasa indonesia kedalam bahasa yang diinginkan maka widget google translate bisa membantu menerjemahkan situs kita, tapi jika kita menggunakan bahasa yang tidak baku google translate akan kesulitan menerjemahkanya, jadi diharapkan menggunakan bahasa baku jika ingin sempurna diterjemahkan oleh google translate ini.

dibawah ini adalah bentuk widget tool dari google translate :



Udah dicoba belum? kalau sudah jika mau pasang widget ini silahkan baca dibawah ini.

Copy paste code dibawah ini kedalam blog Anda dengan cara :

1. Masuk menu Layout kemudian masuk menu Page Elements
2. Pilih box layout yang diinginkan kemudian klik Add a gadgets
3. Pilih Gadget HTML/JavaScript dan taruh code dibawah ini :

<script src="http://www.gmodules.com/ig/ifr?url=http://www.google.com/ig/modules/translatemypage.xml&up_source_language=id&w=160&h=60&title=&border=&output=js"></script>

Code yang berwarna merah diatas adalah ukuran dari widget yang bisa kamu ubah-ubah. Kalau sudah kemudian SAVE.

Nah sedikit info dari saya dan jika Anda mau menggunakan layanan dari google translate yang lain kunjungi : http://translate.google.com

Protect Ms. Access

Feed Sesuai janji saya pada posting yang lalu tentang cara mengetahui Protect (Password) Ms.Access dengan VB memakai coding2 yang singkat dan tidak memerlukan software besar yang memakan ruang hardisk anda, nah disini saya menjelaskan sedikit tentang hal itu. Mungkin terlalu banyak password sehingga anda lupa dengan password anda sendiri, dengan software kecil ini anda bisa mengetahui kembali tapi sayang hanya diperuntukan pada Ms. Access 95, 97 dan 2000 saja tapi gak pa-pa mungkin ada mamfaat nya bagi anda yang memakai pemrograman database dengan Ms. Acces dengan versi2 tersebut. Harapan saya smoga rekan2 VB Developer tidak menyalahgunakanya atau dengan kata lain dapat merugikan orang, sayang kan orang udah capek2 dan memakan banyak waktu membuat suatu program database kita yang merusaknya (don’t try it). Saya memposting ini hanya sekedar share ilmu tentang vb (just do it), tidak ada maksud yang lain. Banyak ngoceh pegel juga neh langsung aja, bagi yang berminat klik aja disini hanya 42 kb, bagi yang nyedot nitip comment nya ya.

Control ActiveX VB Part3

Feed Untuk Posting Kontrol ActiveX kali ini saya coba mengulas tentang Listview, yang merupakan suatu kontrol untuk menampilkan List data baik itu berupa Gambar (Image), Database dll, Windows Explore adalah salah satu contoh penerapan control Listview tsb. Memang pada dasar nya pada VB itu sendiri banyak menyediaakan control2 list bawaan lahir, seperti Data Bound Grid Control, Data Grid Control, Data List Control, Hierarchical FlexGrid Control dan masih banyak yang lainya. Tapi nggak ada salah nya kalau bro2 coba Control yang satu ini, nama nya VbaListview, dasar control ini adalah listview yang ada pada Microsoft windows Common Controls 5.0 tapi disana sini nya udah banyak modivikasi seperti GridLine, Sort Data, tampilan Image, bagi yang pake script Manifest Tampilan control ini akan mengikuti tema window yang dipakai dll.

Hal yang sangat menonjol menurut saya untuk sortir data nya, dan saya sendiri memakai control ini untuk pembuatan program database khusus membuat list data, untuk sortiran data lebih gampang seperti yang type data Text, Date, Number.Cuma kelemahanya agak lambat dalam menampilkan data jika dibandingkan dengan Listview yang ada pada Microsoft windows Common Controls 5.0 dan 6.0 dan ini sangat terasa pada data yang ratusan apalagi yang ribuan ya (he..he..), punya kelemahan kok diposting mungkin begitu anggapan bro2 yang baca artikel ini, ya iya sih ada kelemahanya tapi banyak juga keunggulanya bro kalau nggak percaya coba aja… ne disini jangan lupa baca readme nya dulu (very important kata orang bule'), sepertinya CCleaner pake' control ini juga . Gimana bentuk penampakan listview tersebut liat tuch yang dibawah ..... serem gak ... itu makanya coba dulu



Mudah mudahan ada mamfaat nya bagi rekan2 VB Developer dan makasih bagi yang udah baca artikel ini ... salam by eRGe.


Control ActiveX VB Part1

Feed Bagi temen2 para VB Developer khusus nya beginner atau masih junior seperti saya juga mungkin ingin perubahan pada tampilan aplikasi yang teman2 buat khusus pada Tab selain SSTab atau component bawaan dari Microsoft Windows Common Controls 5.0 dan 6.0, nah pada kesempatan ini saya membahas control activeX tersebut untuk temen2 VB developer, nama nya xTab control. Cara kerja gak jau beda juga sama SSTab tapi di xTab ini tampilan lebih cool theme nya ada 5 ya.. tergantung selera kita juga, gimana tampilan nya bisa temen2 liat gambar dibawah ini.





bagi temen2 yang berminat bisa mendapatkannya di sini dan jangan lupa komentar nya yah. Artikel yang selanjutnya saya akan membahas tentang Database dengan Ms.Acces dan cara menjebol Ms.Acces yang di Protect dengan VB memakai code-code yang simple (pendek) tapi tepat sasaran.

smoga ada mamfaat nya bagi temen2 VB Developer ... thanx by eRGe.


Filters Unlimited

Plugins yang satu ini mempunyai banyak efek-efek, frame, filter dan ratusan fungsi Plugins menjadi satu lainnya disini, anda tinggal mengklik dan otomatis photo berubah....

berikut photo yang di sentuh plugins ini :

Download sekarang gratis disini


Seperti Digital Dominion plugins ini sangat membantu bagi para editor photo yang photoshop sebagai editornya. dengan plugins ini kita bisa menambahkan efek-efek husus yang sebelumnya tidak ada pada photoshop

OK Untuk memulainya silahkan Download Dulu Pluginsnya Disini
setelah itu ekstak file tersebut, kemudian Instalkan ke Photoshop dengan cara
Copy folder ICNET-Filters.db dan File FiltersUnlimited2.8bf ke direktori instalasi photoshop, biasanya berada di C:\Program Files\Adobe\Photoshop ..... \Plug-Ins

setelah itu jalankan Photoshop anda, dan
JRENG.... JRENG... JRENGG... Photoshop anda sekarang keren... hehehe

untuk memulai plugins ini caranya yaitu :
[1] buka photo yang akan di edit
[2] pada menu FILTER pilih <
ICNET.Software >
[3] Pilih Filter yang anda Inginkan

Sekian Tutorialnya,.. lain kali disambung lagi Key......







Selamat Datang di Blog MainTracker™
 
Free Joomla TemplatesFree Blogger TemplatesFree Website TemplatesFreethemes4all.comFree CSS TemplatesFree Wordpress ThemesFree Wordpress Themes TemplatesFree CSS Templates dreamweaverSEO Design