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 :

Download 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 :

Download 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
Silahkan KLIK DISINI untuk download Project diatas

Transient Tachypnea of the Newborn (TTN), Gangguan Napas yang Umum Terjadi Pada Bayi Baru Lahir

Selama minggu-minggu pertama kelahirannya, ada banyak perubahan yang dialami bayi untuk bisa beradaptasi dengan dunia sekitar. Salah satu organ yang mengalami perkembangan adalah paru-paru. Jika selama dalam kandungan, bayi “bernapas” lewat bantuan aliran darah ibu, setelah lahir ia akan harus bisa bernapas sendiri lewat paru-parunya. Transient Tachypnea of Newborn (TTN) adalah salah satu jenis masalah pernapasan yang cukup sering ditemukan pada bayi baru lahir. Apa penyebabnya, seperti apa gejalanya, dan bisakah kondisi ini ditangani?

Apa itu transient tachypnea (TTN)?

Bayi sudah segera bisa bernapas sendiri dengan paru-parunya begitu dilahirkan ke dunia. Namun proses pernapasan bayi baru lahir tentu sedikit berbeda dengan bayi yang sudah lebih tua atau bahkan orang dewasa.

Selama dalam kandungan, paru-paru bayi masih berisi cairan yang dikeluarkan oleh alveolus (tempat pertukaran udara dengan darah) untuk mempertahankan fungsi dan perkembangannya yang normal.

Idealnya, cairan ini harus dikosongkan agar paru-paru dapat terisi dengan udara. Untuk mencapai hal ini, otak bayi akan merangsang sistem adrenergik selama masa-masa menjelang kelahiran untuk membuat cairan paru-paru tersebut diserap ke pembuluh darah paru dan sistem limfatik.

Jika proses penyerapan paru-paru ini terhambat oleh satu dan lain hal, bayi dapat mengalami sesak napas. Kondisi napas cepat dan sesak pada bayi baru lahir disebut dengan transient tachypnea.

Transient tachypnea adalah gangguan pernapasan pada bayi baru lahir yang berlangsung singkat. Biasanya terjadi sesaat setelah kelahiran atau beberapa jam setelah kelahiran, namun kurang dari 24 jam. TTN adalah penyebab utama sindrom distress napas pada bayi baru lahir.

Siapa saja yang berisiko mengalami hal ini?

Transient tachypnea adalah masalah kesehatan cukup sering terjadi pada bayi baru lahir. TTN ditemukan pada 4-6 bayi per 1000 kelahiran hidup.

Faktor risiko transient tachypnea bisa meliputi:

  • Bayi yang lahir caesar
  • Bayi laki-laki
  • Bayi yang memiliki riwayat asma dalam keluarganya
  • Bayi makrosomia (berat badan lahir besar; lebih dari 4 kilogram)
  • Lahir dari ibu yang memiliki riwayat diabetes

Apa saja tanda dan gejala Transient Tachypnea pada bayi baru lahir?

 

Tanda utama dari gangguan pernapasan ini adalah bayi yang bernapas cepat dan dalam, tampak sesak, dan diikuti oleh suara napas bunyi mirip ngorok. Laju napas pada bayi yang mengalami Transient tachypnea lebih dari 60 kali napas per menit, bahkan bisa mencapai 80-100 kali napas per menit.

Saat mengambil napas, dada bayi terlihat masuk ke dalam karena otot dinding dadanya tertarik. Sementara saat menghembuskan napas, dada bayi akan terlihat menggembung. Kulit bayi juga bisa tampak membiru karena kesulitan bernapas, terutama kulit di sekitar mulut dan hidung.

Gejala-gejala ini umumnya tampak dalam 6 jam setelah persalinan.

Bagaiman dokter mendiagnosis gangguan napas ini?

Dokter dapat mendiagnosis TTN dengan rontgen dada begitu bayi mulai menunjukkan gejalanya. Rontgen dilakukan untuk mencari adanya cairan dalam paru bayi.

Diagnosis transient tachypnea baru boleh diresmikan setelah dokter menyingkirkan kecurigaan kondisi lainnya yang juga bisa menyebabkan gangguan napas, seperti pneumonia, sindrom aspirasi mekonium (terhirupnya feses selama dalam kandungan), penyakit membran hialin, dan edema paru.

Apakah Transient Tachypnea of Newborn berbahaya?

Pada umumnya, TTN bukanlah sebuah kondisi berbahaya. Dengan penanganan cepat, bayi dapat berangsur-angsur bernapas normal. TTN umumnya membaik dalam 2-5 hari. Pada beberapa kasus mungkin butuh waktu lebih lama, tergantung dari kondisi bayi dan pengobatan yang diterimanya.

Bagaimana kondisi ini diobati?

Pada umumnya, transient tachypnea pada bayi baru lahir ditangani dengan pemberian bantuan oksigen.

Bayi yang mengalami sesak napas dapat diberikan ASI lewat selang hidung atau selang mulut untuk mencegah makanan masuk ke dalam paru, yang bisa menyebabkan pneumonia aspirasi. Jika napas bayi setelah diukur lebih dari 80 kali per menit, maka bayi harus dipuasakan dan diberikan makanan melalui infus.

Beberapa bayi yang mengalami TTN bisa diberikan antibiotik jika gejalanya dicurigai disebabkan oleh infeksi seperti pneumonia atau sepsis.

Transient tachypnea sendiri tidak menimbulkan komplikasi. Apabila muncul komplikasi, biasanya disebabkan oleh terapi oksigen yang diberikan. Bicarakan lebih lanjut dengan dokter yang menangani bayi Anda untuk kekhawatiran tentang komplikasinya dan pertanyaan lainnya.

The post Transient Tachypnea of the Newborn (TTN), Gangguan Napas yang Umum Terjadi Pada Bayi Baru Lahir appeared first on Hello Sehat.

Nonton Film I Tonya 2018 Subtitle Indonesia

Nonton Film I Tonya 2018 Subtitle Indonesia

Nonton Film I Tonya 2018 Subtitle Indonesia Biography Drama Sport 5 January 2018 Canada

Nonton Film I Tonya 2017 Subtitle Indonesia Biography Drama Sport 5 January 2018 Canada – Sinopsis – I Tonya Kompetitif es skater Tonya Harding naik antara jajaran Kejuaraan Figure Skating US, tetapi masa depan dalam kegiatan dibuang ketika mantan suaminya campur tangan.

Kisah yang menarik. Ya sudah ditonton saja langsung di bioskopkeren.online.

Director: Craig Gillespie
Writers: Steven Rogers (screenplay)
Stars: Margot Robbie, Sebastian Stan, Allison Janney

Watch Streaming dan download film movie I Tonya 2018 subtitle bahasa indonesia online gratis di bioskopkeren.online. Nonton movie Nonton Film Online Bioskop Online Watch Streaming Download Sub Indo

Download subtitle Indonesia disini
Baca panduan disini

Tolong donk diberitahu teman teman, saudara dsb jika anda suka dengan film film di BioskopKeren.

Posting Nonton Film I Tonya 2018 Subtitle Indonesia ditampilkan lebih awal di Bioskopkeren.online.

Membuat Alert Message yang lebih menarik di Laravel

Hallo teman-teman ONPHPID… Bagaimana membuat Alert Message yang lebih menarik di Laravel? Kali ini ONPHPID akan memberikan sebuah referensi packages yang dapat kita gunakan. Packages ini dapat kita gunakan untuk mempercantik Alert Message di website yang kita buat. Kebetulan packages ini hasil belajar sendiri dalam membuat sebuah packages sederhana. Sebelum kita menggunakan packages ini, diasumsikan bahwa teman-teman telah memiliki sebuah project Laravel yang akan digunakan. Installasi Packages Sebelum menggunakan packages ini, kita harus men-download-nya. Teman-teman bisa mengunjungi https://github.com/kenhyuwa/flash-me untuk lebih detailnya. Pada project kita, jalankan perintah composer untuk men-download packages, yaitu composer require ken/flash-me setelah selesai jangan lupa publish file yang di

The post Membuat Alert Message yang lebih menarik di Laravel appeared first on ONPHPID Tutorial.

Download Asphalt 8 Airborne v3.3.0 (mod,free shopping) game on android

Download Asphalt 8 Airborne v3.3.0 (mod,free shopping) game on android:Asphalt 8: Airborne is a very good car racing game. Let me tell you that playing this game seems like you are participating in a sports car racing and you are playing it with the purpose of winning it. It is as if it was Asphalt 8 : Airborne mod game This game is quite an interesting game, its graphics are great if you have a good car then you can win this game easily, so that’s why we have brought this game mod for you. A. You will have unlimited money and coins that you can be good to buy the best car for free and a lot of things like unlock your level be.

I am giving you the Asphalt 8: Airborne game mode version below, like you will click on the download option, this game will be downloaded and you will get unlimited corn in it from which you can buy a good car because I made the Asphalt 8: Airborne mode And I will also provide you the download link along with the Play Store, you can download any of the two but I can tell you to download this game from the Play Store. When will you download so you version the mode it will not get unlimited money.

 Asphalt 8 Airborne MOD game 

Download

Download from playstore

Download

  • Current Version :5.1.3
  • File Size :29 MB | 84 MB
  • Requires Android :4.0 and up

Nonton kenny 2017 Subtitle Indonesia

Nonton kenny 2017 Subtitle Indonesia

Nonton kenny 2017 Subtitle Indonesia Sport 20 November 2017 UK

Nonton kenny 2017 Subtitle Indonesia Sport 20 November 2017 UK – Sinopsis – kenny mengungkapkan potret Kenny Dalglish – pemain, orang, kebenaran.

Kisah yang menarik. Ya sudah ditonton saja langsung di bioskopkeren.online.

Director: Stewart Sugg
Writers: N/A
Stars: Margaret Aspinall, John Barnes, Kelly Cates

Watch Streaming dan download film movie kenny 2017 subtitle bahasa indonesia online gratis di bioskopkeren.online. Nonton movie Nonton Film Online Bioskop Online Watch Streaming Download Sub Indo

Download subtitle Indonesia disini
Baca panduan disini

Tolong donk diberitahu teman teman, saudara dsb jika anda suka dengan film film di BioskopKeren.

Incoming search terms:

  • layarkaca21 film bokep 2017

Posting Nonton kenny 2017 Subtitle Indonesia ditampilkan lebih awal di Bioskopkeren.online.

Yus Zinal – 2 Kerja

Intro : C..G..Am..F G..

               C
Mereka panggil aku cop wang disini
         G
apa saja mahu hanya petik jari
             Am
yang bekerja cuma makan gaji
jangan termakan hati
  G
cuba bukakan hati, dengar

C                  G
..hidup senang begini
          Am
ada rahsianya
               G
mari dekat kesini
             C
ku boleh cerita
                G
sebut saja ku beri

7 Tips Menjaga Kesehatan Wanita yang Harus Diketahui

Tips kesehatan wanita merupakan hal yang sangat berharga. Karena jika terjadi sakit maka segala aktifitas tidak akan bisa dilaksanakan sesuai dengan keinginan. Karena badan dan juga tubuh akan terasa lemah dan sering kali mudah sakit.

Bagi kaum wanita harus menjaga kesehatan tubuh, karena pada usia di atas 40 hormon estrogen sudah tidak diproduksi lagi. Berikut ini tips menjaga kesehatan wanita yang harus diketahui :

1. Makanan

Bagi wanita harus paham dengan pasti seberapa banyak makanan yang perlu dikonsumsi. Selain itu juga jenis makanan yang terbaik bagi tubuh. Agar tubuh bisa menahan adanya gempuran bakteri dan juga virus yang berada di luar tubuh.

2. Olah gara

Lakukan olahraga untuk menjaga kesehatan tubuh. Ini untuk melatih fungsi kardiovaskukar dan juga otot tubuh. Lakukan setidaknya 20-30 menit setiap harinya.

3. Jangan stress

Stress biasanya dapat menyebabkan aliran darah tidak lancar. Yang biasanya mengakibatkan stroke dan juga sakit jantung. Untuk menghindari stress bisa melakukan yoga, senam pernapasan atau bisa juga melakukan meditasi.

4. Hindari asap rokok

Salah satu yang dapat mengganggu kesehatan adalah asap rokok. Menghisap rokok bisa menyebabkan timbulnya gangguan pada paru-paru dan juga jantung. Biasanya bagi perokok akan mengalami penyakit paru-paru oada saat budah usia tua.

5. Tidur lebih awal di malam hari

Bergadang akan membuat tubuh bekerja secara ekstra. Selain itu juga bisa membuat organ vital yang ada di dalam tubuh tidak bisa istirahat. Tidur cepat di malam hari dan bangun cepat di pagi hari akan sangat baik bagi kesehatan.

6. Rutin periksa ke dokter

Salah satu cara untuk bisa menjaga kesehatan tubuh wanita adalah melakukan periksa ke dokter. Medis merupakan salah satu alternative yang memang sangat penting agar bisa mengetahui kondisi tubuh.

7. Hindari sinar matahari

Jika sering melakukan aktifitas di luar rumah dan sering terkena sinar matahari bisa mengakibatkan terkena kanker kulit.

Itulah beberapa tips menjaga pola hidup sehat untuk wanita. semoga apa yang disampaikan di atas tadi bisa bermanfaat bagi pada kaum wanita.