Harddisk Toshiba MBF2xxLRC 2.5-inch SAS 3.5-inch

Setelah MBF2600RC, Toshiba memperkenalkan harddisk seri MBF2xxLRC 2.5-inch SAS yang terpasang di bracket 3,5 inci yang memudahkan migrasi departemen TI usaha kecil ke drive kelas enterprise dengan bentuk lebih kecil.



Toshiba MBF2xxLRC tersedia dalam 300GB (MBF230LRC), 450GB (MBF245LRC) dan 600GB (MBF260LRC) , drive baru Toshiba memberikan fitur kecepatan rotasi 10025ROM , hingga 216MB / s kecepatan transfer, SAS 2,0 6Gbs interface dan memori buffer 16MB . Toshiba akan mulai meluncurkan produk MBF2xxLRC pada bulan Juli untuk OEM.

PC Dekstop Acer Terbaru Acer X3 Aspire dan Acer Aspire M3

Acer mengumumkan PC desktop terbaru yaitu Acer X3 Aspire dan Acer Aspire M3 dengan casing hemat-ruang. Faktor bentuk yang kecil Aspire X3 merupakan kelebihan utama dan diotaki oleh prosesor AMD Athlon II, AMD Phenom II, Intel Core I3 atau prosesor Intel Pentium E6600 dan memori sampai dengan 4GB RAM.



PC Acer Aspire X3 ramping ini dilengkapi dengan NVIDIA GeForce 9200 atau Intel GMA HD grafis dan menawarkan output HDMI. Acer Aspire X3 menawarkan open slot PCI Express x16 dan beberapa model akan memiliki slot PCI Express x1.



Di sisi lain, M3 Aspire adalah PC dengan casing microtower yang didukung oleh pilihan AMD Athlon II atau AMD Phenom II CPU, untuk grafis ada pilihan ATI HD 5450 atau grafis NVIDIA GeForce 9200. PC ini mendapat harddisk dengan kapasitas 640GBe. Ada juga ruang untuk ekspansi dengan tersedianya dua slot PCI Express x1, sebuah slot PCI Express dan bay untuk drive optical ekstra dan harddisk. Kedua Aspire X3 dan Aspire M3 harga mulai $ 449,99 atau 4 jutaan rupiah.Untuk saat ini kedua produk sudah dipasarkan di Amerika Serikat.

eMachines Mini-e ER1402 PC Dekstop Kecil dengan Desain Futuristik & Harga Murah

Di masa yang maju ini, komputer makin lama menyusut ukurannya dan selain itu kreativitas desain juga membuat bentuk pc makin lama makin beragam dan bervariasi. Demikian pula pc mini dari eMachines yaitu Mini-e ER1402 memiliki desain modern dan futuristik dengan ukuran yang sungguh menghemat tempat bahkan ringan pula. Ukuran eMachines mini ini hanya 7.1 inci diameternya dan berat hanya 9 pounds atau sekitar 4 kilogram.



PC mini eMachines ini menggunakan prosesor AMD Athlon II Neo CPU, kartu grafis NVIDIA GeForce 9200 GPU, 2GB RAM, empat port USB 2.0, built-in card reader, harddisk 160GB, 802.11b/g/n WiFi dan port HDMI,PC ini juga dapat ditempel di dinding atau lemari jika Anda memilih demikian. Dan yang paling menyenangkan, pc mini ini dihargai hanya 299,99 USD atau ga sampai 3 juta rupiah dan produk ini sudah tersedia di pasaran Amerika.

Mencari Bilangan Genap dan Ganjil dengan Visual Basic

Nama: Tohjiwo Wiji A
NIM: SIR200931
Kuliah: Pemrograman Matematika
DOSEN : NAHAR MARDIYANTORO, S. Kom




Buatlah 1 textbox (beri nama misal : txtangka) untuk menampung angka dan 1 buah label (beri nama misal : lblhasil)untuk menampung hasil.
Buat command button Proses, untuk button “PROSES” , "ULANG" atau “KELUAR” bisa ditambahkan sesuai selera dengan format seperti diatas.
Untuk syntax cmdproses kita harus mendefinisikan apa arti bilangan genap dan ganjil.
Bilangan genap : adalah bilangan yang habis dibagi 2
Bilangan ganjil : adalah bilangan yang tidak habis dibagi 2.
Bahasa pemrogramannya adalah :

If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "genap"
Else
Label1.Caption = "ganjil"

Yang berarti jika angka yang dimasukkan ke dalam textbox 1 mempunyai sisa hasil bagi (Mod) = 0 maka bilangan tersebut adalah genap jika tidak maka berarti bilangan itu ganjil.
-------------------------------------------------------------------------------------------------
berikut ini adalah source code'a:

Private Sub CMDKELUAR_Click()
End
End Sub
----------------------------------------------------
Private Sub CMDPROSES_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "GENAP"
Else
Label1.Caption = "GANJIL"
End If
CMDULANG.Enabled = True
CMDPROSES.Enabled = False
End Sub
----------------------------------------------------
Private Sub CMDULANG_Click()
Text1.Text = ""
Label1.Caption = ""
CMDPROSES.Enabled = True
CMDULANG.Enabled = False
Text1.SetFocus
End Sub
-----------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CMDPROSES.SetFocus
End If
End Sub
-----------------------------------------------------

Mencari Bilangan Prima dengan Visual Basic

Nama: Tohjiwo Wiji A
NIM: SIR200931
Kuliah: Pemrograman Matematika
DOSEN : NAHAR MARDIYANTORO, S. Kom



Seperti program diatas buatlah 1 textbox (beri nama misal : txtangka) untuk menampung angka dan 1 buah label (beri nama misal : lblhasil)untuk menampung hasil.
Buat command button Proses, untuk button “INPUT” atau “EXIT” bisa ditambahkan sesuai selera dengan format seperti diatas.

Untuk syntax cmdproses kita harus mendefinisikan apa arti bilangan prima dan bilangan bukan prima.
Bilangan prima adalah bilangan yang hanya bisa dibagi oleh 1 dan bilangan itu sendiri selain itu dianggap bukan prima. Khusus untuk angka 1 disebut bilangan bukan prima dan 2 disebut bilangan prima. Contoh bilangan prima : 2, 3, 5, 7, 11,…
Secara manual kita mencari bilangan itu prima atau tidak dengan cara :
Contoh masukan angka adalah 5, maka proses penghitungannya adalah sebagai berikut :
1) 5 Mod 5 = 0
2) 5 Mod 4 = 1
3) 5 Mod 3 = 2
4) 5 Mod 2 = 1
5) 5 Mod 1 = 0

Perhatikan pada sub penghitungan 2-4 tidak ada angka 0 dalam rangkaian penghitungan tersebut membuktikan bahwa angka 5 tidak habis dibagi oleh angka-angka selain 1 dan 5 (bilangan itu sendiri), lain halnya jika yang bukan prima (coba kita masukkan angka 6 misalnya)

1) 6 Mod 6 = 0
2) 6 Mod 5 = 1
3) 6 Mod 4 = 2
4) 6 Mod 3 = 0
5) 6 Mod 2 = 0
6) 6 Mod 1 = 6

Perhatikan pada sub penghitungan 2-4 ternyata angka 0 dalam rangkaian penghitungan tersebut yang membuktikan bahwa angka 6 ternyata habis oleh angka pembilang selain 1 dan angka 6 (bilangan itu sendiri) berarti 6 adalah bilangan bukan prima.

Jika perintah diatas diubah ke dalam bahasa pemrograman visual basic berbentuk demikian :

If Val(Text1.Text) = 1 Then
text2.Caption = "Bukan Prima"
ElseIf Val(Text1.Text) = 2 Then
text2.Caption = "Prima"

Else

For i = 2 To Val(Text1.Text) - 1
If Val(Text1.Text) Mod i = 0 Then
text2.Caption = "BUKAN BILANGAN PRIMA"
Exit For
Else
text2.Caption = "BILANGAN PRIMA"
End If
Next
End If

Perintah tersebut berarti : khusus untuk angka 1 definisikanlah sebagai “Bukan Prima” dan khusus untuk angka 2 definisikanlah sebagai “Prima” (anda akan melihat ada if dan elseIf itu dikarenakan ada 2 fungsi if yang berlaku dalam syntax tersebut sehingga ketika ada fungsi if lain maka fungsi if berikutnya diberi syntax elseIf. Kemudian perintah perhitungan berikut dalam fungsi tersebut bermakna : lakukanlah perhitungan ke-2 sampai ke-angka yang bersangkutan dikurangi 1 (untuk melakukan fungsi perulangan gunakan fungsi Next). Kenapa hal ini dilakukan? Jawabannya adalah karena kita hanya menyoroti hasil sisa bagi (Mod) dari perhitungan ke-2 sampai angka yang bersangkutan dikurangi 1 saja, karena semua angka prima maupun bukan prima sudah jelas habis dibagi oleh angka 1 dan angka yang itu sendiri jadi yang kita fokuskan adalah perhatian pada penghitungan ke-2 sampai ke-angka dikurangi 1. Jika dalam perhitungan tersebut terdapat sisa hasil bagi (Mod) = 0 maka bilangan tersebut bukan prima.

---------------------------------------------------------------------------------------
berikut ini source code'a:

Private Sub PROSES_Click()
For i = 2 To Text1.Text - 1
If Text1.Text Mod i = 0 Then
Text2.Text = "BUKAN BILANGAN PRIMA"
Exit For
Else
Text2.Text = "BILANGAN PRIMA"
End If
Next i

If Text1.Text = "" Then
pesan = MsgBox("harap mengisi datanya!", vbInformation)
End If

Command1.Enabled = False
Command2.Enabled = True
Command2.SetFocus
End Sub
------------------------------------------------------------------------------------
Private Sub INPUT_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Command2.Enabled = False
Command1.Enabled = True
End Sub
----------------------------------------------------------------------------------
Private Sub EXIT_Click()
pesan = MsgBox("yakin anda mo keluar?", vbYesNo + vbQuestion)
If pesan = vbYes Then
End
Else
pesan = vbCancel
End If
End Sub
----------------------------------------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

Mencari Bilangan Faktorial dengan Visual Basic

Nama: Tohjiwo Wiji A
NIM: SIR200931
Kuliah: Pemrograman Matematika
DOSEN : NAHAR MARDIYANTORO, S. Kom



Seperti yang kita ketahui rumus factorial adalah n! = n x (n-

bil = 1
For i = 1 To txtangka.Text
bil = bil * i
Next
txthasil.Text = Str(bil)

Syntax diatas bermakna : dalam melakukan bilangan ini kita gunakan variable Bantu yaitu bil = 1, diberi harga 1 karena kalau tidak akan diberi harga 0. Kemudian untuk fungsi i maka 1 sampai angka yang dimasukkan dalam textbox txtangka.Text maka lakukanlah perintah bil (=1) dikalikan angka-angka yang disebutkan oleh fungsi i dan lakukanlah perulangan (next) sampai angka yang dimasukkan dalam textbox dan tempatkanlah hasil perhitungan tersebut dalam textbox txthasil.Text

-----------------------------------------------------------------------------------------------
berikut ini adalah source code'a:

Dim vbil, vproses As Double
-----------------------------------------------------------------------------------------------
Private Sub factorial_Click()
vbil = Val(tangka.Text)
vproses = 1
For i = 1 To vbil
vproses = i * vproses
Next i

thasil.Text = vproses
End Sub
--------------------------------------------------------------------------------------------
Private Sub exit_Click()
End
End Sub
---------------------------------------------------------------------------------------------
Private Sub input_Click()
tangka.Text = ""
thasil.Text = ""
tangka.SetFocus
End Sub
---------------------------------------------------------------------------------------------

Mencari FPB dengan Algoritma Euclid Pada Visual Basic

Nama: Tohjiwo Wiji A
NIM: SIR200931
Kuliah: Pemrograman Matematika
DOSEN : NAHAR MARDIYANTORO, S. Kom

1. Pengertian FPB:
Kepanjangan : Faktor persekutuan terbesar
Artinya : Merupakan faktor-faktor pembagi yang paling besar dari suatu bilangan.
Apa sih arti faktor pembagi itu : Angka-angka yang dapat membagi suatu bilangan.
misalnya : faktor pembagi dari angka 10 adalah (cari angka yang dapat membagi angka tersebut) 1, 2, 5, 10
Lihat : faktor pembagi angka 10 = 1, 2, 5, 10 (angka 10 dapat dibagi angka 1, angka 10 dapat dibagi angka 2, angka 10 dapat dibagi angka 5, dan angka 10 dapat dibagi oleh angka 10)

2. Menentukan FPB dengan Visual Basic
a.Pengertian Algoritma Euclid
Salah satu cara mencari FPB adalah dengan algoritma Euclid. Tahun 1950, algoritma pertama kali di gunakan pada “Algoritma Euclidean (Euclid’s algorithm)“.
Euclid, matematikawan Yunani (lahir 350 SM), buku Element menuliskan langkah-langkah untuk menemukan pembagi bersama terbesar (common greatest divisor atau gcd), dari dua buah bilangan bulat, m dan n.
pembagi bersama terbesar dari dua buah bilangan bulat tak negatif adalah bilangan bulat positif terbesar yang habis membagi kedua bilangan tersebut.

Misalnya, m = 80 dan n = 12.
Semua faktor pembagi 80 adalah 1, 2, 4, 5, 8, 10, 16, 20, 40, 80
Semua faktor pembagi 12 adalah 1, 2, 3, 4, 6, 12
maka gcd(80,12) = 4
Langkah-langkah mencari gcd(80,12) dengan algoritma euclidean sbb :
1.80 di bagi 12 = 6, sisa 8 ( atau 80 = 6 * 12 + 8 )
2.12 di bagi 8 = 1, sisa 4 (atau 12 = 1 * 8 + 4)
3.8 di bagi 4 = 2, sisa 0 (atau 8 = 4 * 2 + 0)
Pembagian terkahir menghasilkan 0, maka sisa pembagian terakhir sebelum 0, yaitu 4, menjadi gcd(80,12). Jadi gcd(80,12) = gcd(12,8) = gcd(8,4) = gcd(4,0) =4.
Proses mencari gcd dari 80 dan 12 juga dapat di ilustrasikan dalam diagram berikut ini :



b. Membuat Flowcart.
Sebelum menuju membuat programnya hendaknya kita membuat flowcartnya terlebih dahulu



c. Program



source codde nya:
--------------------------------------------------------------------------
Dim X As Integer
Dim a, b, c, i As Integer
--------------------------------------------------------------------------
Private Sub cmd_search_Click()
a = Val(fpb_a.Text)
b = Val(fpb_b.Text)
If a < b Then
X = b
Else
X = a
End If
Print X
For i = 1 To X
If a Mod i = 0 And b Mod i = 0 Then
c = i
fp.Text = fp.Text & " " & Str(c)
End If

If a Mod i = 0 Then
fak_a.Text = fak_a.Text & " " & Str(i)
End If

If b Mod i = 0 Then
fak_b.Text = fak_b.Text & " " & Str(i)
End If
Next i
thasil.Text = c
End Sub
-------------------------------------------------------------------------
Private Sub cmd_exit_Click()
End
End Sub
-------------------------------------------------------------------------
Private Sub cmd_repeat_Click()
fpb_a.Text = ""
fpb_b.Text = ""
fak_a.Text = ""
fak_b.Text = ""
fp.Text = ""
thasil.Text = ""
fpb_a.SetFocus
End Sub
-------------------------------------------------------------------------
Private Sub Form_Activate()
fpb_a.SetFocus
End Sub
------------------------------------------------------------------------
Private Sub fpb_a_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
fpb_b.SetFocus
End If
End Sub
-------------------------------------------------------------------------