Square Banner

Flex Slider (Do Not Edit Here!)

(Tab Widget 2)

(Tab Widget 4)

Poll

Popular Posts

About Me

Followers

(Tab Widget 3)

Download Software Turbo C++ Dan Pngertiannya

Assalumalaikum Teman Ketemu Lagi , Disini Saya Akan Membrikan Link Download Software turbo C++,
Sbelum Saya Memberikan Link Nya Ada Baikknya teman memahami Kode-kode dari Software Turbo C++ Nya ini Disimak Ya Teman.... : 
 Untuk keperluan penampilan data/informasi, Turbo C menyediakan sejumlah fungsi, diantaranya adalah PRINTF ( ), PUTS ( ) dan PUTCHAR ( )


PRINTF ( )
Merupakan fungsi yang paling umum digunakan dalam menampilkan data. Berbagai jenis data dapat ditampilkan ke layar dengan fungsi ini.
Bentuk penulisan : printf(“string kontrol”, argumen1, argumen2, …);
- String kontrol dapat berupa keterangan yang akan ditampilkan pada layar beserta penentu format seperti %d, %f. Penentu format dipakai untuk memberi tahu kompiler mengenai jenis data yang akan ditampilkan
- Argumen adalah data yang akan ditampilkan ke layar. Argumen ini dapatr berupa variabel, konstanta atau ungkapan

PUTS ( )
Fungsi ini digunakan khusus untuk menampilkan data string ke layar. Sifat fungsi ini, string yang ditampilkan secara otomatis akan diakhiri dengan \n (pindah baris). Dibandingkan dengan printf(), perintah ini mempunyai kode mesin yang lebih pendek.
PUTCHAR ( )
Digunakan khusus untuk menampilkan sebuah karakter ke layar. Penampilan karakter tidak diakhiri dengan perpindahan baris, misalnya :
putchar(‘A’); sama dengan printf(“%c”, A);
MEMASUKKAN DATA DARI KEYBOARD
Data dapat dimasukkan lewat keyboard saat eksekusi berlangsung. Fungsi yang digunakan diantaranya adalah : scanf ( ), getch ( ), dan getche ( ) .

SCANF ( )
Merupakan fungsi yang dapat digunakan untuk memasukkan berbagai jenis data. Bentuk scanf ( ) sesungguhnya menyerupai fungsi printf ( ) yang melibatkan penentu format. Bentuk penulisan : scanf(“string kontrol”, daftar argumen);
Hal-hal yang perlu diperhatikan dalam pemakaian scanf yaitu :
1. scanf memberi pergantian baris secara otomatis, artinya Anda tidak perlu memberi \n untuk berpindah ke baris berikutnya.
2. scanf memakai penentu format, tetapi tidak memerlukan penentu lebar field. Contoh yang salah : scanf(“10.2f”,&gaji);
3. Variabel yang dipakai di dalam scanf harus didahului dengan operator alamat (&).

MEMASUKKAN BEBERAPA DATA SECARA BERSAMA-SAMA
Data dapat dimasukkan secara bersama-sama dalam satu baris. Setiap data dipisahkan oleh sebuah karakter. Karakter-karakter yang dapat bertindak sebagai pemisah data adalah :
- Koma (‘)
- Garis hubung (-)
- Titik dua (:)
- Spasi

GETCH ( ) dan GETCHE ( )
Dipakai untuk membaca sebuah karakter dengan sifat karakter yang dimasukkan tidak perlu diakhiri dengan enter. Fungsi getch() merupakan singkatan dari get character artinya baca karakter tetapi isian data yang dimasukkan tidak akan ditampilkan di layar.
Nama fungsi getche() sebenarnya adalah singkatan dari get character and echo, artinya baca karakter lalu tampilkan di layar. Jadi setelah mengetikkan sebuah huruf, huruf tersebut akan ditampilkan di layar tanpa menekan enter.
Catatan :
- Program yang menggunakan printf(), putchar(), scanf() dan puts() mengandung baris yang berisi #include
- Program yang melibatkan getche() atau getch() mengandung baris yang berisi #include

FUNGSI-FUNGSI NUMERIK
Turbo C mempunyai kurang lebih 450 fungsi dan makro yang dapat dipanggil dari program yang telah dibuat. Fungsi-fungsi tersebut meliputi berbagai hal, misalnya :
- Proses Input Output tingkat tinggi dan tingkat rendah
- Manipulasi string dan file
- Alokasi memori
- Kontrol Proses
- Konversi data
- Perhitungan matematik

Fungsi-fungsi tersebut ada di dalam file library-nya (Cx.LIB, Mathx.LIB dan Graphics.LIB). Huruf x diganti dengan model memori yang dipakai.
Fungsi-fungsi tersebut disimpan di dalam file header (*.H). Fungsi tersebut dapat digabungkan ke dalam program dengan menyertakan file header yang mengandung fungsi atau rutin yang dipakai.

FUNGSI SQRT
Fungsi : Menghitung akar positif dari sebuah bilangan bulat
Include : #include

FUNGSI POW
Fungsi : Menghitung xy
Include : #include

FUNGSI TAN
Fungsi : Menghitung nilai tangent dari sebuah sudut
Include : #include
Fungsi tan menghitung nilai tangent dari sudut x. Sudut x dalam satuan radian. Jika sudut x yang diberikan dekat dengan phi/2 atau –phi/2, hasilnya adalah 0.

FUNGSI DIV
Fungsi : Membagi dua bilangan bulat, memberikan hasil bagi dan sisanya
Include : #include

FUNGSI CEIL
Fungsi : Membulatkan ke atas
Include : #include

FUNGSI FLOOR
Fungsi : Membulatkan ke bawah
Include : #include
Fungsi floor menghasilkan bilangan bulat terbesar yang tidak lebih dari x

FUNGSI EXP
Fungsi : Menghitung ex
Include : #include

FUNGSI MAX
Fungsi : Memberikan bilangan yang lebih besar dari 2 bilangan yang diberikan
Include : #include

FUNGSI MIN
Fungsi : Memberikan bilangan yang lebih kecil dari 2 bilangan yang diberikan
Include : #include
 Download Link Software Nya Disini Ya Teman Jangan Lupa Comment Nya
Assalumalaikum Teman Ketemu Lagi , Disini Saya Akan Membrikan Link Download Software turbo C++,
Sbelum Saya Memberikan Link Nya Ada Baikknya teman memahami Kode-kode dari Software Turbo C++ Nya ini Disimak Ya Teman.... : 
 Untuk keperluan penampilan data/informasi, Turbo C menyediakan sejumlah fungsi, diantaranya adalah PRINTF ( ), PUTS ( ) dan PUTCHAR ( )


PRINTF ( )
Merupakan fungsi yang paling umum digunakan dalam menampilkan data. Berbagai jenis data dapat ditampilkan ke layar dengan fungsi ini.
Bentuk penulisan : printf(“string kontrol”, argumen1, argumen2, …);
- String kontrol dapat berupa keterangan yang akan ditampilkan pada layar beserta penentu format seperti %d, %f. Penentu format dipakai untuk memberi tahu kompiler mengenai jenis data yang akan ditampilkan
- Argumen adalah data yang akan ditampilkan ke layar. Argumen ini dapatr berupa variabel, konstanta atau ungkapan

PUTS ( )
Fungsi ini digunakan khusus untuk menampilkan data string ke layar. Sifat fungsi ini, string yang ditampilkan secara otomatis akan diakhiri dengan \n (pindah baris). Dibandingkan dengan printf(), perintah ini mempunyai kode mesin yang lebih pendek.
PUTCHAR ( )
Digunakan khusus untuk menampilkan sebuah karakter ke layar. Penampilan karakter tidak diakhiri dengan perpindahan baris, misalnya :
putchar(‘A’); sama dengan printf(“%c”, A);
MEMASUKKAN DATA DARI KEYBOARD
Data dapat dimasukkan lewat keyboard saat eksekusi berlangsung. Fungsi yang digunakan diantaranya adalah : scanf ( ), getch ( ), dan getche ( ) .

SCANF ( )
Merupakan fungsi yang dapat digunakan untuk memasukkan berbagai jenis data. Bentuk scanf ( ) sesungguhnya menyerupai fungsi printf ( ) yang melibatkan penentu format. Bentuk penulisan : scanf(“string kontrol”, daftar argumen);
Hal-hal yang perlu diperhatikan dalam pemakaian scanf yaitu :
1. scanf memberi pergantian baris secara otomatis, artinya Anda tidak perlu memberi \n untuk berpindah ke baris berikutnya.
2. scanf memakai penentu format, tetapi tidak memerlukan penentu lebar field. Contoh yang salah : scanf(“10.2f”,&gaji);
3. Variabel yang dipakai di dalam scanf harus didahului dengan operator alamat (&).

MEMASUKKAN BEBERAPA DATA SECARA BERSAMA-SAMA
Data dapat dimasukkan secara bersama-sama dalam satu baris. Setiap data dipisahkan oleh sebuah karakter. Karakter-karakter yang dapat bertindak sebagai pemisah data adalah :
- Koma (‘)
- Garis hubung (-)
- Titik dua (:)
- Spasi

GETCH ( ) dan GETCHE ( )
Dipakai untuk membaca sebuah karakter dengan sifat karakter yang dimasukkan tidak perlu diakhiri dengan enter. Fungsi getch() merupakan singkatan dari get character artinya baca karakter tetapi isian data yang dimasukkan tidak akan ditampilkan di layar.
Nama fungsi getche() sebenarnya adalah singkatan dari get character and echo, artinya baca karakter lalu tampilkan di layar. Jadi setelah mengetikkan sebuah huruf, huruf tersebut akan ditampilkan di layar tanpa menekan enter.
Catatan :
- Program yang menggunakan printf(), putchar(), scanf() dan puts() mengandung baris yang berisi #include
- Program yang melibatkan getche() atau getch() mengandung baris yang berisi #include

FUNGSI-FUNGSI NUMERIK
Turbo C mempunyai kurang lebih 450 fungsi dan makro yang dapat dipanggil dari program yang telah dibuat. Fungsi-fungsi tersebut meliputi berbagai hal, misalnya :
- Proses Input Output tingkat tinggi dan tingkat rendah
- Manipulasi string dan file
- Alokasi memori
- Kontrol Proses
- Konversi data
- Perhitungan matematik

Fungsi-fungsi tersebut ada di dalam file library-nya (Cx.LIB, Mathx.LIB dan Graphics.LIB). Huruf x diganti dengan model memori yang dipakai.
Fungsi-fungsi tersebut disimpan di dalam file header (*.H). Fungsi tersebut dapat digabungkan ke dalam program dengan menyertakan file header yang mengandung fungsi atau rutin yang dipakai.

FUNGSI SQRT
Fungsi : Menghitung akar positif dari sebuah bilangan bulat
Include : #include

FUNGSI POW
Fungsi : Menghitung xy
Include : #include

FUNGSI TAN
Fungsi : Menghitung nilai tangent dari sebuah sudut
Include : #include
Fungsi tan menghitung nilai tangent dari sudut x. Sudut x dalam satuan radian. Jika sudut x yang diberikan dekat dengan phi/2 atau –phi/2, hasilnya adalah 0.

FUNGSI DIV
Fungsi : Membagi dua bilangan bulat, memberikan hasil bagi dan sisanya
Include : #include

FUNGSI CEIL
Fungsi : Membulatkan ke atas
Include : #include

FUNGSI FLOOR
Fungsi : Membulatkan ke bawah
Include : #include
Fungsi floor menghasilkan bilangan bulat terbesar yang tidak lebih dari x

FUNGSI EXP
Fungsi : Menghitung ex
Include : #include

FUNGSI MAX
Fungsi : Memberikan bilangan yang lebih besar dari 2 bilangan yang diberikan
Include : #include

FUNGSI MIN
Fungsi : Memberikan bilangan yang lebih kecil dari 2 bilangan yang diberikan
Include : #include
 Download Link Software Nya Disini Ya Teman Jangan Lupa Comment Nya

Kode Untuk Membuat Kalkulator Di VB.Net

Assalamualaikum Teman Ketemu Lagi Dengan Saya M.R.P
 Saya Kali Ini Akan Berbagi Ilmu Membuat Kalkulatir Sederhana Dengan Vb.net Segala Versi Mau Vb.net2010 Atau Vb.net 2008. Ok Kita LangSung Eksekusi Aja Ya Teman !!
Kalkulator Sederhana Dengan Kode Nya , Ini Untuk Latihan Yang masih Awam Tentang Vb.net Termasuk Juga Saya :

1. Buka Microsoft Visual Studio 2010 ultimate/2008
2. Pilih Windows Form Application
3. Buat 17 buah Button dan 1 buah Textbox pada Form
4. Edit Text property pada tiap Button sehingga tampilan seperti gambar dibawah.

5. Double klik pada form lalu masukkan kode berikut :

    Public Class Form1

    Dim operand1 As Double
    Dim [operator] As String
    Dim baru As Boolean = True
    Dim temp As Double
    Dim operand2 As Double 

6. Double klik pada button 0 ketikkan kode

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
    btn0.Click, btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click
    
    TextBox1.Text = TextBox1.Text & sender.text
    End Sub

7. Masukkan kode berikut pada button Tambah

    Private Sub btntmbh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntmbh.Click
       
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "+"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            End If
            
        End If

        baru = False

    End Sub

8. Masukkan Kode Berikut Pada Button Kurang

    Private Sub btnkrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkrg.Click


        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "-"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            End If

        End If

        baru = False

    End Sub

9. Kode Berikut pada button Kali

    Private Sub Btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
  
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "x"
        ElseIf baru = False Then

            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = ";" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            End If
     
        End If

        baru = False

      End Sub

10. Kode Berikut Pada button Bagi

      Private Sub Btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click

        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = ":"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            End If

        End If

        baru = False
     
        End Sub

11. Kode berikut pada button hasil

      Dim hasil As Double
        operand2 = Val(TextBox1.Text)

        Select Case [operator]

            Case "+"
                hasil = operand1 + operand2
                TextBox1.Text = hasil.ToString
                baru = True
            Case "-"
                hasil = operand1 - operand2
                TextBox1.Text = hasil.ToString
            Case ":"
                hasil = operand1 / operand2
                TextBox1.Text = hasil.ToString
            Case "x"
                hasil = operand1 * operand2
                TextBox1.Text = hasil.ToString
                baru = True
        End Select

        TextBox1.Text = hasil.ToString

12. Kode berikut pada button titik

      Private Sub btntitik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntitik.Click

        If InStr(TextBox1.Text, ".") > 0 Then
            Exit Sub
        Else
            TextBox1.Text = TextBox1.Text & "."
        End If
        End Sub

13. Dan terakhir pada button Clear

      Private Sub btnclr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclr.Click

        TextBox1.Text = ""
        operand1 = 0
        temp = 0
        baru = True
       End Sub 
Sekian Teman Semoga Bermanfaat bagi Teman _ Teman Semuanya... Salam M.R.P :v

Assalamualaikum Teman Ketemu Lagi Dengan Saya M.R.P
 Saya Kali Ini Akan Berbagi Ilmu Membuat Kalkulatir Sederhana Dengan Vb.net Segala Versi Mau Vb.net2010 Atau Vb.net 2008. Ok Kita LangSung Eksekusi Aja Ya Teman !!
Kalkulator Sederhana Dengan Kode Nya , Ini Untuk Latihan Yang masih Awam Tentang Vb.net Termasuk Juga Saya :

1. Buka Microsoft Visual Studio 2010 ultimate/2008
2. Pilih Windows Form Application
3. Buat 17 buah Button dan 1 buah Textbox pada Form
4. Edit Text property pada tiap Button sehingga tampilan seperti gambar dibawah.

5. Double klik pada form lalu masukkan kode berikut :

    Public Class Form1

    Dim operand1 As Double
    Dim [operator] As String
    Dim baru As Boolean = True
    Dim temp As Double
    Dim operand2 As Double 

6. Double klik pada button 0 ketikkan kode

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
    btn0.Click, btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click
    
    TextBox1.Text = TextBox1.Text & sender.text
    End Sub

7. Masukkan kode berikut pada button Tambah

    Private Sub btntmbh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntmbh.Click
       
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "+"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            End If
            
        End If

        baru = False

    End Sub

8. Masukkan Kode Berikut Pada Button Kurang

    Private Sub btnkrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkrg.Click


        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "-"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            End If

        End If

        baru = False

    End Sub

9. Kode Berikut pada button Kali

    Private Sub Btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
  
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "x"
        ElseIf baru = False Then

            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = ";" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            End If
     
        End If

        baru = False

      End Sub

10. Kode Berikut Pada button Bagi

      Private Sub Btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click

        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = ":"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            End If

        End If

        baru = False
     
        End Sub

11. Kode berikut pada button hasil

      Dim hasil As Double
        operand2 = Val(TextBox1.Text)

        Select Case [operator]

            Case "+"
                hasil = operand1 + operand2
                TextBox1.Text = hasil.ToString
                baru = True
            Case "-"
                hasil = operand1 - operand2
                TextBox1.Text = hasil.ToString
            Case ":"
                hasil = operand1 / operand2
                TextBox1.Text = hasil.ToString
            Case "x"
                hasil = operand1 * operand2
                TextBox1.Text = hasil.ToString
                baru = True
        End Select

        TextBox1.Text = hasil.ToString

12. Kode berikut pada button titik

      Private Sub btntitik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntitik.Click

        If InStr(TextBox1.Text, ".") > 0 Then
            Exit Sub
        Else
            TextBox1.Text = TextBox1.Text & "."
        End If
        End Sub

13. Dan terakhir pada button Clear

      Private Sub btnclr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclr.Click

        TextBox1.Text = ""
        operand1 = 0
        temp = 0
        baru = True
       End Sub 
Sekian Teman Semoga Bermanfaat bagi Teman _ Teman Semuanya... Salam M.R.P :v

Edit Photo

Assalamualaikum Wr.Wb
 Saya Kali Ini Akan Memposting Tentang Sedikit Usaha Saya Mendapatkan Uang Atau Pulsa
*jasa saya Kali Ini Adalah Jasa Untuk mengedit Foto , karna Saya Senang Sekali Dalam Dunia Editing , Stiap Hari Hampir Membuka Photoshop & Corel Draw.
Ini Adalah Karya-karya Saya




Saya juga Bisa Sedikit WPAP Ni karya Saya Yang Saya Edit Jadi WPAP ;


Itu Saja Ya Teman, Bagi Teman Yang Ingin Menggunakan Jasa Edting Saya Bisa Menghubungi Saya
Via HandPhone :081347776520
Via Twitter : @_Pemula_
Dan Untuk Pembayaran Nya Bagi Yang Di luar  Samarinda Bisa Membayar Dengan Pulsa 5000 ke Nomor 0813-4777-65-20 , dan di Samarinda Juga Bisa Membayar Dengan Pulsa Dengan Cara Yang Sama Sperti di Luar Samarinda...
*Sekian Saya Hanya Sedikit Usaha Yang Lainnya Punya Jasa Kenapa Saya tidak Walau Hanya Kecil-kecilan... :V 
SALAM SAHABAT :)

Assalamualaikum Wr.Wb
 Saya Kali Ini Akan Memposting Tentang Sedikit Usaha Saya Mendapatkan Uang Atau Pulsa
*jasa saya Kali Ini Adalah Jasa Untuk mengedit Foto , karna Saya Senang Sekali Dalam Dunia Editing , Stiap Hari Hampir Membuka Photoshop & Corel Draw.
Ini Adalah Karya-karya Saya




Saya juga Bisa Sedikit WPAP Ni karya Saya Yang Saya Edit Jadi WPAP ;


Itu Saja Ya Teman, Bagi Teman Yang Ingin Menggunakan Jasa Edting Saya Bisa Menghubungi Saya
Via HandPhone :081347776520
Via Twitter : @_Pemula_
Dan Untuk Pembayaran Nya Bagi Yang Di luar  Samarinda Bisa Membayar Dengan Pulsa 5000 ke Nomor 0813-4777-65-20 , dan di Samarinda Juga Bisa Membayar Dengan Pulsa Dengan Cara Yang Sama Sperti di Luar Samarinda...
*Sekian Saya Hanya Sedikit Usaha Yang Lainnya Punya Jasa Kenapa Saya tidak Walau Hanya Kecil-kecilan... :V 
SALAM SAHABAT :)

KSB Android


KSB Android, lagi kulmpul di Lab. RPL, Minggu 22 September 2013. Agenda : Install Virtual OS android di Laptop dan upgrade OS Android.  Kegiatan akan teruis dikembangkan kearah Develop Aplikasi Android (develop OS untuk mobile, rooting dan aprekan OS lain).   

Kegiatan ini berlangsung setiap hari minggu di Sekolah dibawah bimbingan Kajur. RPL Bpk. Muhammad Yani, S,Kom.  Bagi yang berminat mengikuti KSB Android dapat langsung menghubungi Asisten Lab RPL atau Kajur. RPL.

 Lihat Juga Grup FaceBook Kami DISINI 
   "Sekian dan Terima Kasih" SALAM TEMAN !!!

KSB Android, lagi kulmpul di Lab. RPL, Minggu 22 September 2013. Agenda : Install Virtual OS android di Laptop dan upgrade OS Android.  Kegiatan akan teruis dikembangkan kearah Develop Aplikasi Android (develop OS untuk mobile, rooting dan aprekan OS lain).   

Kegiatan ini berlangsung setiap hari minggu di Sekolah dibawah bimbingan Kajur. RPL Bpk. Muhammad Yani, S,Kom.  Bagi yang berminat mengikuti KSB Android dapat langsung menghubungi Asisten Lab RPL atau Kajur. RPL.

 Lihat Juga Grup FaceBook Kami DISINI 
   "Sekian dan Terima Kasih" SALAM TEMAN !!!
 
2012 Mari Belajar Bahasa Pemrograman | BTemplate3s | Blogger Templates for HostGator Coupon Code Sponsors: WooThemes Coupon Code, Rockable Press Discount Code