Oleh: rinimandasaristmik | Februari 18, 2013

Data Buku STMIK Pringsewu

Mrs Kepo

 

Coding :

Private Sub ccmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdbatal_Click()
txtkode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “” Baca Lanjutannya…

Oleh: rinimandasaristmik | Januari 28, 2013

Perkalian Dua Bilangan

Untitled

 

Code :

Private Sub Command1_Click()
Dim A, B As Double
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub Baca Lanjutannya…

Oleh: rinimandasaristmik | Januari 28, 2013

Perhitunga Setelah Diskon

Untitled

Code :

Private Sub Command1_Click()
Dim a, b, c As Double
Text2.Text = Val(Text1.Text) * (0.1)
Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub Baca Lanjutannya…

Oleh: rinimandasaristmik | Januari 28, 2013

Keterangan Jurusan Mahasiswa

Untitled

Code :

Private Sub Command1_Click()
Dim s As String
Text5.Text = “20” & Left(Text2.Text, 2)
s = Mid(Text2.Text, 3, 1)
If s = “1” Then
Text3.Text = “Sistem informatika”
ElseIf s = “2” Then
Text3.Text = “Manajemen informatika”
ElseIf s = “3” Then
Text3.Text = “Tehnik informatika”
ElseIf s = “4” Then
Text3.Text = “manajemen informatika”
End If Baca Lanjutannya…

Oleh: rinimandasaristmik | Januari 28, 2013

Huruf Mutu Mahasiswa-Mahasiswi STMIK PRINGSEWU

Untitled

 

Code :

Private Sub Combo1_Click()
Dim nama, jurusan As String
Select Case Combo1.Text
Case “12100333”
nama = “RINI MANDA SARI”
jurusan = “SISTEM INFORMASI”
Case “12201094”
nama = “DESPIN YULIANCE”
jurusan = “SISTEM INFORMASI”
Case “12100421”
nama = “LUCIANA RITONGA”
jurusan = “MANAJEMEN INFORMATIKA”
End Select Baca Lanjutannya…

Oleh: rinimandasaristmik | Januari 28, 2013

Font Color And Font Style

Untitled

Code :

Private Sub Check1_Click()
Label1.FontBold = Check1.Value
End Sub Baca Lanjutannya…

Oleh: rinimandasaristmik | Januari 28, 2013

Aplikasi Perhitungan Gaji Karyawan

1

CODE :

Private Sub Command1_Click()
Dim A, B, C, D, E, F As Double
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * (0.1)
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub Baca Lanjutannya…

google-android

Untuk menyaring berbagai aplikasi yang akan masuk ke Google Play dari para developer, Google menggunakan Google Bouncer yang secara otomatis akan memilah aplikasi mana yang aman atau berbahaya sebelum bisa diunduh oleh para pengguna Smartphone Adroid. Baca Lanjutannya…

Oleh: rinimandasaristmik | Januari 20, 2013

Lengan Robotik Bantu Orang Lumpuh Bergerak dengan Kendali Pikiran

Layaknya ini bukan sebuah tipuan atau adegan dalam film, tapi ini memang benar-benar ada. Dengan sebuah alat yang membaca gelombang pikiran, seorang wanita lumpuh mampu menggerakkan lengan robotik hanya dengan berpikir saja. Ditunjukkan pada sebuah video, dengan bantuan alat tersebut wanita ini memerintahkan lengan robotik untuk memberinya minuman cokelat dan membantunya memindahkan barang sehari-hari di mana lengan robot ini dikontrol lewat pikiran! Baca Lanjutannya…

robot-wheeme

Anda capek dan ingin memperoleh pijatan yang berkualitas, kini tak perlu datang ke tukang pijat. Anda bisa menggunakan sebuah robot terbaru yang dikeluarkan oleh DreamBots, yakni robot pemijat bernama WheeMe. Mereka pun telah memperkenalkan robot ini kepada publik dalam ajang CES 2013 di Las Vegas, Nevada, Amerika Serikat. Baca Lanjutannya…

Older Posts »

Kategori