Flaming Arrow Glitter Purple

Minggu, 29 September 2013

AFTERNOON BAND - AKU TAK PERNAH MENGENAL YANG NAMANYA CINTA

Salam Sahabat Blogger..
Disini saya mengharapkan partisipasi sobat setana air dalam ajang LA LIGHT INDIFIEST yakni ajang Perlombaan Kreasi Musik Band..
Untuk itu saya harapkan sobat setanah air meluangkan waktu untuk mendengarkan video clip dibawah ini :
Vote video ini dengan cara login ke akun google youtube kemudian like..
Sebelumnya saya ucapkan terima kasih buat solidaritas kita bersama..
Semangat3x...


Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Jumat, 06 September 2013

Visual Basic ( Project Pegawai )


Salam Sahabat Blogger..
Flasback dari posting2 yg lewat banyak kita pelajari mengenai Display untuk menampilkan project,nah kali ini kembali maju saya akan memposting project display editing sebuah project mengenai kepegawaian..
Mengunakan beberapa Box2 pilihan yang juga uda pernah saya postingkan,akan tetapi project ini belum aktif dalam hal penyimpanan data base lho sobat,,
Selamat Mencoba Sobat..
Semangat3x..
Rezpect N Peace !!!

Koding :


Private Sub Command1_Click()
List1.AddItem Text1.Text
List2.AddItem Text2.Text
List3.AddItem Combo1.Text
List4.AddItem Text3.Text
List5.AddItem Combo2.Text
List6.AddItem Text4.Text
End Sub

Private Sub Command2_Click()
List1.List(List1.ListIndex) = Text1.Text
List2.List(List2.ListIndex) = Text2.Text
List4.List(List4.ListIndex) = Text3.Text
List6.List(List6.ListIndex) = Text4.Text
List3.List(List3.ListIndex) = Combo1.Text
List5.List(List5.ListIndex) = Combo2.Text
End Sub

Private Sub Command3_Click()
On Error GoTo Salah:
List1.RemoveItem List1.ListIndex
List2.RemoveItem List2.ListIndex
List3.RemoveItem List3.ListIndex
List4.RemoveItem List4.ListIndex
List5.RemoveItem List5.ListIndex
List6.RemoveItem List6.ListIndex
Exit Sub

Salah:
MsgBox "Pilihlah data yang akan di hapus", vbCritical
End Sub

Private Sub Command4_Click()
List1_Click
NIP = List1.List(List1.ListIndex)

If NIP = Text5.Text Then
    MsgBox "Ada"
Else
    MsgBox "Tidak Ada"
End If

End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command7_Click()
List1.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear
List6.Clear
Command5_Click
End Sub

Private Sub Command8_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "1A"
Combo1.AddItem "2A"
Combo1.AddItem "3A"
Combo1.AddItem "4A"
Combo1.AddItem "5A"
Combo1.AddItem "1B"
Combo1.AddItem "2B"
Combo1.AddItem "3B"
Combo1.AddItem "4B"
Combo1.AddItem "5B"
Combo1.AddItem "1C"
Combo1.AddItem "2C"
Combo1.AddItem "3C"
Combo1.AddItem "4C"
Combo1.AddItem "5C"

Combo2.AddItem "Laki-Laki"
Combo2.AddItem "Perempuan"
End Sub

Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
List3.ListIndex = List1.ListIndex
List4.ListIndex = List1.ListIndex
List5.ListIndex = List1.ListIndex
List6.ListIndex = List1.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
List3.ListIndex = List2.ListIndex
List4.ListIndex = List2.ListIndex
List5.ListIndex = List2.ListIndex
List6.ListIndex = List2.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List3_Click()
List1.ListIndex = List3.ListIndex
List2.ListIndex = List3.ListIndex
List4.ListIndex = List3.ListIndex
List5.ListIndex = List3.ListIndex
List6.ListIndex = List3.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List4_Click()
List1.ListIndex = List4.ListIndex
List2.ListIndex = List4.ListIndex
List3.ListIndex = List4.ListIndex
List5.ListIndex = List4.ListIndex
List6.ListIndex = List4.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List5_Click()
List1.ListIndex = List5.ListIndex
List2.ListIndex = List5.ListIndex
List3.ListIndex = List5.ListIndex
List4.ListIndex = List5.ListIndex
List6.ListIndex = List5.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Private Sub List6_Click()
List1.ListIndex = List6.ListIndex
List2.ListIndex = List6.ListIndex
List3.ListIndex = List6.ListIndex
List4.ListIndex = List6.ListIndex
List5.ListIndex = List6.ListIndex

Text1.Text = List1.Text
Text2.Text = List2.Text
Text3.Text = List4.Text
Text4.Text = List6.Text
Combo1.Text = List3.Text
Combo2.Text = List5.Text
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Visual Basic ( mendisplay sebuah tampilan )



Koding :

Private Sub Command2_Click() 'Clear
Text1.Text = ""

End Sub

Private Sub Command3_Click() 'Exit
Unload Me

End Sub

Private Sub Command1_Click() 'Display
Dim Tampil1, Tampil2, Tampil3, Tampil4, Enter
Enter = Chr(13) + Chr(10)
Tampil1 = ""
Tampil2 = "STIE - STMIK IBBI"
Tampil3 = "Jln. Sei Deli No.18"
Tampil4 = "Medan - Indonesia"
Text1.Text = Tampil1 + Enter + Tampil2 + Enter + Tampil3 + Enter + Tampil4
End Sub

Tampil Run


Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Visual Basic ( Input Bilangan Dan Cetak )


Salam Sahabat Blogger..
Kali ini saya kembali isi absen untuk memposting beberapa pengalaman project sederhana yang saya pelajari selama menjadi mahasiswa Teknik Informatika di IBBI Medan..
Project sederhana visual basic kali ini merupahkan pengurutan bilangan dan melakukan penampilan dalam bentuk cetak.. Dalam project ini saya menerapkan konsep perulangan untuk menghasilkan tampilan visual yang penuh dalam percetakan..
Selamat Mencoba Sahabat..
Semangat3x..
Rezpec N Peace !!!

Koding :

Private Sub Check1_Click()
If Check1.Value = 0 Then
Text3.Text = ""
End If
End Sub

Private Sub Command1_Click() 'Ulang
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click() 'Cetak
Dim bill, bil2, bil3
bil1 = Val(Text1.Text)
bil2 = Val(Text2.Text)

Text3.Text = ""
For i = bil1 To bil2
Text3 = Text3 + Str(i)
Next i

If Check1.Value = 0 Then
Text3.Text = ""
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Check1.Value = 1
End Sub


Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Rabu, 04 September 2013

Visual Basic ( Loading Splash Screen using Progress Bar in VB 6.0 )

Salam Sahabat Blogger...
Suasana Malam ini tepat untuk membuat project maupun program yang unik-unik dan menarik,nah..mari kita konsep sebuah VB project berbentuk animasi sederhana..
Semangat3x..

RezpeC N PeacE !!!
















CODE

Option Explicit

Private Sub Form_Load()
Timer1.Enabled = True
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
    If ProgressBar1.Value = 80 Then
      ProgressBar1.Value = ProgressBar1 + 20

        If ProgressBar1.Value >= ProgressBar1.Max Then
            Timer1.Enabled = False
        End If
      'In this are you may call the form to be loaded next!
      MsgBox "Loading Complete!", vbInformation, "Info"
      Unload Me
   End If
End Sub


















Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Visual Basic ( ADD, EDIT, UPDATE, DELETE, SEARCH and NAVIGATION in VB 6.0 to MS ACCESS using ADO )

Salam Sahabat Blogger...
Sebagai programmer pemula pasti kita sering menemukan jalan buntu terhadap beberapa coding yang tidak terselesaikan dan menemukan jalan buntu ( Pingin Teriak ) WuuaaaH !!! Ga tahu harus mengadu kemana " Resiko Sebagai Programmer " tapi yakinlah sobat ketika didalam hidup kita selalu berfikiran positif dan jujur dan memiliki attitude baik dalam banyak hal itu akan membuat Logika kita semakin Jernih..
Ibarat sebuah pepatah " Banyak Jalan Menuju Roma " begitulah keluh kesah saya menikmati perkuliahan di bidang Informatika,sebuah coding dapat diselesaikan oleh 1 2 3 4 5 atau lebih logika sehinggah kadang kita memikirkan hal yg sulit tapi ternyata ada cara yang gampang belum lagi project yang gampang tapi di persulit " HeHeHe " tapi semua akan TEROBATI ketika Project terselesaikan " PUAS " Semangat3x...

Kali ini saya akan mengajak sahabat blogger mengenal lebih Visual Basic Programming menggunakan data base yang terhubung dalam proses Input and Output..
Skala kali ini lumayan cetar membahana lho sobat,dibutuhkan ketelitian dan konsep yang betul-betul matang disetiap coding...

Berikut Proses Yang Akan Kita Ciptakan :
-Add record 
-Delete record
-Search and Filter record
-Edit and Update record
-Navigate into record

NB : Kita akan menggunakan ADO yang terhubung pada Ms.Acces
NB : Persiapkan Sebuah Data Base Ms Access yang berisi sebuah keterangan data kepegawaian..

 


CODE

MODULE


Option Explicit

Public conn As ADODB.Connection
Public rs As ADODB.Recordset

Sub connect()
Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myDatabase.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
    rs.ActiveConnection = conn
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.Source = "SELECT * FROM MyTable"
    rs.Open
End Sub

Sub main()
connect
frmMain.Show
End Sub


FORM 1


Private Sub cmdDelete_Click()
On Error Resume Next
If MsgBox("Data is not recoverable!", vbExclamation + vbOKCancel, "Confirm Delete") = vbOK Then
rs.Delete
End If
End Sub

Private Sub cmdFirst_Click()
rs.MoveFirst
Call stat
End Sub

Private Sub cmdLast_Click()
rs.MoveLast
Call stat
End Sub

Private Sub cmdNext_Click()
If rs.EOF = True Then
    rs.MoveFirst
    Call stat
Else
    rs.MoveNext
    Call stat
End If
End Sub

Private Sub cmdPrevious_Click()
If rs.BOF = True Then
    rs.MoveLast
    Call stat
Else
    rs.MovePrevious
    Call stat
End If
End Sub

Private Sub Command1_Click()
rs.Filter = adFilterNone
rs.Requery
End Sub

Private Sub Command2_Click()
If MsgBox("Close Applect?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    End
End If
End Sub

Private Sub Form_Load()

Set DataGrid1.DataSource = rs

End Sub

Sub stat()
StatusBar1.Panels(1).Text = "Record " & rs.AbsolutePosition & " of " & rs.RecordCount
End Sub

Private Sub mnuAdd_Click()
frmAdd.Show
End Sub

Private Sub cmdSave_Click()
If txtid.Text = "" Or txtFn.Text = "" Or txtMi.Text = "" Or txtLn.Text = "" Then
    MsgBox "Some fields are still empty!", vbExclamation, "Input Error"
Else
rs.AddNew
rs("studId") = txtid.Text
rs("FirstName") = txtFn.Text
rs("MI") = txtMi.Text
rs("LastName") = txtLn.Text
rs.Update
MsgBox "Record Added Successfusly!", vbInformation, "Add Record"
Call clear
End If
End Sub

Sub clear()
txtid.Text = ""
txtFn.Text = ""
txtMi.Text = ""
txtLn.Text = ""
txtFn.SetFocus
End Sub

Private Sub txtSearch_Change()
If txtSearch.Text = "" Then
Call Form_Load
Me.Show
Else
rs.Filter = "FirstName LIKE '" & Me.txtSearch.Text & "*'"
Set DataGrid1.DataSource = rs
End If
End Sub






Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Visual Basic ( Simple Login / Security in VB 6.0 )

 

Salam Sahabat Blogger..
Menuju postingan berikut ini saya teringat buka www.facebook.com alias Face The Book atau Facebook " HeHeHe " Dimana langkah awal yang harus kita lakukan adalah Login akun..
Mari sobat saatnya kita membuat Menu Login sendiri masih tetap menggunakan Visual Basic " Semangat3x.." Hemm..tapi sobat Project kali ini sedikit agak rumit dan membutuhkan ketelitian..
Semangat3x...
 RezpeC N PeacE !!!


CODE

Option Explicit
Dim user As String
Dim pass As String

Public LoginSucceeded As Boolean

Private Sub cmdExit_Click()
If MsgBox("Are you sure to close this Application?", vbQuestion + vbYesNo, "System") = vbYes Then
    End
End If
End Sub

Private Sub cmdLogin_Click()
user = "admin"
pass = "12345"

    If txtUserName.Text = user Then
        If txtPassword.Text = pass Then

                MsgBox "Username and Password Accepted!", vbInformation, "Login"
                'You may change this line here. call the form rather than displaying a message box!
 
        ElseIf txtPassword.Text = "" Then
            MsgBox "Password Field Empty!", vbExclamation, "Login"
        Else
   
            MsgBox "Username and Password not Matched!", vbExclamation, "Login"
        End If
    ElseIf txtUserName.Text = "" Then
        MsgBox "Username Field Empty!", vbExclamation, "Login"
    Else
        MsgBox "Invalid Username, try again!", , "Login"
        txtPassword.SetFocus
    End If

End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Visual Basic ( Countdown Timer of Hours, Minutes and Seconds using Timer )

 

Salam Sahabat Blogger...
Kata Pepatah " Waktu Adalah Uang " ( Time Is Money )
Kali ini saya akan memberikan postingan mengenai programming waktu masih tetap menggunakan Visual Basic,Adapun konsep sederhana program ini adalah digital clock yang terhubung dengan waktu di Notebook atau PC user...

CODE

Option Explicit

Private AlarmTime As Date

Private Sub Form_Load()
    AlarmTime = DateAdd("h", 2, Now)
End Sub

Private Sub Timer1_Timer()
Dim txt As String

    txt = Format$(AlarmTime - Now, "h:mm:ss")
    Label1.Caption = txt
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Visual Basic ( Frame Visibility Activity )

 



CODE

Private Sub cmdExit_Click()
If MsgBox("Close Applet?", vbQuestion + vbYesNo, "Exit") = vbYes Then
    End
End If
End Sub

Private Sub cmdf1h_Click()
Frame1.Visible = False
End Sub

Private Sub cmdf2h_Click()
Frame2.Visible = False
End Sub

Private Sub cmdSf1_Click()
Frame1.Visible = True
Frame2.Visible = False
End Sub

Private Sub cmdSf2_Click()
Frame1.Visible = False
Frame2.Visible = True
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Visual Basic ( Shape and Line Activity )

 

Masih tahap sederhana kali ini kita akan berkenalan dengan menu Shape n Line untuk menampilkan bentuk ukuran dan garis yang di inginkan,semakin lengkap aja pembahasan visual basic kita semoga bermanfaat untuk sehabat2 Blogger Yah..
Semangat3x..
RezpeC N Peace !!!

CODE

Private Sub cboMenu_Click()
Select Case cboMenu.ListIndex
Case 0
Line1.BorderStyle = 0
Case 1
Line1.BorderStyle = 1
Case 2
Line1.BorderStyle = 2
Case 3
Line1.BorderStyle = 3
Case 4
Line1.BorderStyle = 4
Case 5
Line1.BorderStyle = 5
Case 6
Line1.BorderStyle = 6
End Select
End Sub

Private Sub cmdExit_Click()
If MsgBox("Close Applet?", vbQuestion + vbYesNo, "Confirm Exit") = vbYes Then
    End
End If
End Sub

Private Sub Form_Load()
lstMenu.AddItem "Rectangle"
lstMenu.AddItem "Square"
lstMenu.AddItem "Oval"
lstMenu.AddItem "Circle"
lstMenu.AddItem "Rounded Rectangle"
lstMenu.AddItem "Rounded Square"

cboMenu.AddItem "Transparent"
cboMenu.AddItem "Solid"
cboMenu.AddItem "Dash"
cboMenu.AddItem "Dot"
cboMenu.AddItem "Dash Dot"
cboMenu.AddItem "Dash Dot Dot"
cboMenu.AddItem "Inside Solid"
End Sub

Private Sub lstMenu_Click()
Select Case lstMenu.ListIndex
Case 0
shpDisplay.Shape = 0
Case 1
shpDisplay.Shape = 1
Case 2
shpDisplay.Shape = 2
Case 3
shpDisplay.Shape = 3
Case 4
shpDisplay.Shape = 4
Case 5
shpDisplay.Shape = 5
End Select
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


Visual Basic ( Check box and Option box Activity )

 

Salam Hangat Sahabat Blogger
Posting x ini masih mengenai Visual Basic Programming,dimana kali ini saya akan memberikan postingan mengenai Chekc Box dan Option Box untuk menentukan sebuah warna sesuai dengan pilihan anda sebagai USER..
Semangat3x..
RezpeC N PeaCE !!!

CODE

Private Sub chkBlue_Click()
lblDisplay.Caption = "Blue"
End Sub

Private Sub chkGreen_Click()
lblDisplay.Caption = "Green"
End Sub

Private Sub chkRed_Click()
lblDisplay.Caption = "Red"
End Sub

Private Sub chkYellow_Click()
lblDisplay.Caption = "Yellow"
End Sub

Private Sub cmdDefault_Click()
lblDisplay.Caption = "Default"
lblDisplay.BackColor = &H0&
lblDisplay.ForeColor = &H8000000F
End Sub

Private Sub cmdExit_Click()
If MsgBox("Close Application?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    End
End If
End Sub

Private Sub Form_Load()
lblDisplay.Caption = "Default"
lblDisplay.BackColor = &H0&
lblDisplay.ForeColor = &H8000000F
End Sub

Private Sub optBlue_Click()
lblDisplay.BackColor = &HFF0000
End Sub

Private Sub optGreen_Click()
lblDisplay.BackColor = &HC000&
End Sub

Private Sub optRed_Click()
lblDisplay.BackColor = &HFF&
End Sub

Private Sub optYellow_Click()
lblDisplay.BackColor = &HFFFF&
End Sub

Ganti teks ini dengan informasi mengenai permalink atau apapun di sini.


facebook komentar