Mahasiswa STMIK BudiDarma Medan: 2015

Minggu, 31 Mei 2015

contoh aplikasi rental dengan vb net 2008 dabases acces ms 2007

Imports System.Data.OleDb

Public Class RENTAL

Public CONN As OleDbConnection

Public CMD As OleDbCommand

Public DS As New DataSet

Public DA As OleDbDataAdapter

Public RD As OleDbDataReader

Public LokasiDB As String

Sub Koneksi()

LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\REKAP1.accdb"

CONN = New OleDbConnection(LokasiDB)

If CONN.State = ConnectionState.Closed Then CONN.Open()

End Sub

Sub bersih()

NOMOR.Text = ""

NAMA.Text = ""

KOMPUTER.Text = ""

BILING.Text = ""

SCAN.Text = ""

JILID.Text = ""

BURNING.Text = ""

PRINT.Text = ""

TOTAL.Text = ""

MINUMAN.Text = ""

BLAIN.Text = ""

End Sub

Sub KondisiAwal()

Koneksi()

DA = New OleDbDataAdapter("Select * from REKAP", CONN)

DS = New DataSet

DS.Clear()

DA.Fill(DS, "REKAP")

DGV.DataSource = (DS.Tables("REKAP"))

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End

End Sub

Private Sub SIMPANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click

If NOMOR.Text = "" Or KOMPUTER.Text = "" Or NAMA.Text = "" Then

MsgBox("Data belum lengkap, Pastikan Semua form terisi coba periksa lagi data anda")

Exit Sub

Else

Call Koneksi()

Dim simpan As String = "insert into REKAP values ('" & NOMOR.Text & "','" & KOMPUTER.Text & "','" & NAMA.Text & "','" & BILING.Text & "','" & PRINT.Text & "','" & SCAN.Text & "','" & JILID.Text & "','" & BURNING.Text & "','" & MINUMAN.Text & "','" & BLAIN.Text & "','" & TOTAL.Text & "')"

CMD = New OleDbCommand(simpan, CONN)

CMD.ExecuteNonQuery()

MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")

Call KondisiAwal()

Call bersih()

End If

End Sub

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

Dim i As New Integer

For i = 1 To 20

i = (i)

NOMOR.Items.Add(i)

KOMPUTER.Items.Add("KOM-01")

KOMPUTER.Items.Add("KOM-02")

KOMPUTER.Items.Add("KOM-03")

KOMPUTER.Items.Add("KOM-04")

KOMPUTER.Items.Add("KOM-05")

KOMPUTER.Items.Add("KOM-06")

KOMPUTER.Items.Add("KOM-07")

KOMPUTER.Items.Add("KOM-08")

KOMPUTER.Items.Add("KOM-09")

KOMPUTER.Items.Add("KOM-10")

KOMPUTER.Items.Add("KOM-11")

KOMPUTER.Items.Add("KOM-12")

KOMPUTER.Items.Add("KOM-13")

KOMPUTER.Items.Add("KOM-14")

KOMPUTER.Items.Add("KlOM-15")

Call KondisiAwal()

Call bersih()

End Sub

Private Sub LaplloranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EvelntArgs) Handles LaporanToolStripMenuItem.Click

APORAN.Show()

End Sub

End Class

belajar pemograman web php

ketik koding berikut ini

mysql_connect("localhost","root","") or die("Database tidak tersambung");

mysql_select_db("mahasiswa") or die("Database tidak ditemukan");

simpan dengan nama koneksi.php

ketik koding berikut ini

<html>

<head>

<title> Pemrograman Web </title>

</head>

<p>SELAMAT DATANG DI WEB RESMI SAYA </p>

<p>WELCOME TO MY BLOG </p>

</div></td>

</tr>

.:: SELAMAT DATANG DI WEB RESMI SAYA APERIUS GIAWA KELAS TI-M1319 NPM 13110160 STMIK BUDIDARMA ::.

</marquee> </strong></td>

</tr>

<tr> <td bgcolor="#00FF00"> <a href="index.php?hal=mahasiswa.php&k=halaman_daftar"> Mahasiswa </a> </td> </tr>

</table> </td>

$halaman=$_REQUEST[hal];

if(isset($halaman)){

include "$halaman";

}else{

include "mahasiswa.php";

}

?> </td>

</tr>

</table>

</body>

</html>

simpan dengan nama index.php

ketik koding berikut ini

function head($action,$judul){

echo"<form name='mhs' action='$action' method='POST'>

<tr><th colspan='3'>.:: $judul ::.</th></tr>";

}

function textbox($label,$name,$size,$value){

echo"<tr><td>$label</td><td>:</td>

</tr>";

}

function textarea($label,$name,$cols,$rows,$value){

echo"<tr><td>$label</td><td>:</td>

<td><textarea name='$name' cols='$cols' rows='$rows'> $value </textarea></td>

</tr>";

}

function combobox($label,$name,$pilihan,$value){

echo"<tr><td>$label</td><td>:</td>

<td><select name='$name' id='$name'>";

$plh=explode(",",$pilihan);

for ($i=0; $i<count($plh); $i++){

if ($value==$plh[$i]){

echo"<option value='$plh[$i]' selected>$plh[$i]</option>";

}else{

echo"<option value='$plh[$i]'>$plh[$i]</option>";

}

echo"</select></td></tr>";

}

function tombol($value){

echo"<tr><td ><input type='submit' name='submit' value='$value' /></td>

</tr>

</table>

</form>";

}

simpan dengan nama function.php

MENAMPILKAN BILANGAN PRIMA C++

KODING MENAMPILKAN BILANGAN PRIMA C++

#include<stdio.h>

#include<math.h>

#include<conio.h>

int prima(int n){

if(n==3) return 1;

if(n%2 == 0 || n == 0) return 0;

for(int i=3;i<= sqrt(n);i+=2)

{

if(n%i==0) return 0;

}

return 1;

}

int main(){

int a;

printf("TAMPILKAN BILANGAN PRIMA DARI : ");scanf("%i",&a);

printf ("\nbilangan prima antara 0 sampai %i adalah \n",a);

for(int i=1;i<=a;i++){

if(prima(i))

printf("%3d",i);}

getch();

}

Sabtu, 14 Maret 2015

Sistem Persamaan Linear Dua Variabel

Sistem Persamaan Linear Dua Variabel

a. Bentuk-bentuk sistem persamaan linear dua variabel

1) Perbedaan PLDV dan SPLDV

a) Persamaan linear dua variabel (PLDV)

Persamaan linear dua variabel adalah persamaan yang memiliki dua variabel dan pangkat masing-masing variabelnya satu. Jika dua variabel tersebut x dan y, maka PLDV-nya dapat dituliskan :

ax + by = c dengan a, b ≠ 0

Contoh :

1). 2x + 2y = 3

2). y = 3x -2

3). 6y + 4 = 4x

b) Sistem persamaan linear dua variabel (SLDV)

SPLDV adalah suatu system persamaan yang terdiri atas dua persamaan linear (PLDV) dan setiap persamaan mempunyai dua variabel. Bentuk umum SPLDV adalah:

ax + by = c

px + qy = r ; dengan a, b, p, q ≠ 0

Contoh :

1). 3x + 2y = 7 dan x = 3y + 4

2).

3). x – y = 3 dan x + y = -5 atau dapat ditulis

2). Menyatakan suatu variabel dengan variabel lain pada persamaan linear

Contoh :

Diketahui persamaan x + y = 5, jika variabel x dinyatakan dealam variabel y menjadi :

x + y = 5

Û x = 5 – y

3). Mengenal variabel dan koefisien pada SPLDV

Contoh :

Diketahui SPLDV : 2x + 4y = 12 dan 3x – y = 5

Ø Variabel SPLDV adalah x dan y

Ø Konstanta SPLDV adalah 12 dan 5

Ø Koefisien x dari SPLDV adalah 2 dan 3

Ø Koefisien y dari SPLDV adalah 4 dan -1

4). Akar dan Bukan akar SPLDV

Dalam sistem persamaan linear dua variabel (SPLDV) terdapat pengganti-pengganti dari variabel sehingga kedua persamaan menjadi benar. Pengganti-pengganti variabel yang demikian disebut penyelesaian atau akar dari sistem persamaan linear dua variabel. Apabila pasangan pengganti menyebabkan salah satu atau kedua persamaan menjadi kalimat tidak benar disebut bukan penyelesaian atau bukan akar dari SPLDV tersebut.

Contoh :

Diketahui SPLDV : 2x – y = 3 dan x + y = 3

Tunjukkan bahwa x = 2 dan y = 1 merupakan akar dari SPLDV tersebut .

Jawab :

Ø 2x – y = 3

Jika x = 2 dan y = 1 disubstitusikan pada persamaan diperoleh

2x - y = 3

Û 2(2) – 1 = 3

Û 3 = 3 (benar)

Ø x + y = 3

jika x = 2 dan y = 1 disubstitusikan pada persamaan diperoleh

x + y = 3

Û 2 + 1 = 3

Û 3 = 3 (benar)

Jadi, x = 2 dan y = 1 merupakan akar dari SPLDV 2x – y = 3 dan x + y = 3

b. Penyelesaian SPLDV

Untuk menentukan penyelesaian atau kar dari SPLDV dapat ditentukan dengan 3 cara, yaitu metode grafik, metode substitusi, metode eliminasi.

1. Metode grafik

Prinsip dari metode grafik yaitu mencari koordinat titik potong grafik dari kedua persamaan. Dari contoh diatas apabila dikerjakan dengan metode grafik sebagai berikut.