badswagger
Eternal Poster
- Joined
- Jun 21, 2015
- Posts
- 571
- Reaction
- 331
- Points
- 269
- Age
- 30
sino pwede tumulong sa akin sa project ko lang may something na kaunting mali lang naman ... after ko mag calculate ayaw nya ng lumabas ulit yung answers sa listview ..
interface ko
You do not have permission to view the full content of this post. Log in or register now.
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, n, num As Integer
Dim r As Double
Dim item As New ListViewItem
If TextBox1.Text = "" AndAlso TextBox2.Text = "" AndAlso TextBox3.Text = "" Then
MsgBox("enter the number of textbox 1 and 2 and 3 ")
ElseIf TextBox1.Text = "" AndAlso TextBox2.Text = "" Then
MsgBox("enter the number of textbox 1 nad 2 ")
ElseIf TextBox1.Text = "" AndAlso TextBox3.Text = "" Then
MsgBox("enter the number of textbox 1 nad 3 ")
ElseIf TextBox2.Text = "" AndAlso TextBox3.Text = "" Then
MsgBox("enter the number of textbox 2 nad 3 ")
ElseIf TextBox1.Text = "" Then
MsgBox("enter the number of textbox 1 ")
ElseIf TextBox2.Text = "" Then
MsgBox("enter the number of textbox 2 ")
ElseIf TextBox3.Text = "" Then
MsgBox("Enter The Number of textbox 3 ")
Else
x = TextBox1.Text
r = TextBox2.Text
num = TextBox3.Text
n = 1
Do
x = x * r
ListView1.Items.Add(n)
ListView2.Items.Add(x)
n = n + 1
Loop Until n = num + 1
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ListView1.Clear()
ListView2.Clear()
End Sub
You do not have permission to view the full content of this post. Log in or register now.
Attachments
-
You do not have permission to view the full content of this post. Log in or register now.