G nato Software Perpustakaan | VB 2010

Bagi yang mau download G nato software perpustakaan dari  Visual Basic 2010
bisa download dengan meng-Klik link dibawah ini:
full source kode free
download

Read More

Flowchart Software Perpustakaan | VB 2010

FLOWCHART DAFTAR PERPUSTAKAAN

Read More

Flowchart Program Pengisian Otomatis | VB 2010

FLOWCHART PENGISIAN OTOMATIS 

Pencarian data Mahasiswa

Read More

Flowchart Game G-Nato | VB 2010

FLOWCHART GAME G-NATO

Read More

Tutorial Pembuatan Program Selisih Hari | VB 2010

TUTORIAL PEMBUATAN PROGRAM SELISIH HARI

Buka aplikasi Visual Basic 2010, kemudian pilih New Project kemudian muncul Windows Form Application.

1.      Selanjutnya buat project seperti yang di bawah ini.

Buat label untuk judul selanjutnya label buat buat Tanggal, Hari, Minggu, Bulan, Tahun sebanyak 11 label untuk keseluruhan. Kemudian buat textbox sebanyak 8 dan pada Properties bagian ReadOnly diganti true supaya tidak bisa diganti. Kemudian buat DateTimePicker sebanyak 2 untuk tanggal awal dan tanggal akhir. Buat 2 Button untuk Refresh dan Exit.

Dengan listingnya sebagai berikut.

Public Class Form1

    Dim hari As Integer

    Dim minggu As Integer

    Dim bulan As Integer

    Dim tahun As Integer

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

    End Sub

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

        Dim date1 As Date

        Dim date2 As Date

        Dim difference As TimeSpan

        Dim sisa_tahun As Integer

        Dim selisih_bulan As Integer

        Dim tahun As Integer

        Dim selisih_minggu As Integer

        Dim selisih_hari As Integer

        Dim weeks As Integer

        Dim months As Integer

        Dim sisa_months As Integer

        Dim sisa_hari As Integer

        Dim sisa_weeks As Integer

        date1 = Convert.ToDateTime(DateTimePicker1.Value)

        date2 = Convert.ToDateTime(DateTimePicker2.Value)

        selisih_bulan = DateDiff("m", date1, date2)

        tahun = selisih_bulan / 12

        sisa_tahun = selisih_bulan Mod 12

        selisih_hari = DateDiff("d", date1, date2)

        weeks = selisih_hari / 7

        sisa_weeks = selisih_hari Mod 7

        selisih_minggu = DateDiff("ww", date1, date2)

        months = sisa_weeks / 30

        sisa_months = sisa_weeks Mod 30

        sisa_hari = selisih_minggu / 4 / 7

        difference = date2 - date1

        TextBox5.Text = FormatNumber(difference.TotalDays, 0)

        TextBox5.Text = sisa_hari

        TextBox6.Text = weeks

        TextBox7.Text = months

        TextBox7.Text = sisa_months

        TextBox8.Text = tahun

        hari = DateDiff("d", DateTimePicker1.Value, DateTimePicker2.Value)

        TextBox1.Text = hari

        minggu = hari / 7

        TextBox2.Text = minggu

        bulan = DateDiff("m", DateTimePicker1.Value, DateTimePicker2.Value)

        TextBox3.Text = bulan

        tahun = bulan / 12

        TextBox4.Text = tahun

    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged

        If TextBox1.Text = "" Then

            TextBox1.Text = ""

        Else

            If TextBox1.Text < 0 Then

                TextBox1.Text = TextBox1.Text * (-1)

            Else

                TextBox1.Text = TextBox1.Text

                End If

            End If

    End Sub

    Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged

        If TextBox2.Text = "" Then

            TextBox2.Text = ""

        Else

            If TextBox2.Text < 0 Then

                TextBox2.Text = TextBox2.Text * (-1)

            Else

                TextBox2.Text = TextBox2.Text

            End If

        End If

    End Sub

    Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged

        If TextBox3.Text = "" Then

            TextBox3.Text = ""

        Else

            If TextBox3.Text < 0 Then

                TextBox3.Text = TextBox3.Text * (-1)

            Else

                TextBox3.Text = TextBox3.Text

            End If

        End If

    End Sub

    Private Sub TextBox4_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox4.TextChanged

        If TextBox4.Text = "" Then

            TextBox4.Text = ""

        Else

            If TextBox4.Text < 0 Then

                TextBox4.Text = TextBox4.Text * (-1)

            Else

                TextBox4.Text = TextBox4.Text

            End If

        End If

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        MsgBox("Matur Nuwun")

        Close()

    End Sub

End Class

Selesai..

Read More

Tutorial Pembuatan Program Pengisian Otomatis | VB 2010

TUTORIAL PEMBUATAN PENGISIAN OTOMATIS
Pencarian Data Mahasiswa

11. Buka aplikasi Visual Basic 2010, kemudian pilih New Project kemudian muncul Windows Form Application.

 Kemudian buat project seperti di bawah ini.

Dengan textbox NIM sebagai sumber informasi. Sedangkan textbox Fakultas, Jurusan, Tahun Masuk, Jalur Masuk, No. Urut Mhs. Textbox-nya di buat  true pada ReadOnly di kotak dialog Properties.

Dengan Listing programnya sebagai berikut.

Public Class Form1

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

        MsgBox("Matur Nuwun")

        Me.Close()

    End Sub

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

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Text = ""

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

    End Sub

    Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged

        Dim Fakultas As String

        Dim Jurusan As String

        Dim TahunMasuk As String

        Dim JalurMasuk As String

        Fakultas = Microsoft.VisualBasic.Left(TextBox3.Text, 3)

        TextBox4.Text = IIf(Fakultas = "210", "Teknik", IIf(Fakultas = "220", "Hukum", IIf(Fakultas = "230", "Ekonomi", IIf(Fakultas = "240", "FISIP", ""))))

        Jurusan = Microsoft.VisualBasic.Mid(TextBox3.Text, 4, 2)

        TextBox5.Text = IIf(Jurusan = "20", "Hukum", IIf(Jurusan = "30", "Ekonomi", IIf(Jurusan = "10", "Fisip", IIf(Jurusan = "40", "Teknik Sipil", IIf(Jurusan = "50", "Teknik Mesin", IIf(Jurusan = "60", "Teknik Kimia", IIf(Jurusan = "70", "Teknik Industri", "")))))))

        TahunMasuk = Microsoft.VisualBasic.Mid(TextBox3.Text, 6, 4)

        TextBox6.Text = IIf(TahunMasuk = "1101", "2010", IIf(TahunMasuk = "1111", "2011", IIf(TahunMasuk = "1112", "2012", "")))

        JalurMasuk = Microsoft.VisualBasic.Mid(TextBox3.Text, 10, 2)

        TextBox7.Text = IIf(JalurMasuk = "10", "PSSB", IIf(JalurMasuk = "20", "SNMPTN Undangan", IIf(JalurMasuk = "30", "SNMPTN Tulis", IIf(JalurMasuk = "40", "UM", ""))))

        TextBox8.Text = Microsoft.VisualBasic.Right(TextBox3.Text, 3)

    End Sub

End Class

Selesai..

1.      

Read More

Tutorial Pembuatan Game Gnato

TUTORIAL PEMBUATAN GAMES G-NATO

1.  Buka aplikasi Visual Basic 2010, kemudian pilih New Project kemudian muncul Windows Form Application

2.  Kemudian buat project dengan tiga Button “About Us”, “Next”, “Exit” dan Label 1 buat Nama Program.

Dengan listing pada Button untuk memunculkan dan menghilangkan form selanjutnya atau yang setelah muncul.

Public Class Form1

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

        Form2.Show()

        Me.Hide()

    End Sub

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

        Form3.Show()

        Me.Hide()

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        If MsgBox("Are you sure for exit?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then

            End

        End If

    End Sub

End Class

3.Langkah selanjutnya ialah mengerjakan program games pada form3. Dengan label sebanyak 4 buat Judul, Point, Nama, Alamat dan buat 3 textbox. setelah itu buat radiobutton sebanyak buat button sebanyak 10 untuk pengulangan sebanyak 3 kali kesempatan dan button exit.

Listingnya sebagai berikut

Public Class Form3

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

        If Timer1.Enabled = True Then

            Timer1.Enabled = False

        End If

     

        If RadioButton1.Checked Then

            If Label5.Text = Label6.Text Or Label6.Text = Label7.Text Or Label5.Text = Label7.Text Then

                TextBox1.Text = TextBox1.Text * 2

            MsgBox("CONGRATULATION! YOU ARE THE WINNER! :D")

        Else

            TextBox1.Text = (TextBox1.Text) - (RadioButton1.Text)

            Button1.Visible = False

            Button2.Visible = False

            Button3.Visible = True

            Button5.Visible = True

            Button6.Visible = False

            Button7.Visible = True

            Button8.Visible = False

        End If

        End If

        If RadioButton2.Checked Then

            If Label5.Text = Label6.Text Or Label6.Text = Label7.Text Or Label5.Text = Label7.Text Then

                TextBox1.Text = TextBox1.Text * 2

                MsgBox("CONGRATULATION! YOU ARE THE WINNER! :D")

            Else

                TextBox1.Text = TextBox1.Text - RadioButton2.Text

                Button1.Visible = False

                Button2.Visible = False

                Button5.Visible = True

                Button6.Visible = False

                Button7.Visible = True

                Button8.Visible = False

            End If

        End If

        If RadioButton3.Checked Then

            If Label5.Text = Label6.Text Or Label6.Text = Label7.Text Or Label5.Text = Label7.Text Then

                TextBox1.Text = TextBox1.Text * 2

                MsgBox("CONGRATULATION! YOU ARE THE WINNER! :D")

            Else

                TextBox1.Text = TextBox1.Text - RadioButton3.Text

                Button1.Visible = False

                Button2.Visible = False

                Button5.Visible = True

                Button6.Visible = False

                Button7.Visible = True

                Button8.Visible = False

            End If

        End If

    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

        Me.Close()

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = "50000"

        TextBox2.Text = Nothing

        TextBox3.Text = Nothing

        Label5.Text = Nothing

        Label6.Text = Nothing

        Label7.Text = Nothing

        Button1.Visible = True

        Button2.Visible = True

        Button3.Visible = True

        Button5.Visible = False

        Button6.Visible = False

        Button7.Visible = False

        Button8.Visible = False

    End Sub

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

        Label5.Text = Int(Rnd() * 10)

        Label6.Text = Int(Rnd() * 10)

        Label7.Text = Int(Rnd() * 10)

      

    End Sub

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

        If TextBox2.Text = "" Then

            MsgBox("please choose the bet")

        End If

        If TextBox2.Text = "" Then

            MsgBox("please entry your name")

        End If

        If TextBox3.Text = "" Then

            MsgBox("please entry your address")

        Else

            Timer1.Enabled = True

        End If

    End Sub

    Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If Asc(e.KeyChar) <> 13 AndAlso Asc(e.KeyChar) <> 8 _

 AndAlso Not IsNumeric(e.KeyChar) Then

            e.Handled = True

        End If

    End Sub

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

        Button1.Visible = True

        Button2.Visible = True

        Button3.Visible = True

        Button5.Visible = False

        Button6.Visible = False

        Button7.Visible = False

        Button8.Visible = False

    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click

        If TextBox1.Text = "" Then

            MsgBox("please entry your number")

        End If

        If TextBox2.Text = "" Then

            MsgBox("please entry your name")

        End If

        If TextBox3.Text = "" Then

            MsgBox("please entry your address")

        Else

            Timer1.Enabled = True

        End If

    End Sub

    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click

        If Timer1.Enabled = True Then

            Timer1.Enabled = False

        End If

        If RadioButton1.Checked Then

            If Label5.Text = Label6.Text Or Label6.Text = Label7.Text Or Label5.Text = Label7.Text Then

                TextBox1.Text = TextBox1.Text * 2

                MsgBox("CONGRATULATION! YOU ARE THE WINNER! :D")

            Else

                TextBox1.Text = TextBox1.Text - RadioButton1.Text

                Button1.Visible = False

                Button2.Visible = False

                Button5.Visible = False

                Button6.Visible = True

                Button7.Visible = False

                Button8.Visible = True

            End If

        End If

        If RadioButton2.Checked Then

            If Label5.Text = Label6.Text Or Label6.Text = Label7.Text Or Label5.Text = Label7.Text Then

                TextBox1.Text = TextBox1.Text * 2

                MsgBox("CONGRATULATION! YOU ARE THE WINNER! :D")

            Else

                TextBox1.Text = TextBox1.Text - RadioButton2.Text

                Button1.Visible = False

                Button2.Visible = False

                Button5.Visible = False

                Button6.Visible = True

                Button7.Visible = False

                Button8.Visible = True

            End If

        End If

        If RadioButton3.Checked Then

            If Label5.Text = Label6.Text Or Label6.Text = Label7.Text Or Label5.Text = Label7.Text Then

                TextBox1.Text = TextBox1.Text * 2

                MsgBox("CONGRATULATION! YOU ARE THE WINNER! :D")

            Else

                TextBox1.Text = TextBox1.Text - RadioButton3.Text

                Button1.Visible = False

                Button2.Visible = False

                Button5.Visible = False

                Button6.Visible = True

                Button7.Visible = False

                Button8.Visible = True

            End If

        End If

    End Sub

    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click

        If TextBox1.Text = "" Then

            MsgBox("please entry your number")

        End If

        If TextBox2.Text = "" Then

            MsgBox("please entry your name")

        End If

        If TextBox3.Text = "" Then

            MsgBox("please entry your address")

        Else

            Timer1.Enabled = True

        End If

    End Sub

    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click

        If Timer1.Enabled = True Then

            Timer1.Enabled = False

        End If

        If RadioButton1.Checked Then

            If Label5.Text = Label6.Text Or Label6.Text = Label7.Text Or Label5.Text = Label7.Text Then

                TextBox1.Text = TextBox1.Text * 2

                MsgBox("CONGRATULATION! YOU ARE THE WINNER! :D")

            Else

                TextBox1.Text = TextBox1.Text - RadioButton1.Text

                Button1.Visible = True

                Button2.Visible = True

                Button5.Visible = False

                Button6.Visible = False

                Button7.Visible = False

                Button8.Visible = False

                TextBox1.Text = "50000"

                TextBox2.Text = ""

                TextBox3.Text = ""

                MsgBox("SORRY,YOU MUST TRY AGAIN!")

            End If

        End If

        If RadioButton2.Checked Then

            If Label5.Text = Label6.Text Or Label6.Text = Label7.Text Or Label5.Text = Label7.Text Then

                TextBox1.Text = TextBox1.Text * 2

                MsgBox("CONGRATULATION! YOU ARE THE WINNER! :D")

            Else

                TextBox1.Text = TextBox1.Text - RadioButton2.Text

                Button1.Visible = True

                Button2.Visible = True

                Button5.Visible = False

                Button6.Visible = False

                Button7.Visible = False

                Button8.Visible = False

                TextBox1.Text = "50000"

                TextBox2.Text = ""

                TextBox3.Text = ""

                MsgBox("SORRY,YOU MUST TRY AGAIN!")

            End If

        End If

        If RadioButton3.Checked Then

            If Label5.Text = Label6.Text Or Label6.Text = Label7.Text Or Label5.Text = Label7.Text Then

                TextBox1.Text = TextBox1.Text * 2

                MsgBox("CONGRATULATION! YOU ARE THE WINNER! :D")

            Else

                TextBox1.Text = TextBox1.Text - RadioButton3.Text

                Button1.Visible = True

                Button2.Visible = True

                Button5.Visible = False

                Button6.Visible = False

                Button7.Visible = False

                Button8.Visible = False

                TextBox1.Text = "50000"

                TextBox2.Text = ""

                TextBox3.Text = ""

                MsgBox("SORRY,YOU MUST TRY AGAIN!")

            End If

        End If

    End Sub

End Class

Selesai....

1

Read More