Trik VB menutup semua Program

Hallo Kawan Semua masih Bersama rizki ada sedikit Trik Buat Kawan kawan semua trik yang kali ini rizki Bagikan adalah Bagaimana kita menutup semua Program dengan hanya satu kali klik dengan pemrograman vb nah trik nie cukup berguna karna Instant kita gak perlu menuup satu persatu program yang kita jalankan tapi cukup dengan hanya satu tombol saja.

nah kewan eeh salah maksd aku kawan sebelum memulai alangkah baiknya membuat dulu sebuah form dan tambahkanlah 1 command button gunkan lah nama "Tutup Semua Program"

From Declaration

Private Declare Function BroadcastSystemMessage _

Lib "user32" (ByVal dw As Long, pdw As Long, _

ByVal un As Long, ByVal wParam As Long, _

ByVal lParam As Long) As Long

Pendeklarasian variabel yang diperlukan

Const BSF_POSTMESSAGE = &H10

Const BSM_APPLICATIONS = &H8

Const WM_SYSCOMMAnd = &H112

Menutup aplikasi ketika Command1 di klik

Private Sub Command1_Click()

BroadcastSystemMessage BSF_POSTMESSAGE, _

BSM_APPLICATIONS, WM_SYSCOMMAnd, &HF060&, ByVal 0&

End Sub

nah kalo belajar kawan tinggal copy paste sintak siatas semoga trik dari bejo kali ini bermanfaat 

(Peringatan Bila terjadi Debug Hubungi Rumah sakit Terdekat) heheehe

Fungsi-Fungsi Angka VB

Mas rizki-Berikut ini adalah fungsi-fungsi yang sering digunakan untuk mengolah data bertipe angka (integer, long, double, dll). Sebelumnya khusus untuk VB .NET, ketikkan kode berikut dibagian paling atas dari jendela kode dari Form.

• Abs(n), digunakan untuk mencari nilai absolut dari n. Contoh :
  a = Abs(5) , nilai a adalah 5
  a = Abs(-5) , nilai a adalah 5


• CInt(n) dan Int(n), digunakan untuk mengubah nilai n menjadi nilai bertipe integer / bulat. Perbedaannya adalah jika CInt bila desimalnya bernilai lebih besar dari 0,5 , maka nilai akan dibulatkan 1 ke atas. Sedangkan Int tidak. Contoh :
  a = CInt(3.4) , nilai a adalah 3
  a = CInt(3.6) , nilai a adalah 4
  a = Int(3.4) , nilai a adalah 3
  a = Int(3.6) , nilai a adalah 3


• CDbl(n) dan Val(n), digunakan untuk menkonversi nilai n yang bertipe string ke nilai bertipe double / angka. Perbedaannya adalah jika Val nilai n harus berformat Inggris (karakter desimal adalah tanda titik), sehingga muncul permasalahan jika settingan komputer menggunakan format Indonesia (karakter desimal adalah tanda koma) yang akan menghasilkan nilai berbeda. Sedangkan bila CDbl mampu menyesuaikan nilai sesuai dengan setting format komputer.
  Berikut contoh yang diterapkan di komputer dengan setting format Indonesia.
  a = Val("2,5") , nilai a adalah 2
  a = CDbl("2,5") , nilai a adalah 2,5


• Randomize dan Rnd() * n, kedua fungsi ini sering dikombinasikan untuk mencari angka acak antara 0 sampai dengan n. Contoh :
  
  Randomize
  a = Rnd() * 4
  nilai a bisa bernilai antara 0 sampai dengan 4
  
  Namun jika Anda ingin angka bertipe bulat saja, berikut contohnya :
  
  Randomize
  a = CInt(Rnd() * 4)
  
  Dan jika Anda menginginkan acak dalam tipe boolean (True atau False),
  berikut contohnya :
  
  Randomize
  a = CBool(CInt(Rnd() * 1))
  nilai a bisa bernilai True atau False


• Log(n), digunakan untuk mencari nilai logaritma natural dari n. Contoh :
  a = Log(5) , nilai a adalah 1,60943791243
  Jika Anda ingin mencari nilai logaritma standar dari n gunakan fungsi berikut :
  VB 6.0 a = Log(n) / Log(10)
  VB .NET a = Log10(n)


• Exp(n), merupakan fungsi kebalikan dari Log(n). Contoh :
  a = Exp(1,60943791243) , nilai a adalah 5


• Round(n, x), digunakan untuk menyesuaikan jumlah angka desimal dari n sebanyak x. Contoh :
  a = Round(5.3784, 2) , nilai a adalah 5,38


• Sgn(n), digunakan untuk mencari tanda angka dari n. Fungsi ini menghasilkan nilai 1 jika n adalah positif, nilai -1 jika n adalah negatif, dan nilai 0 jika n adalah nol. Contoh:
  VB 6.0 a = Sgn(-9)
  VB .NET a = Sign(-9)
  nilai a adalah -1


• Sqr(n), digunakan untuk mencari akar kuadrat dari n. Contoh :
  VB 6.0 a = Sqr(9)
  VB .NET a = Sqrt(9)
  nilai a adalah 3


• Sin, Cos, Tan
  VB 6.0

  Nama	Fungsi
  Sin	a = Sin(n * Angle)
  Cosin	a = Cos(n * Angle)
  Tangen	a = Tan(n * Angle)
  Inv. Sin	a = Atn(n / Sqr(-n * n + 1)) / Angle
  Inv. Cosin	a = (Atn(-n / Sqr(-n * n + 1)) + 2 * Atn(1)) / Angle
  Inv. Tangen	a = Atn(n) / Angle
  Sin Hyp.	a = (Exp(n) - Exp(-n)) / 2
  Cosin Hyp.	a = (Exp(n) + Exp(-n)) / 2
  Tangen Hyp.	a = (Exp(n) - Exp(-n)) / (Exp(n) + Exp(-n))
  Inv. Sin Hyp.	a = Log(n + Sqr(n * n + 1))
  Inv. Cosin Hyp.	a = Log(n + Sqr(n * n - 1))
  Inv. Tangen Hyp.	a = Log((1 + n) / (1 - n)) / 2

  
  VB NET

  Nama	Fungsi
  Sin	a = Sin(n * Angle)
  Cosin	a = Cos(n * Angle)
  Tangen	a = Tan(n * Angle)
  Inv. Sin	a = Asin(n) / Angle
  Inv. Cosin	a = Acos(n) / Angle
  Inv. Tangen	a = Atan(n) / Angle
  Sin Hyp.	a = Sinh(n)
  Cosin Hyp.	a = Cosh(n)
  Tangen Hyp.	a = Tanh(n)
  Inv. Sin Hyp.	a = Log(n + Sqrt(n * n + 1))
  Inv. Cosin Hyp.	a = Log(n + Sqrt(n * n - 1))
  Inv. Tangen Hyp.	a = Log((1 + n) / (1 - n)) / 2

  
  Dalam beberpa fungsi diatas terdapat variabel dengan nama Angel, yang bisa digantikan dengan nilai berikut :
  Degress (DEG), gantikan dengan (3.14159265358979 / 180)
  Radians (RAD), gantikan dengan 1
  Grads (GRAD), gantikan dengan (3.14159265358979 / 200)
  Contoh menghitung Sin dari 5 dengan ukuran DEG :
  a = Sin(5 * (3.14159265358979 / 180))

Contoh program absen sederhana

pertama kita buat dulu database untuk absensi nya dengan nama latihan.mdb, kemudian isi field-field databasenya seperti ini :

Nama Database : latihan.mdb
Nama Tabel       : Absen

Field	Data Type	Size
NRP	Text	10
Nama	Text	35
Jurusan	Text	50
Matkul	Text	50
Masuk	Byte
Sakit	Byte
Izin	Byte
Alpa	Byte
Total	Byte

Setelah membuat database selesai, lalu buat desain form absen seperti ini :
Componen tambahan pada Toolbox :
Adodc dan DataGrid

 

 Jika sudah, kita buat module baru, Klik Menu Project > Add Module > Open,,Kemudian akan muncul jendela kode, tuliskan kode perintah berikut :

Public ConN As New ADODB.Connection
Public RsAbsen As New ADODB.Recordset


Sub koneksi()
Set ConN = New ADODB.Connection
Set RsAbsen = New ADODB.Recordset
ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"
End Sub

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,
Setelah itu isikan kode berikut pada Form

Private Sub Form_Activate()


Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"
Adodc1.RecordSource = "absen"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub


Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Combo1.AddItem "Sistem Informasi"
Combo1.AddItem "Teknik Informatika"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Komputer Akuntansi"
Combo2.AddItem "Pemprograman Visual I"
Combo2.AddItem "Pemprograman Visual II"
Combo3.AddItem "Hadir"
Combo3.AddItem "Tidak Hadir"
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
End Sub

Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :

Function CariData()
    Call koneksi
    RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN
End Function


Private Sub TampilkanData()
Text2 = RsAbsen!nama
Combo1.Text = RsAbsen!jurusan
Combo2.Text = RsAbsen!matkul
Label11.Caption = RsAbsen!masuk
Label12.Caption = RsAbsen!sakit
Label13.Caption = RsAbsen!izin
Label14.Caption = RsAbsen!alpa
Label15.Caption = RsAbsen!total
End Sub






Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub

Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :

Private Sub Text1_LostFocus()
On Error Resume Next
Call CariData
        If Not RsAbsen.EOF Then
            TampilkanData
            Text1.Enabled = False
            Text2.Enabled = False
            Combo1.Enabled = False
            Combo2.Enabled = False
            MsgBox "NRP Sudah Ada"
            Command1.Enabled = False
        End If
End Sub

Pada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :

Private Sub Combo3_Click()
If Combo3.Text = "Hadir" Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Label11.Caption = Val(Label11.Caption) + 1
Else
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub

Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :

Private Sub Option1_Click()
If Option1.Value = True Then
Label12.Caption = Val(Label12.Caption) + 1
Else
Label12.Caption = Val(Label12.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub


Private Sub Option2_Click()
If Option2.Value = True Then
Label13.Caption = Val(Label13.Caption) + 1
Else
Label13.Caption = Val(Label13.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub


Private Sub Option3_Click()
If Option3.Value = True Then
Label14.Caption = Val(Label14.Caption) + 1
Else
Label14.Caption = Val(Label14.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub

Terakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :

Private Sub Command1_Click()   'Kode Perintah Untuk tombol Simpan
Dim SQLSimpan As String
            SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"
            ConN.Execute SQLSimpan
            Form_Activate
            Call kosong
End Sub




Private Sub Command2_Click()     ' Kode Perintah Untuk tombol Edit
If Command2.Caption = "Edit Data" Then
Text1.Enabled = False
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
Command2.Caption = "Edit"
Else


Dim SQLAbsen As String
            SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
            Command2.Caption = "Edit Data"
            End If
End Sub


Private Sub Command3_Click()   'Kode Perintah Untuk Tombol Absen
Dim SQLAbsen As String
            SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLAbsen
            Form_Activate
            Call kosong
End Sub


Private Sub Command4_Click()    'KOde Perintah Untuk Tombol Hapus
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub


Private Sub Command5_Click()    'Kode Perintah Untuk Tombol Selesai
pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
If pesan = vbYes Then
Unload Me
Else
End If
End Sub


Private Sub Command6_Click()   'Kode Perintah Untuk Tombol Isi Data
Text1.Enabled = True
            Text2.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
            Text1.SetFocus
End Sub

Jika semua kode perintah sudah di isikan,,coba jalankan program absensi yang sudah kita buat,,

Selamat Mencoba ^_^