Prorgram nilai semester

Posted by Unknown Posted on 02.51 with No comments
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



Read more »
Labels: