The changes I made did not work. I received the following message. I add my project code and design information. Help me.
From Apple
Hello,
Thank you for your resubmission. After further review, we found that previous issue has not been addressed. Please see below for details.
Guideline 2.4.1 - Performance - Hardware Compatibility
We noticed that your app did not run at iPhone resolution when reviewed on iPad running iOS 10.3.2. Specifically, your app was not optimized for iPad.
Please see attached screenshots for details.
Next Steps
To resolve this issue, please revise your app to ensure it runs and displays properly at iPhone resolution on iPad. Even if your app was developed specifically for iPhone, users should still be able to use your app on iPad.
Resources
For information on iOS device screen sizes and resolutions, please review the iOS Human Interface Guidelines as well as Points versus Pixels in the View Programming Guide for iOS.
You may also want to view Size Classes and Core Components for more information about designing apps for multiple screen sizes.
We look forward to reviewing your revised app.
Best Regards,
App Store Review
My Code:
'Code module
'#Region Project Attributes
#ApplicationLabel: Gsm Services
#Version: 1.4.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait
#iPadOrientations: Portrait
#PlistExtra: <key>UIApplicationExitsOnSuspend</key><true/>
'#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
'#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
'sonradan:
#Target: iPhone, iPad
#ATSEnabled: True
'#MinVersion: 7
'geliştirici dosyaları
'#CertificateFile: ios_development.cer
'#ProvisionFile: development.mobileprovision
'yayıncı dosyaları
#CertificateFile: ios_distribution.cer
#ProvisionFile: store.mobileprovision
'#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private hd As HUD
Private smsc As MessageComposer
'Private SQL1 As SQL
Dim kvs As KeyValueStore
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private Label10 As Label
Private Label19 As Label
Private Label27 As Label
Private TextField1 As TextField
Private KaydetButton1 As Button
Private Button1 As Button
Private Button3 As Button
Private Button4 As Button
Private Button5 As Button
Private Button6 As Button
Private Button7 As Button
Private Button8 As Button
Private Button9 As Button
Private Button10 As Button
Private Button11 As Button
Private Button12 As Button
Private Button13 As Button
Private Button14 As Button
Private Button15 As Button
Private Button16 As Button
Private Button17 As Button
Private TextField2 As TextField
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.Color = Colors.White
Page1.RootPanel.LoadLayout("Main")
Page1.Title = "Gsm Services"
NavControl.ShowPage(Page1)
kvs.Initialize(File.DirDocuments,"bilgistore")
Button17_Click
End Sub
Sub KaydetButton1_Click
Msgbox2("Msg","Bilgi Mesajı","GSM NO DEĞİŞTİRİLSİN VEYA SİLİNSİN Mİ?",Array("TAMAM","İPTAL"))
End Sub
Sub Msg_Click(ButtonText As String)
If ButtonText = "TAMAM" Then
kvs.Put("gsm no",TextField1.text)
Label27.text= kvs.get("gsm no")
Else If ButtonText = "İPTAL" Then
Log("no pressed")
End If
End Sub
Sub smsc_Complete (Result As Int)
If Result = smsc.RESULT_SENT Then
hd.ToastMessageShow("KOMUT GÖNDERİLDİ.", True)
Else
hd.ToastMessageShow("KOMUT GÖNDERİLMEDİ.", True)
TextField2.text=""
End If
End Sub
Sub CanSendText As Boolean 'bütün sms gönderme butonları bu olayı çağırır
Dim NaObj As NativeObject
Return NaObj.Initialize("MFMessageComposeViewController").RunMethod("canSendText",Null).AsBoolean
End Sub
Sub Button1_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "R1A"
smsc.Show(Page1)
TextField2.text="R1A"
End If
End Sub
Sub Button4_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "R2A"
smsc.Show(Page1)
TextField2.text="R2A"
End If
End Sub
Sub Button3_Click 'komut yazarak gönderme butonu
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = TextField2.text
smsc.Show(Page1)
End If
End Sub
Sub Button5_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "R3A"
smsc.Show(Page1)
TextField2.text="R3A"
End If
End Sub
Sub Button6_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "R4A"
smsc.Show(Page1)
TextField2.text="R4A"
End If
End Sub
Sub Button7_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "R1K"
smsc.Show(Page1)
TextField2.text="R1K"
End If
End Sub
Sub Button8_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "R2K"
smsc.Show(Page1)
TextField2.text="R2K"
End If
End Sub
Sub Button9_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "R3K"
smsc.Show(Page1)
TextField2.text="R3K"
End If
End Sub
Sub Button10_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "R4K"
smsc.Show(Page1)
TextField2.text="R4K"
End If
End Sub
Sub Button11_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "RALL"
smsc.Show(Page1)
TextField2.text="RALL"
End If
End Sub
Sub Button12_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "ROFF"
smsc.Show(Page1)
TextField2.text="ROFF"
End If
End Sub
Sub Button13_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "RLDU"
smsc.Show(Page1)
TextField2.text="RLDU"
End If
End Sub
Sub Button14_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "RLIN"
smsc.Show(Page1)
TextField2.text="RLIN"
End If
End Sub
Sub Button15_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "SGLV"
smsc.Show(Page1)
TextField2.text="SGLV"
End If
End Sub
Sub Button16_Click
If CanSendText Then
Dim smsc As MessageComposer
smsc.Initialize("smsc")
smsc.SetRecipients(Array As String(Label27.text)) 'must be strings!
smsc.Body = "TS"
smsc.Show(Page1)
TextField2.text="TS"
End If
End Sub
Sub Button17_Click 'uygulama ilk açıldığında numarayı kullanılan komut alanına yükler.
Label27.text= kvs.get("gsm no")
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
End Sub
Private Sub Application_Active
End Sub
Private Sub Application_Inactive
End Sub
Private Sub Application_Background
End Sub
