رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


parviz

اتصال به ديتابيس آنلاين mysql و خواندن خانه اي از جدول

پست های پیشنهاد شده

parviz    1

کاربر عادی

با عرض سلام خدمت دوستان گرامي

ميخواستم به ديتابيسم وصل شم و خونه اي از جدول رو بخونم از دوستان تقاضاي كمك دارم لطفا

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
trzm1989    4

کاربر عادی

سلام خسته مباشید... برای راهنمایی بهتر دوستان لطفا دقیقا بگین کجا گیر دارین تا کمکتون کنیم؟ 

راستی تو سایت یه سری آموزش هست بزا اینکار . میتونین تهیه کنین 

  • پسندیدن 1

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
parviz    1

کاربر عادی

سلام مشكل من حل شد

فقط ميخوام به جاي اين اعداد از متغير استفاده كنم هموني كه از ديتابيس ميگيرم

 gmap.AddMarker2(38.054920, 46.2650, "", gmap.HUE_ROSE)

متغير رو ميزارم ولي مقدار صفر نشون ميده

اينم كدهاي برنامه

Sub Process_Globals
    Dim GPS1 As GPS
     Dim ht2 As HttpJob
    
End Sub

Sub Globals
   Dim mFragment As MapFragment
   Dim gmap As GoogleMap
   Dim MapPanel As Panel
   Dim LM As LocationManagerEx
   Dim GpsEnable As Button
   Dim PolygonDraw As Button
   Dim b As Button
   Dim label1 As Label
   Dim parviz As Double
 
End Sub

Sub Activity_Create(FirstTime As Boolean)
    
    
    Activity.LoadLayout("test1")
    ht2.Initialize("read",Me)
    ht2.PostString("http://www.sim808.com/gps/readdata.php","")
    
   MapPanel.Initialize("")
   Activity.AddView(MapPanel, 0, 0, 100%x, 90%y)
   If mFragment.IsGooglePlayServicesAvailable = False Then
      Dim a As Int = Msgbox2("گوگل پلی را نصب می کنید؟", "", "بله", "خیر", "", Null)
      If a = DialogResponse.POSITIVE Then
          Dim PI As PhoneIntents
        StartActivity(PI.OpenBrowser("http://cafebazaar.ir/app/?id=com.google.android.gms"))
      Else
          ExitApplication
      End If
   Else
      mFragment.Initialize("Map", MapPanel)
   End If
   LM.Initialize("LM")
   GPS1.Initialize("GPS")
   GpsEnable.Initialize("GpsEnable")
   PolygonDraw.Initialize("PolygonDraw")
   Activity.AddView(GpsEnable, 10%x, 2%y, 20%x, 10%y)
   GpsEnable.Text = "GpsEnable"
   Activity.AddView(PolygonDraw, 80%x, 30%y, 20%x, 35%y)
   PolygonDraw.Text = "PolygonDraw"
End Sub
Sub Map_Ready
   gmap = mFragment.GetMap
   If gmap.IsInitialized = False Then
      ToastMessageShow("Error initializing map", True)
   Else
   '    gmap.AddMarker(39.054925, 46.2650,15)
 
         gmap.AddMarker2(38.054920, 46.2650, parviz, gmap.HUE_ROSE)
      Dim cp As CameraPosition
      cp.Initialize(38.054920, 46.2650, 15)
      gmap.AnimateCamera(cp)
      gmap.MapType = gmap.MAP_TYPE_NORMAL
      gmap.MyLocationEnabled = True
      gmap.TrafficEnabled = True
      gmap.GetUiSettings.AllGesturesEnabled = True
   End If
End Sub

Sub GpsEnable_Click
    If GPS1.GPSEnabled = False Then
        StartActivity(GPS1.LocationSettingsIntent)
    Else
        LM.requestGPSLocation
    End If
End Sub
Sub b_Click

End Sub

Sub PolygonDraw_Click
    Dim a(5) As LatLng
    a(0).Initialize(35.69726412, 51.42567158)
    a(1).Initialize(35.69541694, 51.42766714)
    a(2).Initialize(35.69313405, 51.42786026)
    a(3).Initialize(35.69121706, 51.42382622)
    a(4).Initialize(35.69167017, 51.42987728)
    Dim l As List
    l.Initialize
    For i = 0 To 3
        l.Clear
        l.Add(a(i))
        l.Add(a(i+1))
        Dim PL As PolygonOptions
        PL.Initialize
        PL.AddPoints(l)
        PL.StrokeColor = Colors.Red
        gmap.AddMarker(a(i).Latitude, a(i).Longitude, i)
        Dim GME As GoogleMapsExtras
        GME.AddPolygon(gmap, PL)
    Next
End Sub

Sub LM_locationchanged(locArg As Location)
    Dim cp As CameraPosition
    cp.Initialize(locArg.Latitude, locArg.Longitude, 14)
    gmap.AnimateCamera(cp)
    LM.stopGPSListening
End Sub
Sub JobDone (job As HttpJob)
    If job.Success=True Then
        If job.JobName="read" Then
            ProgressDialogHide
            label1.Text=ht2.GetString
            
        End If
    Else
        ToastMessageShow("خطا در برقرای اتصال",False)
    End If
End Sub

 

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...