SMP MUHAMMADIYAH 3 BANDUNG
ASESMEN SUMATIF AKHIR TAHUN
TAHUN PELAJARAN 2022-2023

MATA PELAJARAN	:	PPKN
KELAS	:	VII
HARI/TANGGAL	:	SELASA, JUNI 2023
WAKTU	:

PILIHLAH JAWABAN YANG PALING TEPAT!

1.Bhinneka Tunggal Ika mengajarkan bangsa indonesia untuk...

a.Mengutamakan persatuan dan kesatuan bangsa

b.Mempererat ikatan dalam satu golongan

c.Menjaga persatuan dalam keluarga

d.Memelihara kebudayaan daerah.

2.Secara umum keberagaman masyarakat indonesia disebabkan oleh ...

a.Letak strategis wilayah, kondisi negara kepulauan, transportasi dan komunikasi

b.Letak wilayah, kondisi negara, transportasi dan komunikasi, mekanisme.

c.Letak strategis, kondisi negara kepulauan, transportasi dan mekanisme

d.Letak strategis wilayah, kondisi negara kepulauan, transportasi dan mekanisme.

3.Dampak positif keberagaman dalam masyarakat Indonesia antara lain...

a.Menjadi daya tarik oramg asing untuk menyelidiki alam Indonesia

b.Menjadi daya tarik orang asing untuk memberikan bantuan kepada Indonesia

c.Memudahkan pemerintah didalam mengatur masyarakat

d.Menjadi daya tarik wisatawan asing untuk berkunjung ke Indonesia.

4.Keberagaman di masyarakat harus dipupuk dan dilestarikan, jangan dijadikan sebagai pembeda, tetapi merupakan kekayaan bangsa. Hal ini bertujuan...

a.Memperkaya nilai-nilai budaya dari tiap-tiap daerah

b.Agar dapat bersaing dengan budaya asing yang masuk

c.Mewujudkan persatuan dan kesatuan Negara Republik Indonesia

d.Membersatukan budaya yang ada di satu lingkup wilayah.

5.Masyarakat Indonesia memiliki keberagaman ras, disebabkan oleh...

a.Kedatangan bangsa asing ke wilayah Indonesia

b.Kedatangan bangsa asing ke daerah khatulistiwa

c.Kedatangan bangsa-bangsa suku-suku di wilayah Indonesia

d.Kedatangan suku asing di wilayah Indonesia

6.Berikut ini yang bukan merupakan ciri-ciri suku bangsa adalah...

a.Secara tertutup berkembang biak dalam kelompoknya

b.Sekumpulan manusia yang tidak mempunyai adat istiadat

c.Mewujudkan arena komunikasi dan interaksi

d.Memiliki nilai-nilai dasar yang terwujid dan tercermin dalam kebudayaan.

7.Ciri-ciri fisik dalam penggolongan ras dapat berupa ……

a.Warna kulit, bentuk mata, jenis rambut

b.Bentuk rumah, mata pencaharian, lagu daerah

c.Bentuk gigi, bentuk telinga, bentuk senjata

d.Pakaian yang dikenakan, bentuk tangan dan kaki

8.Berikut ini yang bukan merupakan ras yang ada di Indonesia adalah...

a.Malayan mongoloid

b.Melanosoid

c.Kaukasoid

d.Austroloid

9.Bentuk perilaku toleransi kehidupan dalam keberagaan agama diantaranya diwujudkan dalam bentuk memberi kebebasan orang lain dalam...

a.Membangun rumah tempat tinggal

b.Mewujudkan kebersihan lingkungan

c.Menjalankan ibadah sesuai agama/kepercayaannya

d.Mengatasi korban bencana alam

10.Perhatikan pernyataan berikut ini :

(1)Menghormati kebiasaan yang sering dilakukan tetangga

(2)Menerima perbedaan logat berbicara seseorang yang berbeda daerah

(3)Menghargai tradisi atau kebiasaan orag lain yang berbeda dengan diri kita

(4)Menghormati kepercayaan orang lain yang berbeda dengan keyakinan kita.

(5)Memberikan ruang yang sama antara laki-laki dan perempuan ketika melakukan pekerjaan.

Pernyataan yang mencerminkan sikap toleransi dalam berbudaya di masyarakat ditunjukan dengan nomor...

a.(1), (2) dan (3)

b.(1), (2) dan (5)

c.(2), (3) dan (4)

d.(3), (4) dan (5)

11.Perhatikan pernyataan berikut ini:

(1)Melaksanakan ibadah sesuai dengan agama dan keyakinannya

(2)Menghargai dan menghormati orang lain yang sedang melakukan kegiatan keagamaan

(3)Membantu orang lain atau tetangga yang akan melakukan upacara adat dari daerahnya

(4)Memberikan perhatian kepada orang kurang mampu dengan latar budaya yang berbeda

(5)Mengikuti latihan tari saman meskipun bukan dari daerahnya

Perilaku yang menunjukan keberagaman budaya ditunjukkan oleh nomor...

a.(1), (2) dan (3)

b.(1), (2) dan (5)

c.(2), (3) dan (4)

d.(3), (4) dan (5)

12.Pak RT mengajak semua warganya untuk melakukan kerja bakti membersihkan saluran air di lingkungan sekitarnya. Dilingkungan tersebut, warganya terdiri dari berbagai lapisan masyarakat, semua warga turut serta dalam kegiatan kerja bakti ini tanpa melihat latar belakang pendidikan dan pekerjaan mereka. Sikap toleransi yang diperlihatkan semua warga adapak toleransi terhadap keberagaman ....

a.Suku

b.Agama

c.Ras

d.Antar golongan

13.Kerja sama penting terjadi dalam kehidupan bersama karena...

a.Melatih kepercayaan diri

b.Menjaga hubungan baik antar manusia

c.Menyadarkan masyarakat untuk mendahulukan kepentingan umum

d.Manusia perlu menyesuaikan diri dengan lingkungan dan masyarakat

14.Pelaksanaan kerjasama yang ada dalam kehidupan masyarakat tercermin dalam pancasila, yaitu sila ke...

a.Satu

b.Dua

c.Tiga

d.empat

15.Berikut ini yang bukan merupakan arti penting kerjasama dalam kehidupan bersama adalah...

a.Dapat menciptakan kerukunan

b.Memupuk rasa kebersamaan

c.Menumbuhkan rasa persatuan dan kesatuan

d.Adanya kecenderungan mencapai kesejahteraan

16.Manfaat kerja sama atau gotong royong dalam masyarakat adalah....

a.Semua pekerjaan dapat diselesaikan

b.Menghilangkan ketergantungan kepada pemerintah

c.Mendidik pemuda tidak suka menjadi pengangguran

d.Pekerjaan yang berat akan menjadi ringan

17.Kerja sama antarumat agama bukan dalam hal keyakinan agama tetapi lebih pada upaya menciptakan kerukunan hidup antarpemeluk agama dengan mengembangkan sikap...

a.Saling memberi dan mempertahankan

b.Saling hormat-menghormati dan toleransi

c.Saling hormat-menghormati dan mawas diri

d.Saling membantu dan mengawasi

18.Berikut ini yang bukan merupakan kegiatan gotong royong demi kepentingan umum adalah...

a.Membersihkan lingkungan sekitar

b.Membantu tetangga berjualan

c.Memperbaiki tempat ibadah

d.Memperbaiki jalan lingkungan

19.Berikut ini yang bukan merupakan kegiatan gotong royong dalah hidup berbangsa dan bernegara adalah...

a.Membayar pajak tepat waktu

b.Aktif mendukung berbagai program pemerintah

c.Dapat menyumbangkan ide dan gagasan untuk kepentingan bangsa dan negara

d.Aktif dalam kegiatan membersihkan saluran air dan tempat ibadah

20.Arti penting kerja sama dalam berbagai kehidupan di negara Indonesia antara lain dapat.....

a.Mendorong timbulnya semangat gotong royong dan kekeluargaan

b.Melatih generasi muda untuk hidup rukun di tengah-tengah masyarakat

c.Mendorong para pemuda untuk selalu hidup rukun dan damai.

d.Mendidik para pejabat negara untuk selalu memikirkan nasib rakyatnya

21.Kerja sama antaranggota masyarakat dalam berbagai bidang kehidupan dapat...

a.Memupuk persatuan para pemuda di pedesaan

b.Mengatasi kemiskinan di pedesaan

c.Memperkokoh persatuan dan kesatuan bangsa

d.Memperlancar pembangunan di daerah terpencil

22.Dalam mengembangkan sikap kerja sama di berbagai bidang kehidupan masyarakat, setiap warga negara harus menghindari sikap tidak terpuji misalnya sikap individualis, yaitu sifat yang.....

a.Kurang memperhatikan orang lain

b.Lebih mengutamakan orang lain

c.Lebih mendahulukan kepentingan sendiri

d.Suka merendahkan orang lain

23.Berikut ini yang bukan merupakan kerjasama di sekolah adalah...

a.Melaksanakan upacara bendera

b.Melaksanakan piket kelas

c.Melaksanakan lomba kebersihan kelas

d.Menunggu teman yang pintar menyelesaikan tugasnya.

24.Perjuangan melawan penjajah di berbagai daerah memiliki arah tujuan yang sama yaitu...

a.Kemajuan bangsa

b.Kemerdekaan bangsa

c.Ketertiban umum

d.Kesejahteraan umum

25.Peristiwa besar yang mengawali keinginan untuk bersatu dan melepaskan diri dari penjajahan adalah...

a.Proklamasi

b.Budi Utomo

c.Sumpah Pemuda

d.Perang diponegoro

26.Berikut ini yang merupakan hal-hal yang dihasilkan dalam mewujidkan persatuan dan kesatuan, kecuali...

a.Terjadinya kebersamaan

b.Tumbuh rasa kemanusiaan

c.Kekeluargaan

d.Perjuangan

27.Berikut ini yang bukan merupakan faktor yang menyebabkan kegagalan Bangsa Indonesia dalam melawan penjajah adalah....

a.Perjuangan masih bersifat kedaerahan

b.Kalah dalam persenjataan

c.Bangsa Indonesia tidak bersemangat dalam melawan penjajah

d.Belanda memiliki politik adu domba.

28.Proklamasi memiliki makna penting bagi bangsa Indonesia yaitu...

a.Akhir perjuangan bangsa Indonesia yang melelahkan

b.Jembatan emas menuju Indonesia yang lebih baik.

c.Titik puncak perjuangan Bangsa Indonesia.

d.Pemberitahuan pada dunia bahwa indonesia telah merdeka.

29.Peristiwa Rengasdengklok yang hanya terjadi satu hari memiliki makna yang sangat penting , karena....

a.Menonjolnya peran golongan muda

b.Ikut sertanya pasukan PETA

c.Terjadi sehari sebelum proklamasi kemerdekaan

d.Tersulutnya semangat para pejuang.

30.Proklamasi dibacakan oleh Ir. Soekarno sebagai tanda kemerdekaan Indonesia, adapun orang mengetik teks proklamasi tersebut adalah...

a.M. Hatta

b.Latief Hendradiningrat

c.Sayuti Melik

d.Suhud

31.Pembacaan Proklamasi Kemerdekaan Indonesia dilakukan di...

a.Rengasdengklok

b.Lapangan Ikada

c.Kediaman Soekarno

d.Rumah Laksamana Maeda

32.Berikut ini yang bukan merupakan daerah di Indonesia yang menyandang status otonomi khusus arau Istimewa...

a.Pemerintah Aceh

b.DKI Jakarta

c.Yogjakarta

d.Maluku

33.Mengolah kekayaan alam dengan menjaga ekosistem guna meningkatkan kesejahteraan rakyat termasuk sikap dalam mempertahankan Negara Kesatuan Republik Indonesia adalah...

a.Cinta tanah air

b.Rela berkorban

c.Membina persatuan dan kesatuan

d.Semangat kebangsaan.

34.Urusan pemerintahan yang tidak diserahkan kepada daerah tetapi tetap dipegang oleh pemerintah pusat adalah urusan...

a.Kebudayaan dan pariwisata

b.Pariwisata dan perdagangan

c.Hubungan luar negeri dan pertahanan

d.Kesehatan dan pendidikan

35.Pelimpaham kekuasaan pemerintah pusat kepada seorang gubernur adalah penerapan dari asas...

a.Otonomi

b.Desentralisasi

c.Dekonsentrasi

d.Tugas pembantuan

36.Berikut ini yang merupakan hak daerah dalam menyelenggarakan otonomi daerah adalah....

a.Mengelola seluruh kekayaan alam sesuai aspirasi masyarakat di daerah

b.Mengadakan hubungan luar negeri dengan ijin presiden

c.Mengangkat tentara dan politisi sesuai kebutuhan daerahnya masing-masing

d.Mengatur dan mengurus sendiri urusan pemerintahannya.

37.Otonomi daerah adalah kewenangan daerah otonomi untuk mengatur dan mengurus kepentingan masyarakat setempat menurut prakarsa sendiri berdasarkan....

a.Kehendak masyarakat dan para pejabat di daerah

b.Kehendak para wakil rakyat (DPRD) dan pemerintah daerah.

c.Aspirasi masyarakat sesuai dengan peratuan perundang-undangan

d.Anjuran pemerintah pusat untuk disesuaikan dengan kondisi daerah.

38.Kemakmuran yang ingin diwujudkan oleh bangsa Indonesia adalah kemakmuran bagi...

a.Seluruh lapisan masyarakat diseluruh daerah di Indonesia

b.Seluruh penduduk yang bertempat tinggal di Indonesia

c.Lapisan masyarakat yang bertempat tinggal di pedesaan

d.Semua golongan yang menghendaki kemajuan.

39.Berikut ini peran serta atau partisipasi siswa dalam mempertahankan NKRI adalah....

a.Menciptakan kedamaian dan keamanan dilingkungan sekolah

b.Membantu polisi dalam memburu para penjahat

c.Ikut siskamling setiap malam minggu

d.Bercita-cita menjadi tentara

40.Sikap yang mencerminkan adanya kesediaan dan keikhlasan memberikan sesuatu yang dimiliki untuk orang lain disebut sikap...

a.Cinta tanah air

b.Rela berkorban

c.Membina persatuan dan kesatuan

d.Semangat kebangsaan.

Read more »

Tamsil oh Tamsil

Tamsil oh Tamsil
Oleh : Yulis Riyadi

Keriuhan minggu ini dikalangan guru, khususnya guru honorer adalah tentang pembayaran atau pencairan honor tambahan penghasilan atau Tamsil. Tidak dipungkiri banyak sekali guru honorer yang sangat menanti nanti dan harap harap cemas (seperti acara tv yang pernah tayang sudah lama sekali ..hehe) apalagi bulan ini sudah masuk bulan Puasa atau Ramadhan dimana honor ini akan sangat membantu kelancaran asupan selama menjalani sahur dan buka puasa, lebih jauh lagi mungkin untuk persiapan Lebaran 1 Syawal 1440 Hijriyah.

Penghasilan ini ditujukan untuk guru guru honorer yang tidak mendapatkan bantuan apapun dari pos manapun selain honor mengajar di sekolah termasuk Tenaga Administrasi Sekolah bahkan penjaga sekolah dan Satpam Sekolah pun dikabarkan ada yang mendapatkan juga.  Penghasilan ini diberikan oleh pemerintah Kotamadya Bandung sebagai inisiatif dalam memberi kesejahteraan pada guru honorer bahkan pemerintah kota memberikan payung hukumnya yaitu Peraturan Walikota Bandung no 14 tahun 2019.

Namun permasalahan tetap saja terjadi karena dinilai tidak bisa mewadahi semua aspirasi guru honorer (diberikan santunan..hehe) karena tidak semua guru hororer masuk kedalam kriteria yang dimaksudkan dalam perwal tersebut. Sudah seharusnya setiap guru mendapatkan tambahan penghasilan tanpa harus melewati kriteria yang terlalu rumit, karena pemerintah sudah banyak terbantu oleh para pahlawan tanpa tanpa jasa ini. Keluhan yang tidak berujung ini membuat sebagian guru honorer menyarankan lebih baik kembali saja ke format seperti Tunjangan Daerah atau Dana Hibah sebelumnya yang tidak terlalu rumit prosedurna, karena menurut mereka “teu nanaon saeutik oge nu penting mah lancar jeung kabagean sarerea”. Tentu saja akan lain cerita untuk guru honorer yang sudah masuk kriteria karena akan terjadi pengurangan hhonorarium yang signifikan. Belum lagi dijanjikan bahwa yang lulusan S1 dan linier akan mendapatkan tunjangan (katanya) sebesar UMK dan yang tidak linier sedikit dibawah UMK ini akan sangat merugikan lagi karena ini cukup banyak pesertanya.  Tapi ada sedikit pertanyaan kenapa Tenaga Administrasi Sekolah tidak disebutkan linier dan tidak linier. Bahkan kalau satpam sekolah pun seharusnya punya sertifikat pendidikan satpam (peace pak satpam..hehe) untuk yang menerima honor tambahan.

Permasalahan lainnya adalah guru honorer yang tadinya dapat honor tambahan tiba tiba tahun ini tidak mendapatkan lagi karena tercoret dari database dengan alasan belum jelas. Seharusnya kalau sudah menerima jangan sampai tercoret lagi karena menurut penulis kalau sudah masuk kriteria sebelumnya, kemudian untuk yang belum masuk kriteria  segera dicarikan cara agar “teu ngegel curuk teuing” (maaf bahasa sunda..hehe), karena tidak baik kita bersenang senang sementara sebagaian honorer lainnya hanya menelan air liur saja.  Selain itu juga ada sekitar kurang lebih 900 orang guru honorer dan TAS  serta satpam yang harus mengajukan ulang berkas ke Dinas Pendidikan Kota mungkin untuk melengkapi kekurangan data.

Tapi menurut Forum Guru Honorer setidaknya ada beberapa kendala yang terdeteksi yang mungkin bisa dicarikan solusinya, diantaranya adalah :
1. Karena tidak sinkron dapodik pada Disdik Sync di bulan Nop 2018 ter delete
2. Jumlah jam kurang 24 jam di sekolah Induk, padahal bila digabung dengan sekolah Non Induk bisa lebih dari 24 jam. Akhirnya ter delete
3. Jumlah Rombel sekolah yang sedikit karena tidak memenuhi 24 jam guru2 dan TAS nya. Akhirnya ter Delete
4. Guru Tidak S1/D4 meskipun masa kerja sudah lama. Akhirnya ter delete
5. Rasio Murid Paud Formal TK Harus 15:1, jika kurang di Delete, tapi PAUD Non Formal Rasio Murid 8-12 tidak  di Delete.
6. Paud Formal TK harus S1 tidak S1 di Delet, Paud Non Formal SMA tidak di delete.
7. Dulu yang sudah Sertifikasi masih bisa menerima sekarang di delete, Padahal anggarannya berbeda, yang sertifikasi dari Pusat, yang Hotam dari APBD.
8. SK awalnya dari tahun 2017 biasanya tahun kmarin dapat, sekarang tidak
9. Tidak ada nya kesempatan memperbaharui data. Data langsung di block.

Penulis sangat bersimpati terhadap guru honor yang selalu luput dari bantuan bahkan ada yang sudah masuk semua kriteria tapi tetap saja tidak dapat bantuan, mungkin ini sudah jalannya harus begitu, sabar saja ya bapak/ibu guru karena rejeki milik Allah bukan milik Mang Oded apalagi milik dinas (hehe..). Untuk sedikit memberi solusi untuk membantu Mang Oded lancar dalam  membuat sistem yang sederhana dan praktis mengenai pemberian tambahan penghasilan bagi guru honorer dan TAS.
1.Honor dasar ( misal 300 ribu rupiah/bulan seperti hibah ..lebih besar lebih bagus..hehe)
2.Honor masa kerja/pengabdian (misal pertahun 50 ribu kalau terlalu besar ya 25 ribu..hehe)
3.honor lulusan (misal : s1/d4  - 500rb, d3 – 400rb, sma – 300rb) non linier kurangi 50rb..
4.honor lainnya (lanjutkan jika adalagi) misal : makan minum,  transport, kreativitas dll.
Di jamin dengan sistem ini mungkin tidak akan ada yang terdelete. 😁

Dengan sistim sederhana ini setidaknya akan mengembalikan ke jalan yang benar (back to school 🙂) guru guru honorer yang memilik menjadi ojek profesional sebagai pengganti penghasilan dimana mereka tidak mendapatkan Tamssil tahun ini dengan berbagai alasan.

“Berhentilah mencari kekurangan guru honorer tapi hargailah kelebihannya”

Read more »

Tugas 9 - Pemrograman Web

Tuliskan nama, kelas dan hyperlink pada kolom komentar dibawah ini..

Read more »

Tugas 8 Pemrograman Web

Tuliskan hyperlink, nama dan kelas!

Read more »

Tugas 7 Pemrograman Web

Tuliskan nama, kelas dan hyperlink tugas kalian!

Read more »

Tugas 6 Pemrograman web

Tuliskan hyperlink beserta nama dan kelas

Read more »

Tugas 5 Pemrograman Web - Membuat Tabel

Buatlah hyperlink halaman tabel kalian beserta nama dan kelas pada komentar dibawah ini

Read more »

Tugas Pemrograman Web-3

Tuliskan nama dan kelas kalian dibawah ini dalam bentuk hyperlink !

Read more »

Tugas Pemrograman Web-2

Tuliskan nama, kelas, dan hyperlink tugas kalian !

Read more »

Tugas Pemrograman Web - 1

Tuliskan alamat tugas web kalian pada bagian komentar..

Read more »

Pemrograman Dasar XI RPL

Materi Pokok : Array 1 Dimensi dan Array Multidimensi

Tugas :

Memahami penggunaan array 1 dimensi untuk penyimpanan data di memori
Memahami penggunaan array 2 dimensi untuk penyimpanan data di memori
Memahami penggunaan array multidimensi untuk penyimpanan data di memori
Menyajikan kumpulan data berdimensi 1 dalam bentuk array
Menyajikan kumpulan data berdimensi 2 dalam bentuk array
Menyajikan kumpulan data berdimensi banyak dalam bentuk array

Hasil pekerjaan dikumpulkan oleh KM

Selamat Mengerjakan.

Read more »

Paket Program - Mengurutkan Data

Option Explicit
Dim bar, i, j As Integer
Dim newbar As Integer
Dim Totalbar  As Integer
Dim tmpnama() As String
Dim tmpalamat() As String
Dim tmpkelas() As String
Dim tmplahir() As String
Dim tmptxt As String
Dim Pilih As Integer

Private Sub Command1_Click()
LihatSort.Show
End Sub

Private Sub Command6_Click()
Open "sorting.txt" For Output As #1

For i = 1 To Totalbar

   For j = i To Totalbar
   Select Case Pilih
   Case 0
   If tmpnama(i) < tmpnama(j) Then sorting  ' nama ascending
   Case 1
   If tmpnama(i) > tmpnama(j) Then sorting  ' nama descending
  
   Case 2
   If Val(tmpkelas(i)) < Val(tmpkelas(j)) Then sorting  ' kelas ascending
   Case 3
   If Val(tmpkelas(i)) > Val(tmpkelas(j)) Then sorting  ' kelas descending
  
   Case 4
   If tmpalamat(i) < tmpalamat(j) Then sorting  ' alamat ascending
   Case 5
   If tmpalamat(i) > tmpalamat(j) Then sorting  ' alamat descending

   Case 6
   If Val(tmplahir(i)) < Val(tmplahir(j)) Then sorting  ' lahir ascending
   Case 7
   If Val(tmplahir(i)) > Val(tmplahir(j)) Then sorting  ' lahir descending


   End Select
     
  Next j
  Write #1, tmpnama(i), tmpkelas(i), tmpalamat(i), tmplahir(i)

Next i
  Close #1
  LihatRec (bar)

End Sub

Private Sub Form_Load() ' sorting load data
Me.Top = FormUtama.Top
Me.Left = FormUtama.Width + FormUtama.Left + 10
Totalbar = 30
ReDim tmpnama(Totalbar)
ReDim tmpalamat(Totalbar)
ReDim tmpkelas(Totalbar)
ReDim tmplahir(Totalbar)

bar = 1
Open "datasiswa.txt" For Input As #1
Do While Not EOF(1)
  
   Input #1, tmpnama(bar), tmpkelas(bar), tmpalamat(bar), tmplahir(bar)
   bar = bar + 1
  
Loop
   Totalbar = bar - 1
Close #1

  'LihatRec (Totalbar)
End Sub
Sub sorting()
   tmptxt = tmpnama(i)
   tmpnama(i) = tmpnama(j)
   tmpnama(j) = tmptxt
  
   tmptxt = tmpkelas(i)
   tmpkelas(i) = tmpkelas(j)
   tmpkelas(j) = tmptxt
  
   tmptxt = tmpalamat(i)
   tmpalamat(i) = tmpalamat(j)
   tmpalamat(j) = tmptxt
  
   tmptxt = tmplahir(i)
   tmplahir(i) = tmplahir(j)
   tmplahir(j) = tmptxt
End Sub
 Sub LihatRec(bar As Integer)

Text1.Text = tmpnama(bar)
Text2.Text = tmpkelas(bar)
Text3.Text = tmpalamat(bar)
Text4.Text = tmplahir(bar)

End Sub
Private Sub CommandSebelum_Click(Index As Integer)
bar = bar - 1

If bar <= 1 Then bar = 1

LihatRec (bar)

End Sub

Private Sub CommandSelanjutnya_Click(Index As Integer)
bar = bar + 1

If bar >= Totalbar Then bar = Totalbar

LihatRec (bar)

End Sub


Private Sub Option1_Click()
Pilih = 0
End Sub

Private Sub Option2_Click()
Pilih = 1
End Sub

Private Sub Option3_Click()
Pilih = 2
End Sub

Private Sub Option4_Click()
Pilih = 3
End Sub

Private Sub Option5_Click()
Pilih = 4
End Sub

Private Sub Option6_Click()
Pilih = 5
End Sub

Private Sub Option7_Click()
Pilih = 6
End Sub

Private Sub Option8_Click()
Pilih = 7
End Sub

=======================================






Option Explicit

Private Sub Command1_Click()
  Unload Me
End Sub

Private Sub Form_Load()
Me.Top = FormUtama.Top
Me.Left = FormUtama.Width + FormUtama.Left + 10
Dim nama, kelas, alamat, lahir As String
 Dim bar As Integer
 Dim tinggi
 tinggi = Text_nama(1).Height + 20
 bar = 1
 Label5.Alignment = 2
 Open "d:\sorting.txt" For Input As #1
Do While Not EOF(1)
   Debug.Print "Bar : "; bar
   Input #1, nama, kelas, alamat, lahir
  
   If bar = 1 Then
   Text_nama(1).Text = nama
   Text_kelas(1).Text = kelas
   Text_alamat(1).Text = alamat
   Text_lahir(1).Text = lahir
   End If
  
   If bar > 1 Then
    
    Load Text_nama(bar)
    Text_nama(bar).Visible = True
    Text_nama(bar).Left = Text_nama(bar - 1).Left
    Text_nama(bar).Top = Text_nama(bar - 1).Top + tinggi
    Text_nama(bar).Text = nama '&H00C0E0FF&
       
    Load Text_kelas(bar)
    Text_kelas(bar).Visible = True
    Text_kelas(bar).Left = Text_kelas(bar - 1).Left
    Text_kelas(bar).Top = Text_kelas(bar - 1).Top + tinggi
    Text_kelas(bar).Text = kelas
   
    Load Text_alamat(bar)
    Text_alamat(bar).Visible = True
    Text_alamat(bar).Left = Text_alamat(bar - 1).Left
    Text_alamat(bar).Top = Text_alamat(bar - 1).Top + tinggi
    Text_alamat(bar).Text = alamat
   
    Load Text_lahir(bar)
    Text_lahir(bar).Visible = True
    Text_lahir(bar).Left = Text_lahir(bar - 1).Left
    Text_lahir(bar).Top = Text_lahir(bar - 1).Top + tinggi
    Text_lahir(bar).Text = lahir
    
    Load No(bar)
    No(bar).Visible = True
    No(bar).Left = No(bar - 1).Left
    No(bar).Top = No(bar - 1).Top + tinggi
    No(bar).Caption = bar
    End If
   
    If bar Mod 2 = 0 Then
    Text_nama(bar).BackColor = &H8000000F  '&HC0E0FF
    Text_kelas(bar).BackColor = &H8000000F '&HC0E0FF
    Text_alamat(bar).BackColor = &H8000000F '&HC0E0FF
    Text_lahir(bar).BackColor = &H8000000F '&HC0E0FF
    End If
   
    bar = bar + 1
Loop
  
Close #1
  Me.Height = 1500 + Text_nama(bar - 1).Top
 Command1.Top = Text_nama(bar - 1).Top + 500

End Sub

Read more »

Posted in: Paket Program,Pemrograman

Paket Program - Pencarian Data

 

Option Explicit
Dim bar
Dim Totalbar  As Integer
Dim tmpnama() As String
Dim tmpalamat() As String
Dim tmpkelas() As String
Dim tmplahir() As String

Private Sub Command6_Click()
Dim pj As Integer
Dim i
pj = Len(Text6.Text)
For i = 1 To Totalbar
 If Mid$(UCase$(tmpnama(i)), 1, pj) = UCase$(Text6.Text) Then
  Debug.Print "Ketemu"
  Exit For
  End If
Next i
  LihatRec (i)

End Sub

Private Sub Form_Load() ' cari data
Me.Top = FormUtama.Top
Me.Left = FormUtama.Width + FormUtama.Left + 10
Totalbar = 1
ReDim tmpnama(Totalbar)
ReDim tmpalamat(Totalbar)
ReDim tmpkelas(Totalbar)
ReDim tmplahir(Totalbar)

bar = 1
Open "d:\datasiswa.txt" For Input As #1

Do While Not EOF(1)
   Input #1, tmpnama(bar), tmpkelas(bar), tmpalamat(bar), tmplahir(bar)
   Debug.Print bar
   bar = bar + 1
   If bar > Totalbar Then
      ReDim Preserve tmpnama(bar)
      ReDim Preserve tmpalamat(bar)
      ReDim Preserve tmpkelas(bar)
      ReDim Preserve tmplahir(bar)
      End If
Loop
    Totalbar = bar - 1
Close #1
LihatRec (Totalbar)
Debug.Print UBound(tmpnama)
End Sub
 Sub LihatRec(bar As Integer)

Text1.Text = tmpnama(bar)
Text2.Text = tmpkelas(bar)
Text3.Text = tmpalamat(bar)
Text4.Text = tmplahir(bar)
Text5.Text = bar


End Sub
Private Sub CommandSebelum_Click(Index As Integer)

bar = bar - 1
If bar <= 1 Then bar = 1
LihatRec (bar)

End Sub

Private Sub CommandSelanjutnya_Click(Index As Integer)

bar = bar + 1
If bar >= Totalbar Then bar = Totalbar
LihatRec (bar)

End Sub

Private Sub Text5_Change()
LihatRec (Val(Text5.Text))
End Sub


Private Sub Text6_Change()  'advance search
Dim pj As Integer
Dim i
pj = Len(Text6.Text)
For i = 1 To Totalbar
 If Mid$(UCase$(tmpnama(i)), 1, pj) = UCase$(Text6.Text) Then
  Debug.Print "Ketemu"
  Exit For
  End If
Next i
  LihatRec (i)
End Sub

Read more »

Posted in: Paket Program,Pemrograman

Paket Program - Tampilkan Data

 
Option Explicit

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.Top = FormUtama.Top
Me.Left = FormUtama.Width + FormUtama.Left + 10

Dim nama, kelas, alamat, lahir As String
 Dim bar As Integer
 Dim tinggi
 tinggi = Text_nama(1).Height + 20
 bar = 1
 Label5.Alignment = 2
Open "datasiswa.txt" For Input As #1
Do While Not EOF(1)

   Input #1, nama, kelas, alamat, lahir
  
   If bar = 1 Then
   Text_nama(1).Text = nama
   Text_kelas(1).Text = kelas
   Text_alamat(1).Text = alamat
   Text_lahir(1).Text = lahir
   End If
  
   If bar > 1 Then
    Load Text_nama(bar)
    Text_nama(bar).Visible = True
    Text_nama(bar).Left = Text_nama(bar - 1).Left
    Text_nama(bar).Top = Text_nama(bar - 1).Top + tinggi
    Text_nama(bar).Text = nama '&H00C0E0FF&
       
    Load Text_kelas(bar)
    Text_kelas(bar).Visible = True
    Text_kelas(bar).Left = Text_kelas(bar - 1).Left
    Text_kelas(bar).Top = Text_kelas(bar - 1).Top + tinggi
    Text_kelas(bar).Text = kelas
   
    Load Text_alamat(bar)
    Text_alamat(bar).Visible = True
    Text_alamat(bar).Left = Text_alamat(bar - 1).Left
    Text_alamat(bar).Top = Text_alamat(bar - 1).Top + tinggi
    Text_alamat(bar).Text = alamat
   
    Load Text_lahir(bar)
    Text_lahir(bar).Visible = True
    Text_lahir(bar).Left = Text_lahir(bar - 1).Left
    Text_lahir(bar).Top = Text_lahir(bar - 1).Top + tinggi
    Text_lahir(bar).Text = lahir

    
    Load No(bar)
    No(bar).Visible = True
    No(bar).Left = No(bar - 1).Left
    No(bar).Top = No(bar - 1).Top + tinggi
    No(bar).Caption = bar
    End If
   
    If bar Mod 2 = 0 Then
    Text_nama(bar).BackColor = &H8000000F  '&HC0E0FF
    Text_kelas(bar).BackColor = &H8000000F '&HC0E0FF
    Text_alamat(bar).BackColor = &H8000000F '&HC0E0FF
    Text_lahir(bar).BackColor = &H8000000F '&HC0E0FF

    End If
   
    bar = bar + 1
Loop
  
Close #1
  Me.Height = 1500 + Text_nama(bar - 1).Top
  Command1.Top = Text_nama(bar - 1).Top + 500
 End Sub

Read more »

Posted in: Paket Program,Pemrograman

Paket Program - Menghapus Data

Option Explicit
Dim bar
Dim newbar
Dim Totalbar  As Integer
Dim tmpnama() As String
Dim tmpalamat() As String
Dim tmpkelas() As String
Dim tmplahir() As String

Private Sub Command6_Click()
newbar = 1
Open "d:\datasiswa.txt" For Output As #1
Do While newbar < Totalbar
   If newbar >= bar Then
  
   tmpnama(newbar) = tmpnama(newbar + 1): tmpkelas(newbar) = tmpkelas(newbar + 1)
   tmpalamat(newbar) = tmpalamat(newbar + 1): tmplahir(newbar) = tmplahir(newbar + 1)
   End If
  
   Write #1, tmpnama(newbar), tmpkelas(newbar), tmpalamat(newbar), tmplahir(newbar)

   newbar = newbar + 1
Loop
  Totalbar = Totalbar - 1
  Close #1
       Text1.Text = " ": Text2.Text = " ": Text3.Text = " ": Text4.Text = " "

 End Sub

Private Sub Form_Load()
Me.Top = FormUtama.Top
Me.Left = FormUtama.Width + FormUtama.Left + 10
Totalbar = 30
ReDim tmpnama(Totalbar + 1)
ReDim tmpalamat(Totalbar + 1)
ReDim tmpkelas(Totalbar + 1)
ReDim tmplahir(Totalbar + 1)

bar = 1
Open "datasiswa.txt" For Input As #1
Do While Not EOF(1)
  
   Input #1, tmpnama(bar), tmpkelas(bar), tmpalamat(bar), tmplahir(bar)
   bar = bar + 1
  
Loop
    Totalbar = bar - 1
Close #1
LihatRec (Totalbar)
End Sub
 Sub LihatRec(bar As Integer)

Text1.Text = tmpnama(bar)
Text2.Text = tmpkelas(bar)
Text3.Text = tmpalamat(bar)
Text4.Text = tmplahir(bar)

End Sub
Private Sub CommandSebelum_Click(Index As Integer)
bar = bar - 1

If bar <= 1 Then bar = 1

LihatRec (bar)

End Sub

Private Sub CommandSelanjutnya_Click(Index As Integer)
bar = bar + 1

If bar >= Totalbar Then bar = Totalbar

LihatRec (bar)

End Sub

Read more »

Posted in: Paket Program,Pemrograman