Tugas Pemrograman Visual ke - 8

Function dengan Return Value Berupa Array 

script program :

Private Function fstat(ByVal ParamArray args() As Object) As Single()
Dim hasil(3) As Single
Dim i As Integer
For i =0 To UBound(args)
hasil(0) = hasil(0) + args(i)
If i = 0 Then
hasil(1) = args(i)
hasil(2) = args(i)
End If
If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(2) > args(i) Then hasil(2) = args(i)
Next i
Return hasil
End Function
pada button1 click ketik program berikut
Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
TextBox1.Text = statistik(0)
TextBox2.Text = statistik(1)
TextBox3.Text = statistik(2)

Berdasarkan script program diatas sudah benar dan saat di run nanti akan muncul nilai terbesar "10" dan nilai terkecil "1" . Disitu ada perubahan sedikit program dari latihan yang diberikan pada :

If hasil(1) > args(i) Then hasil(1) = args(i)

If hasil(2) < args(i) Then hasil(2) = args(i)

di ganti 

If hasil(1) < args(i) Then hasil(1) = args(i)
If hasil(2) > args(i) Then hasil(2) = args(i)

Macam -macam Function Bawaan 

1. Fungsi-fungsi Numerik 

Dengan menggunakan fungsi-fungsi bawaan yang disediakan, waktu pembuatan sebuah program dapat disingkat. Fungsi-fungsi numerik merupakan fungsi-fungsi yang berkaitan dengan tipe data numerik. Fungsi-fungsi ini dapat dikelompokkan sebagai berikut : 

a. Fungsi-fungsi konversi ke integer. Ada tiga macam fungsi yang melakukan konversi ke tipe data integer yaitu seperti terlihat pada tabel .

CInt () ===> Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat

Fix () ===> Pemotongan suatu nilai desimal menjadi integer

Int () ===> Pembuatan ke bawah suatu nilai desimal

Untuk bilangan positif, fungsi Fix() dan Int() memberikan perlakuan yang sama. Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama
ans1 = Int (14.5) mengembalikan 14 
ans2 = Fix (14.5) mengembalikan 14 

Namun fungsi Fix() dan Int() memberikan perlakuan berbeda pada bilangan negatif. Kedua pernyataan berikut memberikan pengembalian yang berbeda. 
ans1 = Int (-14.5) mengembalikan -15 
ans2 = Fix (-14.5) mengembalikan 14 
Sedangkan fungsi CInt() mengembalikan pembulatan angka yang terdekat. Berikut ni contoh penggunaan CInt() : 

ans1 = CInt (14.1) mengembalikan 14

ans2 = CInt (14.5) mengembalikan 14

ans3 = CInt (14.6) mengembalikan 14

ans2 = CInt (-14.5) mengembalikan -14

b. Fungsi ’f1’endash Fungsi konversi tipe data.

CCur () mengkonversi argumen menjadi tipe data currency 
CDbl () mengkonversi argumen menjadi tipe data double (presisi ganda) 
CLng () mengkonversi argumen menjadi tipe data long integer 
CSng () mengkonversi argumen menjadi tipe data single 
CStr () mengkonversi argumen menjadi tipe data string 
Ivar () mengkonversi argumen menjadi tipe data variant 
Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7) 
lblNilai = (1 / 7) ditampilkan .1428571 
lblNilai = CDbl (1 / 7) ditampilkan .142857142857143 

a. Fungsi-fungsi matematika Fungsi-fungsi yang bekaitan dengan matematika seperti terlihat pada 
Abs () mengembalikan nilai absolut dari argumen 
Atn () mengembalikan nilai arc tangen dari argumen dalam bentuk radian 
Cos () mengembalikan nilai cosinus dari argumen radian 
Exp () mengembalikan nilai exponensial dari argumen 
Log () mengembalikan nilai logaritma dari argumen 
Sin () mengembalikan nilai sinus dari argumen dalam radian 
Sqr () mengembalikan nilai akar dari argumen 
Tan () mengembalikan nilai tangen dari argumen dalam radian 

2. Fungsi-fungsi String

Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti berikut 
LCase$ () mengembalikan argumen string sebagai tipe data string huruf 
Ucase () mengembalikan argumen string sebagai tipe data variant huruf besar 
Ucase$ () mengembalikan argumen string sebagai tipe data string huruf besar 
Val () mengembalikan nilai number dari argumen string 
Len () mengembalikan nilai sumber yang menunjukan panjang string 
Substring merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat digunakan 3 fungsi berikut :
a. Left$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter .
b. Right$(StringVal, length)
Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .
c. Mid$(StringVal, startVal, length)
Fungsi ini mengembalikan nilai string dari startVal sebanyak length karakter .
Contoh : 
HurufKecil = LCase (“Rickie”) ’HurufKecil = “rickie” 
HurufBesar = Ucase (“Faizin”) ’HurufBesar = “FAIZIN” 
Title = “Apa Kabar”
lTitle = Left$ (Title, 4) ’lTitle = “Halo” 
RTitle = Right$ (Title, 5) ’RTitle = “Dunia” 
MTitle = Left$ (Title, 2, 6) ’MTitle = “alo Du” 
Panjang = Len (“Biru dan hijau”) ’length = 14 


3. Fungsi-fungsi Tanggal dan Waktu

Jika dalam suatu aplikasi diperlukan pengambilan tanggal atau waktu dari sistem, Visual Basic menyediakan fungsi ’endash fungsi Now(), Date(), dan Time(). 
Fungsi-fungsi Tanggal dan Waktu 
Now () mengembalikan tanggal dan waktu sistem 
Date () mengembalikan tanggal dari sistem 
Time () mengembalikan waktu dari sistem 
Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu format() yang berkaitan dengan fungsi-fungsi Tanggal dan waktu 
Format (Expresi [, format[, firstdayofweek[, firstweekofyear]]]) 
Fungsi ini mengembalikan nilai variant atau string sesuai dengan format yang ditentukan. 


4. Fungsi Date and Time pada VB 

Time : mencari tahu waktu saat ini atau menetapkan waktu, tergantung format
pemakaiannya ( lihat contoh di bawah ini)
A$ = Time ’lquote hasil 18:16:35 AM
MyTime = #4:35:17 PM# ’lquote assign a time
Time = MyTime ’lquote set system time to MyTime
Now : merekam tanggal dan waktu sekarang
A$ = Now ’lquote hasil 10/8/02 18:16:35 AM

Tugas Pemrograman Visual Ke 7

Menu digunakan untuk mengorganisasikan semua Form dan laporan pada aplikasi yang dibuat, Sehingga dapat di panggil dengan mudah

Jenis menu

Menu Strip

Biasa disebut menu utama

Masukan Menu Strip Dari Toolbox Kelompok Menus & Toolbars.

Memanggil MDI Child / Form Anak.

perintah berikut dari form induk / form utama

namaform.mdiparent=me

namaform.show

Menu Vertical, Horizontal, Tile Cascade

Imports System.Windows.Forms

Public Class MDIParent1

    Private Sub SupplierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupplierToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub JenisBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JenisBarangToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub

    Private Sub MerkBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MerkBarangToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub BarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarangToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub PelangganToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PelangganToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub
    Private Sub CascadeToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub TileVerticalToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub


End Class

Library tambahan menggunakan DotNet Bar v9.5.0.7

component diatas menggunakan library tambahan yaitu DotNetBar V.9 dengan menu ribbon control

DUAPULUHTAHUNKU!

SELAMAT ULANG TAHUN RINA ..

makasih yang udah ngasih doanya yang baik  makasih yang udah ngasih ucapanya makasih juga yang udah ngecewain malem ini . malem ke duapuluhtahunku ..
aishhhh ya alloh aku hanya berdoa semoga ini yang terbaik ini jalan yang diridhoimu .sekalipun aku harus ngejalanin sendiri semoga itu akan ada hikmahnya buat kedepan nanti ..
semuanya telah pergi ,terimakasih sayang terimakasih kedua orangtuaku sahabat sahabatku .
missyou :*

Latihan Tugas Pemrograman Visual 1

Penjelasan : 

1 . Paling  awal pada kotak sebelah kiri kita mengisi dan masuk ke kotak list yang pertama
2.  Klik angka 1 - 10 untuk menambahkan list yang pertama
3.  Lalu klik salah satu diantara dari semua angka tersebut untuk pindah ke kotak list  kedua .
4.  Tetapi jika mendapat pesan semua angka pindah ke kotak list kedua maka semuanya akan pindah termasuk yang sebelumnya sudah diklik untuk pindah .Angka yang pindah ke kotak list  kedua sesuai urutan pemindahan .





Script Program :

‘Button Isi Data
Private Sub Btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisi.Click
        ListBox1.Items.Add(TextBox1.Text)
    End Sub

‘Button 1-10
Private Sub Bt1-10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1-10Click
        Dim A As Integer
        A = 0
        Do
            A = A + 1
            ListBox1.Items.Add(A)
        Loop Until A = 10
    End Sub

 ‘Button Satu
Private Sub Btsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsatu.Click
        ListBox2.Items.Add(ListBox1.SelectedItem)
    End Sub

‘Button Beberapa
Private Sub Btbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btbeberapa.Click
        Dim obj As Object
        For Each obj In ListBox1.SelectedItems
            ListBox2.Items.Add(obj)
        Next
    End Sub

‘Button Semua
Private Sub Btsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsemua.Click
        ListBox2.Items.AddRange(ListBox1.Items)

    End Sub

‘Button Hapus Satu
Private Sub Bthpssatu.Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthpssatu.Click
        Dim obj As Object
        obj = ListBox2.SelectedItem
        ListBox2.Items.Remove(obj)
    End Sub

‘Button Hapus Beberapa
Private Sub Bthpsbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthpsbeberapa.Click

        For i As Integer = 0 To ListBox2.SelectedIndices.Count - 1
            ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
        Next
    End Sub

‘Button Hapus Semua
Private Sub Bthpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthpssemua.Click
        ListBox2.Items.Clear()
    End Sub

‘Button Tutup
Private Sub Bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttutup.Click
        Me.Close()

    End Sub

SABAR TANPA BATAS !

MENERIMA, MENGIKHLASKAN ,DAN BERSABAR !!!

tanpa harus mendengarkan saran ataupun berpikir ulang kembali .
seharusnya sadar akan tiga kata diatas itu .
apapun masalahnya ,apapun cobaannya dan apapun tegurannya dari Alloh itulah jalan takdirnya .mau kita mendapat hal yang menyenangkan ya bersyukur ataupun menyedihkan tetep harus bersyukur lagi .
tergantung bagaimana kita menyikapinya .


memang tak mudah untuk menyatukan pikiran dan perasaan disaat harus menerima keadaan saat ini ,keadaan yang mematahkan mimpi mimpi belaka dan hanyalah fiktif php .bahkan harus juga mengikhlaskan atau meninggalkan mimpi itu .
kuncinya emang hanya satu SABAR TANPA BATAS !!
dan seperti yang orang tua bilang " sekiranya apa yang kita kejar itu berlari ,berhentilah .yakin bahwa Alloh mendekatkan apa yang tak terlihat o:) "




*aku
Mungkin salah menanggapi presepsi selama ini , saat aku berpikir positif dengan kebaikan kebaikan itu tapi ternyata itu tak sama tak sesuai dg yang aku harapkan .
oleh karenanya ,jika sudah tak pantas berharap lebih baik aku berhenti karena sudah tak lagi sama .
makasih yaa banyak hal baru yang aku dapetin dr setiap masalah yang menyenangkan maupun menyedihkan mulai dari kerjaan kuliah bahkan kehidupan disekitarnya .
semua memberi perubahan ke arah positif kok ..
Terima Kasih ya Alloh ..

Tugas Pemrograman Visual yang ke -3

Tugas Pemrograman Visual yang ke - 3

Soal 1

Program saat belum ada penambahan ataupun modivikasi :

1.Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif

  script program :

  Public Class Form1

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

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            Control.Enabled = False

            Button2.Enabled = True

            Button1.Enabled = True

        Next

       

        cmbkode.Items.Add(“SPT”)

        cmbkode.Items.Add(“SND”)

        cmbkode.Items.Add(“TST”)

        cmbkode.Items.Add(“TOP”)

        cmbkode.Items.Add(“TAS”)

    End Sub

2.Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak           aktif

  sript program :

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

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

       

            Control.Enabled = True

            Button1.Enabled = False

        Next

    End Sub

3.Saat ditekan combol clear sama dengan saat form dijalankan

   script program : 

   Private Sub Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            Control.Enabled = False

            Button2.Enabled = True

            Button1.Enabled = True

        Next

        Txtbayar.Clear()

        Txtdiskon.Clear()

        Txtharga.Clear()

        Txtjumlah.Clear()

        Txtnama.Clear()

        Txttotal.Clear()

        Me.Radiotunai.Checked = False

        Me.Radiokredit.Checked = False

        cmbkode.Text = “”

    End Sub

Maka keseluruhan script program ini : 

Public Class Form1

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

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            Control.Enabled = False

            Button2.Enabled = True

            Button1.Enabled = True

        Next

       

        cmbkode.Items.Add(“SPT”)

        cmbkode.Items.Add(“SND”)

        cmbkode.Items.Add(“TST”)

        cmbkode.Items.Add(“TOP”)

        cmbkode.Items.Add(“TAS”)

    End Sub

    Private Sub cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

        Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbkode.Text

        Select Case kdbarang

            Case “SPT”

                namabarang = “SEPATU”

                harga = 200000

            Case “SND”

                namabarang = “SANDAL”

                harga = 100000

            Case “TST”

                namabarang = “T-SHIRT”

                harga = 150000

            Case “TOP”

                namabarang = “TOPI”

                harga = 50000

            Case “TAS”

                namabarang = “TAS”

                harga = 200000

            

            Case Else

                namabarang = “_”

                harga = 0

        End Select

        Txtnama.Text = namabarang

        Txtharga.Text = harga

        Txtharga.Text = Format(harga, “#,#”)

    End Sub

    Private Sub Txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtjumlah.TextChanged

        Dim total As Single

        Txttotal.Text = Val(Txtharga.Text) * Val(Txtjumlah.Text)

        Txtbayar.Text = Val(Txttotal.Text) – Val(Txtdiskon.Text)

        Txttotal.Text = Format(total, “#,#”)

    End Sub

    Private Sub Radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiotunai.CheckedChanged

        Txtdiskon.Text = Val(Txttotal.Text) * 10 / 100

        Txtbayar.Text = Val(Txttotal.Text) – Val(Txtdiskon.Text)

    End Sub

    Private Sub Radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radiokredit.CheckedChanged

        Txtdiskon.Text = 0

        Txtbayar.Text = Val(Txttotal.Text) – Val(Txtdiskon.Text)

    End Sub

    Private Sub Btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btclear.Click

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            Control.Enabled = False

            Button2.Enabled = True

            Button1.Enabled = True

        Next

        Txtbayar.Clear()

        Txtdiskon.Clear()

        Txtharga.Clear()

        Txtjumlah.Clear()

        Txtnama.Clear()

        Txttotal.Clear()

        Me.Radiotunai.Checked = False

        Me.Radiokredit.Checked = False

        cmbkode.Text = “”

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

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

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            Control.Enabled = True

            Button1.Enabled = False

        Next

    End Sub

End Class

Soal 2

1.Saat form dijalankan posisi angka acak

2.Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombol
 kosong, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8

3.Saat angka sudah tersusun tampilkan pesan selamat anda berhasil

Script Program :

Public Class Form1

    Dim jalan As Boolean = False

          

    Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click

        If b2.Text = "" Then

            b2.Text = b1.Text

            b1.Text = ""

        End If

        If b4.Text = "" Then

            b4.Text = b1.Text

            b1.Text = ""

        End If

    End Sub

    Private Sub b2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b2.Click

        If b1.Text = "" Then

            b1.Text = b2.Text

            b2.Text = ""

        End If

        If b5.Text = "" Then

            b5.Text = b2.Text

            b2.Text = ""

        End If

        If b3.Text = "" Then

            b3.Text = b2.Text

            b2.Text = ""

        End If

    End Sub

    Private Sub b3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b3.Click

        If b2.Text = "" Then

            b2.Text = b3.Text

            b3.Text = ""

        End If

        If b6.Text = "" Then

            b6.Text = b3.Text

            b3.Text = ""

        End If

    End Sub

    Private Sub b4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b4.Click

        If b1.Text = "" Then

            b1.Text = b4.Text

            b4.Text = ""

        End If

        If b5.Text = "" Then

            b5.Text = b4.Text

            b4.Text = ""

        End If

        If b7.Text = "" Then

            b7.Text = b4.Text

            b4.Text = ""

        End If

    End Sub

    Private Sub b5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b5.Click

        If b2.Text = "" Then

            b2.Text = b5.Text

            b5.Text = ""

        End If

        If b4.Text = "" Then

            b4.Text = b5.Text

            b5.Text = ""

        End If

        If b6.Text = "" Then

            b6.Text = b5.Text

            b5.Text = ""

        End If

        If b8.Text = "" Then

            b8.Text = b5.Text

            b5.Text = ""

        End If

    End Sub

    Private Sub b6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b6.Click

        If b3.Text = "" Then

            b3.Text = b6.Text

            b6.Text = ""

        End If

        If b5.Text = "" Then

            b5.Text = b6.Text

            b6.Text = ""

        End If

        If b9.Text = "" Then

            b9.Text = b6.Text

            b6.Text = ""

        End If

       

    End Sub

    Private Sub b7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b7.Click

        If b4.Text = "" Then

            b4.Text = b7.Text

            b7.Text = ""

        End If

        If b8.Text = "" Then

            b8.Text = b7.Text

            b7.Text = ""

        End If

    End Sub

    Private Sub b8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b8.Click

        If b5.Text = "" Then

            b5.Text = b8.Text

            b8.Text = ""

        End If

        If b9.Text = "" Then

            b9.Text = b8.Text

            b8.Text = ""

        End If

        If b7.Text = "" Then

            b7.Text = b8.Text

            b8.Text = ""

        End If

        If (b1.Text = "1" And b2.Text = "2" And b3.Text = "3" And b4.Text = "4" And b5.Text = "5" And b6.Text ="6" And b7.Text = 7 And b8.Text = "8" And b9.Text = "") Then

            MsgBox("selamat anda berhasil")

        End If

    End Sub

    Private Sub b9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b9.Click

        If b8.Text = "" Then

            b8.Text = b9.Text

            b9.Text = ""

        End If

        If b6.Text = "" Then

            b6.Text = b9.Text

            b9.Text = ""

        End If

        If (b1.Text = "1" And b2.Text = "2" And b3.Text = "3" And b4.Text = "4" And b5.Text = "5" And b6.Text ="6" And b7.Text = "7" And b8.Text = "8" And b9.Text = "") Then

            MsgBox("selamat anda berhasil")

        End If

    End Sub

    Private Sub bacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bacak.Click

        jalan = Not jalan

        Timer1.Enabled = jalan

        If Timer1.Enabled = True Then

            bacak.Text = "STOP"

        Else

            bacak.Text = "ACAK"

        End If

       

    End Sub

   

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim acak As Integer

        Do

            acak = Rnd() * 10

            b1.Text = acak

            '  If b1.Text = 10 Or b1.Text = 0 Or b1.Text = 9 Then

            'b1.Text = ""

            'End If

        Loop While acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            b2.Text = acak

            'If b2.Text = 10 Or b2.Text = 0 Or b2.Text = 9 Then

            'b2.Text = ""

            ' End If

        Loop While b2.Text = b1.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            b3.Text = acak

            '   If b3.Text = 10 Or b3.Text = 0 Or b3.Text = 9 Then

            'b3.Text = ""

            'End If

        Loop While acak = b1.Text Or acak = b2.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            b4.Text = acak

            ' If b4.Text = 10 Or b4.Text = 0 Or b4.Text = 9 Then

            'b4.Text = ""

            ' End If

        Loop While acak = b1.Text Or acak = b2.Text Or acak = b3.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            b5.Text = acak

            'If b5.Text = 10 Or b5.Text = 0 Or b5.Text = 9 Then

            'b5.Text = ""

            'End If

        Loop While acak = b1.Text Or acak = b2.Text Or acak = b3.Text Or acak = b4.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            b6.Text = acak

            'If b6.Text = 10 Or b6.Text = 0 Or b6.Text = 9 Then

            'b6.Text = ""

            'End If

        Loop While acak = b1.Text Or acak = b2.Text Or acak = b3.Text Or acak = b4.Text Or acak = b5.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            b7.Text = acak

            'If b7.Text = 10 Or b7.Text = 0 Or b7.Text = 9 Then

            'b7.Text = ""

            'End If

        Loop While acak = b1.Text Or acak = b2.Text Or acak = b3.Text Or acak = b4.Text Or acak = b5.Text Or acak = b6.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            b8.Text = acak

            '            If b8.Text = 10 Or b8.Text = 0 Or b8.Text = 9 Then

            'b8.Text = ""

            'End If

        Loop While acak = b1.Text Or acak = b2.Text Or acak = b3.Text Or acak = b4.Text Or acak = b5.Text Or acak = b6.Text Or acak = b7.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            b9.Text = acak

            ' If b9.Text = 10 Or b9.Text = 0 Or b9.Text = 9 Then

            'b9.Text = ""

            'End If

        Loop While acak = b1.Text Or acak = b2.Text Or acak = b3.Text Or acak = b4.Text Or acak = b5.Text Or acak = b6.Text Or acak = b7.Text Or acak = b8.Text Or acak = 10 Or acak = 9

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.Text = "0" Then

                control.Text = ""

            End If

        Next

       

    End Sub

  

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

End Class



Semoga Tugas VB ke-3 ini bermanfaat :)