twitter

Program Stack Pada Python

6 komentar
Posted in


Pertama buka python.exe pada program yang sudah diinstal. Lalu ketikan coding seperti pada Gambar 1.1

Gambar 1.1

stack = [] ==> Digunakan untuk membuat stack dengan nama "stack" yang masih kosong
def push(value): ==> Digunakan untuk mendefinisikan sebuah fungsi “push” yang diisi dengan nilai
stack.append(value) ==> Digunakan untuk menambahkan elemen pada puncak stack dengan nilai dari fungsi “push”
def pop(): ==> Digunakan untuk mendefinisikan sebuah fungsi “pop”
stack.pop() ==> Digunakan untuk menghapus elemen dari puncak stack dari fungsi “pop”
def noel(): ==> Digunakan untuk mendefinisikan sebuah fungsi “noel”
print len(stack) ==> Digunakan untuk menampilkan jumlah elemen di dalam stack dengan memanggil nama “stack” yang telah dibuat
def top(): ==> Digunakan untuk mendefinisikan sebuah fungsi “top”
top = len(stack) – 1 ==> Sebagai perhitungan untuk mengetahui elemen pada puncak stack
if top < 0: ==> Jika elemen pada puncak stack kurang dari 0 (elemen di dalam stack kosong)
print "Tidak terdefinisi" ==> Maka akan menampilkan “Tidak terdefinisi”
else: ==> Selainnya
print stack[top] ==> Maka akan menampilkan elemen pada puncak stack
def isempty(): ==> Digunakan untuk mendefinisikan sebuah fungsi “isempty”
if len(stack) == 0: ==> Jika jumlah elemen di dalam stack kosong
print "True" ==> Maka akan menampilkan “True”
else: ==> Selainnya
print "False" ==> Maka akan menampilkan “False”
def tampilkan(stack): ==> Digunakan untuk mendefinisikan sebuah fungsi “tampilkan”
print stack ==> Digunakan untuk menampilkan elemen-elemen pada stack
while True: ==> Digunakan untuk mengulang statemen dalam blok while dengan nilai kondisinya benar
value = input("--> ") ==> Nilai dari blok while yang akan menampilkan hasil bertipe data string “-->” dan berulang selama proses program.

Output program stack pada python akan tampil seperti pada Gambar 1.2

Gambar 1.2

Perintah-Perintah Pada Stack

push(value)                ==> Digunakan untuk menambahkan elemen pada puncak stack dengan angka. Jika String memakai tanda kutip, misalnya push(“Nama”)
pop()                           ==> Digunakan untuk menghapus elemen dari puncak stack
noel()                          ==> Digunakan untuk menampilkan jumlah elemen di dalam stack
top()                            ==> Digunakan untuk mengetahui elemen pada puncak stack. Jika elemen di dalam stack kosong maka Tidak terdefinisi
isempty                       ==> Digunakan untuk nementukan apakah stack kosong. Jika stack kosong maka True, jika stack tidak kosong maka False
tampilkan(stack)        ==> Digunakan untuk menampilkan jumlah elemen di dalam stack

Contoh Program Database Pada Visual Basic

2 komentar
Posted in


Simpan

Private Sub Command1_Click()
If Text1.Text = Empty Then
Text1.SetFocus
Exit Sub
End If
cari = "npm = '" & Text1.Text & "'"
Data1.Recordset.FindFirst cari
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
Data1.Recordset.nama = Text1.Text
Data1.Recordset.npm = Text2.Text
Data1.Recordset.kelas = Text3.Text
Data1.Recordset.jurusan = Text4.Text
Data1.Recordset.fakultas = Text5.Text
Data1.Recordset.dosen = Text6.Text
Call Command2_Click
Else
MsgBox "NPM SUDAH TERDAFTAR", 0 + 16, "PERINGATAN"
Text1.SetFocus
End If
End Sub

Hapus
Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Text6.Text = Clear
Text1.SetFocus
End Sub

Keluar
Private Sub Command3_Click()
End
End Sub


Simpan
Untuk menyimpan data pada TextBox yang ada di dalam database

Hapus
Untuk menghapus data pada TextBox yang ada di dalam database

Keluar
Untuk keluar dari program 

 

1KA33            : nama file database yang dibuat
Properties        : pilihan untuk membuat table baru pada database
Add                 : untuk menambahkan data pada database
Edit                  : untuk mengubah data pada database
Delete              : untuk menghapus data pada database
Close               : untuk keluar dari database

Contoh-Contoh Looping Pada Visual Basic

16 komentar
Posted in


Tipe 1

Private Sub Command1_Click()
x = Val(Text1)
For i = 1 To x
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub


For i untuk menginput angka 1 sampai x
For j untuk menginput angka 1 sampai i
Jika x = 8 maka Print j akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 2
Private Sub Command2_Click()
x = Val(Text1)
For i = x To 1 Step -1
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub


For i untuk menginput angka x sampai 1 dan selanjutnya dikurang 1
For j untuk menginput angka 1 sampai i
Jika x = 8 maka Print j akan mencetak angka 8, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Tipe 3
Private Sub Command3_Click()
x = Val(Text1.Text)
For a = 1 To x
For b = 1 To a
Print a;
Next b
Print
Next a
End Sub


For a untuk menginput angka 1 sampai x
For b untuk menginput angka 1 sampai a
Jika x = 8 maka Print a akan mencetak angka 1, kemudian Next b akan mencetak angka selanjutnya sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 4
Private Sub Command4_Click()
x = Val(Text1.Text)
For a = x To 1 Step -1
For b = 1 To a
Print a;
Next b
Print
Next a
End Sub


For a untuk menginput angka x sampai 1 dan selanjutnya dikurang 1
For b untuk menginput angka 1 sampai a
Jika x = 8 maka Print a akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya sesuai jumlah pada a, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Tipe 5
Private Sub Command5_Click()
x = Val(Text1.Text)
For i = 1 To x
For j = i To 1 Step -1
Print j;
Next j
Print
Next i
End Sub



For i untuk menginput angka 1 sampai x
For j untuk menginput angka i sampai 1 dan selanjutnya dikurang 1
Jika x = 8 maka Print i akan mencetak angka 1, kemudian Next j akan mencetak angka selanjutnya, setelah itu Next i akan berganti ke angka selanjutnya dan berulang sampai dengan nilai x.

Tipe 6
Private Sub Command6_Click()
x = Val(Text1.Text)
For a = x To 1 Step -1
For b = a To 1 Step -1
Print b;
Next b
Print
Next a
End Sub


For a untuk menginput angka x sampai 1 dan selanjutnya dikurang 1
For b untuk menginput angka a sampai 1 dan selanjutnya dikurang 1
Jika x = 8 maka Print b akan mencetak angka 8, kemudian Next b akan mencetak angka selanjutnya, setelah itu Next a akan berganti ke angka selanjutnya dan berulang sampai dengan angka 1.

Clear
Private Sub Command7_Click()
Form1.Cls
Text1.Text = ""
End Sub

Form1.Cls untuk menghapus seluruh cetakan yang berada di Form1
Text1.Text = "" untuk menghapus input yang berada di Text1

Contoh Program Pada QBasic

4 komentar
Posted in


Contoh Program Pertama
Ketikan coding pada program qbasic seperti Gambar 1.1.

Gambar 1.1

Setelah selesai, running program dengan menekan F5. Jika Nilai Praktikum lebih atau sama dengan 70, maka akan menampilkan output seperti Gambar 1.2.

Gambar 1.2

Lainnya akan menampilkan output seperti Gambar 1.3.

  Gambar 1.3

Contoh Program Kedua
 Ketikan coding pada program qbasic seperti Gambar 2.1.

 Gambar 2.1

Setelah selesai, running program dengan menekan F5. Maka akan menampilkan output seperti Gambar 2.2.

Gambar 2.2

Teori Organisasi Umum 1 | Tulisan

0 komentar
Posted in


Konflik
Perusahaan manapun pasti pernah mengalami konflik, maupun konflik internal ataupun eksternal. Mulai dari tingkat individu, kelompok, sampai unit. .Mulai dari derajat dan lingkup konflik yang kecil sampai yang besar. Yang relatif kecil seperti masalah adu mulut tentang pribadi antarkaryawan, sampai yang relatif besar seperti beda pandangan tentang strategi bisnis di kalangan manajemen.  Contoh lainnya dari konflik yang relatif besar yakni antara karyawan dan manajemen.  Secara kasat mata kita bisa ikuti berita sehari-hari di berbagai media. Disitu tampak konflik dalam bentuk demonstrasi dan pemogokan.  Apakah hal itu karena tuntutan besarnya kompensasi, kesejahteraan, keadilan promosi karir, ataukah karena tuntutan hak asasi manusia karyawan.

Penanganan Konflik
Cara penanganan konflik dapat dilakukan dengan cara melakukan pengawasan untuk mengetahui dan menilai kenyataan yang sebenarnya mengenai pelaksanaan tugas atau kegiatan, apakah sesuai dengan yang semestinya atau tidak.

Hal ini dilakukan untuk :
·        Mengetahui jalannya pekerjaan apakah lancar atau tidak.
·        Memperbaiki kesalahan yang dibuat oleh pegawai dan mengusahakan pencegahan agar tidak terulang kembali kesalahan yang sama atau timbulnya kesalahan baru.
·        Mengetahui penggunaan budget yang telah ditetapkan dalam rencana awal (planning) terarah kepada sasarannya dan sesuai dengan yang direncanakan.
·        Mengetahui pelaksanaan kerja sesuai dengan program (fase/tingkat pelaksanaan).
·        Mengetahui hasil pekerjaan dibandingkan dengan yang telah ditetapkan dalam perencanaan.

Perusahaan yang Berkembang
Perusahaan yang berkembang adalah perusahaan yang menerapkan sistem Go Publik dan kerjasama. Yang di maksud Go Publik adalah kita membuka pintu untuk masyarakat / investor yang ingin berinvestasi. Perusahaan yang sudah Go Publik disebut dengan Perusahaan Terbuka. Contoh sederhananya adalah perusahaan waralaba yang mengajak masyarakat / investor untuk menanam saham atau membuka franchise.
Jadi dalam sistem Go Publik terjadi kerjasama antara perusahaan dengan masyarakat / investor yang ingin menanam saham atau membuka franchise untuk berinvestasi.

Perusahaan yang Tidak Berkembang
Perusahaan yang tidak berkembang adalah perusahaan yang mengalami kebangkrutan. Hal ini terjadi karena tidak adanya pengawasan.

Fungsi Pengawasan yaitu :
·        Eksplanasi, pengawasan menghimpun informasi yang dapat menjelaskan mengapa hasil-hasil kebijakan publik dan program yang dicanangkan berbeda.
·        Akuntansi, pengawasan menghasilkan informasi yang bermanfaat untuk melakukan akuntansi atas perubahan sosial ekonomi yang terjadi setelah dilaksanakannya sejumlah kebijakan publik dari waktu ke waktu.
·        Pemeriksaan, pengawasan membantu menentukan apakah sumberdaya dan pelayanan yang dimaksudkan untuk kelompok sasaran maupun konsumen tertentu memang telah sampai kepada mereka.
·        Kepatuhan, pengawasan bermanfaat untuk menetukan apakah tindakan dari para administrator program, staf dan pelaku lain sesuai dengan standar dan prosedur yang dibuat oleh legislator, instansi pemerintah dan atau lembaga professional.
Jika hal tersebut tidak dilakukan secara benar dan teratur, maka perusahaan dapat mengalami kebangkrutan.

Perkembangan UKM yang Maju
UKM adalah singkatan dari Usaha Kecil Menengah. Dalam pembangunan ekonomi di Indonesia UKM mempunyai peranan yang penting, terutama dalam bidang ekspor. Peranan UKM tersebut menjadi bagian yang diutamakan dalam setiap perencanaan tahapan pembangunan yang dikelola oleh dua departemen yaitu :
  1. Departemen Perindustrian dan Perdagangan
  2. Departemen Koperasi dan UKM
Namun demikian, usaha pengembangan yang telah dilaksanakan masih belum memuaskan hasilnya, karena pada kenyataannya kemajuan UKM sangat kecil dibandingkan kemajuan yang dicapai usaha besar.

Dari nilai ekspor nasional BPS pada tahun 1998 ekspor industri kecil dan menengah hanya 6,2%, nilai ini jauh tertinggal bila dibandingkan ekspor usaha kecil negara-negara lain seperti :
  • Taiwan (65%)
  • Cina (50%)
  • Vietnam (20%)
  • Hongkong (17%)
  • Singapura (17%)
Oleh karena itu perlu dibuat kebijakan yang tepat untuk mendukung UKM seperti :
  • Perizinan
  • Teknologi
  • Struktur
  • Manajemen
  • Pelatihan
  • Pembiayaan