Private Sub CmdBaru_Click()
Data1.Recordset.AddNew
TxtNama.SetFocus
End Sub
Private Sub CmdHapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdProses_Click()
Dim S As String
TxtTm.Text = “20” & Left(TxtNpm.Text, 2)
S = Mid(TxtNpm.Text, 3, 1)
If S = “1” Then
JUR = “Tehnik Komputer”
ElseIf S = “2” Then
JUR = “Manajemen Informatika”
ElseIf S = “3” Then
JUR = “Tehnik Informatika”
ElseIf S = “4” Then
JUR = “Manajemen & Komp. Akuntansi”
End If
TxtJur.Text = JUR
S = Mid(TxtNpm.Text, 4, 2)
If S = “00” Then
PS = “Strata Satu”
ElseIf S = “01” Then
PS = “Diploma Tiga”
ElseIf S = “02” Then
PS = “Diploma Empat”
ElseIf S = “03” Then
PS = “Diploma Dua”
End If
TxtPs.Text = PS
TxtNu.Text = Right(TxtNpm.Text, 3)
End Sub

Private Sub CmdSimpan_Click()
Data1.Recordset.Update
End Sub

1.Perkalian 2 Bilangan

 

 

> private sub txt1_keypress (keyascii As integer)

if  keyascii=13 then

txt2. setfocus

end if

end sub

> private sub txt2_keypress (keyASCII As integer)

if  keyASCII=13 then

txt3.txt = val(txt1.txt)*val txt2.txt)

end sub

>private sub cmd1_clik( )

txt2.txt=val(txt1.txt)*val txt2.txt)

end sub

>private sub cmd2_clik( )

txt3.txt=val(txt2.txt)*val txt3.txt)

end sub

> private sub (cmd3_clik ( )

end

end sub

2.  Jumlah Data Nilai1, Nilai 2

>private sub text1_keypress(keyascii As Integer)

if  keyascii = 13 then

text2.setfocus

end if

end sub

> private sub text2_keypress(key ASCII As Integer)

if  keyascii = 13 then

text3.text = val (text1.text)+val (text2.text)

end if

end sub

>private sub cmd1_click( )

text3.text=val (text1.text)+val (text2.text)

end sub

> private sub cmd2_click ( )

txt3.txt=val (txt1.txt)+val (txt2.txt)

end sub

> private sub cmd3_click ( )

txt3.txt=val (txt1.txt)- val (txt2.txt)

end sub

> private sub command4_click ( )

txt3.txt=val (txt1.txt) /val (txt2.txt)

end sub

>private sub

txt1.setfocus

txt1=” ”

txt2=” ”

txt3= ” ”

end sub

>private sub (cmd6_clik ( )

end

end sub

3. Microsoft Visual Basic 6.0

 

 

 

 

 

>private sub optred_clik ( )

lbl teks .forecolor= vb red

end sub

> private sub optblue_clik ( )

lbl teks .forecolor= vb blue

end sub

> private sub optgreen_clik ( )

lbl teks .forecolor= vb green

end sub

> private sub optyellow_clik ( )

lbl teks .forecolor= vb yellow

end sub

>private sub chkBold_click ( )

if chkBold. value= 1 then

lbl teks. font Bold= true

Else

lbl Teks.font bold= false

end if

end sub

>private sub chkUnderline_click ( )

if chkUnderline. value= 1 then

lbl teks. fontUnderline = true

Else

lbl Teks.fontUnderline = false

end if

end sub

>private sub chkItalic_click ( )

if chkItalic. value= 1 then

lbl teks. fontItalic = true

Else

lbl Teks.font Italic= false

end if

end sub

>private sub chkStrikeout_click ( )

if chkStrikeout. value= 1 then

lbl teks. fontStrikeout = true

Else

lbl Teks.fontStrikeout= false

end if

end sub

4. Perhitungan Harga Setelah Diskon

 

 

 

 

>private sub txt1_keypress (keyasciiAs Integer)

if  keyascii=13 then

txt2.txt=val (text1.text)*0.1

txt3.txt=val(txt1.txt) – val (txt2.txt)

end if

end sub

a. Jwb kasus ke 2 (HITUNG)

>private sub cmd_click( )

txt2.txt=val ( txt1.txt) *0.1

txt3.txt=val ( txt1.txt) – val (txt2.txt)

end sub

b. jwb (Ulangi)

>private sub cmd2_click ( )

txt1.set focus

txt1= ” ”

txt2= ” ”

txt3= ” ”

end sub

c. jwb Keluar

>private sub  cmd3_click ( )

end

end sub

5. Aplikasi Perhitungan Gaji

 

 

 

 

 

>private sub txt1_keypress (key ASCII As integer)

if  keyascii= 13 then

txt2.setfocus

end if

end sub

>private sub txt2_keypress (key ASCII As integer)

if  keyascii= 13 then

txt3.setfocus

end if

end sub

>private sub cmd1_clik ( )

text4.text= val (txt1.txt) +val (txt2.txt) – val (txt3.txt)

txt5.txt= val (txt4.txt)  *0,1

txt6.txt= val (txt4.txt) +val (txt5.txt)

end sub

Freshly Pressed: Editors’ Picks for November, Part I

b

WordPress.com News

Smart and timely commentaries from events in the Middle East to Hurricane Sandy. Honest, beautifully written reflections on life, culture, and one’s place within it. Original photography and stunning photo essays, from one’s neighborhood to another’s faraway travels. Simply put, November’s Freshly Pressed posts impressed us. Here are some standouts:

Okay, so I noticed the conflict . . .

I don’t believe all nonviolent options for peace are exhausted, and I don’t accept that the killing of Hamas operatives is ever so imperative that targeting errors resulting in the death of innocent civilians should be tolerated.

Nora, a graduate student in Haifa, Israel, writes about her work and experiences in the Middle East at Circles in the Sky. Her commentary, original photography, and on-the-ground observations from an afternoon of demonstrations in Jerusalem’s Old City caught our attention.

Moms Don’t Forget

My punishment was her face. The hurt in her…

Lihat pos aslinya 561 kata lagi

Friday’s Reading List

m

New Themes: Watson, Simfo, and Publish

d

WordPress.com News

Brace yourselves, new themes are coming. Today I’m pleased to announce the latest three additions to the ever-growing collection of themes here at WordPress.com.

First up is Watson, by The Theme Foundry.

Inspired by the clean lines and bold strokes of a classic newspaper, Watson boasts a neatly organized front page layout and a pleasurable reading experience that was designed with writers in mind. It offers a beautiful featured slider for important posts, looks great on devices both big and small, and comes with a lovely custom widget that takes advantage of featured post thumbnails.

Watson is a premium upgrade for your blog; read more about its features on the Theme Showcase or dive right into previewing it on your blog from Appearance → Themes.

Our second treat for you today is Simfo, a theme that has a minimal, yet strong, aesthetic that’s embellished with subtle…

Lihat pos aslinya 158 kata lagi

Free Custom Design with a Premium Theme Purchase on Black Friday

d

WordPress.com News

This Thanksgiving, we’re celebrating with a Black Friday Sale just like we did last year. On Friday, November 23rd, you’ll receive a free one year subscription to our Custom Design Upgrade, a $30 value, when you purchase any Premium Theme.

Sale starts Thursday night—November 22, 2012 at 11:00 PM PST.

Since last year, we’ve more than doubled the number of premium themes! Each premium theme is meticulously reviewed and updated before it is added, and each one comes with support directly from the theme developers themselves. You can find the perfect theme for your blog this Friday!

To see all of our themes, check out the WordPress.com theme directory.

Custom Design has options anyone can use: fun and professional Custom Fonts, color palettes and patterns you can add with just a few clicks, and a recently-overhauled CSS editor for those of you who really like to dig…

Lihat pos aslinya 102 kata lagi

About the University of East Anglia (UEA): Why you shouldn’t go

s

The Story's Story

In 2005 I made a mistake by studying abroad at the University of East Anglia (UEA) in Norwich, England. The school was—and still could be—a study-abroad factory that marketed itself to foreign students because foreign students paid a lot more in tuition than English students. The school is consequently incentivized to pursue the international market. A friend and I were sufficiently peeved about the low quality of the school that we wrote an illustrated guide that warned our friends away from going to UEA.

Some recent discussion made me dig up “About UEA: What You Should Know Before You Go.” Reading it now, I see weaknesses in my skills as a nascent writer (I want to edit my younger self) but think the document might still be valuable for undergrads seeking UEA-related information. The photos convey some of the bleakness of that university; I remember the day I said…

Lihat pos aslinya 335 kata lagi

Responsive Themes: Oxygen and Confit

a

WordPress.com News

Yesterday, we highlighted two themes, Ever After and Sight. Today, we continue with our responsive theme showcase with two more beautiful themes designed to make sites look their best on any screen, from a desktop computer to devices like an iPad and iPhone.

Oxygen

BeatRoute Magazine, an arts and entertainment monthly in Calgary, Alberta, focuses on local and independent music. From features to album and show reviews, the site is chock-full of content, which is displayed effectively using Oxygen’s Showcase Page template. Musicians and bands are featured in sticky posts on a front page slider, as well as in smaller thumbnails. (You can also display posts in a traditional blog format, too.)

You can personalize Oxygen further with a custom background, header, and menus, as well as fonts and a custom link color. Even with all of these customized features, a site using Oxygen will look…

Lihat pos aslinya 341 kata lagi

Jetpack 2.1 for WordPress.org

WordPress.com News

After we announced media changes on WordPress.com, some of you asked when these new WordPress.com features would be available for self-hosted WordPress sites.

Well, wait no more! The latest features brought to WordPress.com — such as tiled galleries and slideshows — are now available for WordPress.org users with self-hosted sites through the Jetpack 2.1 release. You can now show off your images in gorgeous photo mosaics and slideshows that integrate seamlessly with the Carousel module.

In addition to these media features, WordPress.org users who have installed the latest Jetpack release will notice updates to the Photon, Infinite Scroll, Publicize, Sharing, and Contact Form modules, while the Custom CSS editor has also been updated. For a complete list of changes, see the Jetpack changelog.

What is Jetpack?

Jetpack is a free plugin that connects to WordPress.com and allows users with self-hosted WordPress sites to enable the awesome features available to…

Lihat pos aslinya 373 kata lagi

Why little black books instead of phones and computers

The Story's Story

“Despite being a denizen of the digital world, or maybe because he knew too well its isolating potential, Jobs was a strong believer in face-to-face meetings.” That’s from Walter Isaacson’s biography of Steve Jobs. It’s a strange way to begin a post about notebooks, but Jobs’ views on the power of a potentially anachronistic practice applies to other seemingly anachronistic practices. I’m a believer in notebooks, though I’m hardly a luddite and use a computer too much.

The notebook has an immediate tactile advantage over phones: they aren’t connected to the Internet. It’s intimate in a way computers aren’t. A notebook has never interrupted me with a screen that says, “Wuz up?” Notebooks are easy to use without thinking. I know where I have everything I’ve written on-the-go over the last eight years: in the same stack. It’s easy to draw on paper. I don’t have to manage files…

Lihat pos aslinya 1.534 kata lagi