Sunday, May 16, 2021

Seva Tempat Mobil Online Terpercaya, Marketplace Otomotif

Seva Tempat Mobil Online Terpercaya, Marketplace Otomotif
Tampilan Interface Situs Seva 2021, /Seva.id

SEVA Tempat Mobil Online merupakan situs platform digital marketplace otomotif berkualitas dan sangat terpercaya yang dikelola oleh PT Astra Digital Internasional, sebuah group dari perusahaan-perusahaan terkemuka Astra Internasional Tbk. Selain otomotif, platform ini juga menampilkan berbagai produk pembiayaan konsumen hingga asuransi dari jual dan beli mobil.

Seva Tempat Mobil Online

Friday, May 7, 2021

Membuat Login Case Sensitive Pada Visual Basic

Cara Mudah Membuat Login Case Sensitive Pada Visual Basic. Mungkin ada diantara anda yang masih bertanya apa itu Case Sensitive ? Case sensitive adalah suatu metode pembedaan penulisan huruf kecil dan besar ( kapital ). Fungsi ini biasa terdapat dalam prosedur pengetikan password atau struktur bahasa pemrograman tertentu. disini akan kita terapkan dalam bahasa pemograman Visual Basic.

Bagi anda yang sudah mempraktikan dalam membuat form login Aplikasi Penjualan dengan VB .NET, maka jika anda login dengan menggunakan Huruf kecil maupun huruf besar ( Kapital ) maka tidak ada pengaruhnya. Dengan kata lain, asal password login benar, anda tidak perlu memusingkan huruf besar atau kecil didalam database. Namun jika anda ingin aplikasi anda lebih secure, maka kami sarankan anda menggunakan metode case sensitive.

Metode case sensitive memang diperuntukan security yang lebih detail sehingga aplikasi lebih aman dari orang-orang yang iseng login dengan akun anda.
Jika anda menggunakan database SQL Server, maka anda bisa melakukan atau setting pada SQL Server itu sendiri. Anda bisa mempraktikannya yaitu dengan :

Silahkan login ke Database SQL Server anda
Kemudian pilih database yang sudah anda buat.
Sebagai contoh didalam tabel : TBL_ADMIN terdapat field : KodeAdminm, NamaAdmin, PasswordAdmin dan LevelAdmin.

Jika anda ingin password case Sensitive silahkan anda pilih atau Klik PasswordAdmin
Kemudian pada Column Properties silahkan cari collation
Pilih Windows Collation
dan Checklist Case Sensitive seperti gambar dibawah :

Membuat Login Case Sensitive Pada Visual Basic .NET

Jika sudah silahkan Klik OK

Untuk mempraktikannya silahkan lakukan praktek login seperti aplikasi Penjualan yang sudah saya buatkan tutorialnya pada web javanetmedia ini. kemudian silahkan login dengan mengganti huruf kecil maupun besar. Jika tidak sama dijamin anda bisa login ke Aplikasi anda :)

Demikian Cara Membuat Login Case Sensitive Pada Visual Basic, semoga bermanfaat untuk anda.

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Source Code Contoh From Transaksi Penjualan VB .NET

Pada tutorial kali ini saya akan memberikan Logika dalam Membuat Form Transaksi Penjualan pada VB .NET. Koding form transaksi memang biasanya lebih panjang dari form master lainnya. Karena pada form transaksi lebih kompleks dan banyak yang harus di kendalikan pada Dataridview Visual Basic .NET agar form transaksi ini berjalan dengan semestinya.

Hasil dari from transaksi penjualan adalah seperti gambar dibawah ini :

Source Code Contoh From Transaksi Penjualan VB .NET

Bagaimana apakah anda tertarik untuk membuat Form transaksi diatas?

Berikut langkahnya :
Silahakn buka VB .NET anda
Bautlah sebuah project VB .NET
Jika sudah muncul Form1, silahkan design form1 seperti gambar dibawah ini :
 
Source Code Contoh From Transaksi Penjualan VB .NET

Pada gambar diatas terdapat :
DataGridView yang diganti namanya menjadi : dgvData
Button Tambah : btnAdd
Button Hapus : btnRemove
Label Total
dan TexBox : txtSumTotal

JIka sudah selesai membuat Form seperti gambar diatas,
Silahkan Masukan Koding pada Form1 dibawah ini :

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
Me.Text = "Contoh Form Transaksi Penjualan - www.javanetmedia.com"
txtSumTotal.Text = "0.00"
SetupGridView()
Dim row As String() = New String() {1, "BRG0001", "Nama Barang 1", 1, 0.0, 0.0}
' Add First Row
dgvData.Rows.Add(row)
' Focus
dgvData.Focus()
dgvData.CurrentCell = dgvData.Rows(dgvData.RowCount - 1).Cells(3)
' / Summary Cell Index = 5
CalSumTotal()
End Sub

' / --------------------------------------------------------------------------------
Private Sub SetupGridView()
With dgvData
.RowHeadersVisible = False
.AllowUserToAddRows = False
.AllowUserToDeleteRows = False
.AllowUserToResizeRows = False
.MultiSelect = False
.ReadOnly = False
' Columns Specified
dgvData.ColumnCount = 6
dgvData.Columns(0).Name = "No"
'dgvData.Columns(0).Visible = False ' Don't show Primary Key
dgvData.Columns(1).Name = "Kode_Barang"
dgvData.Columns(2).Name = "Nama_barang"
dgvData.Columns(3).Name = "Jumlah"
dgvData.Columns(3).ValueType = GetType(Integer)
dgvData.Columns(4).Name = "Harga"
dgvData.Columns(4).ValueType = GetType(Double)
dgvData.Columns(5).Name = "Total"
dgvData.Columns(5).ValueType = GetType(Double)
' Hidden column index 0 ... It's Primary Key for DataBase
.Columns("No").Visible = True ' False
.Columns("Kode_Barang").HeaderText = "Kode_Barang"
.Columns("Nama_Barang").HeaderText = "Nama_Barang"
.Columns("Jumlah").HeaderText = "Jumlah"
.Columns("Harga").HeaderText = "Harga"
' Total Column
With .Columns("Total")
.HeaderText = "Total"
.ReadOnly = True
.DefaultCellStyle.BackColor = System.Drawing.Color.LightGoldenrodYellow
.DefaultCellStyle.ForeColor = System.Drawing.Color.Red
.DefaultCellStyle.Font = New Font(dgvData.Font, FontStyle.Bold)
End With
' Adjust Column width
.Columns(0).Width = 35
.Columns(1).Width = dgvData.Width \ 5
.Columns(2).Width = dgvData.Width \ 5
.Columns(3).Width = dgvData.Width \ 5 - 20
.Columns(4).Width = dgvData.Width \ 5 - 20
.Columns(5).Width = dgvData.Width \ 5 ' + 2
' Header Own Style
With .ColumnHeadersDefaultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.White
.Font = New Font(dgvData.Font, FontStyle.Bold)
End With
' Alignment only columns 3 to 5
For i As Byte = 3 To 5
' Header Alignment
.Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
' Cell Alignment
.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
Next
End With
End Sub

' / --------------------------------------------------------------------------------
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
With dgvData
.Width = Me.Width - 22
End With
txtSumTotal.Left = Me.Width - (txtSumTotal.Width + 20)
Label1.Location = New Point(txtSumTotal.Left - Me.Label1.Width, txtSumTotal.Top + 3)
End Sub

' / --------------------------------------------------------------------------------
' / Add new row
Private Sub btnAddRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim Position As Integer = dgvData.Rows.Count - 1
Dim LastRow = (From Items In dgvData.Rows.Cast(Of DataGridViewRow)() Select Items).ElementAt(Position)

Dim PK As Long = LastRow.Cells(0).Value + 1
Dim row As String() = New String() {PK, "BRG000" & PK, "Nama Barang " & PK, 1, 0.0, 0.0}
dgvData.Rows.Add(row)
' Focus
dgvData.CurrentCell = dgvData.Rows(dgvData.RowCount - 1).Cells(3)
dgvData.Focus()
' /
CalSumTotal()
End Sub

' / --------------------------------------------------------------------------------
' / Remove selected row
Private Sub btnDelRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
If dgvData.RowCount = 1 Then Exit Sub
dgvData.Rows.Remove(dgvData.CurrentRow)
dgvData.Refresh()
' /
CalSumTotal()
End Sub

' / --------------------------------------------------------------------------------
' / Calcualte sum of Total (Column Index = 5)
Private Sub CalSumTotal()
txtSumTotal.Text = "0.00"
For i As Byte = 0 To dgvData.RowCount - 1
' CDbl = Convert to Double
txtSumTotal.Text = CDbl(txtSumTotal.Text) + CDbl(dgvData.Rows(i).Cells(5).Value)
Next
txtSumTotal.Text = Format(CDbl(txtSumTotal.Text), "#,##0.00")
End Sub

' / --------------------------------------------------------------------------------
' / Before Edit Data
Private Sub dgvData_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles dgvData.CellBeginEdit
Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
dgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString("#,##0.00")
' /
CalSumTotal()
End Sub

' / --------------------------------------------------------------------------------
' / After you press Enter
Private Sub dgvData_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEndEdit

Select Case e.ColumnIndex
Case 3, 4 ' Column Index = 3 (Quantity), Column Index = 4 (UnitPrice)
' Quantity
' If Null Value
If IsDBNull(dgvData.Rows(e.RowIndex).Cells(3).Value) Then dgvData.Rows(e.RowIndex).Cells(3).Value = 0
Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
' Keep original value in temporary. (Tag Properties)
dgvData.Tag = Quantity
If Quantity <= 0 Then
dgvData.Rows(e.RowIndex).Cells(3).Value = dgvData.Tag
Quantity = dgvData.Tag
End If

' UnitPrice
' If Null Value
If IsDBNull(dgvData.Rows(e.RowIndex).Cells(4).Value) Then dgvData.Rows(e.RowIndex).Cells(4).Value = 0.0
Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
dgvData.Tag = UnitPrice
If UnitPrice < 0 Then
dgvData.Rows(e.RowIndex).Cells(4).Value = dgvData.Tag
UnitPrice = dgvData.Tag
End If
' Quantity x UnitPrice
dgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString("#,##0.00")
CalSumTotal()
End Select
End Sub

' / --------------------------------------------------------------------------------
Private Sub dgvData_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvData.EditingControlShowing
Select Case dgvData.Columns(dgvData.CurrentCell.ColumnIndex).Name
' / Can use both ColumeIndex or Field Name
Case "Quantity", "UnitPrice"
RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
End Select
End Sub

' / --------------------------------------------------------------------------------
Private Sub ValidKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim tb As TextBox = sender
Select Case dgvData.CurrentCell.ColumnIndex
Case 3 ' Quantity is Integer
Select Case e.KeyChar
Case "0" To "9" ' digits 0 - 9 allowed
Case ChrW(Keys.Back) ' backspace allowed for deleting (Delete key automatically overrides)
Case ChrW(Keys.Delete) ' Delete key

Case Else ' everything else ....
' True = CPU cancel the KeyPress event
e.Handled = True ' and it's just like you never pressed a key at all
End Select

Case 4 ' UnitPrice is Double
Select Case e.KeyChar
Case "0" To "9"
' Allowed "."
Case "."
' can present "." only one
If InStr(tb.Text, ".") Then e.Handled = True

Case ChrW(Keys.Back)
Case ChrW(Keys.Delete)
Case Else
e.Handled = True

End Select
End Select
End Sub
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Me.Dispose()
Application.Exit()
End Sub
End Class
Jika sudah silahkan anda Save dan Jalankan Project VB .NET anda

Demikian Source Code Contoh From Transaksi Penjualan VB .NET, semoga bermanfaat untuk anda

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Thursday, May 6, 2021

Membuat Form Loding Dengan Visual Basic .NET

Kembali di tutorial Visual Basic .NET bersama Javanetmedia.com pada bab atau tutorial kali ini saya akan memberikan tutorial mengenai Form Loading pada VB .NET. Apa itu form Loading?
Sebenarnya form loading ini hanya Gaya-gaya an atau untuk mempercantik sebuah program agar terlihat lebih bagus atau lebih profesional. Dengan adanya form loading ini diharapkan Aplikasi yang anda buat akan lebih hidup dan lebih ada efek teknologinya :)

Form Loading biasanya digunakan pada saat membuka aplikasi atau setelah input data form Login atau pada saat load form tertentu ( tergantung kebutuhan )

Berikut langkah dalam membuat form Loading dengan VB .NET.

Silahkan buat sebuah Project dengan Visual Basic .NET
Buat lah dua buah form (minimal 2 Form)
2 Form disini yang 1 digunakan untuk form loading dan satunya digunakan untuk form setelah loading.
Jadi jalannya aplikasi adalah, ketika Project di run, maka form loading akan muncul, kemudian jika loading sudah selesai maka form2 akan muncul.
Nantinya jika anda sudah berhasil maka anda bisa gunakan pada Aplikasi VB .NET yang anda buat.

Cara Membuat Form Loding Dengan Visual Basic .NET

Pada Form1 diatas, silahkan buat form seperti diatas :
Masukan : Label1, ProgressBar1, dan Timer1

Agar tampilan lebih bagus, silahkan Klik Form1
Kemudian di Properties, pada formBorderStyle silahkan pilih None
Gambarnya adalah sebagai berikut :

Cara Membuat Form Loding Dengan Visual Basic .NET

dan Berikut Hasilnya :

Cara Membuat Form Loding Dengan Visual Basic .NET

Kemudian silahkan masukan koding dibawah ini pada Form1 :
Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
Label1.Text = ProgressBar1.Value & ("%")
If ProgressBar1.Value = 100 Then
Me.Hide()
Form2.Show()
Timer1.Stop()

End If
End Sub
End Class

Silahkan Save dan Jalankan Project anda.
Untuk Form2 tidak perlu anda beri koding, form2 akan muncul ketika loading selesai atau sudah 100 persen.

Demikian tutorial dalam Membuat Form Loding Dengan Visual Basic .NET, semoga bermanfaat untuk anda.

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Membuat CRUD VB .Net Database SQL Server

Membuat Aplikasi CRUD ( Create, Read, Update, Delete ) Visual Basic .Net Database SQL Server. Pada tutorial VB .NET kali ini saya akan melanjutkan Tutorial CRUD menggunakan VB .NET. Pada Tutorial sebelumnya saya sudah memberikan pembelajaran CRUD VB .Net database Access dan MySQL. Bagi anda yang sedang membuat Aplikasi VB .NET dan Database SQL Server maka tutorial kali ini adalah dasar dalam membuat sebuah Aplikasi. Fungsi ini sangat penting karena nantinya anda bisa Input, Edit dan Delete di dalam Form VB .NET yang datanya tersimpan di database SQL Server.

Untuk bisa mengikuti tutorial ini pastikan :
  1. Anda sudah install Visual Basic .NET ( Jika belum punya, silahkan letakkan komentar )
  2. Anda sudah install SQL Server ( Jika belum punya anda bisa berkomentar )
Cukup 2 syarat diatas yang perlu anda install di Komputer anda.

Selanjutnya, konsep dasarnya adalah : Kita buat Database dan Tabel pada SQL Server, mengkoneksikan database ke VB .NET, Kemudian Membuat Input, Edit dan Delete data.

#1. Membuat Database dan Tabel SQL Server

Silahkan buka database SQL Server anda
Buatlah database dengan nama : JNM_CRUD
Buatlah Tabel dengan nama : TBL_MAHASISWA
Field Tabelnya adalah : NIM, NamaMahasiswa, JenisKelamin, AlamatMahasiswa dan TeleponMahasiswa.

Untuk membuat TBL_MAHASISWA dengan Koding, Silahkan gunakan Query dibawah :
use [DBTM]
CREATE TABLE [dbo].[TBL_MAHASISWA](
[NIM] [varchar](6) NOT NULL,
[NamaMahasiswa] [varchar](100) NULL,
[JenisKelamin] [varchar](20) NULL,
[AlamatMahasiswa] [varchar](100) NULL,
[TeleponMahasiswa] [varchar](20) NULL,
CONSTRAINT [PK_TBL_MAHASISWA] PRIMARY KEY CLUSTERED
(
[NIM] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]

GO

Dengan langkah diatas anda telah sukses membuat Database dan Tabel SQL Server

#2. Membuat Form VB .NET dan Input Data

Selanjutnya setelah anda sukses membuat Database dan Tabel, kita akan input data menggunakan Form Visual Basic .NET.
Silahkan buka aplikasi Visual Basic .NET
Kemudian jika sudah muncul Form1, silahkan buat design Form1 seperti gambar dibawah ini :

Membuat CRUD VB .Net Database SQL Server

Dari Gambar diatas terdapat : Label1 sampai Label 5, TextBox1 sampaiTextBox4, ComboBox1, Button1 sampai Button4, dan DataGrudView1

Jika sudah membuat form diatas, dan sebelum membuat koding input. silahkan memunculkan tabel TBL_MAHASISWA dan Munculkan di DataGridView1

Silahkan masukan koding dibawah ini :

Imports System.Data.SqlClient
Public Class Form1
Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Cmd As SqlCommand
Dim RD As SqlDataReader
Dim LokasiDB As String
Sub Koneksi()
LokasiDB = "data source=JAVANET001;initial catalog=JNM_CRUD;integrated security =true"
Conn = New SQLConnection(LokasiDB)
If Conn.State = ConnectionState.Closed Then Conn.Open()
End Sub
Sub KondisiAwal()
Koneksi()
Da = New SqlDataAdapter("Select * from TBL_MAHASISWA", Conn)
Ds = New DataSet
Ds.Clear()
Da.Fill(Ds, "TBL_MAHASISWA")
DataGridView1.DataSource = (Ds.Tables("TBL_MAHASISWA"))
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = ""
ComboBox1.Items.Clear()
ComboBox1.Items.Add("PRIA")
ComboBox1.Items.Add("WANITA")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call KondisiAwal()
End Sub
End Class

Dengan koding diatas, maka Kondisi Awal semua Form dalam keadaan Kosong dan Sudah terjadi koneksi TBL_MAHASISWA kedalam DataGridView1

Penampakannya adalah seperti gambar dibawah ini :

Membuat CRUD VB .Net Database SQL Server
Koding Input Data :
Silahkan Double Klik Tombol Input, dan masukan koding dibawah ini :
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox1.Text = "" Then
MsgBox("Silahkan Isi Semua Form")
Else
Call Koneksi()
Dim simpan As String = "insert into TBL_MAHASISWA values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
Cmd = New SqlCommand(simpan, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Input data berhasil")
Call KondisiAwal()
End If
End Sub

Untuk Membuktikan bisa Input, silahkan anda Run atau Jalankan Project VB .NET anda

#3. Edit Data VB .NET Database SQL Server

Jika Input data sudah berhasil maka kita akan melanjutkan dalam Edit Data didalam Database.
Sebelum anda membuat koding di Tombol Edit, maka anda harus memunculkan data yang akan anda update terlebih dahulu.
Berikut kodingnya :
    Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
TextBox1.MaxLength = 6
If e.KeyChar = Chr(13) Then
Call Koneksi()
Cmd = New SqlCommand("Select * From TBL_MAHASISWA where NIM='" & TextBox1.Text & "'", Conn)
RD = CMD.ExecuteReader
RD.Read()
If Not RD.HasRows Then
MsgBox("NIM Tidak Ada, Silahkan coba lagi!")
TextBox1.Focus()
Else
TextBox2.Text = RD.Item("NamaMahasiswa")
TextBox3.Text = RD.Item("AlamatMahasiswa")
TextBox4.Text = RD.Item("TeleponMahasiswa")
ComboBox1.Text = RD.Item("JenisKelamin")
TextBox2.Focus()
End If
End If
End Sub

Arti koding diatas :
Silahkan masukan NIM pada TextBox1, jika sudah memasukan NIM maka silahkan tekan ENTER pada Keyboard
Jika NIM pada TextBox1 tidak ada databnya, maka munculkan MsgBox 
Jika NIM pada TextBox1 terdapat pada TBL_MAHASISWA maka munculkan data Mahasiswa

Jika sudah muncul data mahasiswa, silahkan anda edit data, Contoh Nama diganti dengan benar. Jika sudah masukan koding Edit dibawah pada Tombol Edit :
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call Koneksi()
Dim edit As String = "update TBL_MAHASISWA set NamaMahasiswa='" & TextBox2.Text & "',AlamatMahasiswa='" & TextBox3.Text & "',TeleponMahasiswa='" & TextBox4.Text & "',JenisKelamin='" & ComboBox1.Text & "' where NIM='" & TextBox1.Text & "'"
Cmd = New SqlCommand(edit, Conn)
CMD.ExecuteNonQuery()
MsgBox("Data Berhasil diUpdate")
Call KondisiAwal()
End Sub

Untuk membuktikan anda bisa Edit data, silahkan jalankan Project anda

#3. Hapus Data VB .NET Database SQL Server

Yang terakhir dalam membuat Aplikasi CRUD adalah Delete atau Hapus Data. Untuk hapus data konsepnya hampir sama dengan Edit data, dimana anda harus memilih data yang akan dihapus kemudian anda klik Button Hapus.
Silahkan double klik button hapus, kemudian masukan koding dibwah ini :

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox1.Text = "" Then
MsgBox("Silahkan Pilih Data yang akan di hapus dengan Masukan NIM dan ENTER")
Else
If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
Call Koneksi()
Dim CMD As SqlCommand
Dim hapus As String = "delete From TBL_MAHASISWA where NIM='" & TextBox1.Text & "'"
CMD = New SqlCommand(hapus, Conn)
CMD.ExecuteNonQuery()
MsgBox("Data Berhasil diHapus")
Call KondisiAwal()
End If
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub

Silahkan tekan F5 atau Jalankan Project anda.
Dengan langkah diatas seharusnya anda sudah bisa membuat Aplikasi CRUD VB .NET database SQL Server.
Adapun untuk menyempurnakan Aplikasi CRUD diatas, anda harus memvalidasi sebuah form Mahasiswa, diantaranya :
  1. Nomor NIM dibuat otomatis
  2. Semua Field terdapat Validasi Berapa Digit Karakter
  3. Jika Edit dan Hapus, TextBox1 harus dalam kondisi disable ( Tidak Boleh diedit )
  4.  dan lain sebagainya
Demikian Membuat Aplikasi CRUD VB .Net Database SQL Server, semoga bermanfaat...

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Cara Membuat Alarm Dengan Visual Basic .NET

Tutorial Gratis Cara Membuat Alarm Dengan Visual Basic .NET. Kembali pada tutorial Visual Basic ..NET kali ini saya akan memandu anda dalam membuat Aplikasi Alarm Dengan Visual Basic .NET. Fungsi nantinya juga bisa anda kembangkan untuk membuat Aplikasi Antrian di Bank atau Alarm Bel Sekolah, Aplikasi Alert dan lain sebagainya.

Sebelum anda mengikuti turorial kali ini, pastikan anda sudah menginstall Aplikasi Visual Basic, kemudian anda mempunyai file Musik. Jika sudah, mari kita lanjutkan cara membuat Alarm dengan VB .NET.

Cara Membuat Alarm Dengan Visual Basic .NET

Silahkan anda nyalakan Komputer atau Laptop anda
Silahkan buka Aplikasi Visual Basic .NET
Buatlah design Form1 seperti gambar dibawah ini :

Cara Membuat Alarm Dengan Visual Basic .NET

Gambar diatas terdapat :
Label1, Label2, Label3, DateTimePicker1, Button1, Button2, Button3, TextBox1
Windows Media Player, Timer1, Timer2 dan OpenFileDialog1

Untuk memunculkan Windows Media Player pada ToolBox VB .NET anda bisa lihat Tutorial di blog ini:
Cara Menambahkan Windows Media Player Pada Toolbox VB .NET
Jika anda sudah bisa membuat Form1 seperti gambar diatas, silahkan masukan koding dibawah ini :
Imports System.IO
Public Class Form1
Dim s As Integer = 0
Dim d As Path

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DateTimePicker1.Format = DateTimePickerFormat.Time
Timer2.Enabled = True
TextBox1.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Silakan Pilih Musik Alarm Dahulu!")
Else
Timer1.Enabled = True
DateTimePicker1.CalendarForeColor = Color.Blue
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
TextBox1.Text = ""
TextBox1.Text = OpenFileDialog1.FileName
s = 1
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
If TimeOfDay = DateTimePicker1.Text Then
If s = 1 Then
AxWindowsMediaPlayer1.URL = TextBox1.Text.ToString
Else
MsgBox(DateTimePicker1.Value)
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label2.Text = DateTime.Now.ToLongTimeString
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class

Kemudian silahkan Run atau Jalankan Project anda, atau anda bisa tekan F5 pada Keyboard komputer anda. Untuk menjalankan aplikasinya :
Silahkan Pilih Waktu Alarm, Pilih Musik, Tekan Tombol Set Waktu Alarm.
Dan Tunggu Sampai Waktu alarm datang. dan Jangan Kaget jika musik yang anda pilih langsung berbunyi pada Aplikasi VB .NET anda.

Demikian Cara Mudah Membuat Alarm Dengan Visual Basic .NET, semoga bermanfaat.

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Cara Menambahkan Windows Media Player Pada Toolbox VB .NET

Cara Menambahkan AxWindowsMediaPlayer atau Windows Media Player Pada Toolbox Visual Basic .NET
Pada tutorial VB .NET kali ini akan saya bahas bagaiaman cara menambahkan atau memunculkan WIndows Media Player Pada VB .NET. Fungsi ini biasanya digunakan oleh para pengguna VB .NET untuk memutar Musik pada Aplikasi VB .NET.

Dasar Memutar Musik dengan Visual Basic .NET ini akan bisa dikembangkan untuk membuat Aplikasi Alarm VB .NET, Aplikasi Antrian VB .NET, Aplikasi dengan Notifikasi Musik atau Suara, Aplikasi Alert System dengan VB .NET dan lain sabagainya. Cukup banyak hal yang bisa anda kembangkan dengan mengetahui dasar dalam memutar musik pada form VB .NET.

Cara Menambahkan Windows Media Player Pada Toolbox VB .NET

Namun sebelum anda membuat Aplikasi untuk memutar Musik pada VB .NET, anda perlu memunculkan Windows Media Player pada ToolBox VB .NET.

Berikut Caranya :
Silahkan anda buka Aplikasi Visual Basic .NET anda
Jika sudah muncul Form1, silahkan anda klik kanan pada ToolBox

Cara Menambahkan Windows Media Player Pada Toolbox VB .NET

Klik Choose Items...

Cara Menambahkan Windows Media Player Pada Toolbox VB .NET

Kemudian Klik COM Components
Checklist Windows Media Player
Klik OK

Jika sudah silahkan lihat pada ToolBox ( samping kiri Form1 ) maka seharusnya sudah ada WIndows Media Player pada ToolBox VB .NET anda.
Untuk tutorial membuat Aplikasi Alarm, Aplikasi Alert, Maupun Aplikasi Antran Pada Rumah sakit atau BANK nantinya akan saya bahas pada Artikel selanjutnya.

Demikian Cara Menambahkan Windows Media Player Pada Toolbox VB .NET, semoga bermanfaat untuk anda.


Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Seva Tempat Mobil Online Terpercaya, Marketplace Otomotif

Tampilan Interface Situs Seva 2021, /Seva.id SEVA Tempat Mobil Online merupakan situs platform digital marketplace otomotif berkua...