Membuat Direktori List dengan Visual Basic

Direktori List by Laurensius

Dim NamaFile As String

Private Sub cmdexit_Click()
End
End Sub

Private Sub cmdopen_Click()
Shell Text1.Text, vbNormalFocus
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
If (Right(File1.Path, 1) = "") Then
NamaFile = File1.Path + File1.FileName
Else
NamaFile = File1.Path + "" + File1.FileName
End If
Text1.Text = NamaFile
End Sub

Print Friendly, PDF & Email

Perintah – perintah dalam SQL

  • Select Statement
    SELECT “column_name” FROM “table_name”

  • Distinct
    SELECT DISTINCT “column_name”
    FROM “table_name”

  • Where
    SELECT “column_name”
    FROM “table_name”
    WHERE “condition”

  • And/Or
    SELECT “column_name”
    FROM “table_name”
    WHERE “simple condition”
    {[AND|OR] “simple condition”}+

  • In
    SELECT “column_name”
    FROM “table_name”
    WHERE “column_name” IN (‘value1’, ‘value2’, …)

  • Between
    SELECT “column_name”
    FROM “table_name”
    WHERE “column_name” BETWEEN ‘value1’ AND ‘value2’

  • Like
    SELECT “column_name”
    FROM “table_name”
    WHERE “column_name” LIKE {PATTERN}

  • Order By
    SELECT “column_name”
    FROM “table_name”
    [WHERE “condition”]
    ORDER BY “column_name” [ASC, DESC]

  • Count
    SELECT COUNT(“column_name”)
    FROM “table_name”

  • Group By
    SELECT “column_name1”, SUM(“column_name2”)
    FROM “table_name”
    GROUP BY “column_name1”

  • Having
    SELECT “column_name1”, SUM(“column_name2”)
    FROM “table_name”
    GROUP BY “column_name1”
    HAVING (arithematic function condition)

  • Create Table Statement
    CREATE TABLE “table_name”
    (“column 1” “data_type_for_column_1”,
    “column 2” “data_type_for_column_2”,
    … )

  • Drop Table Statement
    DROP TABLE “table_name”

  • Truncate Table Statement
    TRUNCATE TABLE “table_name”

  • Insert Into Statement
    INSERT INTO “table_name” (“column1”, “column2”, …)
    VALUES (“value1”, “value2”, …)

  • Update Statement
    UPDATE “table_name”
    SET “column_1” = [new value]
    WHERE {condition}

  • Delete From Statement
    DELETE FROM “table_name”
    WHERE {condition}
Print Friendly, PDF & Email

Peta Kabupaten Kuningan

[googlemaps http://maps.google.com/maps?f=q&source=s_q&hl=en&geocode=&q=kuningan+west+java+indonesia+maps&sll=-6.954543,107.641983&sspn=0.019894,0.038581&ie=UTF8&hq=&hnear=Kuningan+Regency,+Kuningan,+West+Java,+Indonesia&t=h&ll=-6.971242,108.470335&spn=0.040894,0.054932&z=14&output=embed&w=640&h=480]

Print Friendly, PDF & Email

Membuat Tombol Start Menu Alternatif Menggunakan VB.NET

Private Declare Function MapVirtualKey Lib “user32” Alias “MapVirtualKeyA” (ByVal wCode As Long, ByVal wMapType As Long) As Long

Private Declare Sub keybd_event Lib “user32” (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2

Private Sub Command1_Click()
Const MENU_KEYCODE = 91

‘ menekan tombol start
keybd_event MENU_KEYCODE, 0, 0, 0
DoEvents

‘ menampilkan isi dari start menu
keybd_event MENU_KEYCODE, 0, KEYEVENTF_KEYUP, 0
DoEvents
End Sub

Print Friendly, PDF & Email

[balasan .K.A.M.U.]

Diriku setegar malam
Melihat dirinya
Terus menghantui
Memberi kesan
Yg tak terlupa

Ku ingin ….
Mnghilangkan wajah itu
Ku ingin …
Melupakan duka itu

Kau datang bagai cahaya
Menyinari hati luka
Mnghibur hati galau
Memberi keindahan

Dimentari penuh senyum
Dihati penuh luka
Bagi mentari
Memberi cahaya

Trimakasih kan ku ucap
Tak kulupa
Smpai kapan pun
Tkz ..

16 April jam 23:34 by Bernadetha Brindanti

Print Friendly, PDF & Email

.K.A.M.U.

selembut sutra itu sosoknya . . . .
seindah mutiara kilau wajahnya . . .

tubuh ini, jiwa ini . . .
penuh gejolak laksana api . . .

seribu ucap sejuta kata . . .
takan cukup lukiskan dirinya . . .

dirinya laksana lentera dalam gelap . . . .
menerangi hati yang sesat . . .

dibuat : 16 April jam 17:12 oleh Laurensius D.S.

Print Friendly, PDF & Email

Pemrograman Object dengan C++

Berikut ini adalah salah satu contoh pemrograman objeck dalam bahasa C / C++ :

#include "conio.h"
#include "stdio.h"
#include "string.h"

class ClassSiswa{

public :

typedef struct{
int kode;
float nilai;
int SKS;
}mkul;

typedef struct{
char NPM[8];
char nama[15];
char alamat[20];
mkul matakuliah[5];
}Siswa;

int n;
Siswa S;

Siswa BuatDataSiswa(char *NPM,char *nama,char *alamat)
{
strcpy(S.NPM,NPM);
strcpy(S.nama,nama);
strcpy(S.alamat,alamat);
return S;
};

void CetakData()
{
printf("tNP Mahasiswa : %sn",S.NPM);
printf("tNama Mahasiswa : %sn",S.nama);
printf("tAlamat Mahasiswa : %sn",S.alamat);
return;
};

Siswa BuatMatKul(char *NPM,int kode,float nilai,int SKS)
{
if(strcmp(S.NPM,NPM)==0)
{
S.matakuliah[n].kode = kode;
S.matakuliah[n].nilai = nilai;
S.matakuliah[n].SKS = SKS;
n++;
}
};

void CetakMkul()
{
for(int i=0;i<n;i++)
{
printf("tData Mata Kuliah ke-%dn",i+1);
printf("tKode Mata Kuliah : %dn",S.matakuliah[i].kode);
printf("tNilai Mata Kuliah : %.2fn",S.matakuliah[i].nilai);
printf("tSKS Mata Kuliah : %d SKSnn",S.matakuliah[i].SKS);
}
return;
};

};

int main()
{
ClassSiswa S1;
S1.n=0;
printf("* Data Mahasiswa : n");
S1.BuatDataSiswa("0608042","Laurensius","Kuningan");
S1.CetakData();
printf("n* Data Nilai : n");
S1.BuatMatKul("0608042",9033,86.6,3);
S1.BuatMatKul("0608042",9036,100,2);
S1.BuatMatKul("0608042",9090,100,4);
S1.CetakMkul();
getch();
}

Print Friendly, PDF & Email

Ubah Tampilan Mozilla . . . .

Pake browser Mozilla ? ? ? Tapi tampilannya gitu-gitu aja ? ? ? Ga usah khawatir bro . . . sekarang dah ada yang namanya Personas. Personas adalah Addons Mozilla yang membuat tampilan Mozilla jadi makin keren n unik . . .
Gampang kok caranya…
neh kaya gini . . .
Cara pertama masuk aja dulu ke http://www.getpersonas.com . . . .
nah abis itu pilih degh desain tampilan yang cocok . . . .
banyak banget kok….ada abstract, TV n movie, Games, dll dah pokoknya . . .
klo udah ada yg cocok, sekarang tinggal klik tulisan “wear it” dan hasilnya . . . . .

eeeeeennngggginnnggggennnnggg . . . .

tampilan mozilla jadi keren . . . .

met mencoba aja dagh . . . .

Undergoing MyBlogLog Verification

Print Friendly, PDF & Email

POP 3 (Post Office Protocol version 3)

POP3 (Post Office Protocol version 3) adalah protokol yang digunakan untuk mengambil surat elektronik (email) dari server email. Protokol ini erat hubungannya dengan protokol SMTP dimana protokol SMTP berguna untuk mengirim surat elektronik dari komputer pengirim ke server. Protokol POP3 dibuat karena desain dari sistem surat elektronik yang mengharuskan adanya server surat elektronik yang menampung surat eletronik untuk sementara sampai surat elektronik tersebut diambil oleh penerima yang berhak. Kehadiran server surat elektronik ini disebabkan kenyataan hanya sebagian kecil dari komputer penerima surat elektronik yang terus-menerus melakukan koneksi ke jaringan internet. Protokol ini dispesifikasikan pada RFC 1939.

Print Friendly, PDF & Email

Macam-macam Konstanta Karakter Escape

Ketika sedang belajar coding, kadang-kadang kita menemukan penulisan karakter yang agak aneh dan kurang dimengerti. Nah, berikut ini adalah Konstanta Karakter Escape yang dikenal pada pemrograman :

Karakter

Keterangan

a

Bunyi bell (bell atau allert)

b

Mundur 1 spaci ke belakang (backspace)

f

Ganti halaman (form feed)

n

Ganti baris baru (line feed)

r

Pindah ke kolom yang pertama pada baris yang sama

t

Tabulasi horizontal

v

Tabulasi vertikal

Nilai kosong (NULL)

Karakter petik tunggal

Karakter petik ganda

Backslash
Print Friendly, PDF & Email