Latihan VB,Net

Latihan VB,Net

Public Class garudatravel

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

        Me.cmbTujuan.Items.Clear()

        Me.cmbTujuan.Items.Add("Hongkong")

        Me.cmbTujuan.Items.Add("Singapore")

        Me.cmbTujuan.Items.Add("Philipina")

        Me.cmbTujuan.Items.Add("Thailand")

        Me.cmbTujuan.Items.Add("Jepang")

        Me.cmbTujuan.Items.Add("Korea")

    End Sub

    Private Sub Cekharga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cekharga.Click

        If cmbTujuan.Text = "Hongkong" Then

            lblTarif.Text = 3750000

        ElseIf cmbTujuan.Text = "Singapore" Then

            lblTarif.Text = 1750000

        ElseIf cmbTujuan.Text = "Philipina" Then

            lblTarif.Text = 2200000

        ElseIf cmbTujuan.Text = "Thailand" Then

            lblTarif.Text = 3850000

        ElseIf cmbTujuan.Text = "Jepang" Then

            lblTarif.Text = 4000000

        Else

            lblTarif.Text = 4200000

        End If

        If cmbTujuan.Text = "Hongkong" Then

            lblExtra.Text = 425000

        ElseIf cmbTujuan.Text = "Singapore" Then

            lblExtra.Text = 200000

        ElseIf cmbTujuan.Text = "Philipina" Then

            lblExtra.Text = 400000

        ElseIf cmbTujuan.Text = "Thailand" Then

            lblExtra.Text = 450000

        ElseIf cmbTujuan.Text = "Jepang" Then

            lblExtra.Text = 500000

        Else

            lblExtra.Text = 600000

        End If

        If txtLama.Text > 4 Then

            lblExtra.Text = (txtLama.Text - 4) * Val(lblExtra.Text)

        ElseIf txtLama.Text <= 4 Then

            lblExtra.Text = 0

        End If

        Dim disc As New Integer

        lblDisc.Text = disc

        If txtLama.Text >= 6 Then

            lblDisc.Text = (Val(lblTarif.Text) + Val(lblExtra.Text)) * 0.15

        Else

            lblDisc.Text = (Val(lblTarif.Text) + Val(lblExtra.Text)) * 0

        End If

        lblSub.Text = (Val(lblTarif.Text) + Val(lblExtra.Text)) - Val(lblDisc.Text)

        lblPjk.Text = Val(lblSub.Text) * 0.1

        lblTot.Text = Val(lblSub.Text) + Val(lblPjk.Text)

    End Sub

    Private Sub clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clear.Click

        Me.TextBox1.Clear()

        Me.cmbTujuan.Text = ""

        Me.txtLama.Clear()

        Me.lblTarif.Text = ""

        Me.lblExtra.Text = ""

        Me.lblDisc.Text = ""

        Me.lblSub.Text = ""

        Me.lblPjk.Text = ""

        Me.lblTot.Text = ""

    End Sub

   

End Class

( Label: VB.Net, Visual Basic ) Read more

Membuat animasi Loading DI vb.6.0

Membuat animasi Loading DI vb.6.0

Pertama-tama bikin seperti ini :

 lalu :

coding nya : 

Private Sub Timer1_Timer()

If ProgressBar1.Value >= 100 Then

Unload Me

Else

ProgressBar1.Value = ProgressBar1.Value + 10

End If

End Sub

hasilnya gan :

( Label: Visual Basic ) Read more

Contoh Aplikasi Sederhana

Contoh Aplikasi Sederhana

Private Sub Combo1_click()

If Combo1.Text = "kelas 1" Then

Text5.Text = 650000

ElseIf Combo1.Text = "kelas 2" Then

Text5.Text = 500000

ElseIf Combo1.Text = "bungalow 1" Then

Text5.Text = 3000000

ElseIf Combo1.Text = "bungalow 2" Then

Text5.Text = 4000000

End If

Text6 = 0.05 * Text5

Text7 = Text5 - Text6

Text8 = 0.1 * Text7

Text9 = Val(Text7) + Val(Text8)

End Sub

Private Sub Command1_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

Text8 = ""

Text9 = ""

Combo1 = ""

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset!kodetransaksi = Text1.Text

Adodc1.Recordset!namacostumer = Text2.Text

Adodc1.Recordset!alamatlengkap = Text3.Text

Adodc1.Recordset!tanggal = Text4.Text

Adodc1.Recordset!hargapenginapan = Text5.Text

Adodc1.Recordset!pelayan = Text6.Text

Adodc1.Recordset!subharga = Text7.Text

Adodc1.Recordset!pajak = Text8.Text

Adodc1.Recordset!totalharga = Text9.Text

Adodc1.Recordset.Update

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command5_Click()

Adodc1.Recordset!kodetransaksi = Text1.Text

Adodc1.Recordset!namacostumer = Text2.Text

Adodc1.Recordset!alamatlengkap = Text3.Text

Adodc1.Recordset!tanggal = Text4.Text

Adodc1.Recordset.Update

End Sub

Private Sub Command6_Click()

Adodc1.Recordset.Find "kodetransaksi='" + Text1.Text + "'", , adSearchForward, 1

If Not Adodc1.Recordset.EOF Then

     Text1.Text = Adodc1.Recordset!kodetransaksi

     Text2.Text = Adodc1.Recordset!namacostumer

Else

     MsgBox "Maaf, Data Tidak Ditemukan!"

End If

End Sub

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 1

Text4.Text = Date

Adodc1.ConnectionString = "Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\user\My Documents\o\kisi.mdb;Persist Security Info=False"

Adodc1.RecordSource = "select * from kisi"

Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Option1_Click()

Combo1.Clear

Combo1.AddItem ("kelas 1")

Combo1.AddItem ("kelas 2")

End Sub

Private Sub Option2_Click()

Combo1.Clear

Combo1.AddItem ("bungalow 1")

Combo1.AddItem ("bungalow 2")

End Sub

Private Sub Timer1_Timer()

Label11.Caption = Time

End Sub

( Label: Visual Basic ) Read more

Shalat

Shalat

DOA IFTITAH

ALLAAHU AKBARU KABIIRAA WAL HAMDU LILLAAHI KATSIIRAA WASUBHAANALLAAHI BUKRATAW WAASHIILAA.

Allah Maha Besar, Maha Sempurna Kebesaran-Nya. Segala Puji Bagi Allah, Pujian Yang Sebanyak-Banyaknya. Dan Maha Suci Allah Sepanjang Pagi Dan Petang.

INNII WAJJAHTU WAJHIYA LILLADZII FATHARAS SAMAAWAATI WAL ARDHA HANIIFAM MUSLIMAW WAMAA ANA MINAL MUSYRIKIIN.

Kuhadapkan Wajahku Kepada Zat Yang Telah Menciptakan Langit Dan Bumi Dengan Penuh Ketulusan Dan Kepasrahan Dan Aku Bukanlah Termasuk Orang-Orang Yang Musyrik.

INNA SHALAATII WANUSUKII WAMAHYAAYA WAMAMAATII LILLAAHIRABBIL ‘AALAMIIN.

Sesungguhnya Sahalatku, Ibadahku, Hidupku Dan Matiku Semuanya Untuk Allah, Penguasa Alam Semesta.

LAA SYARIIKA LAHUU WA BIDZAALIKA UMIRTU WA ANA MINAL MUSLIMIIN.

Tidak Ada Sekutu Bagi-Nya Dan Dengan Demikianlah Aku Diperintahkan Dan Aku Termasuk Orang-Orang Islam

AL-FATIHAH

BISMILLAAHIR RAHMAANIR RAHIIM.

Dengan Nama Allah Yang Maha Pengasih Lagi Maha Penyayang.

AL HAMDU LILLAAHI RABBIL ‘AALAMIIN.

Segala Puji Bagi Allah, Tuhan Semesta Alam.

ARRAHMAANIR RAHIIM.

Yang Maha Pengasih Lagi Maha Penyayang.

MAALIKIYAUMIDDIIN.

Penguasa Hari Pembalasan.

IYYAAKA NA’BUDU WAIYYAAKA NASTA’IINU.

Hanya Kepada-Mu lah Aku Menyembah Dan Hanya Kepada-Mu lah Aku Memohon Pertolongan.

IHDINASH SHIRAATHAL MUSTAQIIM.

Tunjukilah Kami Jalan Yang Lurus.

SHIRAATHAL LADZIINA AN’AMTA ‘ALAIHIM GHAIRIL MAGHDHUUBI ‘ALAIHIM WALADHDHAALLIIN. AAMIIN.

Yaitu Jalannya Orang-Orang Yang Telah Kau Berikan Nikmat, Bukan Jalannya Orang-Orang Yang Kau Murkai Dan Bukan Pula Jalannya Orang-Orang Yang Sesat

R U K U’

SUBHAANA RABBIYAL ‘ADZIIMI WA BIHAMDIH.    - 3 x

Maha Suci Tuhanku Yang Maha Agung Dan Dengan Memuji-Nya

I’TIDAL

SAMI’ALLAAHU LIMAN HAMIDAH.

Semoga Allah Mendengar ( Menerima ) Pujian Orang Yang Memuji-Nya ( Dan Membalasnya ).

RABBANAA LAKAL HAMDU MIL’US SAMAAWATI WA MIL ‘ULARDHI WA MIL ‘UMAASYI’TA MIN SYAI’IN BA’DU.

Wahai Tuhan Kami ! Hanya Untuk-Mu lah Segala Puji, Sepenuh Langit Dan Bumi Dan Sepenuh Barang Yang Kau Kehendaki Sesudahnya.

SUJUD

SUBHAANA RABBIYAL A‘LAA WA BIHAMDIH.    - 3 x

Maha Suci Tuhanku Yang Maha Tinggi Dan Dengan Memuji-Nya.

DUDUK DIANTARA DUA SUJUD

RABBIGHFIRLII WARHAMNII WAJBURNII WARFA’NII WARZUQNII  WAHDINII  WA’AAFINII  WA’FU ‘ANNII.

Ya Tuhanku ! Ampunilah Aku, Kasihanilah Aku, Cukupkanlah ( Kekurangan )-Ku, Angkatlah ( Derajat )-Ku, Berilah Aku Rezki, Berilah Aku Petunjuk, Berilah Aku Kesehatan Dan Maafkanlah ( Kesalahan )-Ku.

 

TASYAHUD AWAL

ATTAHIYYAATUL MUBAARAKAATUSH SHALAWATUTH THAYYIBAATU LILLAAH.

Segala Kehormatan, Keberkahan, Rahmat Dan Kebaikan Adalah Milik Allah.

ASSALAAMU ‘ALAIKA AYYUHAN NABIYYU WARAHMATULLAAHI WABARAKAATUH.

Semoga Keselamatan, Rahmat Allah Dan Berkah-Nya ( Tetap Tercurahkan ) Atas Mu, Wahai Nabi.

ASSALAAMU ‘ALAINAA WA ‘ALAA ‘IBADADILLAAHISH SHAALIHIIN.

Semoga Keselamatan ( Tetap Terlimpahkan ) Atas Kami Dan Atas Hamba-Hamba Allah Yang Saleh.

ASYHADU ALLAA ILAAHA ILLALLAAH. WA ASYHADU ANNA MUHAMMADAR RASUULULLAAH.

Aku Bersaksi Bahwa Tidak Ada Tuhan Selain Allah. Dan Aku Bersaksi Bahwa Muhammad Adalah Utusan Allah.

ALLAAHUMMA SHALLI ‘ALAA SAYYIDINAA MUHAMMAD.

Wahai Allah ! Limpahkanlah Rahmat Kepada Penghulu Kami, Nabi Muhammad !.

TASYAHUD AKHIR

ATTAHIYYAATUL MUBAARAKAATUSH SHALAWATUTH THAYYIBAATU LILLAAH.

Segala Kehormatan, Keberkahan, Rahmat Dan Kebaikan Adalah Milik Allah.

ASSALAAMU ‘ALAIKA AYYUHAN NABIYYU WARAHMATULLAAHI WABARAKAATUH.

Semoga Keselamatan, Rahmat Allah Dan Berkah-Nya ( Tetap Tercurahkan ) Atas Mu, Wahai Nabi.

ASSALAAMU ‘ALAINAA WA ‘ALAA ‘IBADADILLAAHISH SHAALIHIIN.

Semoga Keselamatan ( Tetap Terlimpahkan ) Atas Kami Dan Atas Hamba-Hamba Allah Yang Saleh.

ASYHADU ALLAA ILAAHA ILLALLAAH. WA ASYHADU ANNA MUHAMMADAR RASUULULLAAH.

Aku Bersaksi Bahwa Tidak Ada Tuhan Selain Allah. Dan Aku Bersaksi Bahwa Muhammad Adalah Utusan Allah.

ALLAAHUMMA SHALLI ‘ALAA SAYYIDINAA MUHAMMAD ( tasyahud awal )  WA ‘ALAA AALI SAYYIDINAA MUHAMMAD.

Wahai Allah ! Limpahkanlah Rahmat Kepada Penghulu Kami, Nabi Muhammad Dan Kepada Keluarga Penghulu Kami Nabi Muhammad.

KAMAA SHALLAITAA ‘ALAA SAYYIDINAA IBRAAHIIM WA ‘ALAA AALI SAYYIDINAA IBRAAHIIM.

Sebagaimana Telah Engkau Limpahkan Rahmat Kepada Penghulu Kami, Nabi Ibrahim Dan Kepada Keluarganya.

WA BAARIK ‘ALAA SAYYIDINAA MUHAMMAD WA ‘ALAA AALI SAYYIDINAA MUHAMMAD.

Dan Limpahkanlah Berkah Kepada Penghulu Kami, Nabi Muhammad Dan Kepada Keluarganya.

KAMAA BAARAKTA ‘ALAA SAYYIDINAA IBRAAHIIM WA ‘ALAA AALI SAYYIDINAA IBRAAHIIM.

Sebagaimana Telah Engkau Limpahkan Berkah Kepada Penghulu Kami, Nabi Ibrahim Dan Kepada Keluarganya.

FIL ‘AALAMIINA INNAKA HAMIIDUMMAJIID. YAA MUQALLIBAL QULUUB. TSABBIT QALBII ‘ALAA DIINIK.

Sungguh Di Alam Semesta Ini, Engkau Maha Terpuji Lagi Maha Mulia. Wahai Zat Yang Menggerakkan Hati. Tetapkanlah Hatiku Pada Agama-Mu.

( Label: Agama ) Read more

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

( Label: Visual Basic ) Read more

Private Sub btbagi_Click()
Dim b1, b2 As Integer
        b1 = Val(txtBil1.Text)
        b2 = Val(txtBil2.Text)
        h = b1 / b2
        txtHasil.Text = h
End Sub

Private Sub btClose_Click()
End
End Sub

Private Sub btKali_Click()
Dim b1, b2 As Integer
        b1 = Val(txtBil1.Text)
        b2 = Val(txtBil2.Text)
        h = b1 * b2
        txtHasil.Text = h
End Sub

Private Sub btkurang_Click()
Dim b1, b2 As Integer
b1 = Val(txtBil1.Text)
b2 = Val(txtBil2.Text)
h = b1 - b2
txtHasil.Text = h
End Sub

Private Sub btNew_Click()
txtBil1.Text = ""
txtBil2.Text = ""
txtHasil.Text = ""
txtBil1.Text = ""
End Sub

Private Sub btTambah_Click()
Dim b1, b2 As Integer
b1 = Val(txtBil1.Text)
b2 = Val(txtBil2.Text)
h = b1 + b2
txtHasil.Text = h
End Sub

( Label: Visual Basic ) Read more

DATA DAN SINYAL

DATA DAN SINYAL

DATA DAN SINYAL

Sinyal adalah pancaran gelombang merupakan hasil pengolahan data melalui media media tertentu. Data merupakan komponen yang mengandung informasi. Data dikirim dalam bentuk sinyal elektromagnetik. Sedangkan Pensinyalan adalah Penyebaran sinyal secara fisik melalui media transmisi

Jenis-jenis Sinyal

• Sinyal Analog / data analog 

Sinyal analog adalah sinyal data dalam bentuk gelombang yang kontinyu, dengan

variasi kekuatan dan kualitas yang berubah-rubah karena sinyal Analog mudah

terpengaruh oleh cuaca dannoise

Isyarat gelombang analog dinyatakan dengan sebuah gelombang sinus

 

Variabel Sinyal analog :

• Amplitudo : ukuran tinggi rendahnya dari sinyal analog
• Frekuensi : jumlah gelombang sinyal analog dalam satuan detik
• Phase : besar sudut dari sinyal analog pada saat tertentu

 
Sinyal Digital / data digital

Sinyal Digital disebut juga sebagai sinyal diskrit, merupakan sinyal data bersifat 2 arah dan dibangun dari kode biner yaitu 1 dan 0 yang biasa disebut bit. Sinyal Digital tidak mudah terpengaruh oleh noise

 

( Label: Komunikasi Data ) Read more