Minggu, 03 April 2011

BROSUR PENJUALAN NOTEBOOK DELL

Pada tugas kali ini,saya membuat sebuah program sederhana mengenai cara membuat brosur penjualan macam-macam notebook DELL beserta harga, diskon, harga OS dan lain-lain. Terdiri dari 4 tipe DELL yang sering dibeli oleh masyarakat banyak, karena sedang ada penghabisan stok maka semua pembelian akan dikenakan diskon 10%

berikut adalah tampilan form 1 dan form 2

form 1 :

.
form 2 :

form 1 ketika dijalankan :



form 2 ketika dijalankan :


berikut adalah koding form 1 :

Public Class Form1

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
PictureBox1.Visible = True
Else
PictureBox1.Visible = False
PictureBox5.Visible = False
End If


Label1.Text = "Rp 6.800.000"
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
PictureBox2.Visible = True
Else
PictureBox2.Visible = False
PictureBox5.Visible = False
End If


Label1.Text = "Rp 9.000.000"
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
PictureBox3.Visible = True
Else
PictureBox3.Visible = False
PictureBox5.Visible = False
End If


Label1.Text = "Rp 11.800.000"
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton4.Checked = True Then
PictureBox4.Visible = True
Else
PictureBox4.Visible = False
PictureBox5.Visible = False
End If


Label1.Text = "Rp 5.800.000"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
End Class


berikut adalah kodingan form 2 :

Public Class Form2

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
TextBox1.Text = 6800000
TextBox2.Text = 6800000 * 0.1

End If
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
TextBox1.Text = 9000000
TextBox2.Text = 9000000 * 0.1

End If
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
TextBox1.Text = 11800000
TextBox2.Text = 11800000 * 0.1

End If
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton4.Checked = True Then
TextBox1.Text = 5800000
TextBox2.Text = 5800000 * 0.1

End If
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox4.Text = 800000
Else : CheckBox1.Checked = False

End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox5.Text = TextBox1.Text - TextBox2.Text + +TextBox3.Text + +TextBox4.Text
End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
TextBox3.Text = 100000
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox1.Focus()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim x As String
x = MsgBox(" Anda Yakin Keluar ? ", MsgBoxStyle.YesNo, "Konfirmasi")
If x = vbYes Then
End
End If
End Sub
End Class

Sabtu, 05 Maret 2011

[TUGAS] membuat program mengambil karakter tulisan

PENJELASAN

Pada Tugas Visual Basic kali ini,saya membuat project sebuah program simpel yang bisa memotong suatu kalimat sesuai dengan yg kita inginkan.

Penjelasan program :

Teks = Tuliskan suatu kalimat di textbox ini.
RadioButton 1 = Untuk memilih karakter dari sebelah kiri kalimat
RadioButton 2 = Untuk memilih karakter dari sebelah tengah kalimat
RadioButton 3 = Untuk memilih karakter dari sebelah kanan kalimat
Posisi Awal = Posisi karakter yg diinginkan di awal
Posisi Akhir = Posisi karakter yg diinginkan di akhir
Banyak Karakter = Banyaknya karakter yg diinginkan dari kalimat yg di inginkan
Button Proses = Untuk memproses program ini
Button Keluar = Untuk keluar dari program ini
Hasil = Akan tampil suatu hasil dari pemilihan kata yg ada di atas


SCREENSHOOT :

Tampilan Form 1 sebelum didebug :



Saat di debug di ms. Visual Basic :



Tampilan screen shot kodingnya :



Tampilan koding form 1 :


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If rb_kiri.Checked = True Then

txt_awal.Text = "1"

txt_akhir.Text = txt_karakter.Text

txt_hasil.Text = Microsoft.VisualBasic.Left(txt_teks.Text, Val(txt_karakter.Text))

End If

If rb_tengah.Checked = True Then

txt_hasil.Text = Microsoft.VisualBasic.Mid(txt_teks.Text, Val(txt_karakter.Text), Val(txt_akhir.Text))

End If

If rb_kanan.Checked = True Then

txt_awal.Text = Len(txt_teks.Text) - Val(txt_karakter.Text) + 1

txt_akhir.Text = Len(txt_teks.Text)

txt_hasil.Text = Microsoft.VisualBasic.Right(txt_teks.Text, Val(txt_karakter.Text))

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

End Class

SEKIAN DAN TERIMA KASIH

Data Mahasiswa :
Nama : Ivan Julio
NPM : 1006724431

UNIVERSITAS INDONESIA









Selasa, 26 Mei 2009

Champions League

The Champions League reaches its climax on Wednesday evening when Barcelona meet Manchester United in the Italian capital...

Kick Off: Wednesday May 27, 2009. 20:45 CET. Stadio Olimpico, Rome

The champions of Spain meet the champions of England as Barcelona take on Manchester United in the Champions League final this Wednesday evening. Current holders United will be looking to become the first team since AC Milan in 1990 to retain the trophy whilst Barca can become the first Spanish side to ever win the treble if they triumph in Rome…

Super Spaniards

Pep Guardiola has already admitted that when this season began he couldn’t have imagined it would go this well, and it is fair to say that even the most passionate Barcelona supporter would not have predicted the success they would have this year. Not only have they won trophies, two of them to date, but they have won plenty of plaudits for their attractive brand of free-flowing football, and, to some, that is nearly as important as the silverware.

While arch-rivals Real Madrid have been making a habit out of winning however they can, Barca have been blitzing all-comers, both in Spain and in Europe. They might have needed some last minute magic from Andres Iniesta against Chelsea in the previous round but both Bayern Munich and Lyon can testify that the Catalans have more than matched their hype this year.

Naturally there is no guarantee that they will light up Rome as they have done the Camp Nou so many times this season but they certainly have the quality to put on a spectacle. The front three of Samuel Eto’o, Thierry Henry and Lionel Messi has been simply unstoppable this season and should they click against United then the Red Devils will be in trouble. Many of those in the famous blaugrana colours have stated already that they believe they deserve to lift the Champions League on Wednesday and, whilst few would deny them the glory, Sir Alex Ferguson’s men will be no pushovers.

Magical Manchester United

Indeed, whilst Barca have taken apart most of the competition in La Primera this year, United have done the same thing in England, romping to their third straight Premier League and hitting the 90 point mark in the process. As well as being domestic champions they are also the current holders of the Club World Cup and are defending League Cup champions, meaning they head into this encounter looking to win an amazing quadruple.

Like their opponents on Wednesday they have undoubtedly played some of the best football on the continent this season and their victory over Italian champions Inter Milan in the last sixteen was a demonstration of just how strong they are. Still undefeated in the competition this year they will be looking to add a fourth European Cup to their trophy cabinet and there is no doubt that there is history between these two superpowers.

Just last season the Catalans found themselves knocked out of the competition at the semi-final stage by United and even more memorably they were defeated in the UEFA Cup Winners' Cup back in 1991 as Sir Alex won his first European silverware with the English club. The 67-year-old will become the second oldest coach in history should his team win on Wednesday and bearing in mind the season that the Red Devils have had, this one could be the icing on the cake.

Kamis, 14 Mei 2009

Searching for separated families

Separated families from North and South Korea held tearful reunions Thursday in Seoul and Pyongyang with kin they have not seen since the chaos of the 1950-1953 Korean War.

Earlier in the day, a group of 100 elderly South Koreans traveled to Pyongyang while an equal number of elderly North Koreans arrived in Seoul for a three-day visit to meet long-lost relatives.

It was the second reunion of separated families held under an agreement signed by South Korean President Kim Dae Jung and North Korean leader Kim Jong Il at their historic summit in June. The first reunion was held Aug. 15-19.

Television footage from Pyongyang showed 75-year-old Shin Dong Gil saying to his wheelchair-bound, 100-year-old mother, Han Doo Hee, ''Mother, can't you recognize me? It's your son Dong Gil.''

Shin, who was conscripted into the North Korean army during the Korean War, and his mother, who lives in South Korea, appeared overcome with emotion, with tears rolling down their cheeks.

In Seoul, 66-year-old Chung Jae Kap from North Korea was reunited with his 88-year-old mother. They lost contact after he was conscripted into the North Korean army while out on an errand.

''I have never abandoned the hope of seeing you,'' Chung told his mother.

Among the North Korean visitors was Kim Ki Man, 71, a noted North Korean painter who hopes to meet his 88-year-old brother Kim Ki Chang, a renowned South Korean painter.

It has not yet been decided, however, whether North Korean officials will allow Kim Ki Man to meet his brother, who has been in hospital since suffering a stroke in 1996.

The family reunions are tightly controlled, with family members not allowed to move freely or visit their relatives' homes or their ancestral graves.

On Friday, the North and South Korean family members will hold individual private meetings with their relatives in their hotel rooms.

The South Korean group arrived at Pyongyang's Sunan airport at around 1:50 p.m. after a one-hour flight aboard a chartered (South) Korean Air plane on a direct route over the Yellow Sea.

Their departure from Seoul was delayed for about four hours due to thick fog at Pyongyang's Sunan airport.

The same plane then picked up the North Korean group, most of whose members are in their 60s, arriving at Seoul's Kimpo international airport at around 5:10 p.m.

The South Korean group traveling to the North was led by Pong Du Wan, deputy chairman of the South Korean National Red Cross, and included officials and journalists in the 151-strong party.

The North Korean visitors were led by Jang Jae On, chairman of the central committee of North Korea's Red Cross Society.

Officials say the family members will meet their relatives on five separate occasions, including Thursday's group meeting.

The South Korean visitors were selected through a computer lottery from the nearly 90,000 people who had put forward their names.

It is not known how the North Korean visitors were chosen but loyalty to the regime appears to have been a key factor as their party includes a number of prominent people with state decorations as well as university professors.

There are some 1.2 million people in the South with immediate family members in the North. If the second and third generations are added, the total reaches nearly 7.7 million.

The family reunions are one of the most tangible outcomes of the June summit between the North and South Korean leaders, at which they pledged to end nearly half a century of confrontation and work toward national reconciliation and eventual reunification of the Korean Peninsula.

In 1985, 50 separated family members from North and South Korea crossed the border to meet long-lost kin in the first such reunion organized by the two countries.