Erick Bashir " SAYDRO "

Erick Bashir	12112525
Kasman wicaksono	14112041
Maria Ulfa	14112431
Riri Rizabil	16112442
Rani Anggraeni	16112023
Rama Heriance	15112909

                Organisasi yang ada di sekitar kita , sebenernya banyak banget macam-macamnya tapi masa iya ane harus sebutin semua yang ada nanti gak dibaca-baca sama bloger" lainnya gara-gara kepanjangan artikelnya hehhe. Oke deh ane sebutin contoh gampangnya.

              Pesantren Kilat , merupakan suatu kegiatan yang dilakuka oleh kalangan pelajar biasanya ini di lakukan di bulan Suci Ramadhan, hal ini sudah tidak asing lagi bagi orang muslim.Sebenernya sih ane gak tau panitia Pesantren Kilat itu termasuk Organisasi atau bukan , yaudah kalu gitu kita cari tau arti Organisasi terlebih dahulu sebelum menyatakan pesantren kilat itu sebagai pesantren kilat atau bukan.
             Organisasi : Penyusunan dan pengaturan bagian-bagian hingga menjadi suatu kesatuan, susunan dan aturan dari berbagai bagian sehingga merupakan kesatuan yang teratur menjadi sebuah gabungan keraja sama ( untuk mencapai tujuan tertentu ).
             Nah setelah membaca Arti dari Organisasi di atas, apakah anda sudah mendapatkan jawaban nya?
ok kalo menurut ane Pesantren Kilat itu merupakan suatu bentuk organisasi karena di dalamnya terbentuk Panitia Pelaksanaan nya, ada yang sebagai jadi Ketua Pelaksana , wakil , dan bagian bagian lainnya yang memiliki tugasnya masing-masing ane pernah di pilih sebagai dokumentasi acara pelaksaan tersebut , so ane punya pengalaman berorganisasi meskipun masih level bawah sih . Oleh karena itu terbentuknya panitia Pelaksanaan bertujuan untuk mensukseskan suatu acara tersebut yaitu Pesantren Kilat.

so apa pendapat kalian ? apakan Kepanitiaan Pesantren Kilat itu termasuk dalam kategori BerOrganisasi?
           

•  1 buah form
•  1 buah label
• 1 buah timer
• 1 command button

      Untuk Caption Label biarkan kosong, kemudian interval timernya isi dengan angka 1000, dan untuk Caption CommandButton di isi "Keluar" (tanpa tanda "). 

               Untuk olah raga ini tidak asing lagi bagi kaum peria yaitu FUTSAL, futsal hampir sama seperti soccer tapi ahanya pemainnya,lapangannya dan ukuran bola nya yang berbeda. mau tau labih lanjut sejarahnya oke anr kasih tau deh...

Source Code :
Option Explicit

Private hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private operator As Integer
Private NilaiBAru As Boolean


Private Sub hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "_" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub


Private Sub Command1_Click()
End
End Sub

Private Sub Command10Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command11PlusMinus_Click()
If NilaiBAru Then
Text1Display.Text = "-"
ElseIf Left$(Text1Display.Text, 1) = "-" Then
Text1Display.Text = Right$(Text1Display.Text, 2)
Else
Text1Display.Text = "-" & Text1Display.Text
End If
End Sub

Private Sub Command12Koma_Click()
If InStr(Text1Display.Text, ".") Then
Beep
Else
If NilaiBAru Then
Text1Display.Text = "."
NilaiBAru = False
Else
Text1Display.Text = Text1Display.Text & "."
End If
End If

End Sub

Private Sub Command13Operator_Click(Index As Integer)
Command19SamaDengan_Click
operator = Index
NilaiBAru = True
End Sub

Private Sub Command14Operator_Click(Index As Integer)
Command19SamaDengan_Click
operator = Index
NilaiBAru = True
End Sub

Private Sub Command15Operator_Click(Index As Integer)
Command19SamaDengan_Click
operator = Index
NilaiBAru = True
End Sub

Private Sub Command16Operator_Click(Index As Integer)
Command19SamaDengan_Click
operator = Index
NilaiBAru = True
End Sub

Private Sub Command17ClearEntry_Click()
Command17 ClearEntry = Clik
hasil = 0
operator = opNol
End Sub



Private Sub Command18Clear_Click()
Text1Display.Text = ""
End Sub

Private Sub Command19SamaDengan_Click()
Dim hasilbaru As Double
If Text1Display.Text = "" Then
hasilbaru = 0
Else
hasilbaru = CDbl(Text1Display.Text)
End If
Select Case operator
Case opNol
hasil = hasilbaru
Case opTambah
hasil = hasil + hasilbaru
Case opKurang
hasil = hasil - hasilbaru
Case opKali
hasil = hasil * hasilbaru
Case opBagi
'Tidak bisa dibagi nol
If hasilbaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalkulator Error"
Call Command18Clear_Click
Else
hasil = hasil / hasilbaru
End If
End Select
operator = opNol
NilaiBAru = True
Text1Display.Text = Format$(hasil)
End Sub

Private Sub Command1Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command2Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command3Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command4Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command5Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command6Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command7Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command8Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Command9Angka_Click(Index As Integer)
If NilaiBAru Then
Text1Display.Text = Format$(Index)
NilaiBAru = False
Else
Text1Display.Text = _
Text1Display.Text & Format$(Index)
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtdisplay_keyup KeyCode, Shift
End Sub

Private Sub Text1Display_Change()
Text1Display.SelStart = Len(Text1Display.Text)
End Sub

Private Sub Text1Display_GotFocus()
Text1Display_Change
End Sub

Private Sub Text1Display_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
commandAngka_Click 0
Case "1"
commandAngka_Click 1
Case "2"
commandAngka_Click 2
Case "3"
commandAngka_Click 3
Case "4"
commandAngka_Click 4
Case "5"
commandAngka_Click 5
Case "6"
commandAngka_Click 6
Case "7"
commandAngka_Click 7
Case "8"
commandAngka_Click 8
Case "9"
commandAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

Private Sub Text1Display_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
hapus
End Select
KeyCode = 0
End Sub