RSS

Antrian Turbo C++

//program antrian untuk nilai matakuliah
#include <stdio.h>
#include <conio.h>
#include <string.h>
//maksimum data sebanyak 10
#define maks 10
typedef struct {
char nim[10];
char nama[20];
int nilai1;
int nilai2;
int ratarata;
} nilaimatkul;
//deklarasi head/first dan tail/last
typedef struct {
int first;
int last;
nilaimatkul data[maks];
} queue;
//inisialisasi antrian awal dalam kondisi kosong
void createempty(queue *q) {
(*q).first = -1;
(*q).last = -1;
}
//cek antrian dalam kondisi kosong/tidak
int isempty(queue q) {
int hasil = 0;
if (q.first == -1) { //jika antrian atas = -1 maka hasil=1
hasil=1;
}
return hasil;
}
//cek antrian dalam kondisi penuh/tidak
int isfull(queue q) {
int hasil=0;
if (q.last == maks) { //jika antrian atas = maks maka hasil=1
hasil=1;
}
return hasil;
}
void enqueue(char nim[], char nama[], int nilai1, int nilai2, int ratarata, queue *q) {
if (isempty(*q) == 1) { //jika antrian kosong
(*q).first = 0;
(*q).last = 0;
strcpy((*q).data[0].nim, nim);
strcpy((*q).data[0].nama, nama);
(*q).data[0].nilai1 = nilai1;
(*q).data[0].nilai2 = nilai2;
(*q).data[0].ratarata = ratarata;
ratarata = (nilai1+nilai2)/2;
}
else { //jika antrian tidak kosong
if (isfull(*q) != 1) {
(*q).last = (*q).last + 1;
strcpy((*q).data[(*q).last].nim, nim);
strcpy((*q).data[(*q).last].nama, nama);
(*q).data[(*q).last].nilai1 = nilai1;
(*q).data[(*q).last].nilai2 = nilai2;
(*q).data[(*q).last].ratarata = ratarata;
ratarata = (nilai1 + nilai2)/2;
}
else //jika antrian penuh
printf(“antrian penuh\n”);
}
}
void dequeue(queue *q) {
if ((*q).last == 0) {
(*q).first = -1;
(*q).last = -1;
}
else { //menggeser elemen ke depan
int i;
for(i=((*q).first+1); i<=(*q).last; i++) {
strcpy((*q).data[i-1].nim, (*q).data[i].nim);
strcpy((*q).data[i-1].nama, (*q).data[i].nama);
(*q).data[i-1].nilai1 = (*q).data[i].nilai1;
(*q).data[i-1].nilai2 = (*q).data[i].nilai2;
(*q).data[i-1].ratarata = (*q).data[i].ratarata;

}
(*q).last = (*q).last – 1;
}
}
//tampilkan elemen-elemen yang ada di antrian
void printqueue(queue q) {
if (q.first != -1) {
printf(“——-isi antrian——-\n”);
int i;
for (i=q.last;i>=q.first; i–) { //tampilkan nim, nama, nilai
printf(“===========================\n”);
printf(“elemen ke : %d\n”,i+1);
printf(“Nim : %s\n”, q.data[i].nim);
printf(“Nama : %s\n”, q.data[i].nama);
printf(“Nilai 1 : %d\n”, q.data[i].nilai1);
printf(“Nilai 2 : %d\n”, q.data[i].nilai2);
printf(“Rata-Rata : %d\n”, q.data[i].ratarata);
}
printf(“————————-\n”);
}
else //jika antrian kosong
printf(“antrian kosong”);
}
//program utama
int main() {
queue q;
int pilihan;
int Nilai1;
int nilai2;
int ratarata;
char Nama[50], Nim[10];
createempty(&q); //inisialisasi antrian
do {
clrscr();
printf(“\n”);
printf(“===========================\n”);
printf(“1.Enqueue Data\n”);
printf(“2.Dequeue Data\n”);
printf(“3.Print Data\n”);
printf(“\nPilihan = “);
scanf(“%d”,&pilihan);
printf(“===========================\n\n\n”);
switch(pilihan) {
case 1: { printf(“===========================\n”);
printf(“Nim : “);scanf(“%s”,Nim);
printf(“Nama : “);scanf(“%s”,Nama);
printf(“Nilai 1 : “);scanf(“%d”,&Nilai1);
printf(“Nilai 2 : “);scanf(“%d”,&nilai2);
ratarata = (Nilai1 + nilai2 )/2;
enqueue(Nim,Nama,Nilai1,nilai2,ratarata, &q);
printf(“===========================\n”);
getch();
break;
}
case 2: { dequeue(&q);
printf(“data sudah terhapus\n”);
getch();
break;
}
case 3: { printf(“===========================\n”);
printqueue(q);
printf(“===========================\n”);
getch();
break;
}
}
} while (pilihan >= 1 && pilihan <=3);
return 0;
}

 

dan hasilnya seperti ini

jika di masukan angka 1 yaitu entri data

 

 

 

 

 

 

 

 

 

jika di masukan angka 3 yaitu melihat data yang telah di entri

 

 

 

 

 

 

 

 

 

jika di  masukan angka 2

 
Tinggalkan komentar

Ditulis oleh pada November 13, 2011 inci Turbo C++

 

Calculator Vb.Net 2008

Public Class Kalkulator
‘–inisialisasi untuk mendeklarasikan akcion-akcion var, dll
‘– Mohamad Shyughito Rrepardiyo Center
Private Status As Boolean
Private Var1 As Double
Private var2 As Double
Private Temp As Double
Private Memory As Double
Private period As Boolean
Private [Operator] As String

‘– untuk mengeklik angka 0
‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
If Status = False Then
If TextBox1.Text.Length > 0 Then
TextBox1.Text = TextBox1.Text + CStr(0)
Else
TextBox1.Text = 0
Status = False
End If
End If
End Sub

‘– untuk mengeklik angka 1
‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(1)
Else
TextBox1.Text = 1
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(2)
Else
TextBox1.Text = 2
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(3)
Else
TextBox1.Text = 3
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(4)
Else
TextBox1.Text = 4
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(5)
Else
TextBox1.Text = 5
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(6)
Else
TextBox1.Text = 6
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(7)
Else
TextBox1.Text = 7
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(8)
Else
TextBox1.Text = 8
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
If Status = False Then
TextBox1.Text = TextBox1.Text + CStr(9)
Else
TextBox1.Text = 9
Status = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhasil.Click
If TextBox1.Text.Length <> 0 AndAlso Var1 <> 0 Then
Calculate()
[Operator] = “”
period = False
End If
End Sub

‘– Inisialisai untuk Rumus penjumlahan , pengurangan, perkalian, pembagian , akar , perpangkatan
‘– Mohamad Shyughito Rrepardiyo Center
Public Sub Calculate()
var2 = CDbl(TextBox1.Text)
If [Operator] = “Add” Then
Var1 = Var1 + var2
ElseIf [Operator] = “Sub” Then
Var1 = Var1 – var2
ElseIf [Operator] = “Mult” Then
Var1 = Var1 * var2
ElseIf [Operator] = “Div” Then
Var1 = Var1 / var2
ElseIf [Operator] = “Sqrt” Then
Exit Sub
ElseIf [Operator] = “Pow” Then
Var1 = System.Math.Pow(Var1, var2)
ElseIf [Operator] = “Inve” Then
Exit Sub
End If
TextBox1.Text = CStr(Var1)
Status = True
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnjumlah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnjumlah.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
End If
[Operator] = “Add”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnkurangi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurangi.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
Else
Calculate()
End If
[Operator] = “Sub”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
Else
Calculate()
End If
[Operator] = “Mult”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
Else
Calculate()
End If
[Operator] = “Div”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnkoma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkoma.Click
TextBox1.Text = TextBox1.Text & “,”
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnplusminus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnplusminus.Click
If Status = False Then
If TextBox1.Text.Length > 0 Then
Var1 = -1 * CDbl(TextBox1.Text)
TextBox1.Text = CStr(Var1)
End If
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnakar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnakar.Click
If TextBox1.Text.Length <> 0 Then
Temp = CDbl(TextBox1.Text)
Temp = System.Math.Sqrt(Temp)
TextBox1.Text = CStr(Temp)
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnpangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpangkat.Click
If TextBox1.Text.Length <> 0 Then
If [Operator] = “” Then
Var1 = CDbl(TextBox1.Text)
TextBox1.Text = “”
Else
Calculate()
End If
[Operator] = “Pow”
period = False
End If
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click
TextBox1.Text = “”
Var1 = 0
var2 = 0
[Operator] = “”
period = False
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnCE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCE.Click
TextBox1.Text = “”
period = False
End Sub

‘– Mohamad Shyughito Rrepardiyo Center
Private Sub btnbackspace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbackspace.Click
Dim ch As Char
Dim i As Int16
If TextBox1.Text.Length > 0 Then
ch = TextBox1.Text.Chars(TextBox1.Text.Length – 1)
If ch = “.” Then
period = False
End If
i = TextBox1.Text.Length
TextBox1.Text = TextBox1.Text.Remove(i – 1, 1)
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
Menu_Utama.Show()
End Sub

End Class

 

Hasilnya Akan Tampil Seperti Ini,,,!!

 
5 Komentar

Ditulis oleh pada November 12, 2011 inci Vb.Net 2008

 

Glass Effect Vb.Net 2008

Imports System.Runtime.InteropServices

‘– Mohamad Shyughito rrepardiyo

Public Class Form1
<Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS
Public LeftWidth As Integer
Public RightWidth As Integer
Public TopHeight As Integer
Public Buttomheight As Integer
End Structure

<Runtime.InteropServices.DllImport(“dwmapi.dll”)> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Me.BackColor = Color.Black
Dim margins As MARGINS = New MARGINS
margins.LeftWidth = -1
margins.RightWidth = -1
margins.TopHeight = -1
margins.Buttomheight = -1
Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
Catch ex As Exception
MsgBox(“Sistemul tau de operare nu are aero style!”, vbCritical, “Fatal Error”)
Application.Exit()
End Try
End Sub
End Class

 

Hasilnya Akan Tampil Seperti Ini,, yang kotak bertuliskan Form1

Effect Glass jadi tampil tembus pandang ,,

 
Tinggalkan komentar

Ditulis oleh pada November 12, 2011 inci Vb.Net 2008