Sintak Pada SQL

1.    Untuk menampilkan beberapa field dalam satu tabel, dapat dipergunakan perintah
SELECT kode_karyawan, nama_karyawan FROM karyawan

2.    Menampilkan data dengan kondisi
SELECT * FROM karyawan WHERE kode_karyawan = ’2005000341’

3.    Operator AND(Dipergunakan untuk menampilkan record yang memiliki kondisi lebih dari satu, dan record yang ditampilkan hanya yang memenuhi semua kondisi)
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE gaji > 2000000 AND kode_divisi = 'D0022'

4.    Operator OR(Dipergunakan untuk menampilkan record yang memiliki kondisi lebih dari satu, dan record yang ditampilkan yang memenuhi salah satu kondisi)
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE gaji > 2000000 OR kode_divisi = 'D0022'

5.    Operator BETWEEN (Dipergunakan untuk menampilkan record yang berada dalam suatu batasan kondisi tertentu)
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE gaji BETWEEN 2000000 AND 2600000

6.    Operator IN (Dipergunakan untuk menampilkan record yang berada dalam suatu kelompok kondisi tertentu )
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE kode_divisi IN ('D0012', 'D0022')

7.    Operator NOT (Dipergunakan untuk menampilkan record yang tidak termasuk dalam suatu kondisi tertentu)
SELECT nama_karyawan, gaji, kode_divisi FROM karyawan WHERE NOT kode_divisi = 'D0012'

8.    Operator LIKE(Dipergunakan untuk menampilkan record yang memiliki bagian dari suatu kondisi tertentu Penggunaan operator LIKE bisa didukung oleh penggunaan karakter %)

9.    Operator Aritmetika
* , dipergunakan untuk perkalian
/ , dipergunakan untuk pembagian
+, dipergunakan untuk penambahan
- , dipergunakan untuk pengurangan
contoh Gaji_setahun = gaji * 12

10.    Menampilkan fungsi Agregat(SUM, AVG, COUNT, MIN, MAX)
Contoh : SELECT SUM(field) FROM nama_tabel
SELECT COUNT(nama_field) FROM nama_tabel
SELECT MIN(nama_field) FROM nama_tabel
Dan begitu sterusnya untuk fungsi yg lain.



11.    Fungsi Order by
Dipergunakan untuk menampilkan data yang terurut atau mengurutkan data.
Ada dua macam pengurutan :
Secara Ascending (Asc)(Pengurutan nilai kolom secara menaik atau membesar).
Secara Descending (Desc)(Pengurutan nilai kolom secara menurun atau mengeci)l.

12.    Fungsi Group BY
Fungsi GROUP BY dipergunakan untuk mengelompokkan record-record pada tabel.
Fungsi GROUP by dipergunakan mengikuti operasi agregat pada suatu perintah.

13.    Fungsi Having
Fungsi HAVING memiliki kesamaan fungsi seperti WHERE. Tetapi fungsi HAVING dipergunakan bila ada pemanggilan operasi GROUP dalam query dan operand-nya melibatkan pemanggilan operasi agregat. Jadi fungsi HAVING dipergunakan mengikuti Fungsi GROUP BY, untuk memberikan suatu kondisi.
SELECT colulmn_expression FROM table_name     GROUP BY grouping_expression HAVING roup_condition

14.    Fungsi JOIN
Fungsi JOIN dipergunakan untuk menampilkan data yang berasal lebih dari satu tabel.

Ada beberapa macam JOIN dalam SQL :

a.    Inner Joins
Inner joins menggunakan operator pembanding untuk mencocokkan baris (rows) dari dua tabel berdasarkan pada nilai yang ada di kolom yang dipergunakan sebagai pembanding atau penghubung dari masing-masing tabel.
Contoh :
select * from employee inner join department on employee.deparment_id = department. department_id

b.    Outer Joins
Outer join menampilkan semua baris dari tabel selama memenuhi kondisi walaupun tidak memiliki kecocokan data.
Ada tiga macam Outer Join : Left Outer Join, Right Outer Join dan Full Outer Join
Contoh :
select * from employee left outer join department on employee.deparment_id = department. department_id

c.    Cross Joins
Cross Join mengembalikan/menampilkan nilai semua baris (record) dari tabel sebelah kiri.
Setiap record dari tabel sebelah kiri digabungkan dengan semua record dari tabel sebelah kanan. Bila Cross Join menggunakan WHERE, maka hasil yang ditampilkan sama seperti bila menggunakan INNER JOIN. Cross join juga disebut dengan Cartesian products bila tidak menggunakan WHERE
Contoh :
SELECT trklinik.kdtransaksi, trklinik.kdpasien, pasien.nmpasien FROM trklinik CROSS JOIN pasien     WHERE trklinik.kdpasien = pasien.kdpasien ORDER BY kdtransaksi ASC

Read More

Membuat Splash Screen & ProgressBar VB

Nah Kali ini saya akan berbagi ilmu tentang Bagaimana Sih kalo membuat splash screen pada awal program kita dijalankan?
splash screen biasa banyak digunakan untuk program-program yang berbasis Multimedia, seperti Office, Photoshop, Corel Draw, dan masih banyak Lagi,,
Splash Screen berfungsi sebagai pelengkap ato Pemanis Program kita (Kaya Gula Aja :D ),,, tidak perlu panjang Lebar langsung  aja ke TKP!!
Bahan-bahan Yang harus dipersiapkan :
1. Form1 sebagai form Utama Program Atau Bisa Juga Pakai MDI Form tergantung jenis Program kita
2. Setelah itu kita tambah lagi form Splash . dengan cara Klik Kanan Pada Form1 Pilih Add, Form, pilih Splash Screen
3. Pada Splash Form sudah ada Sampel sampel nya kan ? Lihat gambar

 

edit lah Label label yang ada dengan text sesuain program apa yang anda inginkan.

4. setelah itu sisipkan Tools ProgressBar pada Form tersebut..

5. sisipkan Timer (tools yang gambar Jam bekker )

6. Sisipkan Label dibawah Progress Br dengan NAME = lblbar

Jika Bahan bahan sudah siap , sekarang Mari kita Uji coba Hehehehe, sebelum itu rubah Interval Timer1 dari 0 menjadi 500 (Sesuai kebutuhan).

setelah itu Double Klik pada Komponen Timer1.timer tulis koding berikut :

-------------------------------------------------------------------------------------------

PRIVATE SUB TIMER1_TIMER ()

Bar.Value = Bar.Value + 2

Screen.Mousepointer = Vbhourglass

If bar.value = 20 Then

     lblbar.caption = "Loading Component . .........."

Elseif bar.value = 40 Then

     lblbar.caption = "Chek System File.........."

Elseif bar.value = 60 Then

     lblbar.caption = "Sanning Virus . .........."

Elseif bar.value = 80 Then

     lblbar.caption = "Finalizing . .........."

Elseif bar.value = 100 then

      If bar.value = 100 then

             If timer1.interval >= 1 then

                 Unload me

                 Load Form1

                 Form1.show

                 screen.Mousepointer = VBdefault

             End if

       End if

End if

End Sub

-------------------------------------------------------------------------------------

Nah, jika sudah selesai mengetik koding coba Jalankan dengan Tekan Tombol F5... 

Berhasil? Sangat Simple

Tapi Untuk Lebih dimengerti Lagi saya akan memberikan keterangan pada setiap koding :

- Screen.Mousepointer = Vbhourglass untuk merubah pointer mouse ke bentuk Jam pasir (pointer loading )

- If bar.value = 20 Then

     lblbar.caption = "Loading Component . .........." menyatakan jika Progress bar sudah sampai ke percent 20 maka akan memunculkan Label Kata "Loading......" dan seterusnya.

-  If bar.value = 100 then

             If timer1.interval >= 1 then

                 Unload me

                 Load Form1

                 Form1.show

                 screen.Mousepointer = VBdefault

             End if menyatakan jika progress bar sudah ke Percent 100 dan waktu interval lebih sama dengan 1 maka akan kembali ke Form splash (Karna tidak mengecek form1).. dan jika Form1 ada maka akan mengload atau menjalankan Form1/MDI form, , , dan pointer mouse akan kembali ke kursor biasa..

Source:http://ajarivb.blogspot.com/2011/03/membuat-splash-screen-progressbar-vb.html  

 

 

Read More

Membuat Progressbar di VB.NET

Nah Progressbar apakah itu Progressbar ?? Pernah melihat suatu aplikasi mempunyai loading ?? Nah inilah salah satu fungsi dari progressbar. Nah terus bagaimana cara membuat progressbar khusunya di VB.NET ?? Yuk mari kita ikuti tutorial berikut : 1. Buka Visual Studionya 2. New Project –> Windows Form Application , dan beri nama Progresbar dan checklist Create directory for solution nya, lihat gambar berikut : 3. Maka akan muncul form1 di lembar kerja Visual Studionya, 4. Design formnya dan tambahkan beberapa label, progressbar dan timer dari toolbox :

Control	Name	Text
Progressbar	Progressbar1	-
Label	Label1	Mohon tunggu sistem sedang mempersiapkan program…….
Label	Label2	Created By : ariartama.com
Label	Label3	2011
Timer	Timer1	-

Lihat gambar berikut :   5. Double klik formnya sehingga muncul event form load dan coding ini :

   1: Timer1.Start()

6. Double klik timernya sehingga muncul event tick pada timernya dan coding ini :

   1: If Pb_Loading.Value < 100 Then

   2:     Pb_Loading.Value += 2

   3: ElseIf Pb_Loading.Value = 100 Then

   4:     Timer1.Stop()

   5:     MessageBox.Show("Selamat datang di programku ", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

   6: End If

7. Code lengkapnya sebagai berikut :

   1: Public Class Form1

   2:     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

   3:         If Pb_Loading.Value < 100 Then

   4:             Pb_Loading.Value += 2

   5:         ElseIf Pb_Loading.Value = 100 Then

   6:             Timer1.Stop()

   7:             MessageBox.Show("Selamat datang di programku ", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

   8:         End If

   9:     End Sub

  10:  

  11:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  12:         Timer1.Start()

  13:     End Sub

  14: End Class

8. Jadi deh tuh progressbar, tinggal running alias di F5 dan tunggu apa yang akan terjadi, lihat gambar berikut : Sekian yang dapat saya posting pada kesempatan ini semoga bermanfaat :)
Source Code nnya bisa didownload disini

Read More

Membuat Progressbar Pada VB 6.0

Kalau dalam artikel sebelumnya kita membuat tampilan menggunakan shockwave flash, sekarang saya akan membagikan ilmu saya menggunakan progress bar, mungkin rekan2 pembaca udah pernah liat yang bagaimana progress bar. Nah sekarang mungkin sekarang langsung aja ya.

Buatlah project baru dengan pilihan standart exe, kemudian tambahkan component progress bar, dengan cara klik kanan pada area toolbox. Pilih component, pada tab control. Kemudian pilih dengan cara beri tanda centang Microsoft windows common control 6.0 (SP6).
Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Sekarang kembali kearea kerja kemudian klik icon progress bar. Buatlah sebuah progressbar pada form anda. Dan buatlah sebuah command button, Seperti pada gambar berikut:

Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Private Sub Command1_Click()
For manusia_biasa = 1 To 100000 //nilai dapat ditentukan sendiri
Manusia_biasa = manusia_biasa + 1
ProgressBar1.Value = i
Next i
End
End Sub

Private Sub Form_Load()
Dim manusia_biasa As Integer
ProgressBar1.Max = 100000 //nilai dapat ditentukan sendiri
ProgressBar1.Min = 1
End Sub
Setelah itu klik tombol start atau tekan F5 pada keyboard anda.
Sekian artikel dari saya semoga bermanfaat bagi anda sekalian. SELAMAT MENCOBA!!!!!

Read More

Mengambil Tanggal Database SQL Server VB.Net

Pada saat kita membuat sebuah program transaksional, maka kita harus mempertimbangkan bagaimana caranya agar user tidak nakal dalam memasukkan data. Salah satu celahnya adalah dengan bermain tanggal. Sesuai sifatnya transaksional, maka pengerjaannya harus pada saat itu juga. Bila ada yang ketinggal pada hari sebelumnya, maka harus sepengetahuan supervisornya.
Untuk mengatasi hal itu, dibawah ini saya sajikan sintaks untuk mengambil tanggal dari database SQL server

        Dim conn As New Data.Odbc.OdbcConnection
        Dim connectionString As String
        connectionString = "DSN=PO;UID=SA;Pwd="
        conn = New Odbc.OdbcConnection(connectionString)
        Dim da As Odbc.OdbcDataAdapter = New Odbc.OdbcDataAdapter
        Dim query As String
        query = "select getdate() as tglserver"
        Dim ds As New DataSet
        da.SelectCommand = New Odbc.OdbcCommand(query, conn)
        Try
            If conn.State = ConnectionState.Closed Then conn.Open()
            da.Fill(ds, "test")
            Return (ds.Tables("test").Rows(0).Item(0).ToString())
        Catch ex As Exception
            MsgBox("Tidak Data Yang ditemukan!", MsgBoxStyle.Exclamation)
        End Try
        conn.Close()

Asumsi :
DBConnString adalah sebuah koneksi string menuju database SQL Server

Read More

Menggabung Dua String Pada C++

Pada postingan kali ini saya akan berbagi program C++ sederhana mengenai menggabungkan dua buah string berbeda yang diberikan oleh pengguna ke progam masukan data string dengan menggunakan fungsi "strcat()". Alur program ini adalah program menampilkan perintah untuk memberikan Nama depan, kemudian setelah pengguna memberikan string nama depan, maka program akan menampilkan perintah agar pengguna memberikan string lagi ke nama belakang.

Setelah proses memasukkan string selesai, maka yang pertama kali saya proses disini adalah menambahkan satu spasi ke belakang string nama_depan.
Mengapa saya menambahkan satu spasi setelah string nama_depan? Jika saya langsung menggabung dua string yang telah diberikan user tersebut di atas, maka tidak akan ada pemisahan bagian string pada kedua string tersebut dan yang akan di tampilkan seperti berikut "BelajarC++". Untuk itu lah saya menambahkan satu spasi terlebih dahulu ke string pertama sebelum saya menggabungkan string pertama dengan string kedua.

Kode C++ dari program yang saya jelaskan di atas, dapat teman-teman lihat dan perhatikan pada form di bawah ini.

/*
*Menggunakan strcat(tujuan, sumber)
*untuk menggabungkan dua string
*/

#include <iostream>
#include <string>

using namespace std;

int main()
{
    //string nama_depan[25], nama_belakang[25];

    char nama_depan[15], nama_belakang[10];

    cout <<"Nama depan : ";
    cin.getline(nama_depan, sizeof(nama_depan));

    cout <<"Nama belakang : ";
    cin.getline(nama_belakang, sizeof(nama_belakang));

    //menambahkan spasi setelah nama depan
    strcat(nama_depan, " "); 
    cout<<"Hai "<<strcat(nama_depan, nama_belakang)<<" "
    <<"Selamat belajar C++"<<endl;


    system("pause");
    return 0;

}

Jika contoh kode program di atas kita eksekusi, maka hasil yang ditampilkan seperti gambar di bawah ini

Menggabung Dua Strig Pada C++

Sekian dulu ya teman-teman untuk kali ini, semoga postingan ini bermanfaat bagi kita semua dalam mempelajari Bahasa C++.

 source. 

Read More

Menambah RAM Komputer Dengan Virtual Memory

Menambah RAM komputer / laptop dengan virtual memory merupakan cara paling aman dalam meningkatkan kinerja komputer, terlebih jika yang kita miliki adalah sebuah laptop, karena jika mengganti RAM pada laptop beresiko kehilangan garansi. RAM juga mempengaruhi kecepatan proses pada komputer, namun jika RAM tidak seimbang (terlalu besar) juga akan memperlambat kinerja komputer

Berikut cara menambah RAM komputer / laptop dengan virtual memory (tested for windows xp) :

• Pasangkan flashdisk atau memory ke komputer
• Klik kanan pada My Computer lalu pilih Properties
• Klik tab Advanced, lalu klik Settings pada kotak Performance
• Pada jendela yang muncul, klik tab Advanced lalu klik tombol Change pada kotak Virtual memory
• Klik Drive C, kemudian pilih No paging file lanjutkan dengan mengeklik tombol Set
• Pilih drive flashdisk atau memory yang akan anda gunakan (misalkan drive F). Setelah itu pilih System managed size dan dilanjutkan dengan mengklik tombol Set

Perhatikan pada kotak Total paging file size for All drives, nilai recommended nya jangan melebihi kapasitas flashdisk. Jika memang lebih maka anda bisa memasukkan nilai total dari kapasitas flashdisk. Caranya klik pilihan Custom Size lalu pada Initial Size dan Maximum Size diisi dengan nilai total dari kapasitas flashdisk. Anda harus menyisakan 5 – 6 Mb. Ini merupakan persyaratan dari Windows XP itu sendiri.

Jika sudah klik tombol Set, Klik OK lalu Restart komputer.

Selamat mencoba.

source

Read More

Pindah Harddisk ke komputer lain tanpa bluescren

Anda mungkin pernah mengalami hal ini, yaitu ketika mainboard atau mobo komputer anda rusak kemudian anda memasang mainboard baru dengan harddisk tetap sama memakai harddisk yang lama. Apakah itu...? Muncul layar Biru atau orang biasanya menyebut "BlueScreen."

Untuk mengatasi hal ini, cukup gampang walaupun dikerjakan oleh seorang awam, juga pasti bisa. BlueScreen ini muncul karena system windows mendeteksi driver chipset yang berbeda dengan mainboard yang baru, dan terjadilah bluescreen.

Untuk seorang tehnisi, trik ini sangat membantu sekali jika anda perlu cek mainboard tanpa harus install dari awal. Dan ini tentu saja dapat menghemat waktu yg lebih banyak untuk pekerjaan lainnya.

Langkah-langkah agar Harrdisk Dipindah ke Komputer Lain Tanpa Bluescreen :

1. Urutannya adalah START => Control Panel => double klik System

2. Double klik "IDE ATA/ATAPI controllers"

3. Di situ terlihat primary, secondary, kemudian jenis chipset mainboard anda, biasanya SIS, Intel, VIA, dll. Dan driver chipset inilah yg perlu anda rubah menjadi driver standart bawaan windows. Jika ada 2 driver chipset yang terdeteksi, maka anda harus mengganti keduanya dengan driver standart bawaan windows.

Caranya ikuti gambar berikut ini :











Kalau ada driver yg belum standart ubah ke satndart semua, caranya sama.

4. Selesai.

Kemudian Anda dapat mencobanya dengan memasang harddisk itu ke komputer lain, kalau nggak bluescreen berarti hasil percobaan anda berhasil.

Selamat Mencoba......

source 

Read More

Cara mengganti motherboard di Windows XP tanpa install ulang

Bagi para pembaca InfoTeknologi pasti pernah mengalami kejadian ketika anda membeli komponen baru komputer, baik untuk upgrade ataupun mengganti device yang rusak.

Kalau anda hanya mengganti grafik card, network card atau sound card pasti tidak akan menemui masalah; setelah anda booting ulang windows XP akan men-detect hardware baru lalu cukup masukkan cd driver maka proses installasi selesai.

Tapi masalah besar akan terjadi apabila komponen yang anda upgrade / ganti adalah motherboard ataupun prosessor dengan tipe yang berbeda, dijamin 99,99 % Windows XP anda akan berwarna biru (Blue Screen of Death)

Berikut tutorial supaya anda dapat mengganti / mengupgrade motherboard di Windows XP tanpa harus repair ataupun install ulang Windows XP anda.

Windows XP menyimpan informasi hardware komputer kita pada regisrtry, jadi yang cukup anda lakukan ialah dengan merestart registry hardware anda ke kondisi awal saat anda, caranya:

• Masukkan CD Windows XP, Restart komputer, masuk ke Bios lalu buat supaya komputer anda booting melalui CD.
• Ketika Layar “Welcome to Setup” Muncul, klik tombol R keyboard untuk memulai Recovery Console
• Akan diminta memasukkan Administrator password, masukkan bila ada, namun bila anda tidak menset password tekan Enter saja.

• Di command prompt Recovery Console ketik baris berikut (setiap baris tekan enter)

md tmp
copy c:\windows\system32\config\system c:\windows\tmp\system.bak
delete c:\windows\system32\config\system
copy c:\windows\repair\system c:\windows\system32\config\system

• Ketik Exit untuk keluar dari Recovery Console komputer anda akan merestart.

source

Read More

Ganti Motherboard tanpa harus INSTALL ULANG

Apabila kita mengganti hardware seperti VGA,soundcard dll itu
tidak akan bermasalah bagi windows,kita hanya perlu menginstall drivernya.

namun,bagaimana bila mengganti motherboard ataupun procie baru?apakah harus di install ulang?
Tentu saja tidak,99% Windows Xp dan vista akan mengalami Bluescreen.
Windows XP menyimpan informasi hardware komputer kita pada regisrtry, jadi yang cukup anda lakukan ialah dengan merestart registry hardware anda ke kondisi awal saat anda, berikut caranya:
Ikuti saja langkah berikut: 

METODE RECOVERY CONSOLE

Menggunakan Windows Recovery Console:
Masukkan CD Windows XP, Restart komputer, masuk ke Bios lalu buat supaya komputer anda booting melalui CD.
Ketika Layar “Welcome to Setup” Muncul, klik tombol R keyboard untuk memulai Recovery Console
Akan diminta memasukkan Administrator password, masukkan bila ada, namun bila anda tidak menset password tekan Enter saja.

Di command prompt Recovery Console ketik baris berikut (setiap baris tekan enter)
md tmp
copy c:\windows\system32\config\system c:\windows\tmp\system.bak
delete c:\windows\system32\config\system
copy c:\windows\repair\system c:\windows\system32\config\system
Ketik Exit untuk keluar dari Recovery Console komputer anda akan merestart.
Matikan komputer, ganti motherboard atau prosesor komputer anda dengan yang baru lalu nyalakan ulang komputer anda, Windows XP akan masuk tanpa menampilkan Blue Screen dan akan menginstall ulang driver hardware pada komputer anda. (Windows XP akan menginstall ulang semua driver hardware anda, bukan hanya driver motherboard / prosessor)

METODE LIVE CD

Caranya adalah dgn memindahkan harddisk ke komputer lain atau booting dengan OS lain (Windows 7 atau Linux) atau menggunakan Hiren Boot CD.

Yang perlu anda lakukan adalah mengcopy file ‘system‘ di folder c:\windows\repair\ lalu menimpanya di folder c:\windows\system32\config\system (Ini karena anda tidak bisa melakukan copy dan delete file system saat anda menggunakan Windows XP)

CATATAN:
Untuk Windows 7 tidak perlu melakukan hal diatas, karena Windows 7 akan secara otomatis menginstall ulang driver bila anda mengganti motherboard atau prosessor tanpa harus mengalami Blue Screen.

utk pemasangan RAM,VGA,Soundcard dll tdk perlu install ulang.cukup dg menginstall drivernya saja.
Jgn terlalu sering Install ulang komputer apabila tidak terlalu penting
karena akan berdampak BAD SECTOR ataupun kerusakan pada harddisk anda.

source

Read More

Mengurangi tanggal pada vb.net

buat form pada vb net, ambil 2 datetimepicker dan 1 textbox
contoh form


codingnya gan
Public Class Form1
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
Dim DateTimePicker1 As Date
Dim DateTimePicker2 As Date
Dim selisih As TimeSpan
DateTimePicker1 = Me.DateTimePicker1.Value
DateTimePicker2 = Me.DateTimePicker2.Value
selisih = DateTimePicker2.Subtract(DateTimePicker1)
Me.TextBox1.Text = selisih.Days
End Sub
End Class

dan hasil nya


gampang bukan …. silah kan do coba

Read More

Membuat Aplikasi Trial VB.NET

Aplikasi trial adalah aplikasi yang mempunyai batasan waktu penggunaan berdasarkan lama hari atau berapa kali aplikasi dijalankan.
Pembuatanya biasanya digunakan pada aplikasi shareware (berbayar) yang bertujuan agar user dapat menikmati aplikasi (demo) sebelum membeli aplikasi.
Berikut ini adalah contoh pembuatan aplikasi trial yang menggunakan lama hari penggunaan, lengkap dengan prosedur input kode registrasinya.

Buat Project baru dengan sebuah Form. Di bagian '(Declarations)' dari Form ketikkan :

Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)
Const PasswordReg = "kode" 'kode kunci registrasi

Function GetInfoReg() As String 'fungsi utk mendapatkan info registrasi
Dim Reg = CreateObject("WScript.Shell")
Try
GetInfoReg = Reg.RegRead("HKEY_CLASSES_ROOT\" & LocationReg & "\")
Catch
Reg.RegWrite("HKEY_CLASSES_ROOT\" & LocationReg & "\", Now.Date) 'memasukkan tgl sekarang
GetInfoReg = Now.Date
End Try
End Function

Function SuccessReg() As Boolean 'fungsi utk prosedur pemasukan kode registrasi
Dim s As String
Lagi:
s = InputBox("Masukkan kode registrasi", "Registrasi")
If s = PasswordReg Then
Dim Reg = CreateObject("WScript.Shell")
Reg.RegWrite("HKEY_CLASSES_ROOT\" & LocationReg & "\", "Registered") 'mendaftarkan k registry
MsgBox("Terima kasih telah melakukan registrasi", vbInformation, "Registrasi Sukses")
SuccessReg = True

ElseIf s = "" Then
SuccessReg = False

Else
If MsgBox("Maaf kode registrasi salah, coba lagi ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then GoTo Lagi
SuccessReg = False
End If
End Function

Lalu di bagian 'Form1_Load' ketikkan :

Dim s As String, l As Long

s = GetInfoReg()
If s <> "Registered" Then 'jika belum terdaftar"
l = 30 - CType(Now.Date - CDate(s), TimeSpan).TotalDays 'max penggunaan trial 30 hari

If l > 0 And l <= 30 Then 'jika masih ada sisa hari
If MsgBox("Aplikasi ini hanya dapat digunakan sampai " & l & " hari lagi." & vbCrLf & _
"Jika ingin menggunakan tanpa batasan waktu, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbInformation, "Registrasi") = vbYes Then SuccessReg()

Else 'jika kadaluarsa
If MsgBox("Aplikasi ini sudah tidak dapat digunakan lagi." & vbCrLf & _
"Jika ingin menggunakannya kembali, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then

If SuccessReg() = False Then End 'mengakhiri aplikasi
Else
End 'mengakhiri aplikasi
End If

End If
End If

Read More

Membuat Aplikasi Trial VB 6

Aplikasi trial adalah aplikasi yang mempunyai batasan waktu penggunaan berdasarkan lama hari atau berapa kali aplikasi dijalankan.
Pembuatanya biasanya digunakan pada aplikasi shareware (berbayar) yang bertujuan agar user dapat menikmati aplikasi (demo) sebelum membeli aplikasi.
Berikut ini adalah contoh pembuatan aplikasi trial yang menggunakan lama hari penggunaan, lengkap dengan prosedur input kode registrasinya.

[ VB 6.0 ]
Buat Project baru dengan sebuah Form. Di bagian '(Declarations)' dari Form ketikkan :

Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)
Const PasswordReg = "kode" 'kode kunci registrasi

Function GetInfoReg() As String 'fungsi utk mendapatkan info registrasi
On Error GoTo Ero
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
GetInfoReg = Reg.RegRead("HKEY_CLASSES_ROOT\" & LocationReg & "\")
Exit Function
Ero:
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", Format(Now, "short date") 'memasukkan tgl sekarang
GetInfoReg = Format(Now, "short date")
End Function

Function SuccessReg() As Boolean 'fungsi utk prosedur pemasukan kode registrasi
Dim s As String
Lagi:
s = InputBox("Masukkan kode registrasi", "Registrasi")
If s = PasswordReg Then
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", "Registered" 'mendaftarkan k registry
MsgBox "Terima kasih telah melakukan registrasi", vbInformation, "Registrasi Sukses"
SuccessReg = True
      
ElseIf s = "" Then
SuccessReg = False
  
Else
If MsgBox("Maaf kode registrasi salah, coba lagi ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then GoTo Lagi
SuccessReg = False
End If
End Function

Lalu di bagian 'Form_Load' ketikkan :

Dim s As String, l As Long
  
s = GetInfoReg
If s <> "Registered" Then 'jika belum terdaftar"
l = 30 - (CDate(Format(Now, "short date")) - CDate(s)) 'max penggunaan trial 30 hari
      
If l > 0 And l <= 30 Then 'jika masih ada sisa hari
If MsgBox("Aplikasi ini hanya dapat digunakan sampai " & l & " hari lagi." & vbCrLf & _
"Jika ingin menggunakan tanpa batasan waktu, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbInformation, "Registrasi") = vbYes Then SuccessReg
          
Else 'jika kadaluarsa
If MsgBox("Aplikasi ini sudah tidak dapat digunakan lagi." & vbCrLf & _
"Jika ingin menggunakannya kembali, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then
              
If SuccessReg = False Then End 'mengakhiri aplikasi
Else
End 'mengakhiri aplikasi
End If
          
End If
End If

Read More

Membuat JAM DIGITAL di VB.Net

Bayak hal yang bisa kita lakukan dengan control timer, kita bisa Melakukan backup database Secara otomatis dengan menggunakan control timer. Tapi pada kesempatan kali ini saya akan menggunakan control timer untuk membuat jam digital.

Buka vb.net anda dan mulailah membuat project baru dengan cara pilih menu fileànewàProject. akan tampil jendela seperti di bawah ini :

Pilih windowàwindows Aplikasian. Name ganti dengan yang anda mau, Location adalah tempat di mana anda akan Menyimpan project anda.kemudian click OK. Maka akan tampak seperti gambar di bawah ini:

setelah itu tambahkan control timer dan label pada form anda, jelasnya seperti gambar di bawah ini :

Propertinya :

1. Label1
• backgrond color = hitam
• forecolor = hijau
• BorderStyle = fixi d3D
2. Timer1
• Enabled = true
• Interval = 100

Setelah itu Masuk Ke area Kode :

Kemudian tuliskan sript di samping ini : "Label1.Text = TimeOfDay"

Kode Lengkapnya Seperti di bawah ini

Public Class Form2

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Text = TimeOfDay

End Sub

End Class

Hasilna

y Akan Tampak Seperti Gambar di Bawah ini :

Selamat Mencoba...................................^_^ 


source

Read More