Skip to main content
Jembatan Ampera
Jembatan ini dibangun diatas sungai Musi dengan panjang 1.177 meter, lebar 22 meter dan tinggi diatas permukaan air 11, 50 meter, dengan dana pampasan perang dari Pemerintah Jepang atas perintah Soekarno pada bulan April 1962 dan diresmikan Mei 1965.

Orang menyebutnya Jembatan AMPERA karena pemakaiannya secara resmi dilakukan pada saat masa menegakkan Orde Baru yang sebelumnya bernama Jembatan "Musi". Jembatan AMPERA berarti jembatan Amanat Penderitaan Rakyat.

Bagian tengan jembatan ini dulu dapat diangkat dan dilalui kapal yang tingginya maksimum 44,50 meter , sedangkan bila tidak diangkat hanya 9 meter, namun pada saat ini mobilitas penduduk semakin tinggi dan jumlah kendaraan bertambah banyak serta dasar lain yang bersifat teknis maka pada tahun 1977 jembatan tersebut tidak dapat lagi dinaikkan bagian tengahnya. Pada tahun 2004 jembatan ini direnovasi.

Comments

Popular posts from this blog

Urutan Kabel LAN ( straight & cross)

Urutan dan cara membuat kabel lan  1. Straight      kabel lan dan susunan seperti ini biasanya digunakan untuk menghungkan device yang berbeda.     ada 2 ujung kabel - ujung pertama dengan urutan warna : Putih Orenge , Orange, Putih Hijau , Hijau , Putih Biru ,Biru , Putih coklat, coklat. - ujung satunya dengan urutan yang sama. 2.Cross     Kabel dengan susunan seperti ini biasanya digunakan untuk menghubungkan device yang sama. contoh : komputer dengan komputer.      ada 2 ujung kabel  - ujung pertama dengan urutan warna : Putih Orenge , Orange, Putih Hijau , Hijau , Putih Biru ,Biru , Putih coklat, coklat.    - ujung kedua : Putih Hijau , Hijau , Putih Orange , Orange , Putih Biru , Biru , Putih Coklat , Coklat. Semoga bermanfaat.

Koneksi VB .Net Menggunakan Menggunakan ODBC

Imports System.Data.ODbC Module Module_koneksi Dim connection As New OdbcConnection( "DSN= NAMADSN ;" ) Private Sub connection_open() Try If connection.State <> ConnectionState.Closed Then connection.Close() connection.Open() Catch ex As Exception End Try End Sub Private Sub connection_close() Try If connection.State <> ConnectionState.Open Then connection.Open() connection.Close() Catch ex As Exception End Try End Sub End Module

cara membuat hapus data di vb.net 2008

public function hapus data () as integer '--------------------------------------------- 'class untuk menghapus data '--------------------------------------------- dim sql as string dim xcmd as sqlcomand dim x sql ="delete from siswa where nis=@nis" xcmd = new sqlcommand (sql ,con) xcmd.paramater.addwithvalue("nis", Fnis) x = xcmd.executenonquery xcmd.dispose () return x end function