Sabtu, 07 Desember 2013

Tentang Mesran.Net

Mesran.net dan mesran.blogspot.com adalah suatu website yang di dalamnya terdaftar hal-hal yang berguna untuk mahasiswa khususnya di bidang computer, di mesran.net ada beberapa tips belajar diantaranya pemrograman dan selalu memberi artikel yang membantu di tab pemrograman. Sewaktu saya membuka blog dan website ini, saya lebih memilih tab program visual basic. Terima kasih banyak kepada Mesran M.Kom yang telah mengajarkan berbagagai jenis program dan membantu saya memahami cara memosting dan menjawab kelas online. Hal ini merupakan hal sangat luar biasa untuk mahasiswa memahami bahasa pemrograman yang susah dipahami menjadi mudah. Semoga dengan ilmu yang kami dapat, diberi balasan yang setimpal oleh Tuhan Yang Maha Esa. Semoga Semua kebaikan dan saling berbagi pengetahuan bermanfaat untuk kita semua.
Amin...
Mesran.net dan mesran.blogspot.com adalah suatu website yang di dalamnya terdaftar hal-hal yang berguna untuk mahasiswa khususnya di bidang computer, di mesran.net ada beberapa tips belajar diantaranya pemrograman dan selalu memberi artikel yang membantu di tab pemrograman. Sewaktu saya membuka blog dan website ini, saya lebih memilih tab program visual basic. Terima kasih banyak kepada Mesran M.Kom yang telah mengajarkan berbagagai jenis program dan membantu saya memahami cara memosting dan menjawab kelas online. Hal ini merupakan hal sangat luar biasa untuk mahasiswa memahami bahasa pemrograman yang susah dipahami menjadi mudah. Semoga dengan ilmu yang kami dapat, diberi balasan yang setimpal oleh Tuhan Yang Maha Esa. Semoga Semua kebaikan dan saling berbagi pengetahuan bermanfaat untuk kita semua.
Amin...

Program Calculator Sederhana Dengan Visual C#


Program Calculator Sederhana Dengan Visual C#

Berikut merupakan program Visual C# yang berguna untuk membuat Calculator yang sederhana. :)
Designlah program Calculator sederhana dengan Visual C# berikut ini :














Listing Program program Calculator sederhana dengan Visual C# berikut ini :

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace Calculator_Sederhana
{
    public partial class Calculator : Form
    {
      
        private double a1, a2, xhasil = 0;
        private string op = "";


        public Calculator()
        {
            InitializeComponent();
        }

        private void btntambah_Click(object sender, EventArgs e)
        {

            op = "+";
        }
        private void btnkurang_Click(object sender, EventArgs e)
        {

            op = "-";
        }
        private void btnkali_Click(object sender, EventArgs e)
        {

            op = "*";
        }
        private void btnbagi_Click(object sender, EventArgs e)
        {

            op = "/";
        }
        private void btnhasil_Click(object sender, EventArgs e)
        {

            a1 = double.Parse(bil1.Text);
            a2 = double.Parse(bil2.Text);
            switch(op){
                case "/" : xhasil = a1/a2 ;
                    break;
                case "*" : xhasil = a1*a2 ;
                    break;
                case "-" : xhasil = a1-a2 ;
                    break;
                case "+" : xhasil = a1+a2 ;
                    break;
            }
            hasil.Text = xhasil.ToString() ;
        }
        private void Calculator_Load(object sender, EventArgs e)
        {

            hasil.Enabled = false;
        }
    }
}

Kamis, 31 Oktober 2013

Menampilkan Jumlah Karakter, Kata & Huruf Hidup Menggunakan VB Net


Menampilkan Jumlah Karakter, Kata & Huruf Hidup Menggunakan VB Net

Written By Mesran on Senin, 14 Oktober 2013 | 10.15

Bagaimana program menampilkan jumlah karakter, kata serta huruf hidup? ahh, nggak terlalu sulit ternyata.


Berikut program menampilkan jumlah Karakter, Kata & Huruf Hidup menggunakan VB Net :


Public Class Form1

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnProses.Click
        Dim jumlah As Double = Len(Kalimat.Text)
        Dim jkata As Integer = 0
        Dim jhidup As Integer = 0
        Dim xkarakter As Char
        Dim i As Integer
        For i = 1 To jumlah
            xkarakter = Microsoft.VisualBasic.Mid(Kalimat.Text, i, 1)
            If xkarakter = " " Then
                jkata = jkata + 1
            ElseIf UCase(xkarakter) = "A" Or UCase(xkarakter) = "I" OrUCase(xkarakter) = "U" Or UCase(xkarakter) = "E" Or UCase(xkarakter) = "O"Then
                jhidup = jhidup + 1
            End If
        Next
        Label2.Text = "Jumlah karakter : " & jumlah & vbCrLf & _
                     "Jumlah kata : " & jkata + 1 & vbCrLf & _
                     "Jumlah huruf hidup : " & jhidup
    End Sub
End Class

Tampilan hasilnya terlihat seperti gambar berikut ini :