TRIK BELAJAR BAHASA PEMROGRAMAN

Permendikbud Nomor 68 Tahun 2014. Pada Permen ini mengatur tentang peran guru TIK pada Kurikulum 2013. Berikut ini peranan guru TIK pada kurikulum 2013 yaitu :

1. membimbing peserta d i d i k pada SMP/MTs, SMA/MA, SMK/MAK, atau yang sederajat untuk mencapai standar kompetensi lulusan pendidikan dasar dan menengah.
2. memfasilitasi sesama g u r u pada SMP/MTs, SMA/MA, SMK/MAK, atau yang sederajat dalam menggunakan TIK untuk persiapan, pelaksanaan, dan penilaian pembelajaran pada pendidikan dasar dan menengah; dan
3. memfasilitasi tenaga kependidikan pada SMP/MTs, SMA/MA, SMK/MAK, atau yang sederajat dalam mengembangkan sistem manajemen sekolah berbasis TIK.

Sedangkan kewajiban guru TIK adalah sebagai berikut :

1. membimbing peserta didik SMP/MTs, SMA/MA, SMK/MAK, atau yang sederajat untuk mencari, mengolah, menyimpan, menyajikan, serta menyebarkan data dan informasi dalam berbagai cara untuk mendukung kelancaran proses pembelajaran;
2. memfasilitasi sesama guru SMP/MTs, SMA/MA, SMK/MAK, atau yang sederajat untuk mencari, mengolah, menyimpan, menyajikan, serta menyebarkan data dan informasi dalam berbagai cara untuk persiapan, pelaksanaan, dan penilaian pembelajaran; dan
3. memfasilitasi tenaga kependidikan SMP/MTs, SMA/MA, SMK/MAK, atau yang sederajat untuk mengembangkan sistem manajemen sekolah berbasis TIK.

Mengenai Beban kerja guru TIK melakukan pembimbingan paling sedikit 150 (seratus lima puluh) peserta didik per tahun pada 1 (satu) atau lebih satuan pendidikan baik secara klasikal maupun individu.
Adapun rincian kegiatan guru TIK dalam melaksanakan tugas dan tanggung jawabnya sebagai berikut :

1.  menyusun rancangan pelaksanaan layanan dan bimbingan TIK;
2. melaksanakan layanan dan bimbingan TIK per tahun;
3. menyusun alat ukur /lembar kerja program layanan d a n bimbingan TIK;
4. mengevaluasi proses dan hasil layanan dan bimbingan TIK;
5. menganalisis hasil layanan dan bimbingan TIK;
6. melaksanakan tindak lanjut hasil evaluasi dengan memperbaiki layanan dan bimbingan TIK;
7. menjadi pengawas penilaian dan evaluasi terhadap proses dan hasil belajar tingkat sekolah dan nasional;
8. membimbing peserta didik dalam kegiatan ekstrakurikuler ;
9. membimbing guru dalam penggunaan TIK;
10. membimbing tenaga kependidikan dalam penggunaan TIK;
11. melaksanakan pengembangan diri ; dan
12. melaksanakan publikasi ilmiah dan/atau membuat karya inovatif.

Demikian kejelasan mengenai permendikbud nomor 68 dan selengkapnya tentang permen ini dapat didownload disini

 Form Login merupakan salah satu Form untuk melengkapi Sebuah Program, dimana fungsi form tersebut adalah sebagai penentu layak tidak layaknya seseorang untuk memasuki halaman depan program , intinya form ini berfungsi untuk menentukan hak akses setiap pengguna dari program yang kita buat. adapun  script VB.NET untuk membuat Form Login adalah seperti dibawah ini

Private Sub frmLogin_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        End
    End Sub

    Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

    End Sub

    Private Sub login_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login_button.Click
        If Len(Trim(UserName.Text)) = 0 Then
            MessageBox.Show("Please enter user name", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            UserName.Focus()
            Exit Sub
        End If
        If Len(Trim(Password.Text)) = 0 Then
            MessageBox.Show("Please enter password", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Password.Focus()
            Exit Sub
        End If
        Try
            Dim myConnection As OleDbConnection
            myConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\SI_DB.accdb;Persist Security Info=False;")

            Dim myCommand As OleDbCommand

            myCommand = New OleDbCommand("SELECT Username,user_password FROM Users WHERE username = @username AND user_password = @UserPassword", myConnection)

            Dim uName As New OleDbParameter("@username", SqlDbType.VarChar)

            Dim uPassword As New OleDbParameter("@UserPassword", SqlDbType.VarChar)

            uName.Value = UserName.Text

            uPassword.Value = Password.Text

            myCommand.Parameters.Add(uName)

            myCommand.Parameters.Add(uPassword)

            myCommand.Connection.Open()

            Dim myReader As OleDbDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)

            Dim Login As Object = 0

            If myReader.HasRows Then

                myReader.Read()

                Login = myReader(Login)

            End If

            If Login = Nothing Then

                MsgBox("Login is Failed...Try again !", MsgBoxStyle.Critical, "Login Denied")
                UserName.Clear()
                Password.Clear()
                UserName.Focus()

            Else

                ProgressBar1.Visible = True
                ProgressBar1.Maximum = 5000
                ProgressBar1.Minimum = 0
                ProgressBar1.Value = 4
                ProgressBar1.Step = 1

                For i = 0 To 5000
                    ProgressBar1.PerformStep()
                Next

                FrmMain.ToolStripStatusLabel2.Text = UserName.Text
                Me.Hide()

                FrmMain.Show()

            End If
            myCommand.Dispose()
            myConnection.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Me.Hide()
        frmChangePassword.Show()
        frmChangePassword.UserName.Text = ""
        frmChangePassword.OldPassword.Text = ""
        frmChangePassword.NewPassword.Text = ""
        frmChangePassword.ConfirmPassword.Text = ""
        frmChangePassword.UserName.Focus()
    End Sub

    Private Sub LinkLabel2_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Me.Hide()
        frmPasswordRecovery.Show()
    End Sub
End Class

Tampilan Awal Program setelah Login

Tampilan Form Penjualan

Tampilan Form Pembelian

Yang Berminat silahkan menghubungi Nomor Telpon/HP 081918497174
atau melalui via e-mail:spheares@gmail.com