Membuat Aplikasi Sederhana Menggunakan Database Acces

Untuk mengisi waktu luang, saya mengajak Anda untuk menuangkan tulisan di dalam Aplikasi Visaul Basic.Net 2008, kali ini saya mengajak anda belajar VB.Net 2008 Lanjutan dimana pada VB.Net 2008 lanjutan ini kita akan membahasnya menggunakan database Acces. Pembelajaran ini saya dapatkan dari seorang guru besar dikampus saya yaitu : Bapak Mesran,S.KOM,M.KOM

Bagaimana caranya inilah program sederhana yang saya buat,dengan rincian : 

1. Database Name : DBMahasiswa.mdb

2. Inilah gambarnya

Inilah Source Codenya :

Imports System.Data.OleDb

Public Class Form1

    Dim db As OleDbConnection

    Dim cmd As OleDbCommand

    Dim adp As OleDbDataAdapter

    Dim rs As OleDbDataReader

    Dim ds As New DataSet

    Dim sql As String

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

        OpenDB()

        TampilMHS()

        Baru_Click(sender, e)

    End Sub

    Sub OpenDB()

        Dim lokasi = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DBMahasiswa.mdb"

        db = New OleDbConnection(lokasi)

        If db.State = ConnectionState.Closed Then

            db.Open()

        End If

    End Sub

    Sub TampilMHS()

        adp = New OleDbDataAdapter("Select * From Mahasiswa", db)

        ds = New DataSet

        adp.Fill(ds, "Mahasiswa")

        DataGridView1.DataSource = ds.Tables("Mahasiswa")

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        sql = "Insert Into Mahasiswa (NPM,Nama,Jenjang,Jurusan,Semester)" & _

                      " Values('" & NPM.Text & "','" & _

                                    Nama.Text & "','" & _

                                    Jenjang.Text & "','" & _

                                    Jenjang.Text & "','" & _

                                    Semester.Text & "')"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Baru_Click(sender, e)

        Call TampilMHS()

    End Sub

    Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click

        sql = "Update Mahasiswa Set Nama='" & Nama.Text & "'," & _

                               " Jenjang='" & Jenjang.Text & "'," & _

                               " Jurusan='" & Jurusan.Text & "'," & _

                               " Semester='" & Semester.Text & "'," & _

                               " Where NPM='" & NPM.Text & "'"

        Try

            cmd = New OleDbCommand(sql, db)

            cmd.ExecuteNonQuery()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        Call Baru_Click(sender, e)

        Call TampilMHS()

    End Sub

LOOPING (PIRAMIDA)

Hello Semua, Sudah lama nih ngak buat artikel lagi, saya berharap semua dalam kedaan sehat dan sejahtera dalam kedamaian.

Nih saya mau Share nih mengenai VB. Net 2008 atau Visual Basic.Net 2008. Saya mau mencoba membuat suatu aplikasi sederhana, karna saya masih belajar maka saya berharap semua maklum dengan program yang sederhana saya kerjakan.... 

Pastinya sebelum membuat programnya tentulah harus menginstalkan dulu software yang mendukung pembuatannya.

Maka marilah kita belajar LOOPING/Perulangan dimana kita akan membuat perulangan 1 sampai 10 menggunkana bahasa VB.Net 2008.

Nih contoh gambarnya........

Source Codenya :


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, x As Byte
        For i = 1 To Val(TextBox1.Text)
            For x = 1 To i
                lv.Items.Add(x)
            Next x
        Next i
    End Sub

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

 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(TextBox1.Text)
        TextBox2.Clear()
        Do While y <= q
            z = 1
            'TextBox2.Text = TextBox2.Text & Space(q - y)
            Do While z <= y
                TextBox2.Text = TextBox2.Text & " " & z
                z += 1
            Loop
            TextBox2.Text = TextBox2.Text & vbCrLf
            y += 1
        Loop
    End Sub

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Focus()
        TextBox2.TextAlign = HorizontalAlignment.Center
    End Sub
End Class

Semoga berhasi ya, semoga bermanfaat ya.....????
Create By : ICHE GUSTIYANI

Pembalik Kata dengan Bahasa C

Ini program pembalik kata yang saja dapatkan dari pembelajaran bahasa C. Contoh KITA jadi ATIK, eh… misal KURSI jadi ISRUK. Gak sampe bikin pusing sih, cuman di balik. Ya hanya sekedar berbagi ilmu menggunakan IDE stdio.h. Padahal klo di cari-cari di internet ketemunya cuman contoh program yang make IDE atau file header iostream.h . Dsini kita back to basic. Yang udah bisa silahkan skip. Pertama tama.. kita harus tw dulu logika nya.Inilah contoh programnya ;

Berikut Code nya

#include<stdio.h>
#include<string.h>
char a[100];                              //varible a dengan input maksimum 100 karakter
int b,c;
void main()
{
printf(“masukkan kata = “);
gets(a);                                     //input ke variable a
b=strlen(a);                              //mencari jumlah kata
printf(“balikkan kata = “);
for(c=b;c>=1;c–)                   //perulangan dari jumlah kata
//yang paling akhir ke paling awal
{
char d=a[c-1];                          //ingat bahwa elemen array dimulai dari 0
printf(“%c”,d);
}
}

Berikut penjelasannya :

Bahasa Simulasi

BAHASA SIMULASI

Pemrograman model simulasi, seperti yang disebutkan sebelumnya, dapat dilakukan menggunakan bahasa umum komputer (general purposes language) atau menggunakan bahasa simulasi.  Pada bagian ini kita akan mempelajari beberapa bahasa simulasi, melihat dan memahami kelebihan dan kekurangan dari masing-masingnya, sehingga kita melakukan pemilihan yang tepat saat kita perlu menggunakan bahasa simulasi.  

Satu bahasa simulasi tidak dapat menjadi alat yang tepat untuk semua kasus permodelan simulasi.  Pembahasan pada bagian ini akan kita mulai dengan mempelajari anatomi bahasa simulasi;  lalu dilanjutkan dengan penjelasan berbagai bahasa simulasi lengkap dengan kelebihan dan kelemahannya.

ANATOMI BAHASA SIMULASI

Bahasa Simulasi : Awal Mula

Kesuksesan analisis simulasi merupakan teknik campuran yang sangat tergantung pada keahlian dan keahlian analis.  Elemen dan struktur bahasa komputer umum seperti Pascal atau FORTRAN, sorce codenya tidak dengan mudah dapat digunakan untuk memodelkan simulasi sistem.  Msialnya, bahasa itu tidak menyediakan struktur data yang enak digunakan untuk pemrosesan kejadian, sementara hal ini merupakan elemen logis yang sangat penting dalam permodelan simulasi.  Tidak ada perintah dalam FORTRAN misalnya yang dengan jelas menambah atau mengurangi antrian nasabah atau objek lainnya.  Tidak ada perintah dalam FORTRAN yang mengakumulasikan jumlah objek dalam antrian dan menghitung rata-rata untuk menyediakan output statistik penting.  Variabel waktu lanjt, yang penting dalam penjalanan model simulasi, juga tidak dapat ditemukan pada FORTRAN dan bahasa pemrograman umum lainnya.

Filsafat Ilmu

Pengertian Filsafat Ilmu dan Faktanya

1. Pengertian Filsafat Ilmu

Untuk memahami arti dan makna filsafat ilmu, di bawah ini dikemukakan pengertian filsafat ilmu dari beberapa ahli yang terangkum dalam Filsafat Ilmu, yang disusun oleh Ismaun (2001)

• Robert Ackerman “philosophy of science in one aspect as a critique of current scientific opinions by comparison to proven past views, but such aphilosophy of science is clearly not a discipline autonomous of actual scientific paractice”. (Filsafat ilmu dalam suatu segi adalah suatu tinjauan kritis tentang pendapat-pendapat ilmiah dewasa ini dengan perbandingan terhadap kriteria-kriteria yang dikembangkan dari pendapat-pendapat demikian itu, tetapi filsafat ilmu jelas bukan suatu kemandirian cabang ilmu dari praktek ilmiah secara aktual.
• Lewis White Beck “Philosophy of science questions and evaluates the methods of scientific thinking and tries to determine the value and significance of scientific enterprise as a whole. (Filsafat ilmu membahas dan mengevaluasi metode-metode pemikiran ilmiah serta mencoba menemukan dan pentingnya upaya ilmiah sebagai suatu keseluruhan)
• A. Cornelius Benjamin “That philosopic disipline which is the systematic study of the nature of science, especially of its methods, its concepts and presuppositions, and its place in the general scheme of intellectual discipines. (Cabang pengetahuan filsafati yang merupakan telaah sistematis mengenai ilmu, khususnya metode-metodenya, konsep-konsepnya dan praanggapan-praanggapan, serta letaknya dalam kerangka umum cabang-cabang pengetahuan intelektual.)
• Michael V. Berry “The study of the inner logic if scientific theories, and the relations between experiment and theory, i.e. of scientific methods”. (Penelaahan tentang logika interen dari teori-teori ilmiah dan hubungan-hubungan antara percobaan dan teori, yakni tentang metode ilmiah.)
• May Brodbeck “Philosophy of science is the ethically and philosophically neutral analysis, description, and clarifications of science.” (Analisis yang netral secara etis dan filsafati, pelukisan dan penjelasan mengenai landasan – landasan ilmu.
• Peter Caws “Philosophy of science is a part of philosophy, which attempts to do for science what philosophy in general does for the whole of human experience. Philosophy does two sorts of thing: on the other hand, it constructs theories about man and the universe, and offers them as grounds for belief and action; on the other, it examines critically everything that may be offered as a ground for belief or action, including its own theories, with a view to the elimination of inconsistency and error. (Filsafat ilmu merupakan suatu bagian filsafat, yang mencoba berbuat bagi ilmu apa yang filsafat seumumnya melakukan pada seluruh pengalaman manusia. Filsafat melakukan dua macam hal : di satu pihak, ini membangun teori-teori tentang manusia dan alam semesta, dan menyajikannya sebagai landasan-landasan bagi keyakinan dan tindakan; di lain pihak, filsafat memeriksa secara kritis segala hal yang dapat disajikan sebagai suatu landasan bagi keyakinan atau tindakan, termasuk teori-teorinya sendiri, dengan harapan pada penghapusan ketakajegan dan kesalahan
• Stephen R. Toulmin “As a discipline, the philosophy of science attempts, first, to elucidate the elements involved in the process of scientific inquiry observational procedures, patens of argument, methods of representation and calculation, metaphysical presuppositions, and so on and then to veluate the grounds of their validity from the points of view of formal logic, practical methodology and metaphysics”. (Sebagai suatu cabang ilmu, filsafat ilmu mencoba pertama-tama menjelaskan unsur-unsur yang terlibat dalam proses penyelidikan ilmiah prosedur-prosedur pengamatan, pola-pola perbinacangan, metode-metode penggantian dan perhitungan, pra-anggapan-pra-anggapan metafisis, dan seterusnya dan selanjutnya menilai landasan-landasan bagi kesalahannya dari sudut-sudut tinjauan logika formal, metodologi praktis, dan metafisika).

Partikel Tuhan

Partikel Tuhan

Salah satu yang membingungkan adalah istilah Partikel Tuhan. Tak ayal, banyak kalangan menghubungkan penemuan ini dengan Tuhan dan agama. Apa sebenarnya Partikel Tuhan? Apa partikel itu yang menyusun Tuhan?

Partikel Tuhan sejatinya adalah Higgs Boson. Partikel ini adalah partikel yang "hilang" dalam Model Standar Fisika Partikel. Higgs Boson berperan memberikan massa, menentukan apakah atom dan semesta akan tercipta atau tidak.



Penemuan partikel Higgs, yang dijuluki 'partikel Tuhan', belum lama ini telah membuka lembaran baru sejarah ilmu pengetahuan manusia. Penemuan ini dipercaya akan mengungkap banyak hal mengenai asal usul alam semesta dan berguna bagi perkembangan teknologi di masa depan.

Telkom Masih Berminat Akuisisi StarOne

Rencana Telkom mengakuisisi Starone, unit bisnis telepon tetap nirkabel Indosat, ternyata belum surut. Buktinya, pengkajian masih terus berlangsung dan telah mendapat restu dari Menneg BUMN.

Direktur Utama Telkom Rinaldi Firmansyah mengindikasikan, pihaknya masih berkeinginan mengakuisisi layanan fixed wireless access berbasis teknologi code division multiple access (CDMA) milik kompetitornya itu.