STMIKBG MATARAM

Semalam saat kompilasi aplikasi saya ama broklyn sempat bingung, event form load terlalu lambat untuk ditampilkan karena aplikasi harus menyelesaikan beberapa thread dahulu. Misalnya pada VB 6.0 kita mempunyai thread proses seperti ini :

while(1)
 doevent
 if (flag ==1) then
  'Proses disini
 end if
End while

Tapi di VB.net penulisan DoEvent diatas sama sekali berbeda, sempat bingung juga sih tapi setelah searching dan baca-baca di MSDN ternyata untuk melakukan event dalam thread menggunakan class Aplication, yakni Application.DoEvents(), Dengan method ini kita bisa memaksimalkan kinerja aplikasi.

Karena agak ngiri liat laptop temen2 di Kampus pada canggih2..ada Acer yg pake “core2 duo” lah….ada yg merek Hewlett Packard lah….pokoknya semua spec nya canggih2…..sedangkan aku sendiri Cuma pake Acer TravelMate 2420 (jaman phytechantropus Errectus) dengan processor Celeron M 1.50 GHz…bah klo begini modelnya siapa yg ngga ngiri….

Gara2 itu ku pikir2 mo beli laptop baru (ngga ada duit) mo Upgrade processornya (kemahalan Mending beli Laptop baru) Mo Cabut Stiker tanda pocessornya Pasti bakalan ketauan dari system properties…..

TweeNg -,-“ system properties??? Haaa dapat deh ide supaya laptop ku bisa dianggap KereN dikit…..

Mari Beraksi…..

Bisa diliat dari system properties kalo jenis processor yg aku pake

Intel(R) Celeron (R) M processor 1.50GHz

Disini bakal ku bahas sedikit tentang trick ngoprek2 registry (more…)

Sebenarnya sama aj dengan generate kode di VB6. logika nya sama aja kok, misalkan kita mau membuat kode secara berurutan dengan format : “00001″ - “0000n”. kita buat dulu sebuah tabel dengan nama tabel `barang` yang berisikan field dengan nama `kode_barang`.

setelah itu mulai dengan query ke tabel bayar, code-nya sbb :

Private Sub GenerateKode()
 Dim a, b, c, d, e, f As String
    DS = Nothing
    DS = New DataSet
    DA = New MySqlDataAdapter("Select `kode_barang` FROM Barang Order By `Kode_barang` DESC", _ Conn)
    DA.Fill(DS, "Barang")
 If (DS.Tables("Barang").Rows(0).Item(0) Is System.DBNull.Value) Then
       a = "0000"
       b = "1"
       c = a & b
     Txtkodebarang.Text = c
 Else
     'a = Val(CMs.Position) + 1
     b = DS.Tables("Barang").Rows(0).Item(0).ToString
     c = (Val(DS.Tables("Barang").Rows(0).Item(0).ToString))
     d = Val(c) + 1
     e = Mid("00000?", 1, Val(6 - Len(Str(d))))
     f = Trim(e) & Trim(d)
        MsgBox(b)
        MsgBox(c)
        MsgBox(d)
        MsgBox(e)
        MsgBox(f)
        txtkodebarang.Text = (f)
 End If
 End Sub

BAKMI RAOS cab jAKARTA…salah satu objek Wisata Kuliner berbasis Franchise, Yang Menyediakan Menu menu masakan yang berkelas dan juga terjangkau. Bagi Yang berwisata ke Kota Mataram….sebaiknya untuk tidak melewatkan tempat yang satu ini, Jl Panca Usaha Kr Tapen…(Belakang Mataram MALL / Depan ELIAN cilinaya).

Bagi penggila wisata kuliner khususnya di kota Mataram.. kami telah hadir di kota anda.Bakmi Raos cabang Jakarta silahkan mencoba aneka menu masakan mie Bakmi Raos. Dengan rasa bintang lima harga kaki lima. Kami juga siap memanjakan lidah anda dengan menu - menu andalan kami.Menu menu Sea food dan Chinese food..tersedia juga aneka juice dengan motto “berani diadu rasanya” kita berani menjamin cita rasa masakan kami :

- semua menu masakan dimasak baru / Fresh

- Bahan bahan masakan di prepare setiap hari

- Khusus Bahan mie dan minyak didatangkan dari jakarta

- Semua menu masakan dijamin higienis

- Jaminan Halal 100%

Kami pun siap menjaga selera makan anda dengan program delivery order (Pesan Antar) kami. Silahkan contact +623706610499 Pesan Bagi Para “Penjahat dunia maya” Klo mw buka puasa Silahkan mampir.

Harga Terjangkau “FREE HOTSPOT (Coming Soon)”

Disebuah pameran dirgantara diarea 51, USA ada sebuah mobil yang futuristik sekali, bentuknya yang tidak lazim mirip sekali dengan piring terbang. Atau memang benar ini sebuah UFO.