Program Kalkulator Lengkap dengan menggunakan MVS 6.0

listing program

Private Sub cmdAkar_Click(Index As Integer)
cmdHasil.Text = Val(Text1.Text) ^ (1 / Val(Text2.Text))
End Sub

Private Sub cmdBagi_Click()
cmdHasil.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub


Private Sub cmdDev_Click()
cmdHasil.Text = Val(Text1.Text) \ Val(Text2.Text)
End Sub

Private Sub cmdKali_Click()
cmdHasil.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub cmdKurang_Click()
cmdHasil.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub cmdMod_Click()
cmdHasil.Text = Val(Text1.Text) Mod Val(Text2.Text)
End Sub

Private Sub cmdPangkat_Click(Index As Integer)
cmdHasil.Text = Val(Text1.Text) ^ Val(Text2.Text)
End Sub

Private Sub cmdPersen_Click()
cmdHasil.Text = Val(Text1.Text) * Val(Text2.Text) / Val(Text2.Text)
End Sub

Private Sub cmdTambah_Click()
cmdHasil.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

moga suksess..!!!!

program untuk pengolahan citra dalam membedakan foto1 atau foto ke 2

listing program

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Dim Arr1(0 To 29, 0 To 29) As Integer
Dim Arr2(0 To 29, 0 To 29) As Integer
Dim Relevance() As Integer
Dim Rel As Integer
Dim Alphabet As Integer

Private Sub cmdBandingkan_Click()
Dim i, j, r, g, b, w1, w2, h1, h2, w3 As Integer
Dim pic1, pic2, count As Long
c = 0
count = 0
w1 = 0
h1 = 0
w2 = 0
h2 = 0
For i = 0 To Picture1.ScaleWidth
w1 = w1 + 1
Next i
For i = 0 To Picture1.ScaleHeight
h1 = h1 + 1
Next i
For i = 0 To Picture2.ScaleWidth
w2 = w2 + 1
Next i
For i = 0 To Picture2.ScaleHeight
h2 = h2 + 1
Next i
If (w1 > w2) Then
w3 = w1
Else
w3 = w2
End If
If (h1 > h2) Then
h3 = h1
Else
h3 = h2
End If
For i = 0 To w3 - 1
For j = 0 To h3 - 1
p1 = GetPixel(Picture1.hdc, i, j)
p2 = GetPixel(Picture2.hdc, i, j)
r1 = p1 Mod 256
r2 = p2 Mod 256
g1 = (p1 Mod 256) / 256
g2 = (p2 Mod 256) / 256
b1 = ((p1 Mod 256) / 256) / 256
b2 = ((p2 Mod 256) / 256) / 256
If r1 > 228 Or g1 > 228 Or b1 > 228 Then
SetPixel Picture1.hdc, i, j, vbWhite
Else
SetPixel Picture1.hdc, i, j, vbBlack
End If
If r2 > 288 Or g2 > 288 Or b2 > 228 Then
SetPixel Picture2.hdc, i, j, vbWhite
Else
SetPixel Picture2.hdc, i, j, vbBlack
End If
Next j
Next i
For i = 0 To w3 - 1
 For j = 0 To h3 - 1
 pic1 = GetPixel(Picture1.hdc, i, j)
 pic2 = GetPixel(Picture2.hdc, i, j)
 If pic1 = pic2 Then
  count = count + 1
  End If
  c = c + 1
  Next j
Next i
dv = (count / c) * 100 'decesion variable
dp = Round(dv, 2)  '2 decimal place
If dp >= 80 Then
 MsgBox dp, vbOKOnly, "Identical"
 Else
  MsgBox dp, vbOKOnly, "Different"
  End If
  End Sub

Private Sub cmdBrowse1_Click()
cd1.Filter = "File Gambar | *.jpg; *.bmp"
cd1.ShowOpen
Picture1.Picture = LoadPicture(cd1.FileName)
End Sub

Private Sub cmdBrowse2_Click()
cd1.Filter = "File Gambar | *.jpg; *.bmp"
cd1.ShowOpen
Picture2.Picture = LoadPicture(cd1.FileName)
End Sub

selamat mencobaa...!!!goodluckk.

cara pemasangan CCTV serta perbedaan CCTV analog dengan IP camera

Membuat program RGB dalam bentuk Grafik dengan menggunakan Microsoft Visual Studio.6.0

Program KHS Mahasiswa dengan menggunakan Borland C++

#include <stdio.h>
#include <conio.h>
#include <iostream.h>
//Mendefinisikan tipe data bertipe struktur
struct MAHASISWA {
   
    long NoBp;
    char NAma[25];
    char jurusan[30];
    float NMID,NUAS,NA;
    };

void main()
{
//Mendeklrasikan array A dengan tipe mahasiswa
MAHASISWA A[5];
int C;
//mengisi nilai pada elemen array
for (C=0; C<5; C++)
{
    cout<<"Nomor BP      :";cin>>A[C].NoBp;
    cout<<"Nama           :";cin>>A[C].Nama;
    cout<<"Jurusan       :";cin>>A[C].jurusan;
    cout<<"Nilai Ujian MID  :";cin>>A[C].NMID;
    cout<<"Nilai Ujian Akhir:";cin>>A[C].NUAS;
    cout<<'|n';
    A[C].NA=)A[C].NMID+A[C].NUAS)/2;
}
//menampilkan nilai yang telah diinputkan
clrscr();
for(C=0; C<5; C++)
{
    cout<<"Nomor BP      :";cout<<A[C].NoBp<<endl;
    cout<<"Nama           :";cout<<A[C].Nama<<endl;
    cout<<"Jurusan       :";cout<<A[C].jurusan<<endl;
    cout<<"Nilai Ujian MID  :";cout<<A[C].NMID<<endl;
    cout<<"Nilai Ujian Akhir:";cout<<A[C].NUAS<<endl;
    cout<<"Nilai Akhir    :";cout<<A[C].NA<<endl;

    if ((A[C].NA>=0)&&(A[C].NA<=40))
    {
     cout<<"Nilai Huruf Adalah E"<<endl;
     cout<<"Saudara Dinyatakan TIDAK LULUS"<<endl;
     cout<<"KETUA JURUSAN/TTD"<<endl;
     cout<<"ARIANDE'S WAU "<<endl;
     cout<<'\n';
    }
    else if ((A[C].NA>40)&&(A[C].NA<=54))
    {
     cout<<"Nilai Huruf Adalah D"<<endl;
     cout<<"Saudara Dinyatakan TIDAK LULUS"<<endl;
     cout<<"KETUA JURUSAN/TTD"<<endl;
     cout<<"ARIANDE'S WAU "<<endl;
     cout<<'\n';
    }
    else if ((A[C].NA>54)&&(A[C].NA<=64))
    {
     cout<<"Nilai Huruf Adalah C"<<endl;
     cout<<"Saudara Dinyatakan TIDAK LULUS"<<endl;
     cout<<"KETUA JURUSAN/TTD"<<endl;
     cout<<"ARIANDE'S WAU "<<endl;
     cout<<'\n';
    }
    else if ((A[C].NA>64)&&(A[C].NA<=79))
    {
     cout<<"Nilai Huruf Adalah B"<<endl;
     cout<<"Saudara Dinyatakan LULUS"<<endl;
     cout<<"KETUA JURUSAN/TTD"<<endl;
     cout<<"ARIANDE'S WAU "<<endl;
     cout<<'\n';
    }
    else if ((A[C].NA>79)&&(A[C].NA<=100))
    {
     cout<<"Nilai Huruf Adalah D"<<endl;
     cout<<"Saudara Dinyatakan LULUS"<<endl;
     cout<<"KETUA JURUSAN/TTD"<<endl;
     cout<<"ARIANDE'S WAU "<<endl;
     cout<<'\n';
    }
 }
 getch();
}