Public class form 1
                Public sub form1_activated (By Val . . . . .
Call bersih()
Call isi-combo()
End sub
Sub bersih()
                Textbox1.text=” “
                Textbox2.text=” “
Textbox3.text=” “
Textbox4.text=” “
End sub
Sub isi-combo()
                ComboBox1.items.add(“ 06 teknik Informatika”)
                ComboBox1.items.add(“ 07 teknik Informatika”) dst
End sub
Private sub Button4_click(By Val . . . . .
                If button4.text = “ keluar” then
                Me.class()
Else  call normal ()
                Call bersih ()
                End if
                End sub
Sub normal ()
Button1.text = “tambah”
Button1.enable = true
Button2.enable = true     dst
Private sub button1_click (By val . . .
                If  Button1.text = “tambah” then
                Button1.text = “simpan”
                Button2.enable= false
                Button3.enable= false
                Button4.text = “batal”
                textBox1.focus()
end if
end sub
end class


READMORE - Kisi - kisi uts VB.net


MODULE
Dalam pembutan program khususnya menggunakan VB.net kita sering memanggil program yang sama  mungkin akan cukup merepotkan apabila kita mengetik nya lagi . Oleh karena itu kita memerlukan module yang berfungsi  untuk membuat sebuah program  yang bisa di panggil meskipun dalam form yang berbeda.
Ada 2 cara membuat module antara lain :
1.       Klik project kemudian klik code pilih module (add)
2.        Klik kanan di nama file  kemudian klik add dan pilih module.
Membuat variabel  public di module.
Contoh :  Module ( nama file )
                Public nama as String
Sub tampilan ()
                Nama=” Uly Kasturi”
End sub
End module
Private sub Button4_click
Call tampilan()
textBox3.text = nama
end sub
end Classs

READMORE - MODULE pada VB.net

Pada semester 4 sekarang saya sedikit tertarik untuk mempelajari OS Linux karena kelebihan yang di milikinya yaitu tidak bisa terkena virus. Pada kesempatan kali in saya akan menjelaskan tentang cara mensetting DNS Server menggunakan YAST. Hal yang pertama di lakukan aldalah open program Susu menggunaka virtual Box atau VMWare.
1. Buka Network Service klik DNS Server , kemudian ketik 192.168.100.1 di kolom IP Address.

2. Pilih DNS Zones pada kolom name ketikkan nama domain misalnya ulykasturi.com dan ketik master pada kolom Type kemudian klik tombol Add.

3.Setelah itu klik tombol Edit kemudian pilih tab NS Record pada kolom Name Server to Add. Ketik ns1.ulykasturi.com pada kolom name Server.

4. Pilih tab MX Record kemudian ketikkan pada kolom Address mailserver.ulykasturi.co.id. Pastikan angka 0 di kolom Priority klik tombol Add.

5. Pilih tab Record kemudian ketikkan sebagai berikut kemudian tekan tombol Add.
a. ns1 pada kolomRecord Name dengan Type Domain Name Translation dan Value 198.162.100.1
b. ketik www dengan Type Domain Name Translation dan Value 198.162.10.1
c. ketik mail dengan Value 202.43.115.83 , pastikan kolom Type di ganti menjadi CNAME.
d. tambahkan Pop dengan Type CNAME dan value Mail.
e. ketikm Web Mail dengan Type CNAME dengan value Mail.


READMORE - Cara Setting DNS Server Menggunakan YAST


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim j, u, y As Integer
        u = 9
        y = 27
        For j = 1 To Val(TextBox1.Text)
            If j Mod u = 0 Then
                If j Mod y = 0 Then
                    ListBox1.Items.Add(j)
                End If
            End If
        Next
    End Sub

READMORE - Program Bilangan Yang habis di bagi 9 dan 27

About this blog

Don't Give Up

Pengikut

Diberdayakan oleh Blogger.

uLee's Post

Add your Comment


ShoutMix chat widget
// JavaScript Document