Contoh Penggunaan DialogResult pada Object, MessageBox dan Form VBNET

Ada yang sudah tahu apa itu DialogResult? Sederhanya adalah jika anda memunculkan/membuat messagebox, maka akan ada pilihan apakah hasilnya akan Yes, No, Cancel dan lain lain. Di VB.Net ada 8 DialogResult (dengan index dari 0) :

0 = Windows.Forms.DialogResult.None

1 = Windows.Forms.DialogResult.OK

2 = Windows.Forms.DialogResult.Cancel

3 = Windows.Forms.DialogResult.Abort

4 = Windows.Forms.DialogResult.Retry

5 = Windows.Forms.DialogResult.Ignore

6 = Windows.Forms.DialogResult.Yes

7 = Windows.Forms.DialogResult.No

Jika anda ingin membuat pesan "Yes, No, Cancel" dan masing masing pilihan mempunyai kondisi yang berbeda, maka anda dapat menulis sintaknya seperti ini :

Dim hasil As DialogResult

hasil = MessageBox.Show("Yes or No or Cancel ?", "Tanya", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

Select Case hasil

      CaseWindows.Forms.DialogResult.Yes

                'jika yes maka ...

      CaseWindows.Forms.DialogResult.No

                'jika no maka ...

      CaseWindows.Forms.DialogResult.Cancel

                'jika cancel maka ...

End Select

DialogResult jika dapat anda aplikasikan untuk validasi pada object : OpenFileDialog, SaveFileDialog, ColorDialog dan lain lain. Sehingga dapat diketahui apakah user itu meng-click open atau cancel misalnya.

Dim buka As New OpenFileDialog

With buka

    .Filter = "Music File|*.mp3"

    If.ShowDialog = Windows.Forms.DialogResult.Cancel Then

                'jika batal maka no action

    Else

                'jika klik open

      TextBox1.Text = .FileName

    End If

End With

Selain itu jika ada pernah memanggil form lain (form2) dari tombol di form1, anda juga dapat menggunakan DialogResult supaya lebih praktis. Misalnya saya sudah membuat form seperti ini :

Kemudian saya panggil dari form1 (saat tekan button1) dan sekaligus membuat kondisi selanjutnya.

Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

   Dim new_formAs New Form2

   Ifnew_form.ShowDialog = Windows.Forms.DialogResult.OK Then

            'jika Setuju ...

   Else

            'jika tidak setuju ...

   End If

End Sub

Pertanyaanya, bagaimana kita bisa tahu SETUJU = OK dan TIDAK SETUJU = Cancel ? jawabannya adalah dengan setting dialoag result pada masing masing button di event form2_load()

Private Sub Form2_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

   Button_setuju.DialogResult = Windows.Forms.DialogResult.OK

   Button_tidak.DialogResult = Windows.Forms.DialogResult.Cancel

End Sub

Tags:
How to use the DialogResult property in Visual Basic .NET, Dialog forms in VB.NET - Modal, ShowDialog, and DialogResult, VB.NET MessageBox.Show Examples, VB.NET 2005 DialogResult.OK, Cancel dialog result from closing form, Get DialogResult

Mengenal Fungsi (+=,-=,*=,/=) di VBNET (Mempersingkat Sintak/Coding)

Mungkin tidak banyak programmer yang belum klo di VBNET itu anda dapat menyingkat penulisan sintak untuk perhitungan (khusunya increment). Mungkin dari jamannya VB6 sampai VBNET anda sering menulis seperti ini :

Nomor = Nomor + 1
Atau pada looping sederhana misalnya :

Dim nomor As Integer = 1

Do While reader.Read

   nomor = nomor + 1

   ListView1.Items.Add(nomor)

Loop

Nah sebenarnya kita dapat menyingkat dengan menulis seperti ini di VBNET :
Nomor += 1 (artinya sama dengan nomor = nomor + 1)
Nomor -= 10 (artinya sama dengan nomor = nomor - 10)
Nomor *= 5 (artinya sama dengan nomor = nomor * 5)
Nomor /= 2 (artinya sama dengan nomor = nomor / 2)

Contoh :

Dim nomor As Integer = 1

Do While reader.Read

   nomor += 1
   ListView1.Items.Add(nomor)

Loop

Hal ini mirip dengan bahasa C++ atau PHP , contoh : nomor++
Selamat mencoba dan Semoga bermanfaat !

Tags:

i++ in vbnet, looping in vbnet, Where is I++ in VB.Net?, Does i++ exist now in VB.net?, Increment Operators in VB.Net

Cara Menyingkat Variable Dengan Simbol (!,@,#,$,%,&) Di VB6/VB.NET (Penyederhanaan)

Berikut ini adalah simbol yang dapat anda gunakan untuk mempersingkat/menyederhakan penulisan (deklarasi) variable. Dengan menggunakan simbol ini anda dapat lebih menghemat panjang source code dan waktu anda, berikut ini saya sediakan contoh penggunaanya :

        Dimvalue1! 'Sama dengan anda menulis Dim Value1 As Single

        Dimvalue2@ 'Sama dengan anda menulis Dim Value2 As Currency

        Dimvalue3# 'Sama dengan anda menulis Dim Value3 As Double

        Dimvalue4$ 'Sama dengan anda menulis Dim Value4 As String

        Dimvalue5% 'Sama dengan anda menulis Dim Value5 As Integer

        Dim value6& 'Sama dengan anda menulis Dim Value6 As Long

            Formy_counter% = 0 To 10

                '... sintak anda

            Next

Tags:

arti string$ di vb, contoh deklarasi variable, string$ dan trim$, bedanya string$ dengan string biasa, for i% = 0 to 100, contoh tutorial vb, vb open source, visual basic tutorial, variable $ adalah

SELECT TOP N PERCENT (%) Record (Ms.SQLServer,Ms.Access,MySQL,SQLite,PostgreSQL,FireBird,Oracle,DB2,Sybase)

Sebelumnya saya sudah membahas tentang SELECT TOP di berbagai jenis database. Sekarang saya akan menambahakan penjelasan tentang SELECT TOP N PERCENT.

OK, contoh apa bedanya SELECT TOP 50 dengan SELECT TOP 50 PERCENT ? jika saya punya data seperti ini (1 samapai 200) :

Nomor

1

2

sampai

200

1.SELECT TOP 50

Artinya kita akan SELECT 50 ROW PERTAMA, contoh : SELECT TOP 50 nomor FROM DJIESOFT_tbl, dan hasilnya 1 s/d 50.

Jika anda mengurutkan secara DESCENDING , contoh : SELECT TOP 50 nomor FROM DJIESOFT_tbl ODER BY NO DESC, maka hasilnya 200 s/d 150

2.SELECT TOP 50 PERCENT

Artinya kita akan SELECT 50% ROW dari Total ROW, jadi jika total row 200 maka perhitungannya :

Jika 50% : 200 * (50/100) = 100 Row

Jika 30% : 200 * (30/100) = 60 Row

Contoh : SELECT TOP 50 PERCENT nomor FROM DJIESOFT_tbl

TOP N PERCENT ini hanya ada di database Microsoft (SQLSERVER & ACCESS), lalu bagaimana jika kita ingin menggunakan hal ini di dabatase lain seperti MySQL, dll ?

Banyak cara untuk meng-akali hal ini, salah satunya adalah dengan dua kali query :

1.Dapatkan persentasi jumlah row dan simpan ke variable

"SELECT ROUND(COUNT(nomor) * (50 / 100)) AS Rowpercent FROM DJIESOFT_tbl"

... sintak di programming untuk menyimpan ke variable, misal didapatkan hasilnya : var_RowPercent = 70

2.Select via LIMIT

"SELECT nomor FROM DJIESOFT_tbl LIMIT " & var_RowPercent

...sintak di programming untuk execute SQLQuery

Tags:

Returning TOP N PERCENT Records, How to take top 5% PERCENT records using select in postgres, select top n record PERCENT, select top PERCENT in mysql, select top in sqlite, select top in oracle, select top in postgre, select top in db2, select top in firebird, select top in sysbase, select top percent adalah ?    SQL TOP Clause, Select TOP % PERCENTin MySQL, Select first 10 distinct rows in mysql 

4 Cara Remove/Disabled Close[X]Button Pada Form VBNET

Mungkin pada saat tertentu kita ingin tombol close di form bisa menjadi "tidak bisa diclick (disabled)". Ada banyak cara untuk melakukan ini:

1.Set property FormBorderStyle = NONE

atau

2.Set Property ControlBox =FALSE

tapi kedua cara itu membuat tombol minimize dan maximize menjadi ikutan hilang (invisible/visible=false).

3.Gunakan event FormClosing()

tuliskan e.Cancel = true, maka form tidak akan pernah bisa di close (walaupun tombol close[x] nya aktif/dapat di click)

4.Disable tombol close dengan fungsi API, seperti gambar dibawah ini

Download full source project

Tags:

Disable Close Button[X] in the Vb.Net, How to disable the close button in VB.net, Disabling close button VB.NET, Visually remove/disable close button from title bar, How to remove or disable Close (X)-button of the Form, How to disable Close button on title bar in VB.net, cara remove tombol close form vbnet

Membongkar SoftwarePSR (Penambah Saldo Rekening) dan Bukti Komisi/Penghasilannya

Apa itu softwarePSR? baru baru ini ada yang request pasang iklan pada halaman blog saya (anda dapat lihat banner diatas). Saya penasaran, benarkah softwarePSR dapat menambah saldo rekening ? jawabannya : YA. Saya dapat katakan "YA" karena saya telah mencobanya, awalnya saya hanya iseng ingin menge-test aplikasi ini dan bagaimana cara kerjanya serta terbuat dari bahasa pemrogramman apa softwarePSR ini.

Singkat kata ini dia hasilnya :

1.SoftwarePSR terbuat dari bahasa .NET (C), saya dapat lihat pada file dependency+runtime-nya

2.Formnya simple, hanya terdiri dari : 1 form, 1 menubar, 1 toolbar dan 1 webbrowser

3.SoftwarePSR membutuhkan konkesi internet, intinya SoftwarePSR ini meload halaman page dari situs resminya ke webbrowser di SoftwarePSR

Bagaimana cara kerja SoftwarePSR ini agar apat menghasilkan uang ke rekening anda ?

1.Download SoftwarePSR (installer atau portable) DISINI

2.Anda akan menerima notifikasi (software key) di email anda

3.Jalankan SoftwarePSR dengan memasukan software key tadi sebagai login (status nya masih TRIAL)

4.Anda harus meng-aktifasi (membeli lisensi) agar software ini menjadi full version dengan mentransfer sejumlah uang ke rekening pemilik SoftwarePSR (Murah Ko), agar dapat mengakses semua menu/fitur

5.Anda akan menerima notifikasi (serial number) di email anda

6.Input Serial Number itu melalui SoftwarePSR.

7.Input Setting Nama Bank, Rekening anda (pendapatan/komisi akan di transfer ke rekening anda)

8.Buka dan baca menu TRIK RAHASIA untuk mempelajari bagaimana cara menghasilkan uang secara mudah dan cepat.

9.Selamat mencoba dan semoga berhasil...

Hal hal yang mungkin terbesit dibenak anda, setelah baca postingan ini :
1.Apakah software PSR ini AMAN?
AMAN, saya pertamakali test dengan bank Mandiri (Bank saya yang jarang dipakai) dan sampai saat ini tidak masalah.
2.Apakah software PSR ini LEGAL ?
LEGAL, karena tidak merugikan siapapun, jangan berfikir software ini membobol rekening bank, itu salah besar. semua ada bisa baca di TRIK RAHASIA SPSR.
3.Adakah GARANSI uang kembali ?
ADA, jika anda gagal/tidak dapat penghasilan, maka uang yang anda setor akan dikembalikan

Ini bukti penghasilan/komisi PERTAMA :

Ini bukti penghasilan/komisi KEDUA :

Ini bukti penghasilan/komisi KETIGA:

Tags:
Bukti Penghasilan Pasang SoftwarePSR, Bukti Penghasilan Software Penambah Saldo Rekening, SOFTWARE PSR PENAMBAH SALDO REKENING, Laporan Harian Penghasilan Software PSR, Software Penambah Saldo Rekening (Bukti Pembayaran Komisi, Bisnis Internet: Bukti Penghasilan Pasang SoftwarePSR,

Tips 5 Cara Mengamankan Akun Facebook di Ponsel

Bagi anda yang memiliki akun Facebook, baik bersifat sosial maupun yang berhubungan dengan pekerjaan profesional. Di Facebook membuat seseorang memiliki tempat untuk menyimpan dan berbagai foto, serta saling mengirim pesan kepada teman. Bagaimanapun juga, semua itu merupakan hal yang patut dilindungi kerahasiannya.

Mungkin selama ini sebagian orang belum maksimal dalam melindungi akun miliknya, apalagi setiap ponsel kini dapat menggunakan aplikasi Facebook. Bersumber dari Mashable, Sabtu(18/05/13), ternyata Facebook Mobile lebih rentan terhadap percobaan pembajakan dan pencurian identitas dari si pemilik akun.
Berikut adalah Tips lima cara untuk mengamankan akun di Facebook Mobile dari penyusup.

1. Aktifkan Password Ponsel
Hal tersebut adalah cara yang paling mudah untuk melindungi Facebook Mobile, namun perlu diketahui lebih dari 30% pengguna ponsel tidak menggunakan password untuk melindungi ponsel mereka.

2. Gunakan Password Yang Berbeda Untuk Email dan Akun Facebook
Tiga perempat dari pengguna web ternyata lebih memilih menggunakan password tunggal untuk semua akun media sosial atau lainnya yang membutuhkan password untuk masuk, dan password yang paling umum digunakan adalah "123456". Sebaiknya Jerukers gunakan kombinasi huruf dan angka untuk sebuah password, demi meningkatkan keamanan dari password itu sendiri.

3. Pastikan Security Pada Browser Aktif
Facebook telah menawarkan keamanan opsi browsing sejak 2011. Jerukers bisa mengaktifkan HTTP Secure (HTTPS) pada browser untuk melindungi posel dari serangan malware saat menggunakan Wi-Fi di tempat publik.

4. Aktifkan Notification Login dan Persetujuan/approvals
Untuk memastikan akun facebook hanya bisa diakses oleh Jerukers, perlu untuk aktifkan fitur ini. Facebook akan mengirimkan notification setiap kali akun milik Jerukers diakses  oleh orang lain.

5. Gunakan "Trusted Contacts"
Hadir sebagai salah satu inovasi terbaru dari Facebook, Trusted Contacts memungkinkan Jerukers untuk memilih sekelompok kecil teman-teman yang bisa dipercaya. Cara ini berguna saat tidak dapat mengakses Facebook, bahkan bantuan pertanyaan pun tidak membantu. Facebook akan mengirimkan kode yang berbeda ke teman-teman yang terpilih.
Sumber : jeruknipis.com