BIKIN KALKULATOR DI VISUAL BASIC-MU!!!

Nah.... yang ini ni, salah satu tugas VBquw semester kemarin...Bikin simple calculator...
Mmmm, muga bermanfaat yaah... ^__^

Public Class Form1
Dim DATA1 As Double
Dim DATA2 As Double
Dim TANDA As String
Dim STATUS As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BOX.Text = "0"
STATUS = True
End Sub

Private Sub BTN_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_1.Click
If STATUS = True Then
BOX.Text = "1"
STATUS = False
Else
BOX.Text = BOX.Text & 1
End If
End Sub

Private Sub BTN_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_2.Click
If STATUS = True Then
BOX.Text = "2"
STATUS = False
Else
BOX.Text = BOX.Text & 2
End If
End Sub

Private Sub BTN_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_3.Click
If STATUS = True Then
BOX.Text = "3"
STATUS = False
Else
BOX.Text = BOX.Text & 3
End If
End Sub

Private Sub BTN_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_4.Click
If STATUS = True Then
BOX.Text = "4"
STATUS = False
Else
BOX.Text = BOX.Text & 4
End If
End Sub

Private Sub BTN_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_5.Click
If STATUS = True Then
BOX.Text = "5"
STATUS = False
Else
BOX.Text = BOX.Text & 5
End If
End Sub

Private Sub BTN_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_6.Click
If STATUS = True Then
BOX.Text = "6"
STATUS = False
Else
BOX.Text = BOX.Text & 6
End If
End Sub

Private Sub BTN_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_7.Click
If STATUS = True Then
BOX.Text = "7"
STATUS = False
Else
BOX.Text = BOX.Text & 7
End If
End Sub

Private Sub BTN_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_8.Click
If STATUS = True Then
BOX.Text = "8"
STATUS = False
Else
BOX.Text = BOX.Text & 8
End If
End Sub

Private Sub BTN_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_9.Click
If STATUS = True Then
BOX.Text = "9"
STATUS = False
Else
BOX.Text = BOX.Text & 9
End If
End Sub

Private Sub BTN_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_0.Click
If STATUS = True Then
BOX.Text = "0"
STATUS = False
Else
BOX.Text = BOX.Text & 0
End If
End Sub

Private Sub BTN_KOMA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_KOMA.Click
If Not BOX.Text.Contains(".") Then
BOX.Text = BOX.Text & "."
Else
Beep()
End If
End Sub

Private Sub BTN_KALI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_KALI.Click
If BOX.Text.Length <> 0 Then
If TANDA = "" Then
DATA1 = Val(BOX.Text)
STATUS = True
Else
If STATUS = False Then
calculate()
STATUS = True
End If
End If
End If
TANDA = "*"
End Sub

Private Sub BTN_BAGI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_BAGI.Click

If BOX.Text.Length <> 0 Then
If TANDA = "" Then
DATA1 = Val(BOX.Text)
STATUS = True
Else
If STATUS = False Then
calculate()
STATUS = True
End If
End If
End If
TANDA = "/"
End Sub

Private Sub BTN_TAMBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_TAMBAH.Click
If BOX.Text.Length <> 0 Then
If TANDA = "" Then
DATA1 = Val(BOX.Text)
STATUS = True
Else
If STATUS = False Then
calculate()
STATUS = True
End If
End If
End If
TANDA = "+"
End Sub

Private Sub BTN_KURANG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_KURANG.Click
If BOX.Text.Length <> 0 Then
If TANDA = "" Then
DATA1 = Val(BOX.Text)
STATUS = True
Else
If STATUS = False Then
calculate()
STATUS = True
End If
End If
End If
TANDA = "-"
End Sub

Private Sub BTN_PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_PROSES.Click
If BOX.Text.Length <> 0 Then
If DATA1 <> 0 Then
calculate()
TANDA = ""
End If
End If
End Sub

Private Sub BTN_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_C.Click
BOX.Text = "0"
status = True
TANDA = ""
End Sub

Private Sub BTN_EXIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_EXIT.Click
Me.Close()
End Sub

Private Sub BTN_DEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_DEL.Click
Dim A As String
A = BOX.Text
If Len(A) > 1 Then
BOX.Text = A.Substring(0, A.Length - 1)
Else
BOX.Text = "0"
STATUS = True
End If
End Sub

Private Sub BTN_PLUSMIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_PLUSMIN.Click
Dim ISIBOX As Integer
ISIBOX = CInt(CDbl(BOX.Text) * -1)
BOX.Text = CStr(ISIBOX)
'DATA1 = BOX.Text
End Sub
Public Sub calculate()
DATA2 = Val(BOX.Text)
Try
If TANDA = "/" Then
STATUS = True
If DATA2 <> 0 Then
DATA1 = DATA1 / DATA2
Else
MessageBox.Show("Pembagian dengan 0", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
ElseIf TANDA = "*" Then
DATA1 = DATA1 * DATA2
ElseIf TANDA = "+" Then
DATA1 = DATA1 + DATA2
ElseIf TANDA = "-" Then
DATA1 = DATA1 - DATA2
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
BOX.Text = "ERROR"
End Try
BOX.Text = CStr(DATA1)
STATUS = True
End Sub
End Class

READ MORE - BIKIN KALKULATOR DI VISUAL BASIC-MU!!!

SCRIPT BUAT STOPWATCH DI VB

Iseng2 buat, hehehe...


Public Class Form1

Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
Me.Label1.Text = "0"
Me.Timer1.Enabled = True
End Sub

Private Sub BtnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStop.Click
Me.Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Label1.Text = CStr((CDbl(Me.Label1.Text) + 0.1))
End Sub

Private Sub BtnLanjut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLanjut.Click
Me.Label1.Text = CStr((CDbl(Me.Label1.Text) + 0.1))
Me.Timer1.Enabled = True
End Sub
End Class

READ MORE - SCRIPT BUAT STOPWATCH DI VB

NGETAWAIN DIRI SENDIRI!!! (hehhh???)

Pernah marah waktu orang lain, apapun alasannya, ngetawain kamu???
Apa yang kamu rasain?? Marah?? Ngapain marah. Mending ikutan mereka ngetawain dirimu sendiri. Cowok ‘n cewek cool adalah mereka yang punya sense of humor. Cowok ‘n cewek cool yang punya sense of humor dan mampu ngetawain dirinya sendiri, biasanya punya magnet di dalam lingkungan sosialnya. Tentu humor yang cerdas, bukan lelucon ala Dono-Kasino-Indro yang ngetawain orang lain atau ngakak ngeliat orang lain bernasip apes.
Gimana sih humor yang cerdas??
Humor yang cerdas biasanya orisinil, unik, gak banyak orang yang udah ngerti, dan penuh kejutan. Pelesetan termasuk salah satu humor yang cerdas, asal kata yang dipelesetin bisa munculin makna yang khas.
Kalo bisa, hindari humor yang pornografi, terutama kalo lagi ngobrol sama lawan jenis. Emang seru, nyeritain lelucon yang berbau porno. Tapi kayaknya cukup dikonsumsi di kalangan terbatas aja. jangan sampai orang lai mengidentikkan kamu sebagai “manusia berbau porno”!!!

Semua Orang Punya Pengalaman konyol…

Kenapa diri sendiri harus diketawain??? Alasan pertama, sebab kita sering ngelakuin hal-hal konyol yang emang layak diketawain. Hayo, ngaku aja dech. Semua orang punya pengalaman konyol. Bedanya, ada yang mau mengakui, dan ada yang sama sekali enggak mau ngaku.
Pernah pake baju kebalik?? Pernah salah negur orang kan?? Kamu pernah ngacungin tangan ngajak salaman, sementara orang yang kamu ajak salaman malah cuek ngobrol sama orang lain. Atu kamu pernah punya pengalaman konyol yang lebih seru atau heboh??
Ha ha ha…..

Jujur Pada Diri Sendiri

Alasan kedua, ngetawain diri sendiri berarti kamu bisa jujur sama diri kamu sendiri. Kamu bukanlah tipe pemuja diri, yang hanya memandang diri sendiri dari sudut pandang yang sempit. Sebab ia nggak jujur. Sepembohong-pembohongnya oang, ia harus tetap jujur pada diri sendiri. Kalo sama diri sendiri aja nggak jujur, gimana sama orang lain??

Introspeksi

Alasan ketiga ngetawain diri sendiri ternyata punya efek yang sangat positif buat pengembangan diri kamu. Ngetawain diri sendiri berarti kamu sedang introspeksi diri. Kamu gak malu mengakui kekurangan kamu, juga kekonolan kamu. dan kamu punya tekat untuk jadi lebih baik lagi di masa depan.
Kita hidup di zaman ketika ketidaksempurnaan mulai bisa diterima. Ketika si Gemuk pun bisa menjadi cantik, asal brain&behavior-nya oke. Saat orang menerima kita apa adanya. Ketika kita nyadar ternyata rocker juga manusia, punya rasa punya hati, jangan samakan dengan pisau belati…..
Kamu ngetawain aku???Kalo emang ada alas an yang jelas, okelah mari kita ketawa bareng-bareng. Kalo emang nggak ada lasan yang kuat, so what???Cuek aja lagi…
Ketika makin banya orang dewasa nggak tahu diri, sangat dipelukan anak muda yang mapu introspeksi dengan jujur. Ketika bnyak comedian gak lucu, kta bingung cari alas an untuk ketawa.
Akhirnya ya udah, ngetawain diri sendiri ajah, ha ha ha ha……….

Diambil dari sebuah buku “Cool Habits of The Nexter Gen”

READ MORE - NGETAWAIN DIRI SENDIRI!!! (hehhh???)

FAKTA-FAKTA INTERNET

Internet…

Mmmm…….sapa sih yang gak tau internet??? Internet bukan barang baru di kehidupan kita. Dikit-dikit nyari di internet. Mau nyari apapun lengkap dengan tetek mbengeknya juga ada di internet. Memang internet udah menjadi budaya baru di masyarakat kita.
Berikut ini ada beberapa fakta menarik tentang internet untuk menambah wawasan kita para pengguna internet. Biar kita ngga cuma asal pake, tapi juga tau tentang asal muasal dan apa aja yang ada di internet.
Fakta-Fakta unik Internet, let’s check it out…

1.Jaringan Internet untuk pertama kali diawali pada tahun 1969 sebagai ARPANET, yang dibangun oleh ARPA (United States Department of Defense Advanced Research Projects Agency). Beberapa penyelidikan awal yang disumbang oleh ARPANET termasuk kaedah rangkaian tanpa-pusat (decentralised network), teori queueing, dan kaedah pertukaran paket (packet switching). Pada 01 Januari 1983, ARPANET menukar protokol rangkaian pusatnya, dari NCP ke TCP/IP. Ini merupakan awal dari Internet yang kita kenal hari ini.

2.Surat elektronik atau electronic mail (e-mail) pertama yang berhasil dikirimkan antara dua mesin dilakukan oleh seorang insinyur pendiam, Ray Tomlison di BBN suatu hari di tahun 1972. Sebelumnya, Tomlison telah menulis program mail untuk Tenex, sistem operasi yang dikembangkan BBN, yang hingga sekarang masih beroperasi pada mesin-mesin PDP-10 ARPANET. Selain itu, yang juga monumental adalah Pak Tomlison yang menemukan lambang @ pada e-mail yang kemudian digunakan orang di seluruh dunia.

3.Berdasarkan catatan whois ARIN dan APNIC, protokol Internet (IP) pertama dari Indonesia, UI-NETLAB (192.41.206/24) didaftarkan oleh Universitas Indonesia pada 24 Juni 1988.

4.Ungkapan "surfing in the Internet" (berselancar di Internet) pertama kali muncul pada 1992 oleh Jean Armour Polly. Munculnya ungkapan itu gara-gara si Polly menggunakan mouse pad yang bergambar orang lagi berselancar, sehingga beliau ini punya ide menggunakan istilah surfing untuk aktivitas yang berkaitan dengan internet.

5.Tanggal 4 September 1956 IBM memperkenalkan hard disk pertama di dunia. Hard disk berukuran dua lemari es harganya senilai $250.000 sekarang, dengan kemampuan 5 MB, atau hanya cukup untuk menyimpan satu lagu dalam format MP3. Bandingkan dengan hardisk jaman sekarang ada yang selebar 0,6 cm dengan kapasitas 400 GB!

6.Negara pertama yang menerapkan sistem online dalam pemilihan umum adalah Estonia. Padahal negara tersebut merupakan salah satu negara termiskin di Uni Eropa. Pemilu tersebut diadakan pada hari minggu tanggal 4 Maret 2007, dengan total pemilih di Estonia berjumlah 940.000 orang.

7.Blog (atawa weblog) pertama kemungkinan besar adalah halaman What's New pada browser Mosaic yang dibuat oleh Marc Andersen pada tahun 1993. Sebagai informasi, Mosaic adalah browser pertama sebelum adanya Internet Explorer bahkan sebelum Nestcape. Kemudian pada Januari 1994 Justin Hall memulai website pribadinya Justin's Home Page yang kemudian berubah menjadi Links from the Underground yang mungkin dapat disebut sebagai Blog pertama seperti yang kita kenal sekarang.

8.Virus komputer diperkirakan muncul pertama kali pada Januari 1986, disebut-sebut sebagai virus pertama untuk PC yang pernah dibuat. Virus ini menginfeksi boot sector media penyimpanan data dengan format DOS File Allocation Table (FAT). (c)Brain (nama virus ini) juga dikenal dengan sebutan virus Lahore, Pakistani, Pakistani Brain, Brain-A dan UIUC. Majalah Businessweek pada waktu itu menyebutnya Pakistani Flu. Percaya atau tidak, virus ini dibuat oleh dua orang bersaudara Basit Farooq Alvi dan Amjad Farooq Alvi yang ternyata masih berusia 19 tahun! Awalnya kakak beradik ini mengaku pada majalah Time bahwa mereka membuat virus ini untuk melindungi software pengobatan karya mereka dari pembajakan. Virus ini bahkan melengkapi diri dengan alamat dua bersaudara ini berikut tiga nomor telepon yang bisa dihubungi, tak ketinggalan sebuah pesan yang menyebutkan bahwa jika komputer user terinfeksi maka dianjurkan menghubungi mereka untuk vaksinasi. Ketika mereka mulai mendapatkan ribuan telepon dari orang-orang berbagai penjuru Amerika Serikat, Inggris, dan lainnya,yang meminta vaksinasi untuk komputer mereka, kakak-beradik ini terperangah dan berusaha menjelaskan bahwa motivasi mereka bukanlah untuk kejahatan. Mereka akhirnya memotong kabel telepon dan menyesal telah membeberkan nomor telepon mereka sejak awal.

Disunting dari: http://www.wikimu.com/News/DisplayNews.aspx?id=3557

READ MORE - FAKTA-FAKTA INTERNET