Saturday, 28 March 2015

Penggunaan fungsi string dalam Visual Basic

Fungsi string pada program vb net yang dibahas pada artikel ini yaitu Left, Right, Mid.
            Pemakaian fungsi string pada program vb net digunakan untuk mengambil beberapa deretan string dari string yang ada.
A. Fungsi String Left, digunakan untuk mengambil nilai string dari posisi sebelah kiri.
Contoh penggunaan :
            xkata = left(kata, jumlah)
            kata = "Program VB Net"
            xkata = left(kata,5)
            maka xkata bernilai "Prog"
B. Fungsi String Right, digunakan untuk mengambil nilai string dari posisi sebelah kanan.
Contoh penggunaan :
            xkata = right(kata, jumlah)
            kata = "Program VB Net"
            xkata = right(kata,8)
            maka xkata bernilai "VB Net"
C. Fungsi String Mid, digunakan untuk mengambil nilai dari posisi tengah kata.
Contoh penggunaan :
            xkata = mid(kata, posisi, jumlah)
            kata = "Ayo Belajar Bahasa Pemrograman VB Net"
            xkata = Mid(kata, 5, 26)
            maka xkata bernilai "Belajar Bahasa Pemrograman"
Form design terdiri atas Textbox1, Textbox2, Textbox3, Textbox4, dan Button, seperti pada Gambar Cover artikel.
Berikut merupakan contoh listing program pemakaian fungsi string pada program VB Net.
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim kata As String = TextBox1.Text

       TextBox2.Text = Microsoft.VisualBasic.Left(kata, 6)
        TextBox3.Text = Microsoft.VisualBasic.Right(kata, 6)
        TextBox4.Text = Microsoft.VisualBasic.Mid(kata, 5, 26)
    End Sub
End Class

Pada pemrograman Visual Basic Net, pemakaian fungsi Left, Right dan Mid harus digunakan juga referensi Microsoft.VisualBasic sehingga bisa digunakan.

Contoh hasil program dikutip dari http://mesran.net

Demikianlah Penggunaan fungsi string dalam Visual Basic ini dibuat,semoga dengan ini timbul kecintaan anda belajar bahasa pemograman...

No Comments

Thursday, 26 March 2015

Tutorial pembuatan aplikasi blackberry sederhana

19:17 Unknown

Tutorial cara membuat aplikasi blackberry sederhana

Android sekarang memang sedang jadi primadona. Tetapi harus diakui Blackberry masih punya pasar yang cukup bagus ditanah air ini. Hal ini diperkuat dengan pengalaman ketika bertemu atau meeting dnegan client, kebanyakan mereka menggunakan Blakcberry.Tutorial cara membuat aplikasi blackberry sederhana

Pada tutorial java saya pernah menjelaskan bahwa dengan menguasai bahasa java kita bisa membuat aplikasi di android, blackberry, Symbian(Nokia). Untuk itu perkuatlah penguasaan bahasa pemrograman java

Tutorial Android saya pertama kali adalah membuat aplikasi sederhana menghitung luas persegipanjang yang ternyata mendapatan sambutan yang cukup baik dari pembaca. Dan pada Tutorial Blackberry yang pertama ini juga saya akan membuat aplikasi sederhana menghitung luas persegipanjang.

Hal yang harus kita siapkan adalah install eclipse yang sudah ada plugin blackberrynya untuk installernya dapat didownload dari website resmi Blackberry, http://www.blackberry.com

Setelah selesai instalasi eclipse blackberrynya, masri kita mulai saja proses developmentnya.
1. Buat Project dengan nama PersegiPanjang, Klik File –> New –> Blackberry Project

Akan muncul jendela New Project

Klik Next

Pilih Blackberry Application, lalu klik Next

Klik Finish

2. Setelah langkash diatas diselesai maka pada jendela PackageExplorer

3. Buka File PersegiPanjang.java

package com.agus.bb.pspj;

import net.rim.device.api.ui.UiApplication;

/**
 * This class extends the UiApplication class, providing a
 * graphical user interface.
 */
public class PersegiPanjang extends UiApplication
{
    /**
     * Entry point for application
     * @param args Command line arguments (not used)
     */
    public static void main(String[] args)
    {
        // Create a new instance of the application and make the currently
        // running thread the application's event dispatch thread.
        PersegiPanjang theApp = new PersegiPanjang();
        theApp.enterEventDispatcher();
    }

    /**
     * Creates a new PersegiPanjang object
     */
    public PersegiPanjang()
    {
        // Push a screen onto the UI stack for rendering.
        pushScreen(new PersegiPanjangScreen());
    }
}

Pada saat Aplikasi dijalankan Class inilah yang akan dijalankan.

Disini dapat terlihat Screen yang pertamakali ditampilkan adalah dari Class PersegiPanjangScreen
4. Untuk menambahkan komponen seperti Text Inputan dan Button, buka dan edit PersegiPanjangScreen.java

package com.agus.bb.pspj;

import net.rim.device.api.ui.Field;
import net.rim.device.api.ui.FieldChangeListener;
import net.rim.device.api.ui.component.BasicEditField;
import net.rim.device.api.ui.component.ButtonField;
import net.rim.device.api.ui.container.MainScreen;

/**
 * A class extending the MainScreen class, which provides default standard
 * behavior for BlackBerry GUI applications.
 */
public final class PersegiPanjangScreen extends MainScreen {
 /**
  * Creates a new PersegiPanjangScreen object
  */
 private BasicEditField befPanjang;
 private BasicEditField befLebar;
 private BasicEditField befLuas;

 public PersegiPanjangScreen() {
  // Set the displayed title of the screen
  setTitle("Aplikasi PersegiPanjang");
  //menambahkan inputan teks untuk panjang
  befPanjang = new BasicEditField("Panjang : ", "", 5,
    BasicEditField.EDITABLE);
  add(befPanjang);
  //menambahkan inputan teks untuk lebar
  befLebar = new BasicEditField("Lebar: ", "", 5, BasicEditField.EDITABLE | BasicEditField.FILTER_NUMERIC);
  add(befLebar);
  //menambahkan Button untuk Hitung Luas
  ButtonField btnHitung = new ButtonField("Hitung Luas",
    ButtonField.CONSUME_CLICK | ButtonField.FIELD_LEFT | BasicEditField.FILTER_NUMERIC);
  add(btnHitung);
  //menambahkan Listener untuk Button Hitung Luas
  btnHitung.setChangeListener(new FieldChangeListener() {
   public void fieldChanged(Field arg0, int arg1) {
    hitungLuas();
   }
  });
  //menambahkan inputan teks untuk luas, kita set readonly
  befLuas = new BasicEditField("Luas:", "", 100, BasicEditField.READONLY);
  add(befLuas);
 }

 private void hitungLuas() {
  int panjang = Integer.parseInt(befPanjang.getText());
  int lebar = Integer.parseInt(befLebar.getText());
  int luas = panjang * lebar;
  befLuas.setText(String.valueOf(luas));
 }
}

5. Sekaramg saatnya kita Run Aplikasiyang kita buat

Klik Icon Aplikasi PersegiPanjang

terima kasih......sekian yang dapat saya buat semoga bermamfaat bagi kita semua......Tuhan memberkati

No Comments

Monday, 23 March 2015

Mencari bonus penjualan dengan Turbo Pascal

23:08 Unknown

Dibawah ini saya buatkan coding pemograman mencari bonus dalam penjualan sebagai berikut :

USES CRT;
Var

Penjualan : longint;
bonus : real;
Begin
clrscr;
gotoxy(30,10);write('Penjualan:');readln(penjualan);
if penjualan > 1000000 then
bous:=(0.1*1000000) + ((penjualan-1000000)*0.15);
else if penjualan >500000 then
bonus:=0.1*penjualan
else
bonus:=0;
gotoxy(30,12);write('bonus:',bonus:8:20);
readln;
End.

Demikianlah coding mencari bonus dalam penjualan , semoga apa yang saya buat ini bermamfaat bagi para pembaca sekalian........
Terima Kasih..!!!

No Comments

Contoh program Penggunaan IF dalam VB.NET

22:55 Unknown

Penggunaan If dalam Visual Basic

Public Class Form1

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles istanto.Click

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
npm.Text = ""
nama.Text = ""
semester.Text = ""
matakuliah.Text = ""
hp.Text = ""
kehadiran.Text = ""
kuis.Text = ""
uts.Text = ""
uas.Text = ""
total.Text = ""
nilai.Text = ""
keterangan.Text = ""
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.ForestGreen

semester.Items.Add("1")
semester.Items.Add("2")
istanto.Visible = False
sawaluddin.Visible = False
reza.Visible = False
suharni.Visible = False
yogi.Visible = False

End Sub

Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
istanto.Visible = False
sawaluddin.Visible = False
reza.Visible = False
suharni.Visible = False
yogi.Visible = False
If npm.Text = "14110062" Then
nama.Text = "istanto"
hp.Text = "085261751623"
istanto.Visible = True
ElseIf npm.Text = "13110063" Then
nama.Text = "sawaluddin"
hp.Text = "082268541192"
sawaluddin.Visible = True
ElseIf npm.Text = "12110064" Then
nama.Text = "reza"
hp.Text = "082268545541"
reza.Visible = True
ElseIf npm.Text = "11110065" Then
nama.Text = "suharni"
hp.Text = "082268542275"
suharni.Visible = True
Else
nama.Text = "yogi"
hp.Text = "087754213387"
yogi.Visible = True

End If
End Sub

Private Sub semester_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles semester.SelectedIndexChanged
matakuliah.Items.Clear()
If semester.Text = "1" Then
matakuliah.Items.Add("kalkulus")
matakuliah.Items.Add("bahasa inggris")
matakuliah.Items.Add("agama")
Else
matakuliah.Items.Add("kalkulus II")
matakuliah.Items.Add("visual I")
matakuliah.Items.Add("konsep pemograman")

End If

End Sub

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = 0.1 * Val(kehadiran.Text) + 0.15 * Val(kuis.Text) + 0.3 * Val(uts.Text) + 0.45 * Val(uas.Text)
If total.Text <= 49 Then
nilai.Text = "E"
keterangan.Text = "Tidak lulus"
ElseIf total.Text <= 59 Then
nilai.Text = "D"
keterangan.Text = "Tidak lulus"
ElseIf total.Text <= 69 Then
nilai.Text = "C"
keterangan.Text = "Lulus"
ElseIf total.Text <= 79 Then
nilai.Text = "B"
keterangan.Text = "Lulus"
ElseIf total.Text >= 80 Then
nilai.Text = "A"
keterangan.Text = "Lulus"

End If

End Sub

Private Sub suharni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles suharni.Click

End Sub
End Class

Okeh sekian yang dapat saya buat semoga bermamfaat bagi kita semua......GBU

No Comments

Program Menghitung Volume Kubus, Luas persegi panjang,keliling lingkaran,dan keliling persegi panjang dengan Turbo Pascal

22:47 Unknown

Program untuk menyelesaikan pilihan menu dengan Turbo Pascal
Menu Program
----------------------------------------
1. Menghitung Volume Kubus
2. Menghitung Luas Persegi Panjang
3. Menghitung Keliling Lingkaran
4. Menghitung Keliling Persegi Panjang

USES CRT;
Var
pil :byte;
S,P,L :longint;
vol,luas,kl :real;
kp :integer;
r : integer;
Begin
clrscr;
writeln('Menu Program');
writeln('-------------------------------------------------------------------------------');
writeln('1.Menghitung Volume Kubus');
writeln('2.Menghitung Luas Persegi Panjang');
writeln('3.Menghitung Keliling Lingkaran');
writeln('4.Menghitung Keliling Persegi Panjang');
write('Pilihan = ');
Readln(pil);
if pil=1 then
Begin
clrscr;
writeln('Menghitung Volume Kubus');
writeln('-------------------------------------------------------------------------------');
write('Sisi Kubus:');
Readln(s);
vol:=s*s*s;
writeln('Volume Kubus:',vol:3:1);
End
Else if pil 2 then
Begin
clrscr;
writeln('Menghitung Luas Persegi Panjang');
writeln('------------------------------------------------------------------------------');
write('Lebar:');Readln(L);
write('Panjang:');Readln(P);
Luas:=P*L;
writeln('Luas :',luas:3:0);
End
Else if pil=3 ten
Begin
clrscr;
writeln('Menghitung Keliling Lingkaran');
writeln('------------------------------------------------------------------------------');
write(''Jari-jari:');Readln(r);
kl:=3.14*2*r;
writeln('Keliling Lingkaran:',kl: 3:0);
End
Else if pil=4 Then
Begin
clrscr;
writeln('Menghitung Keliling Persegi Panjang');
writeln('------------------------------------------------------------------------------');
write('Panjang:');Readln(P);
write('Lebar:');Readln(L);
kp:=2*(P+L);
writeln('Keliling Persegi Panjang:',kp:3:0);
End
else
Begin
clrscr;
writeln('Pilihan Anda Tidak Tersedia!!!!');
End;
Readln;
End.

Demikianlah Coding Pemograman Ini saya buat semoga bermamfaat bagi pembaca sekalian......!!
Tuhan memberkati.....

No Comments

Friday, 20 March 2015

cara membuat kalkulator sederhana dalam VB.NET

09:55 Unknown

Selamat berkunjung di blog saya, dibawah ini adalah coding cara membuat kalkulator sederhana:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Public Class Form1
btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
hasil.Text = Val(n1.Text) + Val(n2.Text)
Me.BackColor = Color.Green
End Sub

Private Sub btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurang.Click
hasil.Text = Val(n1.Text) - Val(n2.Text)
Me.BackColor = Color.DarkViolet
End Sub

Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
hasil.Text = Val(n1.Text) * Val(n2.Text)
Me.BackColor = Color.Yellow
End Sub

Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click
hasil.Text = Val(n1.Text) / Val(n2.Text)
Me.BackColor = Color.Purple
End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
n1.Text = ""
n2.Text = ""
hasil.Text = ""
Me.BackColor = Color.SpringGreen
End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
End Class

Terima kasih telah mengunjungi blog saya semoga artikel yang ada dalam blog saya dapat bermamfaat bagi saudara pembaca sekalian.......

No Comments

Saturday, 14 March 2015

pegertian integral

20:39 Unknown

Pengertian Integral Tak Tentu Beserta Contoh Soal dan Pembahasan ~ Pelajaran integral sudah dimulai sejak kelas XII IPA Semester pertama. Integral adalah lawan dari turunan atau diferensial. Atau biasa juga disebut dengan antiturunan. Masih ingat kan pelajaran turunan di kelas XI tahun lalu??? Jika dilihat dari rumusnya, turunan itu mengurangi 1 nilai pangkat. Nah sekarang ini ada lawan dari turunan yaitu Integral. Karena lawan dari turunan maka rumusnya adalah menambah 1 nilai pangkatnya. Kalau diibaratkan ada sebuah fungsi f(x) maka kita dapat mencari turunan atau anak dari fungsi tersebut dengan menggunakan rumus turunan. Dan jika yang diketahui adalah turunan dari sebuah fungsi dan yang ditanyakan adalah dari mana asal turunan fungsi tersebut maka kita gunakan Rumus Integral.

Pelajaran integral ini kita dapatkan sejak kelas XII di semester pertama, pelajaran integral ini nantinya juga akan keluar pada UTS semester ganjil nanti ( Baca Disini : Kisi-Kisi UTS Kelas XI Semester 1 ).

Pada dasarnya, Integral dapat dibagi menjadi 2 yaitu integral tak tentu dan integral tertentu. Pengertian Integral Tak Tentu Adalah Integral yang menghasilkan nilai masih dalam bentuk fungsi atau hasilnya bukan nilai angka. Sedangkan Pengertian integral tertentu adalah integral yang menghasilkan hasil yang sudah tentu sebuah nilai pasti bukan menghasilkan fungsi lagi.

Baik, kita akan mulai membahas Integral Tak Tentu.

Cara Membaca Integral Tak Tentu

Apakah ada yang bisa membaca rumus diatas dengan benar???

Langsung saja deh saya jawab sendiri, Rumus itu dibaca :

"Integral Tak Tentu Dari Fungsi f(x) Terhadap Variabel X"

Sudah tahu kan cara membacanya, Masak anak IPA tidak bisa baca rumus seperti ini! kan Malu ya.

Rumus Integral

Rumus diatas adalah rumus umum dari integral.

Dan rumus diatas ini adalah rumus pengembangan dari rumus integral,

Contoh Soal dan Pembahasan Integral

Jika DiketahuiMaka integralnya adalah . . .
Jawab,

2. Jika Diketahui :

Maka Tentukanlah Integralnya . . .

Jawab,

3. Jika Diketahui :

Maka Tentukan Integralnya . . .

Jawab,

4. Jika Diketahui :

Maka tentukan Integralnya . . .

Jawab,

5. Jika Diketahui,

(Akar Tiga Itu Ya!!!) Maka Tentukanlah Integralnya . . .

Jawab,

Demikian Artikel saya tentang Rumus Integral Tak Tentu Beserta Contoh Soal dan Pembahasan baca juga artikel-artikel lainnnya tentang matematika seperti Varians Statistik Berserta Contoh Soal dan juga Rumus Simpangan Baku Semoga dapat lebih bermanfaat. Matematika itu mudah asal kita yang membuatnya menjadi mudah.

- See more at: http://www.benuailmu.com/2014/08/rumus-integral-tak-tentu-beserta-contoh.html#sthash.wrgEoFho.dpuf

No Comments