tugas visual basic 5

novriyansyah 5

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Iklan
Dipublikasi di Perkembangan IT | Meninggalkan komentar

tugas visual basic 4

novriyansyah 4

Private Sub Command1_Click()
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

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command3_Click()
Unload Me

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyPress = 13 Then
Text2.SetFocus
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyPress = 13 Then
Text3.SetFocus
End If

End Sub

Dipublikasi di Perkembangan IT | Meninggalkan komentar

tugas visual basic 3

novriyansyah 3

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) * 0.1
Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyPress = 13 Then
Text2.SetFocus
End If
End Sub

Dipublikasi di Perkembangan IT | Meninggalkan komentar

TUGAS VISUAL BASIC 2

NOVRIYANSYAH 2

Private Sub Check1_Click()

End Sub

Private Sub Chebold_Click()
‘Membuat teks tebal
If Chebold.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub

Private Sub Check3_Click()

End Sub

Private Sub Check4_Click()

End Sub

Private Sub Cheitalic_Click()
‘Membuat teks tebal
If Cheitalic.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub

Private Sub Chestikeout_Click()
‘Membuat teks bergaris tengah
If Chestrikeout.Value = 1 Then
Label1.FontStrikeout = True
Else
Label1.FontStrikeout = False
End If

End Sub

Private Sub Chestrikeout_Click()
‘Membuat teks bergaris tengah
If Chestrikeout.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub

Private Sub Cheunderline_Click()
‘Membuat teks bergaris bawah
If Cheunderline.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub optblue_Click()
‘Membuat teks berwarna biru
Label1.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
‘Membuat teks berwarna hijau
Label1.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
‘Membuat teks berwarna merah
Label1.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
‘Membuat teks berwarna kuning
Label1.ForeColor = vbYellow
End Sub

Dipublikasi di Perkembangan IT | Meninggalkan komentar

TUGAS VISUAL BASIC

NOVRIYANSYAH 1

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Dipublikasi di Perkembangan IT | Meninggalkan komentar

Acer Siapkan Tablet Murah

Acer Iconia B1-A71 (IBN Live)

 

Image
Taipei – Acer tampaknya tak ingin melewatkan pasar tablet murah. Perusahaan asal Taiwan ini kabarnya akan merilis tablet yang harganya bersahabat di kantong, sekitar USD 99 atau Rp 1 jutaan.

Baru-baru ini beredar bocoran GLBenchmark yang menguak spesifikasi Acer Iconia B1-A71. Ketika dirilis nanti, tablet ini akan bersaing dengan Asus yang kabarnya memiliki nama kode ME172V.

Acer Iconia B1-A71 disebut-sebut telah disahkan oleh Federal Communications Commission. Diyakini, tablet dengan layar 7 inch tersebut akan menampakkan diri di ajang Consumer Electronics Show 2013 di Las Vegas, Amerika Serikat Januari mendatang.

Berdasarkan informasi GLBenchmark, Acer Iconia B1-A71 akan menggunakan Android Jelly Bean, mengusung layar dengan resolusi 1025 x 600 pixel dan dibekali kamera 1,3 megapixel.

Dari sisi dapur pacu, seperti dilansir IBN Live dan dikutip detikINET, Minggu (23/12/2012), prosesor dual-core 1,2GHz diklaim akan menjadi otaknya. Untuk memori internal, tersedia kapasitas 16GB.

Selain itu, belum ada keterangan lebih mendetail mengenai spesifikasinya. Acer sendiri belum memberikan respons atau pernyataan resmi atas laporan ini.

Dipublikasi di Perkembangan IT | Meninggalkan komentar

Tablet Windows RT 7 Inch Pertama, Datang dari HTC

 

Image

London – Vendor elektronik asal Taiwan HTC berencana membuat tablet dengan sistem operasi Windows. Ini akan menjadi tablet 7 inch pertama berbasis Windows RT.

Selain tablet 7 inch, HTC juga akan membuat versi 12 inch. Kedua jenis tablet ini, seperti disebutkan sumber internal yang menolak disebutkan identitasnya, bisa juga digunakan untuk ‘halo-halo’ alias menelepon.

Dilansir Telegraph dan dikutip detikINET, Minggu (23/12/2012), langkah ini akan menempatkan Microsoft selaku si pembesut OS Windows kian bersaing ketat dengan Apple dan Google di pasar tablet.

HTC kabarnya akan merilis kedua tabletnya ini di 2013. Jika benar, tablet 7 inch Windows RT bisa menantang produk lain yang sejenis, yakni iPad mini, Kindle Fire dan Nexus 7.

Laporan lain yang dilansir Bloomberg menyebutkan, HTC juga sempat mempertimbangkan untuk membuat tablet Windows 8. Namun niat tersebut urung lantaran harganya akan mahal, yakni di kisaran USD 1.000.

Untuk diketahui, Windows RT adalah OS terbaru Microsoft yang dirancang untuk perangkat dengan chip ARM. Penamaan jenis-jenis OS Windows ini memang memunculkan kebingungan. Microsoft pun sampai perlu melakukan training khusus bagi karyawan agar bisa menjelaskan dengan baik ke consumer.

Dipublikasi di Perkembangan IT | Meninggalkan komentar