Prorgram nilai semester

Desain form seperti gambar di bawah

Dan ini Listing programnya

1. Public Class Form2
2.  
3.  
4.     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5.         ComboBox1.Items.Add("12110096")
6.         ComboBox1.Items.Add("12110097")
7.         ComboBox1.Items.Add("12110098")
8.  
9.         ComboBox2.Items.Add("88888888")
10.         ComboBox2.Items.Add("99999999")
11.         ComboBox2.Items.Add("11111111")
12.  
13.         ComboBox3.Items.Add("k01")
14.         ComboBox3.Items.Add("k02")
15.         ComboBox3.Items.Add("k03")
16.  
17.         Dim i As Integer
18.         For i = 100 To 30 Step -1
19.             ComboBox4.Items.Add(i)
20.             ComboBox5.Items.Add(i)
21.             ComboBox6.Items.Add(i)
22.             ComboBox7.Items.Add(i)
23.         Next
24.         TextBox1.Enabled = False
25.         TextBox2.Enabled = False
26.         TextBox3.Enabled = False
27.         TextBox4.Enabled = False
28.         TextBox5.Enabled = False
29.         textbox6.Enabled = False
30.         textbox7.Enabled = False
31.         textbox8.Enabled = False
32.  
33.     End Sub
34.  
35.     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesComboBox1.SelectedIndexChanged
36.         Select Case ComboBox1.Text
37.             Case "12110096"
38.                 TextBox1.Text = "reza ariansyah"
39.                 TextBox2.Text = "S1"
40.                 TextBox3.Text = "TI"
41.             Case "12110097"
42.                 TextBox1.Text = "jailamm igaph S"
43.                 TextBox2.Text = "S1"
44.                 TextBox3.Text = "TI"
45.             Case "12110098"
46.                 TextBox1.Text = "agus setiawan"
47.                 TextBox2.Text = "S1"
48.                 TextBox3.Text = "TI"
49.             Case Else
50.                 TextBox1.Text = ""
51.                 TextBox2.Text = ""
52.                 TextBox3.Text = ""
53.  
54.         End Select
55.     End Sub
56.  
57.     Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesComboBox2.SelectedIndexChanged
58.         Select Case ComboBox2.Text
59.             Case "88888888"
60.                 TextBox4.Text = "mesran m.kom"
61.             Case "99999999"
62.                 TextBox4.Text = "abdul asani sembiring m.kom"
63.             Case "11111111"
64.                 TextBox4.Text = "mr.x"
65.  
66.  
67.         End Select
68.     End Sub
69.  
70.     Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesComboBox3.SelectedIndexChanged
71.         Select ComboBox3.Text
72.             Case "k01"
73.                 TextBox5.Text = "program visual"
74.             Case "k02"
75.                 TextBox5.Text = "sistem operasi"
76.             Case "k03"
77.                 TextBox5.Text = "basis data"
78.         End Select
79.  
80.     End Sub
81.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
82.         textbox6.Text = 0.1 * ComboBox4.Text + 0.15 * ComboBox5.Text + 0.3 * ComboBox6.Text + 0.45 *ComboBox6.Text
83.         If textbox6.Text >= 90 Then
84.             textbox7.Text = "A"
85.             textbox8.Text = "lulus"
86.         ElseIf textbox6.Text >= 80 Then
87.             textbox7.Text = "B"
88.             textbox8.Text = "lulus"
89.         ElseIf textbox6.Text >= 70 Then
90.             textbox7.Text = "C"
91.             textbox8.Text = "lulus"
92.         ElseIf textbox6.Text >= 60 Then
93.             textbox7.Text = "D"
94.             textbox8.Text = "lulus"
95.         Else
96.             textbox7.Text = "E"
97.             textbox8.Text = "tidak lulus"
98.  
99.  
100.         End If
101.  
102.     End Sub
103.  
104.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
105.         TextBox1.Text = ""
106.         TextBox2.Text = ""
107.         TextBox3.Text = ""
108.         TextBox4.Text = ""
109.         TextBox5.Text = ""
110.         ComboBox1.Text = ""
111.         ComboBox2.Text = ""
112.         ComboBox3.Text = ""
113.         ComboBox4.Text = ""
114.         ComboBox5.Text = ""
115.         textbox6.Text = ""
116.         textbox7.Text = ""
117.         ComboBox6.Text = ""
118.         ComboBox7.Text = ""
119.  
120.     End Sub
121.  
122.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
123.         Me.Close()
124.  
125.     End Sub
126. End Class

http://catatansangpenghuni.blogspot.com/2013/11/prorgram-nilai-semester.h

Read more »

Download Software Dan Anti Virus

1.Visual Studio Express	Download
2.Google Chrome	Download
3.macromedia dreamweaver 8	Download
4.K-Lite Codec Pack 10.1 Full	Download
5.microsoft office professional 2007 free	Download
6.Firefox 26.0 Beta 3	Download

Read more »

Artikel Tentang Mesran[dot]net

Sebelumnya salam buat semuanya.

kali ini saya akan mengajak teman-teman sekalian untuk belajar banyak tentang bahasa program,
dan saya juga akan memperkenalkan kepada semua sebuah website yang bisa membantu dan mempermudah kita untuk belajar banyak tentang bahasa pemrograman
yaitu di website mesran.net.

Mesran.net adalah salah satu website tempat belajar
bahasa pemrograman. Di mesran.net teman-teman dapat
menemukan berbagai macam artikel tentang bahasa
pemrograman mulai dari VB.NET, vcsharp, Visual Basic, Prog.Pascal 
Di mesran.net teman-teman juga
dapat langsung bertanya dengan berkomentar,
pasti setiap pertanyaan sobat akan di jawab.
Mesran.net merupakan salah satu dari sekian
banyak website tempat belajar bahasa pemrograman yang
menurut saya cukup lengkap. Di mesran.net teman-teman
juga dapat menemukan berbagai macam informasi yang tentunya
berguna buat sobat, dan mesran.net
merupakan tempat mahasiswa/I Budidarma belajar bahasa pemrograman.
Apalagi di Akhir semester mesran.net akan menjadi tempat
yang ramai di kunjungi mahasiswa/I Budidarma, untuk melihat
Nilai atau IP.

Read more »