Program Konversi Satuan Berat dari lbs(Pound) ke Kg

Selamat pagi wah untuk yang pada search pakai google  tentang satuan berat ini pasti langsung ketemu blogku
wah wah enak ya langsung dapat yang diinginkan dengan perantara google,cuma klak klik langsung dapat dehh
he2, bercanda kali ini postingan pagi hari adalah sedikit berbau program  yaitu saya membuat program konversi dengan  bahasa vbs karana alasan mudah di gunakan tinggal klik saja langsung jadi.
 kembali ke topik utama  lbs "location based services" / (Pound) adalah satuan berat internasional dan kg adalah satuan berat yang di pakai pada umumnya di indonesia jadi kalau untuk mencari berat kg kita harus menkorversi lbs ini ke kg nah karena alasan itu saya membuat program sederhana ini
kode di bawah ini
1. buka notepad lalau paste kode do bawah ini

Dim userInput

userInput = InputBox("Masukan Data dengan satuan lbs Di bawah ini lalu klik ok","Program Konversi Satuan Lbs ke Kg")

if userinput="0" or userinput="" then

msgbox "Tidak ada data yang valid dimasukan",0,"Informasi"

else
msgbox userInput / 2.20462 &"Kg"&"  "&"dibulatkan menjadi"&"  "& round(userInput / 2.20462)&"Kg",0,"Hasil Konversi dari lbs ke Kg"

end if

2. simpan dengan nama.vbs
3. cara jalankan tinggal di klik aja 2 kali
4. kalau ga mau ribet ngikutin cara saya,download yang sudah jadi di bawah ini
http://www.ziddu.com/download/10821574/konverterlbskeKgkilogram.rar.html




berikut di bawah ini  adalah gambar hasil print screen program.

saya rasa cukup sekian dari saya mudah2 an bermanfaat bagi pembaca dan mohon maaf bila ada kesalahan kata atau yang lain ????:)      trima kasih wasalam.

Membuat Komputer Berbicara dengan Visual Basic Script di Windows Xp

Langsung saja trik ini saya daaptkan dari cyberotic langsung saja
buka notepad
kemudian ketik di bawah ini

Dim userInput
userInput = InputBox("Masukan Kata Di bawah ini lalu klik ok (Sound harus aktif)")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput



kemudian simpan dengan extension vbs
saya menyimpannya dengan tes.vbs

lalu setelah di klik akan muncul gambar dibawah ini

di layar akan muncul koak seperti diatas bearti script vbs yang di buat di atas berhasil kemudian anda tes

isi dengan tulisan apapun lalu ok dan komputer langsung berbicara dengan syarat sound di komputer anda   harus dalam keadaan aktif.

fungsi ini adalah memanggil object fasilitas voice yang di sediakan pada windows xp

trima kasih atas perhatiannya tidak panjang lebar wasalam.

Membuat Template Di Microsoft Word 2007

Membuat Template Di Microsoft Word 2007
Selamat malam sesudah azan magrib saya meluncurkan trik lagi yaitu cara membuat template di Microsoft Word 2007,.
template adalah format tulisan yang konstant tetap yang ditidak boleh di rubah sebagai bahan acuan penulisan isi dari dokumen itu sendiri.
untuk template ini sangat berguna bilamana kita ingin  menyeragamkan format tulisan supaya seragam dan teratur, bisanya template ini sangat dibutuhkan oleh instansi pemerintahan yang bilamana kalau mengluarkan tulisan harus mengikuti peraturan template yang berlaku di instansi tersebut tetapi swasta pun biasanya perlu khusunya yang sering menggunakan adalah bagian persuratan.
jadi template sangatlah penting. langsung saja langkah pertama
1. buka new document di microsoft word

2. lihat gambar dibawah ini.

ikuti langkah diatas untuk memunculkan tab developer yang dalam posisi defaultnya di microsoft office 2007 sengaja tidak dimunculkan.

3. kemudian ikuti gambar dibawah ini

setelah di centang klik ok lalu akan muncul tab developer diatas.

4. Selanjutnya ikuti gambar dibawah ini















dalam gambar di ataas kita memilih tab developer kemudian klik label  sebelum klik label klik gambar tang/ tools supaya label dimunculkan,jadi yang kita gunakan untuk isian tulisan adalah label sebelumnya ketik biasa terlebih dahulu misalkan (keterangan jadi kita ketik biasa dahulu Nama : kemudian baru sebelah titik dua kita drag label ke posisi tersebut)
 
5.selanjutnya ikuti gambar dibawah ini

untuk memunculkan kotak disamping sebelah kanan ikuti petunjuk gambar diatas ini.

6. selanjutnya ikuti gambar dibawah ini 

gambar diatas adalah untuk menseting/konfigurasi label yang telah di pasang tadi.

7.selanjutnya ikuti gambar dibawah ini.

pada gambar diatas ini adalah tahap melakukan penguncian setelah kita tentukan label dan konfigurasinya maka kita wajib mengunci label tersebut dengan mengikuti gambar diatas ini.

setelah kemudian save 

lalu untuk membuka kembali klik open seperti biasa dan jangan lupa kota restrict sebelum disimpan harap ditutup.

8. hasil template yang kita buat tadi akan seperti dibawah ini

 

hasilnya akan terlihat seperti gambar diatas, pada gambar diatas tulisan nama tidak bisa di ubah - ubah hanya kotak tebal saja yang dapat diisi, dan demikian contoh template sederhana di microsoft word 2007 yang saya buat sudah selesai

Nama : (adalah konstant tidak bisa di ubah - ubah dari fontnynya atau jenis ukurannya)

yang bisa diisi adalah kotak tebal diatas, saya rasa cukup sekian tulisan ini mohon maaf bilamana ada tulisan dan kata2 yang kurang jelas trima kasih atas perhatiannya wasalam. 

Remote desktop linux fedora dengan x-manager versi 3.0(trial) di windows

Selamat pagi ,hari jumat ini saya akan menjelaskan cara meremote desktop linux fedora dengan x-manager
aplikasi trial ini mempunyai fungsi yang power full aplikasi ini dapat di download di
http://www.softpedia.com/progDownload/Xmanager-Download-23624.html

aplikasi ini berukuran 23 megaan
setelah di download langsung saja install
syarat pertama sebelum meremote desktop :
1.ip linux anda harus bisa di ping
2.service ssh harus aktif  dapat di aktifkan di system service linux
3.desktop linux bisa kde ataupun gnome
4.ada harus tau username dan password root(karena saya meremotenya user root jadi harus tau
   user root passwordnya apa)
langsung saja ke langkah kedua
* yang pertama buka xstart adalah aplikasi bawaan x-manager yang baru saja kita install tadi.

kemudian akan tampil seperti di bawah ini

nah kita juga bisa lihat aplikasi ini bisa apa saja protokol atau port , karna aplikasi ini
berbayar jadi portnya lengkap bukan linux saja yang bisa di remote windows juga

kemudian untuk meremote isi kotak isian di bawah ini sesuai yang mau di remote apa informasinya
di bawah ini saya meremote dengan tujuan 192.168.1.32 dengan port ssh kemudian dengan port ssh
dan username rootdan password=password, execution command desktop gnome

setelah kita klik run akan muncul autentifikasi pilih yang tengah accept & save

kemudian dibawah ini hasilnya bisa masuk desktop linux fedora ku

untuk meremote ini adalah hasilnya sama seprti remote desktop, walaupun memakai program yang
trial ini x-manager tetap mantab,indahnya meremote sistem operasi,sebelumnya saya mengajarkan dengan
winscp dan putty.
saya rasa sudah cukup jelas trima kasih salam.

Membuat Grafik dengan komponen MS Chart di VB 6.0

Membuat Grafik dengan  komponen MS Chart di VB 6.0
kalai ini saya kembali lagi dengan segudang artikel kali ini adalah back to program karena sudah lama saya tidak mengeluarkan trik programming dan kali ini saya akan membawakannya.
trik kali ini tidak di bahas panjang lebarnya karena keterbatasan  waktu oleh karena itu saya sebagai penulis kali ini akan langsung memberikan source code buatan saya dan dapat dengan bebasa anda memakai atau mengedit isi dalam source kode tersebut dan dibawah ini adalah contoh gambar dari hasil program yang saya running

proram ini dapat melakukan zooming, dan print screen hasil grafik yang dibuat
dan anda langsung dapat mendoenload link di bawah ini
http://www.4shared.com/file/254549868/c86ba414/grafik.html


cukup sudah trik ini saya tulis kritik dan saranya harap dikirimkan ke ibaskorn@yahoo.com dan jangan lupa
sebagai ucapan trima kasih klik salah satu link  iklan di blog saya trima kasih dan
wasalam mualaikum salam

salam

Panggill File System Menggunakan File bantuan SHELEXEC dengan Visual Basic 6.0

Maaf tutorial ini agak terlambat, dikarenakan ada yang bertanya kepada saya bagaimana caranya memanggil file system windows, saya baru menjawabnya sekarang,
Trik saya kali ini tidak murni menggunakan VB 6.0 alasannya tidak banyak koding lebih simple tetapi ini hanyalah variasi cara saja masih banyak cara yg digunakan untuk kasusnya seperti ini.
Kali ini saya menggunakan file bantuan yaitu shelexec berupa file exe untuk pembantu program saya dapat di download di link ini :
http://www.ziddu.com/download/4527492/SHELEXEC.EXE.html
yang pasti gratis tidak berbayar he2?
Setelah file ini di download lakukan langkah dibawah ini:



Selanjutanya melakukan koding seprti dibawah ini:



Akhirnya sudah jadi juga ya cukup mudah tidak memrlukan koding yang puanjanggggg.
Cukup sekian terima kasih atas requestnya kesaya. Masih ditunggu kritik dan saran kalau perlu request seperti ini lagi di tunggu salam.

Menggunakan file Resolu.bas untuk mengatur resolusi form di vb 6.0

Menggunakan file Resolu.bas untuk mengatur resolusi form di vb 6.0

Kembali lagi ke tutorial programming seperti biasa saya menggunakan visual basic 6.0
Kali ini saya akan menjelaskan salah satu cara mengatur resolusi di visual basic 6.0 langsung saja tidak panjang lebar.
Langkah pertama saya menggunakan file bantuan resolu.bas yg dapat didownload gratis link di bawah ini.

http://www.ziddu.com/download/4635663/Resolu.zip.html

setelah dengan sukses di download lakukan langkah dibawah berikut.
Yaitu meng add file resolu.bas dengan cara dibawah


Menggunakan file Resolu.bas untuk mengatur resolusi form di vb 6.0

Setelah file teradd lakukan langkah selanjutnya yaitu mengubah seting resolu untuk x dan y dapat diganti sesuai dengan kesukaan anda.





Setelah langkah selanjutnya cara manggunakannya.



Cukup mudah bukan dan setelah langkah diatas anda bisa men test nya langsung, sekian trik dari saya untuk kritiknya di tunggu di ibaskorn@gmail.com.

Validasi Karakter Asterik di Vb6.0 pada text box

trik kali ini adalah membuat validasi asterik yang fungsinya untuk memblok kata - kata asterik pada text box seperti ",/?;';][=-\ dan lain - lain:

ikuti contoh di bawah pada even keypress masukan kode seperti di bawah ini

Private Sub text1_KeyPress(KeyAscii As Integer)
''''''awal kode
If InStr("0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ,", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
''''''akhirkode
End If


mudah2 and trik ini sedikit membantu
kritik dan saran ke ibaskorn@gmail.com

Penanganan isi kesahalan bila record kosong di vb 6.0

Jika ada sering di pusingkan dengan invalid use null inilah cara penanggulangan bilamana terdapat record kosong maka yang ditampilakn akan null ikuti petunjuk kode dibaawah ini

textbox=IIf(IsNull(rscaribahan!kb) = False, rscaribahan!kb, 0)


ya cukup sekian trik untuk menghandler kesalahan di vb 6.0 terima kasih perhatiannya wasalam

Contoh penggunaan variabel di vb 6.0

contoh perhitungan vb 6.0

contoh perhitungan vb 6.0

Contoh Pemakaian Operator di Vb 6.0

Contoh Pemakaian Operator di Vb 6.0

Visual Basic Yang Terlupakan

Visual Basic Yang Terlupakan



Seiring perkembangan jaman yang semakin maju teknologi semakin lama – semakin canggih satu demi satu ada yang datang dan pergi,tak terkecuali software develop, anda pasti tahu Visual basic 6.0 adalah produk keluaran Microsoft yang the best diantara yang lainnya software ini mengunakan bahasa basic dalam pengoperasiannya,tampilannya mudah dimengerti pokonya user friendly mudah digunakan, untuk belajar bahasa pemrogrammannya juga mudah tutorialnya bertebaran dimana2, tetapi software ini mengalami nasib yang kurang bagus software ini seperti di kucilkan oleh pengembangnya Microsoft entah dengan alasan apa saya juga kurang mengerti benar hanya Microsoft dan bill gates yang tau.
Yang pasti software ini spesifikasinya sangat cocok untuk digunakan perusahaan kecil sampai besar software ini memiliki spesifikasi kebutuhan spek computer yang canggih tidak seperti software - software develop baru – baru ini memakan memory yang banyak padahal kebutuhunnya kebanyakan sama entry data,memang software ini sepertinya telah dilupakan tetapi mayoritas programmer di Indonesia menggunakan software ini untuk aplikasi desktop dikarenakan lebih menguntungkan dari software – software developer yang lain yang memakan memory computer.
Cukup sekian sedikit info dari saya jangan malu menggunakan visual basic 6.0 walapun ketinggalan pikirkan kebutuhan dan biaya pengeluaran yang lebih penting dari pada mengikuti perkembangan software baru yang manambah beban pengeluaran anda,wasalam ibaskorn@gmail.com

Trik menjaga data di combo seperti query ditinct (data yg ditampilan tidak berulang di combo)

a = cmbnb.ListCount - 1
Do While a >= 0
For b = a - 1 To 0 Step -1
If (cmbnb.List(b) = cmbnb.List(a)) Then
cmbnb.RemoveItem b
a = a - 1
End If
Next b
a = a - 1
Loop

View data berdasarkan filter tanggal awal dan akhir,di vb 6.0 dan Crystal report 9

View data berdasarkan filter tanggal awal dan akhir
menggunakan Crystal Report 9 di visual basic 6.0
======================================================================

Dim Report As New CrystalReport6
Private Sub Command1_Click()'button
Dim param As String
If CDate(dtpawal.Value) > CDate(DTPakhir.Value) Or CDate(DTPakhir.Value) < CDate(dtpawal.Value) Then
MsgBox "tgl Awal tidak boleh lebih dari tgl akhir atau" + vbCrLf + "tgl akhir tidak boleh kurang dari tgl awal", 0, "Info"
Else
Report.DiscardSavedData

param = "{command.tglpo} >= #" & Format(dtpawal.Value, "yyyy-mm-dd") & "# and {command.tglpo} <= #" & Format(DTPakhir.Value, "yyyy-mm-dd") & "# "

With Report
.RecordSelectionFormula = param
End With
CRViewer91.Refresh
End If

==========
keterangan
===========