Tutorial Setting Mikrotik

1.

2.

3.

4. Jika muncul seperti dibawah isi dengan admin dan password dikosongkan saja.

5. Langkah pertama adalah tulis system identity

6. Untuk merubah nama router, seperti dibawah : set name=router_(nama yg kita inginkan)

7. untuk setting password: set 0 password=123456789. kita isi saja 1-9

8.

9.

10.

Continue

Tutorial Install Mikrotik di Virtual Box

Assalamualaikum semuanya :) selamat siang...kali ini aku mau kasih tutorial cara Install Mikrotik di Virtual Box. Biarpun kondisi badan sedang tidak fit karena cuaca yang gak bisa diprediksi tapi tetap semangat menjalankan aktivitas sehari hari yaa... Langsung aja yuk....

1. Langkah pertama yg harus anda lakukan adalah mendownload terlebih dahulu mikrotiknya, caranya buka link ( www.routeros.co.id )

2. Selanjutnya pilih versi 5.26

3. Lalu pilih mikrotik-5.26.iso setelah itu klik download.

4. Setelah selesai mendownload, buka Virtual Box anda.

5. pilih baru/new

6. isi nama partisi nya. Disini saya menggunakan ( mikrotik-neng ) sesuai dengan nama saya :)

7. klik lanjut

8. Pilih buat hard disk virtual sekarang. Lalu pilih Buat.

 9.Pilih VDI (Virtual Disk Image), lalu Next/Lanjut.

10.Langkah selanjutnya pilih Dialokasikan secara unik, lalu Next

 11. Lalu browse file mikrotik yg tadi anda download. Pastikan sudah terpilih, lalu klik Mulai.

anda telah berhasil menginstall mikrotik di virtual box. Untuk Tutorial selanjutnya :
- system identity router
- interface : eth1_ISP
- user : buat user dan password anda
- ip address
- ip router
- ip dns\
akan saya post di postingan saya selanjutnya....

Continue

Tugas Input Box, Procedure, Function

KODINGNYA :

Public Class Form1
    Dim jk As String
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        nonaktif()

    End Sub

    Sub nonaktif()
        Label1.Text = "Nama Lengkap"
        Label2.Text = "Tempat Tanggal Lahir"
        RadioButton1.Text = "Laki Laki"
        RadioButton2.Text = "Perempuan"
        Label3.Text = "Jenis Kelamin"
        Label4.Text = "Alamat"
        Label5.Text = "Nama Orangtua"
        Label6.Text = "Tinggi Badan"
        Label7.Text = "Usia"
        Label8.Text = "Berat Badan"
        Label9.Text = "Riwayat Penyakit"
        Label10.Text = ""
        Label11.Text = ""
        Label12.Text = ""
        Label13.Text = ""
        Label14.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        Button1.Text = "Tambah"
        Button2.Text = "Simpan"
        Button3.Text = "Hapus"
        Button4.Text = "Bersih"
        Button5.Text = "Tambah Data"
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        DateTimePicker1.Enabled = False
        RadioButton1.Enabled = False
        RadioButton2.Enabled = False
        TextBox3.Enabled = False
        TextBox4.Enabled = False
        Button5.Enabled = False
    End Sub

    Sub aktif()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        DateTimePicker1.Enabled = True
        RadioButton1.Enabled = True
        RadioButton2.Enabled = True
        TextBox3.Enabled = True
        TextBox4.Enabled = True
        Button5.Enabled = True
    End Sub

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

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim a As Integer
        Label10.Text = InputBox("Masukan tinggi badan anda")
        Label11.Text = InputBox("Masukan usia anda")
        Label12.Text = InputBox("Masukan berat badan anda")
        Label13.Text = InputBox("Riwayat Penyakit")
        a = ket(Label10.Text, Label12.Text)
        If a = 0 Then
            Label14.Text = "LULUS"
            Button2.Enabled = True
        ElseIf a = 1 Then
            Label14.Text = "TIDAK LULUS"
            Button2.Enabled = False
        End If
    End Sub

    Function ket(ByVal a As Integer, ByVal b As Integer)
        If a >= 180 And b <= 80 Then
            ket = 0
        Else
            ket = 1
        End If
    End Function

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If RadioButton1.Checked = True Then
            jk = "Laki Laki"
        ElseIf RadioButton2.Checked = True Then
            jk = "Perempuan"
        End If

        With ListBox1
            .Items.Add(TextBox1.Text)
            .Items.Add(TextBox2.Text)
            .Items.Add(DateTimePicker1.Text)
            .Items.Add(jk)
            .Items.Add(TextBox3.Text)
            .Items.Add(TextBox4.Text)
            .Items.Add(Label10.Text)
            .Items.Add(Label11.Text)
            .Items.Add(Label12.Text)
            .Items.Add(Label13.Text)
        End With

        nonaktif()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ListBox1.Items.Clear()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        nonaktif()
    End Sub
End Class

Continue

Tugas Enable Disable

KODINGNYA :

Public Class Form1
    Dim tawar, isi, kering As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = "Atas Nama :"
        Label2.Text = "Minuman Pendamping :"
        Button1.Text = "OK"
        Button2.Text = "Pesan"
        Button3.Text = "Hapus salah satu Menu"
        Button4.Text = "Hapus Semua Menu"
        CheckBox1.Text = "Roti Tawar"
        CheckBox2.Text = "Roti Isi"
        CheckBox3.Text = "Roti Kering"

        With Me.ComboBox1
            .Items.Add("Kopi")
            .Items.Add("Teh")
            .Items.Add("Ice Cream")
        End With

        With Me.ComboBox3
            .Items.Add("Original")
            .Items.Add("Gandum")
            .Items.Add("Pandan")
            .Items.Add("Kismis")
        End With

        With Me.ComboBox4
            .Items.Add("Roti isi Keju")
            .Items.Add("Roti isi Blueberry")
            .Items.Add("Roti isi Strawberry")
            .Items.Add("Roti isi Cokelat")
        End With

        With Me.ComboBox5
            .Items.Add("Semprit")
            .Items.Add("Nastar")
            .Items.Add("Kastengel")
            .Items.Add("Putri Salju")
        End With

        ComboBox1.Enabled = False
        ComboBox3.Enabled = False
        ComboBox4.Enabled = False
        ComboBox5.Enabled = False

        If CheckBox1.Checked = True Then
            ComboBox3.Enabled = True
        Else
            ComboBox3.Enabled = False
        End If

        If CheckBox2.Checked = True Then
            ComboBox4.Enabled = True
        Else
            ComboBox4.Enabled = False
        End If

        If CheckBox3.Checked = True Then
            ComboBox5.Enabled = True
        Else
            ComboBox5.Enabled = False
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("Anda ingin menambahkan Minuman Pendamping")
        ComboBox1.Enabled = True
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        ComboBox3.Enabled = True
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        ComboBox4.Enabled = True
    End Sub

    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        ComboBox5.Enabled = True
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If CheckBox1.Checked = True Then
            tawar = "Tawar"
        Else : tawar = ""
        End If

        If CheckBox2.Checked = True Then
            isi = "Isi"
        Else : isi = ""
        End If

        If CheckBox3.Checked = True Then
            kering = "Kering"
        Else : kering = ""
        End If
        ListBox1.Items.Add("Atas Nama :" & TextBox1.Text)
        ListBox1.Items.Add("Minuman Pendamping :" & ComboBox1.Text)
        ListBox1.Items.Add(tawar)
        ListBox1.Items.Add(ComboBox3.Text)
        ListBox1.Items.Add(isi)
        ListBox1.Items.Add(ComboBox4.Text)
        ListBox1.Items.Add(kering)
        ListBox1.Items.Add(ComboBox5.Text)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        MsgBox("Anda akan Menghapus salah satu menu pesanan")
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        MsgBox("Anda akan menghapus semua menu pesanan")
        ListBox1.Items.Clear()
    End Sub

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    End Sub
End Class

Continue

Tugas MDI

KODINGNYA :

Public Class Form1

    Private Sub PenjualanToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PenjualanToolStripMenuItem.Click
        Form2.Show()
        Form2.MdiParent = Me
    End Sub

    Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click
        Close()
    End Sub
End Class






Public Class Form2
    Dim total, harga As Integer
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = "Jenis"
        Label2.Text = "Merk"
        Label3.Text = "Harga"
        Label4.Text = "Jumlah Beli"
        Label5.Text = "Total Harga"
        Button1.Text = "OK"
        ComboBox1.Items.Add("BAJU")
        ComboBox1.Items.Add("CELANA")
        ComboBox1.Items.Add("JAKET")
        Me.ContextMenuStrip = ContextMenuStrip1
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox2.Items.Clear()

        Select Case ComboBox1.Text
            Case "BAJU"
                ComboBox2.Items.Add("RA JEANS")
                ComboBox2.Items.Add("BLACK ID")
                ComboBox2.Items.Add("CROOZ")
            Case "CELANA"
                ComboBox2.Items.Add("JEANS")
                ComboBox2.Items.Add("JOGGER")
                ComboBox2.Items.Add("CARGO")
            Case "JAKET"
                ComboBox2.Items.Add("ARMY")
                ComboBox2.Items.Add("SWEATER")
                ComboBox2.Items.Add("BLEAZER")
        End Select
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        Select Case ComboBox2.Text
            Case "RA JEANS"
                TextBox1.Text = 100000
            Case "BLACK ID"
                TextBox1.Text = 200000
            Case "CROOZ"
                TextBox1.Text = 150000
            Case "JEANS"
                TextBox1.Text = 300000
            Case "JOGGER"
                TextBox1.Text = 150000
            Case "CARGO"
                TextBox1.Text = 200000
            Case "ARMY"
                TextBox1.Text = 400000
            Case "SWEATER"
                TextBox1.Text = 350000
            Case "BLEAZER"
                TextBox1.Text = 250000
        End Select
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox3.Text = (TextBox1.Text * TextBox2.Text)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs)
       
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub YaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles YaToolStripMenuItem.Click
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub
End Class

Continue

Tugas Looping

KODINGNYA :

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = "S/D"
        Label2.Text = "Kalikan Berapa ?"
        RadioButton1.Text = "Tunggal"
        RadioButton2.Text = "Sampai"
        Button1.Text = "OK"
        Button2.Text = "Add"
        Button3.Text = "Close"
        Button4.Text = "Clear"
        nonaktif()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadioButton2.Checked = True Then
            Dim A, B, C As Integer
            ListBox1.Items.Clear()
            For A = TextBox1.Text To TextBox2.Text
                For B = 1 To TextBox3.Text
                    C = A * B
                    If A = 1 Then
                        ListBox1.Items.Add(A & "x" & B & "=" & C)
                    ElseIf A = 2 Then
                        ListBox1.Items.Add(A & "x" & B & "=" & C)
                    Else
                        ListBox1.Items.Add(A & "x" & B & "=" & C)
                    End If
                Next
                ListBox1.Items.Add("--------------")
            Next

        ElseIf RadioButton1.Checked = True Then

            Dim A, B, C As Integer
            ListBox1.Items.Clear()
            For A = 1 To TextBox3.Text
                For B = 1 To TextBox3.Text
                    C = A * B
                    If A = 1 Then
                        ListBox1.Items.Add(A & "x" & B & "=" & C)
                    ElseIf A = 2 Then
                        ListBox1.Items.Add(A & "x" & B & "=" & C)
                    Else
                        ListBox1.Items.Add(A & "x" & B & "=" & C)
                    End If
                Next
                ListBox1.Items.Add("--------------")
            Next
        End If
    End Sub

    Function hit(ByVal a As Integer, ByVal b As Integer)
        Dim has As Integer
        has = a * b
        Return (has)
    End Function
    Sub aktif()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        Button1.Enabled = True
    End Sub
    Sub nonaktif()
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        Button1.Enabled = False
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        aktif()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        MsgBox("Keluar yaa hehe^^")
        Close()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ListBox1.Items.Clear()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
    End Sub
    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

    End Sub
End Class

Continue

STUDI KASUS 2 VISUAL STUDIO 2015

KODINGNYA :


Public Class Form1
    Dim hewan, buah As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            TextBox1.Text = ""
            TextBox1.Focus()
            MsgBox("Anda belum memasukan Inputan pertama")
        ElseIf TextBox2.Text = "" Then
            TextBox2.Text = ""
            TextBox2.Focus()
            MsgBox("Anda belum memasukan Inputan kedua")
        Else

            If TextBox1.Text = "Macan Tutul" Or TextBox1.Text = "Kanguru" Or TextBox1.Text = "Landak" Or TextBox1.Text = "Gajah" Or TextBox1.Text = "Buaya" Then
                hewan = 1
            ElseIf TextBox1.Text = "Nanas" Or TextBox1.Text = "Manggis" Or TextBox1.Text = "Anggur" Or TextBox1.Text = "Durian" Or TextBox1.Text = "Apel" Then
                hewan = 2
            End If
            If TextBox2.Text = "Macan Tutul" Or TextBox2.Text = "Kanguru" Or TextBox2.Text = "Landak" Or TextBox2.Text = "Gajah" Or TextBox2.Text = "Buaya" Then
                buah = 1
            ElseIf TextBox2.Text = "Nanas" Or TextBox2.Text = "Manggis" Or TextBox2.Text = "Anggur" Or TextBox2.Text = "Durian" Or TextBox2.Text = "Apel" Then
                buah = 2
            End If
        End If

        If hewan = 1 And buah = 1 Then
            MsgBox("Keduanya adalah hewan", MsgBoxStyle.Information)
        ElseIf hewan = 2 And buah = 2 Then
            MsgBox("Keduanya adalah buah", MsgBoxStyle.Information)
        ElseIf hewan <> buah Then
            MsgBox("Keduanya tidak sebanding karena keduanya berbeda", MsgBoxStyle.Critical)
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox1.Focus()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub
End Class

Continue