0 Coding untuk visual basic (membuat daftar menu makanan)

By Indra arga | At 08.45 | Label : Teknologi | 0 Comments

Private Sub Command1_Click()
Text7 = blank
    Dim psn1 As String
    Dim psn2 As String
    Dim byr1 As Integer
    Dim byr2 As Integer
    Dim total As Integer

   
    byr1 = Text3
    byr2 = Text6
    psn1 = Text2
    psn2 = Text5
    total = byr1 + byr2
   
Text7 = Text7 & "Berikut pesanan anda" & vbCrLf
Text7 = Text7 & psn1 & vbCrLf
Text7 = Text7 & psn2 & vbCrLf
Text7 = Text7 & "" & vbCrLf
Text7 = Text7 & "Berikut total pembayaran" & vbCrLf
Text7 = Text7 & "Rp. " & total

End Sub

Private Sub Command2_Click()
MsgBox "Terima kasih telah memesan :)"
    Unload Me
End Sub

Private Sub Text1_Change()
    Dim no1
        Select Case Text1.Text
            Case 1: Text2.Text = "- Ayam goreng"
            Case 2: Text2.Text = "- Ikan goreng"
            Case 3: Text2.Text = "- Nasi goreng"
            Case 4: Text2.Text = "- Nasi uduk"
            Case 5: Text2.Text = "- Sosis goreng"
            Case 6: Text2.Text = "- Cireng"
            Case 7: Text2.Text = "- Teh botol"
            Case 8: Text2.Text = "- Ice cream"
            Case 9: Text2.Text = "- Jus jeruk"
            Case 10: Text2.Text = "- Jus alpukat"
            Case blank: Text2.Text = "-"
            Case Else: Text2.Text = "-"
        End Select
        Select Case Text1.Text
            Case 1: Text3.Text = "10000"
            Case 2: Text3.Text = "8000"
            Case 3: Text3.Text = "9000"
            Case 4: Text3.Text = "3000"
            Case 5: Text3.Text = "2000"
            Case 6: Text3.Text = "500"
            Case 7: Text3.Text = "2500"
            Case 8: Text3.Text = "3500"
            Case 9: Text3.Text = "7000"
            Case 10: Text3.Text = "7500"
            Case blank: Text3.Text = "-"
            Case Else: Text3.Text = "-"
        End Select
           
End Sub

Private Sub Text4_Change()
    Dim no2
        Select Case Text4.Text
            Case 1: Text5.Text = "- Ayam goreng"
            Case 2: Text5.Text = "- Ikan goreng"
            Case 3: Text5.Text = "- Nasi goreng"
            Case 4: Text5.Text = "- Nasi uduk"
            Case 5: Text5.Text = "- Sosis goreng"
            Case 6: Text5.Text = "- Cireng"
            Case 7: Text5.Text = "- Teh botol"
            Case 8: Text5.Text = "- Ice cream"
            Case 9: Text5.Text = "- Jus jeruk"
            Case 10: Text5.Text = "- Jus alpukat"
            Case blank: Text5.Text = "-"
            Case Else: Text5.Text = "-"
        End Select
        Select Case Text4.Text
            Case 1: Text6.Text = "10000"
            Case 2: Text6.Text = "8000"
            Case 3: Text6.Text = "9000"
            Case 4: Text6.Text = "3000"
            Case 5: Text6.Text = "2000"
            Case 6: Text6.Text = "500"
            Case 7: Text6.Text = "2500"
            Case 8: Text6.Text = "3500"
            Case 9: Text6.Text = "7000"
            Case 10: Text6.Text = "7500"
            Case blank: Text6.Text = "-"
            Case Else: Text6.Text = "-"
        End Select
End Sub

0 Laptop DELL Alienware M17x beserta harga dan spesifikasinya

By Indra arga | At 08.33 | Label : Teknologi | 0 Comments

Sekilas Tentang Alienware

Laptop Dell Alienware M17x ini didukung dengan layar berukuran 17.3" beresolusi 1920 x 1080 piksel. Kita bisa menikmati kualitas gambar yang lebih tajam, jernih dan kaya warna dengan kualitas layar Full HD LED backlit display. Suasana peperangan akan lebih terlihat nyata membuat pengalaman gaming lebih mengasyikkan.Untuk mendukung kinerja grafis yang optimal, Dell Alienware M17x dirancang dengan kartu grafis Nvidia GeForceGT660M memori 2 GB yang menjamin pengalaman bermain games Anda berjalan dengan mulus tanpa lagi. Tidak ada lagi grafis yang terhambat ketika sedang asyik di tengah peperangan. Ditambah dengan teknologi NVIDIA Optimus, laptop akan secara otomatis menyesuaikan konsumsi daya sehingga notebook dapat bertahan hingga 6 jam dalam satu kali pengisian.Dell Alienware M17x dibekali dengan prosesor Intel Quad Core i7-3630QM berkecepatan 3.4 GHz dengan Turbo Boost. Untuk memori RAMnya didukung 6 GB DDR3 (1x 2GB, 1x 4GB). Dengan spesifikasi tersebut memastikan Anda untuk menjalankan berbagai tugas komputasi yang kompleks ataupun bermain games dengan lancar.

Spesifikasi Laptop Dell Alienware M17X

Processor               : Intel® Core™ i7-3630QM Processor (turbo boost up to 3,4GHz ; 6M    Cache)

Memory                 : 6GB DDR3 (1x 2GB, 1x 4GB)

Hard Drive             : 1TB 5400RPM

Display / Monitor   : 17,3″ HD WLED Full HD

Optical Device       : 8X DVDRW

Graphic Card          : Nvidia GeForce GT660M 2GB

Bluetooth                : Bluetooth 3.0 + HS

Operating System   : Windows 8

Anti Virus               : McAfee 15 months

Sound Card             : Subwoofer & Audio by Klipsch

Webcam                  : 3,2 MP Webcam

Battery                    : 9-cell battery

Adapter                   : 240W

Network                  : 802.11a/g/n, Ethernet 10/100/1000

Color                       : Black, Red

Harga Laptop Dell Alienware M17X

Suuuhttt.. pasty pada nanya, berapa harga untuk alien cantik yang satu ini??  untuk harga “Dell” memasang harga Rp. 27,5 juta Rupiah ,.aje gileeeee..(mahal sangat ye..)Namun harga tersebut sebanding dengan spesifikasi dan kinerja yang diberikan laptop ini.  Bagi kalian yang mendambakan laptop game berkualitas, ini saatnya untuk memiliki Dell Alienware M17X.