Program Faktorial ,Permutasi ,Kombinasi(DLL- VB6)

 Membuat
ActiveX DLL adalah suatu usaha untuk membuat program Anda lebih modular dan
code-code yang sering Anda gunakan sebaiknya Anda kumpulkan dan jadikan dalam
sebuah DLL sehingga Anda dapat menggunakannya kapan saja jika dibutuhkan .Kali ini saya akan share sebuah project atau software yang menggunakan ActiveX DLL  . 
Kali ini saya mengambil contoh software untuk menghitung nilai faktorial – kombinasi – permutasi VISUAL BASIC 6 . Sebelumnya saya sudah share project sama yaitu software penghitung faktorial kombinasi dan permutasi .



screen shoot software :

                                       

Software menghitung Faktorial , Permutasi , Kombinasi dengan VB 6

          Kali ini saya akan share sebuah software untuk alat hitung Faktorial , Kombinasi , Permutasi dengan VB 6. Dan jika ingin lihat post selanjutnya yakni Penggunaan AxtiveX DLL Faktorial Permutasi Kombinasi dengan DLL Project . Applikasi ini saya buat sendiri . Jika ada kekurangan saya mohon maaf .
Screen shot :

User name software  : andik

Password software  : asia

Program Administrasi HOTEL dengan VB 6

Salam sejahtera sahabat Blogger .. Kali in saya akan share Program Program HOTEL dengan VB 6 .
Yah maaf kalau program ini banyak kekurangan . Ini tugas pas UAS . jadi saya buru buru ngerjakannya , waktu mepet sekali .

 Karena Program ini hasil dari beberapa referensi dan saya jadikan satu .
 Kalau anda tertarik silahkan download  Klik Disini  file vb 6 project.

Convert- i “softwere converter .gif .jpg .bmp .ico”

     Salam sejahtera Sahabat Blogger . Nah sekarang saya akan share applikasi yang berfungsi untuk mengconvert file extension format gambar yakni .gif .jpg .ico .bmp . Apllikasi ini sangat sederhana.

Tapi, walaupun sederhana menurut saya softwere sangat membantu.
Karena softwere ini saya buat sendiri , jika ada yang berminat silahkan download
 klik Di sini (file .exe)

Atau jika mau mengembangkan soft were ini klik Disini (file vb 6.0 project)
pass : genre-it

Tugas1 ” Form Perkenalan “

 Sekarang saya akan sedikit share bagaimana menampilkan form perkenalan di vb 6.
1. Desain form seperti gambar di bawah ini :

 

Terus copy pastekan code di bawah ini :

Dim Data As Data_Diri
Private Type Data_Diri
nama As String * 30
telp As String * 20
email As String * 20
alamat As String * 50
kota As String * 20
jenis As String
hobi As String * 20
End Type
Sub Isi_Data()
Data.nama = Txtnama.Text
Data.telp = Txttelp.Text
Data.email = Txtemail.Text
Data.alamat = Txtalamat.Text
Data.kota = Txtkota.Text
Data.jenis = cmbjenis.Text
Data.hobi = Txthobi.Text
End Sub

Sub Tampil_Data()
MsgBox “PERKENALKAN !” & Chr(10) & _
       “Nama               : ” & Data.nama & Chr(10) & _
       “No. Telp          : ” & Data.telp & Chr(10) & _
       “Jenis Kelamin : ” & Data.jenis & Chr(10) & _
       “Email               : ” & Data.email & Chr(10) & _
       “Alamat            : ” & Data.alamat & Chr(10) & _
       “Kota                 : ” & Data.kota & Chr(10) & _
       “Hobi   : ” & Data.hobi & Chr(10), vbInformation, “Salam Kenal”

End Sub

Private Sub cmbjenis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtemail.SetFocus
End If
End Sub



Private Sub cmdclear_Click()
Dim a As Control
For Each a In Controls
If TypeOf a Is TextBox Then
a = “”
End If
Next a
End Sub

Private Sub Cmdexit_Click()
If MsgBox(“Apakah yakin ingin keluar ?”, vbOKCancel, “Konfirmasi ! “) = vbOK Then
End
Else
MsgBox “Silahkan Kembali ! “, , “Good”
End If
End Sub

Private Sub Cmdmessage_Click()
If Txtnama.Text = “” Then
MsgBox “Nama kosong”
Txtnama.SetFocus
ElseIf Txttelp.Text = “” Then
MsgBox “No. telp kosong”
Txttelp.SetFocus
ElseIf cmbjenis.Text = “” Then
MsgBox “Jenis Kelamin kosong”
cmbjenis.SetFocus
ElseIf Txtemail.Text = “” Then
MsgBox “Email kosong”
Txtemail.SetFocus
ElseIf Txtalamat.Text = “” Then
MsgBox “Alamat kosong”
Txtalamat.SetFocus
ElseIf Txtkota.Text = “” Then
MsgBox “Kota kosong”
Txtkota.SetFocus
ElseIf Txthobi.Text = “” Then
MsgBox “Hobi kosong”
Txthobi.SetFocus
Else
Call Isi_Data
Call Tampil_Data
End If
End Sub

Private Sub Form_Activate()
Txtnama.SetFocus
End Sub

Private Sub Txtalamat_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtkota.SetFocus
End If
End Sub

Private Sub Txtemail_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtalamat.SetFocus
End If
End Sub

Private Sub Txthobi_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmdmessage.SetFocus
End If
End Sub

Private Sub Txtkota_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthobi.SetFocus
End If
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttelp.SetFocus
End If
End Sub

Private Sub Txttelp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmbjenis.SetFocus
End If
End Sub

Dan jika di jalankan seperti ini :

mudah bukan !!
jika ingin download filenya klik disini !
pass : genre-it