Pemrograman Dasar XI RPL

Materi Pokok : Array 1 Dimensi dan Array Multidimensi Tugas : Memahami penggunaan array 1 dimensi untuk penyimpanan data di memoriMemahami penggunaan array 2 dimensi untuk penyimpanan data di memoriMemahami penggunaan array multidimensi untuk penyimpanan data di memoriMenyajikan kumpulan data berdimensi 1 dalam bentuk arrayMenyajikan kumpulan data berdimensi 2 dalam bentuk arrayMenyajikan kumpulan data berdimensi banyak dalam bentuk array Hasil pekerjaan dikumpulkan oleh KM Selamat Mengerjak...

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 ...

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),...

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)    ...

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       ...

Read more »

Posted in: Paket Program,Pemrograman

Paket Program - Perbaikan 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() tmpnama(bar) = Text1.Text tmpkelas(bar) = Text2.Text tmpalamat(bar) = Text3.Text tmplahir(bar) = Text4.Text Dim newbar As Integer newbar = 1 Open "d:\datasiswa.txt" For Output As #1 Do While newbar <= Totalbar       Write #1, tmpnama(newbar), tmpkelas(newbar), tmpalamat(newbar), tmplahir(newbar)    newbar = newbar + 1 Loop Close #1 LihatRec (bar) End Sub Private Sub Form_Load() ' perbaikan data Me.Top = FormUtama.Top Me.Left = FormUtama.Width + FormUtama.Left + 10 Totalbar = 30 ReDim tmpnama(Totalbar + 1) ReDim tmpalamat(Totalbar...

Read more »

Posted in: Paket Program,Pemrograman

Paket Program - Masukan Data

  Option Explicit Private Sub Command5_Click()   Dim nama As String   Dim kelas As String   Dim alamat As String   Dim lahir As String nama = Text1.Text kelas = Text2.Text alamat = Text3.Text lahir = Text4.Text     Open "datasiswa.txt" For Append As #1     Write #1, nama, kelas, alamat, lahir     Close #1          Text1.Text = " ": Text2.Text = " ": Text3.Text = " ": Text4.Text = " " End ...

Read more »

Posted in: Paket Program,Pemrograman