Minggu, 03 April 2011
BROSUR PENJUALAN NOTEBOOK DELL
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 program :
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
Selasa, 26 Mei 2009
Champions League
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.