Mahasiswa STMIK BudiDarma Medan: 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();

}

Minggu, 31 Mei 2015

contoh aplikasi rental dengan vb net 2008 dabases acces ms 2007

belajar pemograman web php

MENAMPILKAN BILANGAN PRIMA C++