Pencitraan Air to Ground
no vote
this is a project software pencitraan air to ground for f16 shooting zone..
Private Sub cmdHasil_Click()
If File1.filename = "1.jpg" Then
Call hasil
ElseIf File1.filename = "2.jpg" Then
Call hasil2
ElseIf File1.filename = "3.jpg" Then
Call hasil3
ElseIf File1.filename = "4.jpg" Then
Call hasil4
ElseIf File1.filename = "5.jpg" Then
Call hasil5
ElseIf File1.filename = "6.jpg" Then
Call hasil6
ElseIf File1.filename = "7.jpg" Then
Call hasil7
ElseIf File1.filename = "8.jpg" Then
Call hasil8
ElseIf File1.filename = "9.jpg" Then
Call hasil9
ElseIf File1.filename = "10.jpg" Then
Call hasil10
End If
End Sub
Private Sub cmdseluruh_Click()
If File1.filename = "1.jpg" Then
Call Total1
ElseIf File1.filename = "2.jpg" Then
Call Total2
ElseIf File1.filename = "3.jpg" Then
Cal