Tips Buat Blog Jadi Seperti Web

tak terasa udah lama ngak urusin Blog ini.. tpi
Pada Kesempatan ini saya akan mencoba untuk salaing berbagi dengan teman² semua.. :)

Langkah Pertama Login Ke Blogger Terlebih dahulu.. :)

Setelah Login kita akan masuk pada Dasbor nah pada dasbor.

Jika Kita menginginkan Blog Kita Menjadi Seperti Web Kita bisa menambahkan Blog baru. Anda Bisa Melihat Contoh dibawah ini untuk Melihat Dasbor dan cara Membuat Blog baru

kemudian Kita Menambahkan Link Blog Ke-2 pada Blog Awal. dengan cara Seperti Gambar Dibawah ini
Sebelum anda Melihat Cara Untuk Menambahkan Link,, Saya Berharap Anda Melihat Tampilan Web sebenarnya..

Nah Menu Galery Tsb adalah Sebuah Blog Baru Yang Saya Buat Jika Para User Ingin Melihat Galery Dari Blog Tsb. Cara Untuk Menambahkan Link Lihat Gambar Dibawah ini..

Sebelum anda Menambahkan Script tersebut Pada HTML Blog anda,, Sesuaikan Menu yang akan Anda Ganti Terlebih dahulu.. disini saya mencoba menambahkan Link Galery.. nah pada Menu Tata Letak => Edit HTML,, Search/cari Tombol yang akan Anda Ganti tsb. contoh saya Mencari Kata Galery Karena saya Akan Mengganti Link/URL tsb Dengan Blog Ke-2 Saya.

Oke dech saya akan mencoba Menjelaskan fungsi dari Script tersebut..



Berfungsi Untuk Membuat Sebuah Tag

untuk akses Halaman atau Link/URL yg dimasukan pada link Diatas (klu pada blog bisa Membuat Blog anda Seperti Web) Selamat Mencoba.. Silah Kunjungi Website http://system-informasi.blogspot.com/ Untuk Melihat Menu galery Yg tadi saya Ganti..

Baca Selengkapnya......

Operasi Matematika pada VB

Operator Bilangan

Operator	Gunanya	Format	Contoh
^	Pangkat	x ^ y	5^2 =25
-	Negetif	-y	-4
*	Perkalian	x*y	4*4=16
/	Pembagi real	x/y	4/2=2
\	Pembagi Integer	x\y	5/2=2
mod	Modulo (Sisa Pembagian)	x mod y	5mod2=1
+	Tambah	x+y	5+3=8
-	Kurang	x-y	5-4=1

Fungsi Matematik Internal
VB menyediakan fungsi matematika siap pakai untuk manipulasi variabel

FungsiContoh	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
0 <= hasil random <1 Rnd(x) 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 bila x < 0
Sin(x) A = SQR(16)'A=4 A = SQR(-16)'error	Nilai Kosinus 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

Baca Selengkapnya......

Membulatkan Angka Pecahan

Tips berikut menunjukkan kepada Anda bagaimana caranya membulatkan bilangan pecahan berdasarkan pilihan tertentu. Berikut Source kodenya

'Deskripsi: Membulatkan suatu bilangan pecahan berdasarkan pilihan tertentu.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
' 2. Copy-kan coding berikut ke editor Form yang bertalian.
'--------------------------------------------------------------------------------

Function Round(nValue As Double, nDigits As Integer) As Double
Round = Int(nValue * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)
End Function

Private Sub Form_Load()
'Ganti '19.8455' dengan bilangan yang ingin Anda bulatkan.
'Ganti '2' dengan jumlah digit setelah koma untuk hasil setelah pembulatan.
MsgBox Round(19.8455, 2)
End Sub

Baca Selengkapnya......

Perbedaan Operator Bagi Slash dan Back-Slash

Di Visual Basic 6, terdapat dua jenis operator bagi, yaitu / (slash) dan \ (back-slash). Apa saja perbedaannya? Simak penjelasannya melalui contoh code berikut ini.

'Deskripsi: Perbedaan Penggunaan Operator Bagi Slash dan Back-Slash
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Tanggal : Kamis, 9 Oktober 2008
'Persiapan: 1. Buat sebuah project standard exe dengan satu form
' 2. Tambahkan tiga buah CommandButton di atas form.
' 3. Copy-paste code ini ke editor form tersebut.
'-------------------------------------------------------------------

'Operator bagi slash atau / menghasilkan nilai
'dalam bentuk bilangan pecahan atau desimal
'Dalam contoh di bawah, hasilnya adalah 2.5
'atau jika setting Regional = Indonesia,
'maka akan menghasilkan 2,5 (Dua koma lima)
Private Sub Command1_Click()
MsgBox 5 / 2 '<-- menghasilkan 2.5 atau 2,5 End Sub 'Operator bagi back-slash atau \ menghasilkan nilai 'dalam bentuk bilangan bulat dengan mengabaikan 'sisa hasil pembagian (jika ada) pada hasil baginya. Private Sub Command2_Click() MsgBox 5 \ 2 '<-- menghasilkan 2 End Sub 'Jika Anda ingin mengambil hanya nilai sisa pembagian 'tersebut, Anda bisa menggunakan operator Mod 'Contoh: 5 Mod 2 akan menghasilkan 1, yang 'artinya: 5 dibagi 2 sisanya = 1. Private Sub Command3_Click() MsgBox 5 Mod 2 '<-- menghasilkan 1 End Sub

Baca Selengkapnya......

Membulatkan Angka Ke Dalam Kelipatan Seratus Berikutnya

Pernahkah Anda kesulitan ketika ingin membulatkan sebuah angka ke dalam kelipatan seratus ke atas berikutnya? Contoh: Anda memiliki angka 729, dan Anda ingin membulatkan angka tersebut ke kelipatan seratus ke atas sehingga menjadi 800. Sedangkan jika angkanya tepat kelipatan seratus, proses pembulatan akan diabaikan. Untuk mengatasi hal ini, Anda bisa menggunakan fungsi khusus yang saya buat. Fungsi ini bahkan bisa juga Anda gunakan melalui fitur Macro di Microsoft Excel. Berikut ini code selengkapnya.

'Deskripsi: Membulatkan angka ke dalam kelipatan seratus berikutnya
' Contoh: Anda memiliki angka 101, maka jika dibulatkan
' ke dalam kelipatan seratus berikutnya, hasilnya adalah 200.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Tanggal : Selasa, 14 Oktober 2008
'Persiapan: 1. Buat sebuah project standard exe dengan satu form.
' 2. Tambahkan satu CommandButton ke atas form.
' 3. Copy-paste code berikut ke editor form yang bertalian.
'--------------------------------------------------------------------

Public Function BulatkanAngka(lngAngka As Long) As Long
If lngAngka Mod 100 > 0 Then
Dim lngHasil As Long
lngHasil = lngAngka \ 100
BulatkanAngka = (lngHasil * 100) + 100
Else
BulatkanAngka = lngAngka
End If
End Function

Private Sub Command1_Click()
Ulangi:
Dim lngAngka As Long
If lngAngka = 0 Then lngAngka = 729
lngAngka = InputBox("Masukkan sebuah angka!", "Angka", lngAngka)
MsgBox "Angka " & lngAngka & " setelah dibulatkan ke dalam " & vbCrLf & _
"kelipatan seratus berikutnya adalah: " & BulatkanAngka(lngAngka)
If MsgBox("Ulangi lagi?", vbQuestion + vbYesNo, "Ulangi?") = vbNo Then
Exit Sub
Else
GoTo Ulangi
End If
End Sub

Baca Selengkapnya......

Membulatkan Setiap Angka Pecahan ke Bilangan Bulat Berikutnya

Function Round() di VB6 akan membulatkan angka desimal secara proporsional sesuai dengan parameter jumlah digit desimal yang ditentukan pada parameter kedua. Jika Anda ingin membulatkan setiap angka pecahan menjadi bilangan bulat ke atas berikutnya tanpa memperdulikan apakah nilai desimal lebih besar dari 5 atau bukan (Contoh: Anda menginginkan agar angka 6,01 (Enam koma nol satu) maupun 6,99 (Enam koma sembilan sembilan) sama-sama akan dibulatkan menjadi angka 7), maka code berikut ini.

'Deskripsi: Membulatkan setiap angka pecahan menjadi bilangan
' bulat ke atas berikutnya. Contoh: Angka 6,01 (Enam
' koma nol satu) akan dibulatkan menjadi 7, sedangkan jika
' parameternya bilangan bulat, maka tidak dibulatkan ke atas.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Tanggal : Kamis, 23 Oktober 2008
'Persiapan: 1. Buat satu project standard exe dengan satu form
' 2. Tambahkan satu CommandButton ke atas form
' 3. Copy-kan code ini ke editor form yang bertalian
'--------------------------------------------------------------

Private Sub Command1_Click()
MsgBox BulatkanKeAtas(CDbl("4,99")) '<-- menghasilkan 5 MsgBox BulatkanKeAtas(5.00001) '<-- menghasilkan 6 MsgBox BulatkanKeAtas(6.01) '<-- menghasilkan 7 MsgBox BulatkanKeAtas(6) '<-- menghasilkan 6 End Sub Private Function BulatkanKeAtas(BilDes As Double) Dim temp As Integer temp = Val(BilDes) If BilDes / temp > 1 Then
BulatkanKeAtas = temp + 1
Else
BulatkanKeAtas = temp
End If
End Function

Baca Selengkapnya......

Membulatkan Bilangan Desimal Ke Kelipatan Setengah Berikutnya

Ternyata mengenai bulat-membulatkan bilangan semakin sering ditanya. Setelah dua artikel saya sebelumnya yang membahas pembulatan bilangan pecahan ke kelipatan bilangan bulat di atasnya, serta pembulatan suatu bilangan ke dalam angka kelipatan seratus berikutnya, ada juga yang bertanya kepada saya: Bagaimana dengan pembulatan bilangan desimal ke dalam kelipatan setengah berikutnya? Contoh: Angka 0,1 (Nol koma satu) dibulatkan menjadi 0,5 (Nol koma lima), angka 1,6 (Satu koma enam) dibulatkan menjadi 2, angka 1 tetap menjadi 1, dan seterusnya.

'Deskripsi: Membulatkan setiap angka pecahan ke atas setengah
' berikutnya. Contoh: Angka 6,1 (Enam koma satu)
' akan dibulatkan menjadi 6,5.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Tanggal : Kamis, 4 Desember 2008
'Persiapan: 1. Buat satu project standard exe dengan satu form
' 2. Tambahkan satu CommandButton ke atas form
' 3. Copy-kan code ini ke editor form yang bertalian
'--------------------------------------------------------------

Private Sub Command1_Click()
MsgBox BulatkanKeAtasSetengah(1.6) '<-- menghasilkan 2 MsgBox BulatkanKeAtasSetengah(1.5) '<-- menghasilkan 1.5 MsgBox BulatkanKeAtasSetengah(1.1) '<-- menghasilkan 1.5 MsgBox BulatkanKeAtasSetengah(1) '<-- menghasilkan 1 End Sub Private Function BulatkanKeAtasSetengah(ParamAngka As Double) As Double Dim Desimal As Double Dim BulatAngka As Integer BulatAngka = Val(ParamAngka) Desimal = ParamAngka - BulatAngka If Desimal = 0.5 Then BulatkanKeAtasSetengah = ParamAngka Else If Desimal < 0.5 And Desimal > 0 Then
BulatkanKeAtasSetengah = BulatAngka + 0.5
ElseIf Desimal > 0.5 Then
BulatkanKeAtasSetengah = (ParamAngka - (Desimal - 0.5)) + 0.5
Else
BulatkanKeAtasSetengah = ParamAngka
End If
End If
End Function

Baca Selengkapnya......

Tutorial Crystal Report

Crystal Reports adalah piranti standar untuk pembuatan laporan pada sistem operasi Windows, dimana cetakan/templete laporan yang dihasilkan dapat disertakan pada banyak bahasa pemrograman, untuk memudahkan crystal report disingkat CR

Prestasi yang di rasih CR tidak lepas dari sejarah perjalanan produk yang panjang. CR versi 8.5 dilunjurkan pada tahun 2001 (tahun peluncuran didasarkan pada tahun file User’s Guiode, maka dapat diperkirakan versi pertama CR diluncurkan pada tahun 1990-1992 dengan pola hitungan setiap versi membutuhkan waktu 1 tahun. Pada saat ini versi CR sudah pada versi 11, tetapi pembahasan pada tutorial ini, kita hanya membahas CR versi 8.5 karena lebih mudah dipahami.

Pada tutorial ini sy tidak akan menjelaskan tatacara instalasi CR 8.5, tetapi lebih membahas bagaimana merancang/mendesain laporan CR 85. dengan menggunakan database MySQL
Untuk Lebih Jelasnya Silahkan Klik diSINI

Baca Selengkapnya......